Mebuat kalender

1.      Buatlah form

 2.   Desain form seperti berikut  berikut ini

 3.      Aturlah objek seperti dibawah ini:

Kontrol	Properti	Isi
Label1	Caption	(dikosongi)
Timer1	Interval	100
Label2	Caption	(dikosongi)
Timer2	Interval	1000

 4.      Lalu masukkan kode:

Private Sub Timer1_Timer( )

Label2.Caption = Time

End Sub

Private Sub Timer2_Timer( )

Label1.Caption = Format(Now, "dddd, dd mm yyyy")

End Sub

 

Hasilnya kaya gini nih

 

Gampang kan.....
Ilham Sign Out......