Teknik Informatika

agan agan sekalian sekarang ane mau post tentang cara menggunakan data time di delphi

ok langkah langkah nya adalah sbb:
    1.siapkan laptop/pc
    2.buka delphi 7
    3.kita lakukan work nya sekarang



1 BUAT PENGENAL DULU

tools atau componen yang di gunakan ada di object Treeview bisa kalian lihat di gambar di atas

2 BUAT PEMASTIAN YES OR NO





















untuk yang 1 ini logika nya jika di tekan button yes maka akan lanjut ke program berikut nya jika di tekan button no maka akan menutup rogram dengan sendiri nya


3 BUAT TULISAN BERJALAN DAN MEMBUAT TANDA * BERTAMBAH TIAP DETIK NYA



















nih gan itu ada component timer(yang gambar jam) 1 2 3 nah itu timer 1 paling atas timer 2 tengah timer 3 aling bawah
nah isi itu scriptnya kek gini


procedure TForm3.Timer2Timer(Sender: TObject);
 var a,b,c : String;
begin
  a := Label1.Caption;
  b := copy(a,1,1);
  c := copy(a,2,length(a)); //KODE AGAR TEKS BERJALAN
  Label1.Caption := c+b;
end;

procedure TForm3.Timer3Timer(Sender: TObject);
 var a,b,c : String;
begin
a := Label2.Caption;
  b := copy(a,1,1);
  c := copy(a,2,length(a));  //kode agar teks berjalan
  Label2.Caption := c+b;
end;

procedure TForm3.FormCreate(Sender: TObject);
begin
Form3.Color:=clRed;
Form3.Caption:='Tugas Rena';
end;

procedure TForm3.Button1Click(Sender: TObject);
begin
Form4.Show;
Form3.Hide;
end;













nah untuk button exit isikan scriptnyaseperti ini


procedure TForm3.Button1Click(Sender: TObject);
begin
application.terminate;
end;


jadi deh program nya bro

semangat terus bro buat program nya kalau ada salah mohon maklum ane masi newbie gan
sekian dan terimakasih 
senangnya berbagi ilmu dengan teman
>,<