Saeful Anwari
1. Buka program dhelpinya
2. siapin deh bahan dulu,
biasa buat form baru dan disini saya buat 2 form yang pertama fom buat loading dan
yang kedua buat form akhir.
3. tambahkan komponan timer, progresbar seperti inilah desain punya saya
3. tambahkan komponan timer, progresbar seperti inilah desain punya saya
4.tambahkan
form kedua dan tambahkan label punya saya desainnya seperti ini
5. sekarang kita seting propertis timernya, value intervalnya 100 jika anda ingin cepat
value intervalnya lebih kecil.
6.kita masukan script di bawah ini ketimernya :
6.kita masukan script di bawah ini ketimernya :
|
1
2
3
4
5
6
7
8
9
10
|
procedure
TForm1.Timer1Timer(Sender: TObject);
begin
ProgressBar1.Position:=ProgressBar1.Position+1;
if ProgressBar1.Position=100then
begin
Timer1.Enabled:=False;
Form1.Hide;
Form2.Show;
end;
end;
|
7.sekarang cob aanda run/tekan F9,
Selamat mencoba
good luck
-indahnya berbagi-