Membuat Hari Jam dan Tanggal di VB6

coding ini digunakan untuk menampilkan Hari, Jam, dan Tanggal di VB6 sesuai dengan Jam, dan Tanggal di komputer, jadi setiap perubahan waktu di komputer tampilan juga akan ikut berubah, tiap detik, menit, jam, hari, bulan, dan tahun.


Ikuti langkah-langkah berikut :

1. Buat project Baru dengan satu form baru
2. Buat 2 Label
3. Buat 1 Timer

Berikut ini contoh gambarnya :

Klik gambar untuk memperbesar

Kemudian copy kan coding berikut :

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

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



Setelah selesai di copy sekarang coba tekan F5 untuk menjalankan program tersebut

Selamat mencoba, senang berbagi ilmu untuk sesama.