Tutorial Membuat Jam Analog Dengan VB6.0

Tutorial Membuat Jam Analog Sederhana Dengan VB6.0

Hallo gan, masih penasaran nih, dengan script – script yang ada di VB6 ?.....

Untuk agan – agan yang masih awam didunia VB6.0, seperti ane. Sekarang ane mau membahas sedikit tentang VB6.0, VB6.0 adalah salah satu aplikasi yang digunakan untuk membuat aplikasi (menurut pendapat ane sendiri). Untuk lebih jelasnya mengenai pengertian VB6.0, agan bisa search di google aja. Bagi agan – agan yang mau membuat aplikasi sederhana dengan VB6.0 seperti JAM ANALOG. Nih, saya kasih tahu caranya : (kalo gak salah kodenya)

TUTORIAL MEMBUAT JAM ANALOG versi VB6.0 :

1.      Buka Vb6 dari start menu.

2.      Pada kotak dialog pertama pilih standart EXE. (ingat yang standart aja, jangan yang melebihi batas) kemudian OPEN.

3.      Setelah terbuka, agan akan membuka form baru. Nah, disinilah kita bisa mendesain program yang akan kita buat.

4.      Tambahkan beberapa komponen berikut :

Timer1, Timer2, Label1, Label2.

5.      Buatlah susunan seperti gambar dibawah ini :

6.      Setelah agan susun seperti gambar diatas , selanjutnya agan memasukkan source kode dibawah ini kedalam View Kode :

Dim ahari

Dim shari As String

Option Explicit

Dim color As Long, flag As Byte

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

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

7.      Sekarang saatnya RUN ( tekan f5)

8.      Selesai

Dan hasilnya seperti dibawah ini :

Untuk agan yang pengen langsung bentuk exe.nya dari buatan ane, agan bisa Download disini.

Sekian dari ane, kurang lebihnya ane mohon maaf yang sekecilnya.