LAMPU SQC14

'LAMMPU SAJA
'Revisi pengembangan penambahan lampu hijau tidak pake  alarm
'lampu merah pada t1 dan t2
'18 MARET 2014

$regfile = "89c2051.dat"
$crystal = 11059200
$baud = 2400



Dim A1 As Byte
Dim A2 As Byte
Dim A3 As Byte
Dim A4 As Byte
Dim A5 As Byte
Dim A6 As Byte
Dim A7 As Byte



Kanal Alias P1
L_hijau Alias Kanal.5
L_merah Alias Kanal.7
L_kuning Alias Kanal.6
L_led Alias Kanal.3
Alarm Alias Kanal.4




Kanal = 0
Waitms 500
Kanal = 0
L_merah = 1

Waitms 500
Kanal = 0
L_hijau = 1

Waitms 500
Kanal = 0
L_kuning = 1

Waitms 500
Kanal = 0
L_hijau = 1

Waitms 500
Kanal = 0
L_merah = 1

Waitms 500
Kanal = 0
L_hijau = 1

Waitms 500
Kanal = 0
L_kuning = 0
Waitms 500
Kanal = 0
L_led = 1

Do

A1 = Waitkey

A7 = A6
A6 = A5
A5 = A4
A4 = A3
A3 = A2
A2 = A1


If A7 = &H44 Then                                             'D
   If A6 = &HA0 Then
      If A5 = &H22 Then
         If A4 = &HA0 Then                                    'sp
            If A3 = &HC9 Then                                 'I
                If A2 = &HDE Then                             '^
                  L_merah = 1
                  Alarm = 1
                Else
                  L_kuning = 1
                  Alarm = 1
                End If
            End If
         End If
      End If

   End If
End If

' LAMPU HIJAU               !   MATIKAN SEMUA
'   D "-  LAMPU HIJAU ON    !
' A5=D  =44                 !   A5=D =44
' A4=SP =A0                 !   A4=W =D7
' A3="  =22                 !   A3=CR=8D
' A2=-  =2D                 !   A2=LF=0A

' A2=^  =DE      LAMPU MERAH
' A2=_  =5F      LAMPU KUNING

If A5 = &H44 Then                                             'D
   If A4 = &HA0 Then                                          'SP
      If A3 = &H22 Then                                       'PETIK
         Kanal = 0
         If A2 = &H2D Then                                    '-
            L_hijau = 1
         End If
         If A2 = &H5F Then
            L_kuning = 1
            Alarm = 1
         End If
         If A2 = &HDE Then
            L_merah = 1
            Alarm = 1
         End If
      End If
   End If



   If A4 = &HD7 Then                                          'W
      If A3 = &H8D Then                                       'CR
         Kanal = 0
      End If
   End If

End If

Loop