möchte meinen Mega8 mit meiner fb in den poweridle modus versetzen, irgendwie gibts da aber ne dauerschleife...
der code der fb-auswertung funktioniert super,.
hier mal wie ich vorgegangen bin im groben...
poweron ist eigentlich solange der mega läuft immer 1, sobald ich die off taste drücke wird sie 0. Dann sollen die Werte gespeichert werden.
ich glaub ich habs zu kompliziert gemacht bzw bestimmt nen denkfehler drin ,..
der code der fb-auswertung funktioniert super,.
hier mal wie ich vorgegangen bin im groben...
poweron ist eigentlich solange der mega läuft immer 1, sobald ich die off taste drücke wird sie 0. Dann sollen die Werte gespeichert werden.
Code:
$crystal = 16000000
$regfile = "m8def.dat"
$hwstack = 42 ' default use 32 for the hardware stack
$swstack = 30 'default use 10 for the SW stack
$framesize = 30 'default use 40 for the frame space
$baud = 38400
'###############################################################################
'Portconfiguration
'###############################################################################
Ddrd = &B11110000 '0-3 IN, 4-8 OUT
Ddrb = &B00011111 '0-4 OUT, 5-8 IN
'>FB-Interrupt
Portd.2 = 1 'pullup ein
On Int0 Int0_isr
Enable Int0
Do
Gosub Fb_auswertung
Loop
End
'###############################################################################
Int0_isr: 'RC Impuls erkannt
'fallls avr abgeschaltet wurde
Gosub Laden 'poweron wert laden
If Poweron = 0 Then 'wenn er 0 ist, wieder schlafen gehen
Gosub Speichern
End If
'normal weitermachen
'###
Return
Fb_auswertung:
' fb tastenauswertung
Case 159: '#off
Poweron = 0
Ausgabestring = "off"
Print "ausschalten"
Gosub Speichern
Case 31: '#on
Poweron = 1
Gosub Laden
Ausgabestring = "on"
Return
'#Save&Load-----------------------------------------------------------------------
$eeprom
Speichern:
Poweron_rom = Poweron
Power Idle
Return
Laden:
Poweron = Poweron_rom
Returnich glaub ich habs zu kompliziert gemacht bzw bestimmt nen denkfehler drin ,..