KARYA TAUFIQ HIDAYAT

PROGRAM HANYA SATU LAMPU LED

Private Sub Cmd_Off_Click()

    Lampu1.FillColor = vbWhite

    Out &H378, 0

End Sub

Private Sub Cmd_On_Click()

    Lampu1.FillColor = vbRed

    Out &H378, 255

End Sub

PROGRAM UNTUK MEMBUAT JAM

Dim x As Integer

Private Sub Cmd_Reset_Click()

    x = 0

    lb_hitung.Caption = 0

    lb_jam.Caption = "00:00:00"

End Sub

Private Sub Cmd_Start_Click()

    Timer1.Enabled = True

End Sub

Private Sub Cmd_Stop_Click()

    Timer1.Enabled = False

End Sub

Private Sub Timer1_Timer()

    lb_jam.Caption = Time

   

    x = x + 1

    If x = 10 Then

        x = 0

    End If

   

    lb_hitung.Caption = x

End Sub