Ephyteac

$regfile = "89c51cc.dat" $crystal = 11059200 $baud = 9600 '52 bit data Dim D0 As Byte Dim D1 As Byte Dim D2 As Byte Dim D3 As Byte Dim D4 As Byte Dim D5 As Byte Dim D6 As Byte Dim D7 As Byte Dim D8 As Byte Dim D9 As Byte Dim D10 As Byte Dim D11 As Byte Dim D12 As Byte Dim D13 As Byte Dim Isi As String * 3 Dim I As Integer Dim X As Integer Declare Sub Baca Datax Alias P0 .3 Clock Alias P0 .1 Req Alias P0 .2   Print "TESTER" Do Req = 0 Clock = 1   Input Isi Noecho    If Isi = "1" Then '        Print "baca sekali"        Call Baca    End If    If Isi = "2" Then        Print "baca 100 kali"        For X = 1 To 100   '       Waitms 200        Call Baca    ...

'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                     ...