Zdravím, nutně potřebuji napsat program do procesoru, ale nejak se mi nedaří. Zadání zní takto: Napište program v Bascomu tak, aby se na prvním vývodu procesoru při stisku tlačítka objevila log. 1 a při uvolnění tlačítka log. 0. při druhém stisku tlačítka se bude proces opakovat na druhém portu. Takto napište program pro 5 výstupů.
Problém je v tom, že při opakovaném stisku tlačítka reaguje pouze první výstup. ostatní nic.
Je tu nekdo, kdo by poradil ?
Pozn.: Stisknuté tlačítko = log 0.
Dík
můj program:
$regfile = "m32def.dat"
$crystal = 16000000
Config Pinb.5 = Input
Portb.5 = 1
Config Portc.0 = Output
Config Portc.1 = Output
Config Portc.2 = Output
Config Portc.3 = Output
Config Portc.4 = Output
Dim A As Byte
Dim B As Bit
Reset Portc.0
Reset Portc.1
Reset Portc.2
Reset Portc.3
Reset Portc.4
A = 0
B = 0
Do
If Pinb.5 = 0 And B = 0 Then
A = A + 1
Goto Stisk
End If
If Pinb.5 = 1 Then
Reset Portc.0
Reset Portc.1
Reset Portc.2
Reset Portc.3
Reset Portc.4
Reset B
If A = 4 Then
A = 0
End If
Loop
End
Stisk:
If A = 1 Then
Set Portc.0
End If
If A = 2 Then
Set Portc.1
End If
If A = 2 Then
Set Portc.2
End If
If A = 3 Then
Set Portc.3
End If
If A = 4 Then
Set Portc.4
End If
Set B
Return
End If