Membuat Hari, Tanggal, dan Jam, dari label mengikuti waktu komputer

Oke gan lanjut ke tutorial demi tutorial, kali ini sedikit tips yaitu membuat tampilan hari, tanggal, dan jam dari label di visual basic 6 tetapi tampilan label tersebut nanti akan terus berjalan sesuai dengan hari, tanggal dan jam mengikuti waktu di komputer.

Langkah-langkahnya sebagai berikut :

Siapkan 1 form gunakan 2 label dan 1 timer
biarkan saja label dan timer tersebut, jangan dirubah namanya.

Klik gambar untuk memperbesar

kemudian copykan coding dibawah ini ke dalam form tersebut


'==========================================================
Dim sHari As String      'Deklarasi variabel global, karena digunakan
Dim aHari                'oleh lebih dari satu prosedur

Private Sub Form_Load()  'Inisialisasi array untuk hari
  aHari = Array("Minggu", "Senin", "Selasa", "Rabu", _
                "Kamis", "Jumat", "Sabtu")
  Timer1.Interval = 500  'Set property interval
  Timer1.Enabled = True  'Aktifkan jika belum...
End Sub

Private Sub Label1_Click()

End Sub

Private Sub Label2_Click()

End Sub

'Prosedur ini meng-update tanggal & jam setiap ada perubahan, baik
'perubahan yang dilakukan melalui Date/Time di menu Control Panel
'maupun perubahan yang terjadi karena pergantian hari/tanggal.
Private Sub Timer1_Timer()
  sHari = aHari(Abs(Weekday(Date) - 1))  'Tampilkan hari
  Label1.Caption = "" & sHari & ", " _
                   & Format(Date, "dd mmmm yyyy")
  Label2.Caption = Format(Time, "hh:mm:ss")
End Sub'==========================================================  

Kemudian coba jalankan project tersebut dan amati hasilnya.
Label 1 dan label 2 akan berubah menampilkan waktu sesuai waktu di komputer

Klik gambar untuk memperbesar

Untuk memudahkan Anda, Ane sediakan file yang sudah jadi sesuai tutorial diatas.

Silahkan klik DISINI

Selamat mencoba