2. Listing Program [kembali]
$regfile = "m8535.dat"
$crystal = 16000000
Config Porta = Output
Ddrb = &B00
Do
If Pinb.0 = 1 Then
Porta = &B1010
Waitms 100
Elseif Pinb.1 = 1 Then
Porta = &B0101
Waitms 100
Else
Porta = &B0000
End If
Loop
End
$crystal = 16000000
Config Porta = Output
Ddrb = &B00
Do
If Pinb.0 = 1 Then
Porta = &B1010
Waitms 100
Elseif Pinb.1 = 1 Then
Porta = &B0101
Waitms 100
Else
Porta = &B0000
End If
Loop
End






0 komentar:
Posting Komentar