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
Gan misi ane mau nanya cara munculin tanggal tapi seperti ini hasilnya
BalasHapusBL-20131020-001
nah itu kya gimana ya? tlg pencerahannya maklum baru pertama kali make VB
coba pake cara kaya gini :
BalasHapuslbltanggal.caption=& "BL-" & FORMAT(DATE,"yyyyMMdd") & "-001" &
thanks bro atas infonya,,
BalasHapussemoga ilmu ini dapat bermanfaat bagi saya, sehingga pahala mengalir trus untuk anda.
# Salam Persahabatan.
gan , ane mo nanya, kalo misal kita input tanggal, trus kita pengen tau itu hari apa, gmna??
BalasHapusmasukkan yg bagus gan. nanti tak coba cri caranya
Hapusjancokkkk
BalasHapusbukan ini yang kucari anjing !!!!1
TINY GOLD SMITH® TINY GOLD SMITH® TINY GOLD
BalasHapusTINY GOLD SMITH® TINY titanium bmx frame GOLD SMITH® TINY GOLD SMITH® TINY babyliss nano titanium GOLD SMITH® TINY GOLD burnt titanium SMITH® snow peak titanium spork TINY trekz titanium pairing GOLD.