Membuat Jam Dengan VB 6

Siang semua... Kali ini aku mau ngasih tahu alias share tentang cara membuat alarm dengan Visual Basic. Ya menurut saya ini cara termasuk yang mudah sederhana dan tidak begitu bayak koding. Langsung aja ya..

Pertama buka Visual Basic 6.0-nya dulu..

Lalu pilih Standard.Exe

Tambahkan 3 Label, 1 Text box, 2 timer, 2 command Button.

Ubah Caption Tiap Labelnya terserah anda, yang penting khusus buat label1 ntar buat jamnya.

Ubah interval kedua timer tersebut menjadi 1000.

Timer1

                Enabled = True

Timer2

                Enabled = False

Command1

                Caption = Aktif

Command2

                Caption = Keluar

Kurang lebih tampilannya seperti berikut :

 

Kemudian masukkan kode berikut :

Dim alarem As Boolean

Private Sub Command1_Click()

    If alarem = True Then

        Timer2.Enabled = False

        Command1.Caption = "Aktif"

        alarem = False

    Else

        Command1.Caption = "Tidak Aktif"

        alarem = True

    End If

End Sub

Private Sub Command2_Click()

    End

End Sub

        Private Sub Form_Load()

        alarem = False

        End Sub

        Private Sub Timer1_Timer()

        Label1.Caption = Time

        If Text1.Text = Label1.Caption And alarem = True Then

        Timer2.Enabled = True

        End If

        End Sub

        Private Sub Timer2_Timer()

        Beep

        End Sub

Sumber: http://nantslight.blogspot.com/2012/05/membuat-alarm-dengan-visual-basic-60.html