jednoduchy semafor s tlacitkom
Napísané: 10 Jan 2014, 22:39
skusal som naprogramovat v bascome semafor ten funguje ako ma ale chcel som tam pridat este tlacitko a po jeho stlaceni zacne blikat zlta led a po opatovnom stlaceni zacne fungovat semafor normalne ale s tymto mam problem tu je co som naprogramoval
mikroprocesor mam atmega8a-16PU
a tu je kod s tlacitkom
vedel by mi niekto poradit kde je v tom druhom kode chyba aby mi to fungovalo ze po stlaceni tlacitka sa rozblika zlta led a po znovu stlaceni tlacitka pokracuje prva cast programu teda normalna funkcia semaforu
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