PROGRAM PENGENDALI LIFT
KARYA TAUFIQ HIDAYAT
'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
semoga semua ilmu pengetauhan ini bermanfaat buat anda semua nya ,.,.,.,............
BalasHapus