Selasa, 20 Maret 2012




PROGRAM PENGENDALI LIFT

KARYA TAUFIQ HIDAYAT


Private Sub Cmd_Start_Click()
    'mengaktifkan timer FF
    Timer1.Enabled = True
End Sub
Private Sub Cmd_Stop_Click()
    'menonaktifkan timer FF
    Timer1.Enabled = False
End Sub

Private Sub Command1_Click()
    Timer1.Interval = Slider1.Value
End Sub

Private Sub Slider1_Scroll()
    Label5.Caption = Slider1.Value
End Sub

Private Sub Timer1_Timer()
    'menjumlahkan var x
    x = x + 1
    Me.Caption = "Flip- Flop counter : " & x
   
    'kondisi menghidupkan Led 1
    If x = 1 Then
        L1.FillColor = vbRed 'merah
        L2.FillColor = vbWhite
        L3.FillColor = vbWhite
        L4.FillColor = vbWhite
        Out &H378, 1
       
    'kondisi menghidupkan Led 2 selisih 3 detik
    ElseIf x = 3 Then
        L1.FillColor = vbWhite
        L2.FillColor = vbRed 'merah
        L3.FillColor = vbWhite
        L4.FillColor = vbWhite
         Out &H378, 2

        
    'kondisi menghidupkan Led 3 selisih 3 detik
    ElseIf x = 6 Then
        L1.FillColor = vbWhite
        L2.FillColor = vbWhite
        L3.FillColor = vbRed 'merah
        L4.FillColor = vbWhite
        Out &H378, 4
       
   'kondisi menghidupkan Led 4 selisih 3 detik
    ElseIf x = 9 Then
        L1.FillColor = vbWhite
        L2.FillColor = vbWhite
        L3.FillColor = vbWhite
        L4.FillColor = vbRed 'merah
        Out &H378, 8
       
    'kondisi untuk reset var x = 0
    ElseIf x = 12 Then
        x = 0
    End If
End Sub




1 komentar:

  1. semoga semua ilmu pengetauhan ini bermanfaat buat anda semua nya ,.,.,.,............

    BalasHapus