Untuk tampilan dari formnya sendiri saya coba buat seperti ini, dan untuk source codenya saya sertakan dengan comen di tiap perintahnya.

Tambahkan 1 buah timer dengan properties : Behavior enable=true dan interval=100
Source code :
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Me.Label1.Text = Format(Now, "dddd") 'untuk menampilkan hariMe.Label2.Text = Format(Now, "dd") 'untuk menampilkan tanggal
Me.Label3.Text = Format(Now, "MM") 'untuk menampilkan bulan
Me.Label4.Text = Format(Now, "yyyy") 'untuk menampilkan tahun
Me.Label5.Text = Format(Now, "hh") 'untuk menampilkan jam
Me.Label6.Text = Format(Now, "mm") 'untuk menampilkan menit
Me.Label7.Text = Format(Now, "ss") 'untuk menampilkan detik
Me.Label8.Text = Format(Now, "dddd,yyyy-mm-dd") 'untuk menampilkan hari,tahun,bulan dan tanggal
Me.Label9.Text = Format(Now, "hh:mm:ss") 'untuk menampilkan jam,menit dan detik
End Sub
0 komentar:
Posting Komentar