nette Jungs hier..wirklich, macht fun....
meine letzte Chance für trockenübung ohne AVR..( oder muss ich noch hier neben meinem Tisch auch noch Pollin Kit haben..LoL..würde mehr Eure Nerven schonen...
Als Antwort hätte ich gerne nur Ja oder Nein..also Bit
If Ja then
Variable = freuen
else
Variable = zuhausen testen
end if
PS: Unsere Konvergation wird von vielen gelesen..über 1000 clicks..
meine letzte Chance für trockenübung ohne AVR..( oder muss ich noch hier neben meinem Tisch auch noch Pollin Kit haben..LoL..würde mehr Eure Nerven schonen...
Code:
Config Timer1 = Timer , Prescale = 256
On Timer1 Timer_isr
Enable Timer1
Timer1 = 3036
Enable Interrupts
'Fixtext für LCD
Locate 1 , 1
Lcd "Zaehler1 = "
Locate 2 , 1
Lcd "Zaehler2 = "
Do
If Lcd_flag = 1 And Zaehler2 < 59 Then 'Wenn beide
Incr Zaehler2 'Erhöhe Zähler2
Else 'sonst
Zaehler2 = 0 'auf Null setzen
Locate 1 , 12 'Display an der Stelle mit 2 Space
Lcd " " 'LCD Sub gehen
Gosub Lcd
End If
Loop 'wiederholen
'Submenu
Timer_isr:
Stop Timer1 'Timer anhalten
Lcd_flag = 1 'Wenn erfüllt
Incr Zaehler1 'Hochzählen
If Zaehler1 > 59 Then
Zaehler1 = 0 'Wenn grösser 59
Locate 1 , 12 'an der Stelle
Lcd " " '2 Blanks
End If
Timer1 = 3036
Start Timer1 'Starten
Return 'Zurück
Lcd:
Locate 1 , 12 'Pos
Lcd Zaehler1 'Var
Locate 2 , 12 'Pos
Lcd Zaehler2 'Var
Lcd_flag = 0 'Flag auf 0
Return 'zurück
End
Als Antwort hätte ich gerne nur Ja oder Nein..also Bit
If Ja then
Variable = freuen
else
Variable = zuhausen testen
end if
PS: Unsere Konvergation wird von vielen gelesen..über 1000 clicks..