Senin, 24 Desember 2007

Membuat Splash Scrren Pada Delphi

Splash screen merupakan tampilan yang kita lihat pertama kali waktu kita menjalankan sebuah aplikasi. Splash screen ini biasanya ditampilkan untuk mengurangi kejenuhan user sewaktu program masih dalam tahap inisialisasi.

Untuk membuat splash scren tersebut caranya sebagai berikut :

  1. Bikin dulu form utamanya.
  2. Tambahkan form yang akan digunakan sebagai splash screen (dari menu File, pilih New Form). Beri nama form tersebut dengan FrmSplash.
  3. Tambahkan komponen Timer (terletak pada tab Win32), beri nama dengan tmMainTimer.
  4. Tambahkan kode berikut pada events onTimer dari komponen Timer tersebut :



    tmMainTimer.Enabled := False;

  5. Dari menu Project, pilih Options.
  6. Pindah ke tab Forms.
  7. Dari bagian auto create forms akan terlihat dua buah form. Pilih Form yang akan digunakan sebagai splash screen dan klik tombol ">" untuk memindah form splash screen ke bagian Available forms.
  8. Kalau sudah klik OK.
  9. Sekarang dari menu View, pilih Project Source. Pada program utama buatlah form splash screen sebelum inisialisasi dilakukan.

Untuk lebih jelasnya lihat potongan program berikut ini :

program Project1;

uses Forms,
Unit1 in 'Unit1.pas' {Form1},
Unit2 in 'Unit2.pas' {FrmSplash};

{$R *.RES}

begin
FrmSplash := TFrmSplash.Create(Application);
FrmSplash.Show;
FrmSplash.Update;
while FrmSplash.tmMainTimer.Enabled do Application.ProcessMessages;
Application.Initialize;
Application.CreateForm(TForm1, Form1);
FrmSplash.Hide;
FrmSplash.Free; // menghapus form splash scren dr memory
Application.Run;
end.


Baca Selengkapnya...

Mengetahui sudah berapa lama windows di jalankan

Dalam program Anda mungkin Anda ingin mengetahui sudah berapa lama Windows dijalankan pada saat itu. Untuk mengetahuinya Anda dapat menggunakan function di bawah ini.


function
UpTime: string;
const
ticksperday : integer = 1000 * 60 * 60 * 24;
ticksperhour : integer = 1000 * 60 * 60;
ticksperminute : integer = 1000 * 60;
tickspersecond : integer = 1000;
var
t : longword;
d, h, m, s : integer;

begin
t := GetTickCount;

d := t div ticksperday;
dec(t, d * ticksperday);

h := t div ticksperhour;
dec(t, h * ticksperhour);

m := t div ticksperminute;
dec(t, m * ticksperminute);

s := t div tickspersecond;

Result := 'Uptime: '+IntToStr(d)+ ' Hari '+IntToStr(h)+' Jam '+IntToStr(m)+' Menit '+IntToStr(s)+' Detik';
end;

Sedangkan contoh penggunaannya adalah sebagai berikut:

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=UpTime;
end;

Baca Selengkapnya...

Kumpulan Tag HTML

Memberi komentar atau keterangan. Kalimat yang terletak pada tag kontiner ini tidak akan terlihat pada browser
a href Membuat link ke halaman lain atau ke bagian lain dari halaman tersebut
a name Membuat nama bagian yang didefinisikan pada link pada halaman yang sama
applet Sebagai awal dari Java applets
area Mendefinisikan daerah yang dapat diklik (link) pada image map
b Membuat teks tebal

basefont Membuat atribut teks default seperti jenis, ukuran dan warna font
bgsound Memberi (suara latar) background sound pada halaman web
big Memperbesar ukuran teks sebesar satu point dari defaultnya
blink Membuat teks berkedip
body Tag awal untuk melakukan berbagai pengaturan terhadap text, warna link & visited link
br Pindah baris
caption Membuat caption pada tabel
center Untuk perataan tengah terhadap teks atau gambar
comment Meletakkan komentar pada halaman web tidak tidak akan nampak pada browser
dd Indents teks
div Represents different sections of text.
embed Menambahkan sound or file avi ke halaman web
fn Seperti tag a name
font Mengganti jenis, ukuran, warna huruf yang akan digunakan utk teks
form Mendefinisikan input form
frame Mendefinisikan frame
frameset Mendefinisikan attribut halaman yang akan menggunakan frame
h1 ... h6 Ukuran font
head Mendefinisikan head document.
hr Membuat garis horizontal
html Bararti dokumen html
i Membuat teks miring
img Image, imagemap atau an animation
input Mendefinisikan input field pada form
li Membuat bullet point atau baris baru pada list (berpasangan dengan tag dir, menu, ol and ul )
map Mendefinisikan client-side map
marquee Membuat scrolling teks (teks berjalan) - hanya pada MS IE
nobr Mencegah ganti baris pada teks atau images
noframes Jika browser user tidak mendukung frame
ol Mendefinisikan awal dan akhir list
p Ganti paragraf
pre Membuat teks dengan ukuran huruf yg sama
script Mendefinisikan awal script
table Membuat tabel
td Kolom pada tabel
title Mendefinisikan title
tr Baris pada tabel
u Membuat teks bergaris bawah

Baca Selengkapnya...

Sabtu, 08 Desember 2007

Dominasi VB Menjadi Roh Virus

Tidak seperti team sepak bola yang tidak mampu berbicara banyak di level regional dan terkadangatlit sepak bola malah memperlihatkan bakat lain di lapangan sepak bola seperti bakat taekwondo (menendangi wasit)dan bakat boxing (meninju lawan main nya).
Maka virus lokal indonesia sudah mampu menjadi tuan rumah di negara sendiri dan berbicara cukup nyaring di negara 2 lain.jika sebelum tahun 2005 kprah virus lokal masih “nyaris tak terdengar” dan tahun 2006 merupakan tahun virus lokal indonesia merajai penyebaran virus di tanah air.

Pada tahun 2007,tren tersebut makin menjadi2 sampai bulan april 2007, virus yang di “impor” oleh indonesi adalah viking/ looked.PE yang berasal dari cina dan dibuat untuk mencuri data game online dan beberapa virus yang menyebar melalui e-mail.
Tapi secara umum, masalah virus utama yang dihadapi oleh komunitas pengguna komputer di tanah air adalah virus lokal.kreativitas pembuat virus lokal sangat tinggi , walaupun senjata nya terbatas dan hanya mampu melakukan pemprograman dengan visual basic, namun 1001 akal digunakan untuk menutupi kelemahan visual basic tertsebut dan beberapa aksi baru dan orisinil dikeluarkan seperti membuat virus otomatif berjalan setiap kali pengguna komputer mencolokkan flash disk pada komputernya.
Beberapa virus lain melakukan aksi yang sangat merepotkan dengan mengunci komputerselalu pada menu logon (sekalipun user name dan password yang benar sudah di masukkan) sehihngga pembersihan hanya dapat dilakukan dengan mini PE atau melepaskan harddisk korban menjadi slave pada komputer lain.
Satu hal yang berbahaya dan patut di waspadai adalah aksi virus mengubah host file pada komputer korbanya yang jika disalah gunakan dan digabungkan dengan pembuatan web site palsu akan mampu menembus pengamanan pada internet banking , sekalipun yang menggunakan TFA (Two Factor Authen tication) atau yang di indonesia dikenal dengan nama pengamana Token / kalkulator PIN.
Vsinkom banyak sekali mendapatkan permintaan solusi virus lokal dari Asia Tenggara (malaysia , philipina) ,Eropa (perancis,ingris),dan amerika.karena penyabaran virus indonesia ternyata sudah menyampai ke manca negara dan anti virus dan team suportnya tidak mampu mengatasi aksi yang dilakuakan oleh virus lokal yang terkadang membingungkan sekalipun untuk pengguna komputer yang cukup mahir.
Padsa ummnya virus lokal masih dibuat menggunakan basa pemprograman “sejuta umat” visual basic dengan beberapa cirikhas dan kelemahan sehingga “relatif”lebih mudah di basmi jikka kita mampu mengakses file utama yang diperlukanuntk menjalankan visual basic………..MSVBVM60.DLL.
Beberapa aksi”wajib” yang dilakukan virus lokal adalah memalsukan icon virus (aplication) menjadi icon lain. Jika di tahun 2006 icon favorit yang dipalsukan adalah icon Ms word ,maka ditahun 2007 terjadipengerasan dimana icon favorit yang sering dipalsukan adalah icon folder.lebih canggih lagi virus dengan icon folderyang jika di perhatikan dengan teliti file tipenya “aplication” pada generasi berikutnya ikut sempurna menjadi “file folder.
Beberapa virus yang cukup merepotkan seperti di kemukakan diatas ,melakukan aksi dengan mengunci komputer pada menu logon sehingga sekalipun pengguna komputer memasukkan user name dan password yang benar ,komputer tetap akan menolak unutuk logon dan tetap meminta user name dan password .
Celakanya,halini tetap terjadi sekalipun komputer di start dalam safemode with commant prompt. Untuk memper baiki masalah ini cukup repot karena harus mengakses hard disk dari luar os dan alternatife nya hanya melepaskan hard disk dan menjadikan sebagai slave di komputer lain,atau menggunakan aplikasi independent seperti NTFSfor dos,bart PE.
Aksi lain loain yang menjadi “lagu wajib” virus lokal adalah blok aplikasi maintenance windows yang biasa di gunakan untuk menganalisa aktivitas virus seperti blok pada aplikasi task manager ,regedit ,MS config ,folder option ,run ,dll.
Fitur yang sering di aktifkan adalah folder options,dimana komputer korban virus akan di set unutuk “Donot show hidden file and folders” dan karena virus ini membersihkan atribut sistem file pada filenya, sehingga akan ikut disembunyikan(tidak tampak pada windows exploler ).
Selain itu aplikasi sekuriti seperti firewall windows ,anti virus favorit dan utility independen seperti process explorer ,I know proses juga ikut menjadi program faforit yang di blok oleh virus. Beberapa virus lokal yang paling ganas di kaurtal pertama tahun 2007 ciri 2 nya adalah:
Ø Babon ,49 Kb mengubah propertice dan AM/PM pada jam menjadi tulisan babon.
Ø Aksika ,45 Kb membuat back up MSVBvm60.dll disable sistem restore,aktif di normal mode ,dan safe mode.
Ø Pendekar blank ,34 Kb, menyem bunyikan folder “ C:\Windows\Sistem32.exe” dan membuat file duplikat sesuai dengan nama folder yang di sembunyikan [Sistem32.exe] .
Ø Pacaran ,59 Kb,mengubah icon file non virus dikomputer korban menjadi folder dan file tipe aplication sehingga dikira virus oleh pengguna komputer dan dihapus (mp3,txt,jpeg,dan exe) membackup dirinya dengan selalu menjaga keberadaan MSVBvm60.dll merubah type file file folder,mp3,txt,jpeg,dan exe menjadi W32.Pacaran.

Baca Selengkapnya...

 
Created by Mr. Gen | Powered by Blogger | Copyright 2008-2009