CARA MENAMPILKAN TANGGAL DAN JAM SECARA OTOMATIS DI VB / VISUAL BASIC 6.0

Selamat sore sobat, kali ini aing mau share tentang Cara Menampilkan Tanggal Dan Jam Secara Otomatis Di Visual Basic 6.0. maaf kalo hasilnya kurang memuaskan, coz Aing buatnya masih sederhana banget. Tapi kalo sobat mau yang lebih memuaskan, modifikasi sendiri aja ya. 

Okeh, langsung saja kita ke TKPnya !!!!!!!!!

Pertama-tama kita buka dulu aplikasi visual basic 6.0 nya. Kalau belum punya, klik teng mriki mawon.

1.     kemudian pilih new project dengan standart EXE, OK

2.     Buat 2 buah label dan 1 timer : 1 label untuk menampilkan tanggal dan 1 label untuk menampilkan jamnya.

3.     kemudian atur label dan timernya di properties, dengan ketentuan sbb:

form :     BackColor : “&H8000000D&”  (tanpa petik)

label1 :   name : lbltanggal

              AutoSize : True

              BackStyle : 0-Transparent

              Caption : (kosong)

              ForeColor : Merah / “&H000000FF&” (sekali lagi tanpa petik)

Label2 :  name : lbljam

              AutoSize : True

              BackStyle : 0-Transparent

              Caption : (kosong)

              ForeColor : Merah / “&H000000FF&” (sekali lagi tanpa petik)

Atau atur sendiri sesuai keinginan sobat.

4.     kemudian ketik koding di bawah ini di view code

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

5.     Kemudian di RUN untuk melihat hasilnya.
     lah ini tampilan dari hasil project yang aing buat

6.     Jangan lupa di save dulu ya, sebelum di edit

Mungkin itu aja yang bisa aing share buat sobat semua. Kalo mau lihat project hasil buatan aing, klik teng mriki mawon nggih.

Terima kasih atas kunjungannya ya sobat. Met sore....he..he..heee