mikroprocesor mam atmega8a-16PU
Kód: Vybrať všetko
$regfile = "m8def.dat"
$crystal = 1000000
Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output
''''''''''''''' HLAVNI PROGRAM ''''
Do
Portc.0 = 1
Portc.1 = 0
Portc.2 = 0
Waitms 3000
Portc.0 = 1
Portc.1 = 1
Portc.2 = 0
Waitms 1500
Portc.0 = 0
Portc.1 = 0
Portc.2 = 1
Waitms 6000
Portc.0 = 0
Portc.1 = 1
Portc.2 = 0
Waitms 1300
Portc.0 = 1
Portc.1 = 0
Portc.2 = 0
Loop
''''''''''''''' KONEC HLAVNIHO PROGRAMU ''''
End
Kód: Vybrať všetko
$regfile = "m8def.dat"
$crystal = 1000000
Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output
Config Portc.3 = Input
''''''''''''''' HLAVNI PROGRAM ''''
Do
If Portc.3 = 1 Then
Portc.0 = 1
Portc.1 = 0
Portc.2 = 0
Waitms 3000
Portc.0 = 1
Portc.1 = 1
Portc.2 = 0
Waitms 1500
Portc.0 = 0
Portc.1 = 0
Portc.2 = 1
Waitms 6000
Portc.0 = 0
Portc.1 = 1
Portc.2 = 0
Waitms 1300
Portc.0 = 1
Portc.1 = 0
Portc.2 = 0
Loop
End If
Portc.3 = 0
Do
Portc.1 = 1
Waitms 1000
Portc.1 = 0
loop
''''''''''''''' KONEC HLAVNIHO PROGRAMU ''''
End