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.

3 Response to Membuat Hari, Jam, dan Tanggal di VB6

12 September 2012 21.29

mas Mukhlas saya mw tanya,,,saya sedang membuat project transaksi pembelian barang ,,saya buat form data barang terpisah dengan form inputnya ...nahhhh yang saya mw tanya gimana cara nya agar pada saat saya kLik salah satu tabel barang itu otomatis data akan tersalin ke tabel form inputannya beserta Date N time yang secara otomatis terinput di form transaksi berdasarkan date N time yang ada di pc saya.......
Mohon Bantuannya.... atw bisa dikirim ke e-mail saya untuk source code nya !!!! e_mail saya :brian_abraham@rocketmail.com

terima kasih..... semoga bertambah ilmunya mas dengan mengamalkannya ilmu mas kepada saya..Amin

binhot
3 Juli 2013 21.41

lumayan buat nambah ilmu, thank's bro.....

13 Juli 2013 06.21

nice info, makasih gan...

Poskan Komentar

Ayo gan Komentarnya jangan lupa,,,biar Mas Mukhlas tambah semangat nulis postingan-nya, kalau ada pertanyaan atau link yang mati laporkan juga disini ya...

LinkWithin

Related Posts Plugin for WordPress, Blogger...