Laman

Jumat, 01 Februari 2013

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

7 komentar:

  1. Gan misi ane mau nanya cara munculin tanggal tapi seperti ini hasilnya

    BL-20131020-001

    nah itu kya gimana ya? tlg pencerahannya maklum baru pertama kali make VB

    BalasHapus
  2. coba pake cara kaya gini :
    lbltanggal.caption=& "BL-" & FORMAT(DATE,"yyyyMMdd") & "-001" &

    BalasHapus
  3. thanks bro atas infonya,,
    semoga ilmu ini dapat bermanfaat bagi saya, sehingga pahala mengalir trus untuk anda.

    # Salam Persahabatan.

    BalasHapus
  4. gan , ane mo nanya, kalo misal kita input tanggal, trus kita pengen tau itu hari apa, gmna??

    BalasHapus
    Balasan
    1. masukkan yg bagus gan. nanti tak coba cri caranya

      Hapus
  5. jancokkkk
    bukan ini yang kucari anjing !!!!1

    BalasHapus
  6. TINY GOLD SMITH® TINY GOLD SMITH® TINY GOLD
    TINY 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.

    BalasHapus