CARA MENAMPILKAN TANGGAL DAN JAM SECARA OTOMATIS DI VB / VISUAL BASIC 6.0
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
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
Komentar
Posting Komentar