LATIHAN BUAT JAM VB

Salam semua

Ada latihan buat sobat yang baru belajar Visual Basic

Yaitu latihan buat timer, kita langsung aja ke te…ka..pe….

Buat dulu formnya dengan dua label satu timer

Kalo sudah jadi formnya

Masukin apasih itu namanya kalo nga salah scrip mungkin coding kalinya

Dah masukin aja nih..............................:

Dim sHari As String    

Dim aHari

Private Sub Form_Load()

  aHari = Array("Minggu", "Senin", "Selasa", "Rabu","Kamis", "Jumat", "Sabtu")

  Timer1.Interval = 500

  Timer1.Enabled = True

End Sub

Private Sub Timer1_Timer()

  sHari = aHari(Abs(Weekday(Date) - 1))

  lbltanggal.Caption = "" & sHari & ", " _

                   & Format(Date, "dd mmmm yyyy")

lbljam.Caption = Format(Time, "hh:mm:ss")

End Sub

Hasilnya akan seperti ini kalo bikinan saya

Selamat belajar

Semoga sukses