Hallo liebe User,
ich bin dabei eine Wortuhr zu programmieren - es funktioniert auch fast alles. Ich verwende einen Arduino Nano - sprich ATMEGA 328, lese über eine RTC die Uhrzeit ein und steuere die LED über die entsprchenden Ports. Allerdings werden in der do loop-Schleife die gesetzten Ports getoggelt. 1s LED an, 1s LED aus usw. Hat einer eine idee, wie ich das unterbinden kann?
hier das gekürzte Programm:
$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 256
$swstack = 256
$framesize = 256
$baud = 57600
Config Pind.2 = Input 'Stellen
Config Pinb.5 = Output
Led Alias Pinb.5
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pind.6 = Output
Config Pind.7 = Output
'Hauptschleife
Do
' Unterprogramm zum m auslesen .....
Gosub Lesen
If M > 4 And M < 10 Then '
Pinb.0 = 0
Pinb.1 = 1
Pinb.2 = 0
Pind.6 = 1
Pind.7 = 0
End If
Wait 1
Loop
Lesen:
'
'
M = 6
Return
ich bin dabei eine Wortuhr zu programmieren - es funktioniert auch fast alles. Ich verwende einen Arduino Nano - sprich ATMEGA 328, lese über eine RTC die Uhrzeit ein und steuere die LED über die entsprchenden Ports. Allerdings werden in der do loop-Schleife die gesetzten Ports getoggelt. 1s LED an, 1s LED aus usw. Hat einer eine idee, wie ich das unterbinden kann?
hier das gekürzte Programm:
$regfile = "m328pdef.dat"
$crystal = 16000000
$hwstack = 256
$swstack = 256
$framesize = 256
$baud = 57600
Config Pind.2 = Input 'Stellen
Config Pinb.5 = Output
Led Alias Pinb.5
Config Pinb.0 = Output
Config Pinb.1 = Output
Config Pinb.2 = Output
Config Pind.6 = Output
Config Pind.7 = Output
'Hauptschleife
Do
' Unterprogramm zum m auslesen .....
Gosub Lesen
If M > 4 And M < 10 Then '
Pinb.0 = 0
Pinb.1 = 1
Pinb.2 = 0
Pind.6 = 1
Pind.7 = 0
End If
Wait 1
Loop
Lesen:
'
'
M = 6
Return