Compilier - Fehler???

[Toxic]

Ok,
langam han ich für heut genug. Wieder nur Probleme:

1. Wenn ich F1 ein paar mal hintereinander betätige (nur im Basic-Editor),
passiert es zwischenzeitlich (1v5 mal) das er die routiene für F2 startet (nein! ich bin nicht zu dumm zum klicken!!!)

2. Wenn ich das Prog auf die Station lade, F1 drücke (für Shutdown) beendet sich das Prog (wie ja auch gewollt), nur das, wenn ich sie wieder anmache er immer wierder shutdown2 aufruft (also quasi "end")

hier main Code:
' --- Definitionen ---

' Die Digital-Ports für das öffnen der Tür
' und der Lüfterregelungund im Bad
define DP1 port[1]
define DP2 port[2]
define DP3 port[3]
define DP4 port[4]
' Die Relais
define K1 port[7]
define K2 port[8]
' Die Folien-Funktionstasten
define F1 port[9]
define F2 port[10]
' Die LED`S für die Zustandsanzeige und
' die Tastendruck-Bestätigung
define LED1 port[13]
define LED2 port[14]
define LED3 port[15]
define LED4 port[16]
' Die Analogports für die Überwachung
' der Tür und der Luftfeuchtigkeit im Bad
define AP1 ad[1]
define AP2 ad[2]
' Die Temperatursensor-Ports
define TS1 ad[5]
define TS2 ad[6]
' Zwei Variablen zur Speicherung der Temperatur
define temp word[1]
define temp2 word[2]
' Variable für die Speicherung empfangener
' Daten und zum counten der Shutdown-Schleife
define Data byte[5]
define ShutCnt byte[6]
' Variablen zum counten der Temperaturschaltung
define v_IntCoolOn bit[49]
define v_IntCoolOff bit[50]
define v_ExHeatOn bit[51]
define v_ExHeatOff bit[52]
' symbolische Konstanten für die Schaltschwellwerte
' (zehnfache Temperaturwerte)
define IntCool 220 ' = 24.0 °C
define ExHeat 250 ' = 20.0 °C
define Dong 155 ' = 1,55 V

' --- das Programm ---

' Initialisierung
DP1 = 0
DP2 = 0
DP3 = 0
DP4 = 0
K1 = OFF
K2 = OFF
LED1 = OFF
LED2 = OFF
LED3 = OFF
LED4 = OFF
ShutCnt = 0
v_IntCoolOn = 0
v_IntCoolOff = 0
v_ExHeatOn = 0
v_ExHeatOff = 0

#Main
' AD-Wandlerwert in Temperatur umrechnen
temp = 5 * TS1 - 250 '(5 * T1 - 250) /10
temp2 = 5 * TS2 - 250 '(5 * T2 - 250) /10
' Datenkontainer leeren
Data = 0
' Abfragen
if temp => IntCool then gosub IntCoolOn Else gosub IntCoolOff
if temp2 =< ExHeat then gosub ExHeatOn Else gosub ExHeatOff
if AP1 => Dong then gosub Klingeln
if not F1 then gosub F1Push
if not F2 then gosub F2Push
goto Main

#IntCoolOn
If v_IntCoolOn = -1 then Return
v_IntCoolOn = v_IntCoolOn -1
v_IntCoolOff = 0
Print "1"
Pause 10
K1 = ON
LED3 = ON
return

#IntCoolOff
If v_IntCoolOff = -1 then Return
v_IntCoolOff = v_IntCoolOff -1
v_IntCoolOn = 0
Print "2"
Pause 10
K1 = OFF
LED3 = OFF
return

#ExHeatOn
If v_ExHeatOn = -1 then Return
v_ExHeatOn = v_ExHeatOn - 1
v_ExHeatOff = 0
Print "3"
K2 = ON
LED4 = ON
return

#ExHeatOff
If v_ExHeatOff = -1 then Return
v_ExHeatOff = v_ExHeatOff - 1
v_ExHeatOn = 0
Print "4"
K2 = OFF
LED4 = OFF
return

#F1Push
LED1 = ON
Beep 568,5,0
Wait F1
Print "101"
Pause 25
LED1 = OFF
if not RXD then Print "101" Else gosub RxData
gosub Shutdown1

#F2Push
LED2 = ON
Beep 568,5,0
Wait F2
Pause 10
if v_IntCoolOn = -1 then Print "1" Else Print "2"
gosub SendTemp1
pause 10
if v_ExHeatOn = -1 then Print "3" Else Print "4"
gosub SendTemp2
LED2 = OFF
return

#Shutdown1
Beep 480,15,10
ShutCnt = ShutCnt + 1
if ShutCnt = 4 then gosub Shutdown2
if not RXD then Print "101" Else gosub RxData
gosub Shutdown1

#Shutdown2
Beep 568,10,2
Beep 568,10,2
Beep 568,10,2
Beep 480,15,0
end


#RxData
Input Data
if Data = 101 then gosub Shutdown2
if Data = 112 then gosub SendTemp1
if Data = 123 then gosub SendTemp2
if Data = 202 then gosub DoorOpen1
if Data = 213 then gosub DoorOpen2
if Data =< 100 then goto Main
Data = 0
return


#SendTemp1
print "Temperatur an T1 = "; temp; "°C";
print
tog LED3
pause 10
tog LED3
pause 10
tog LED3
pause 10
tog LED3
return

#SendTemp2
print "Temperatur an T2 = "; temp2; "°C";
print
tog LED4
pause 10
tog LED4
pause 10
tog LED4
pause 10
tog LED4
return

#Klingeln
Print "DingDong"
Pause 5
Print "DingDong"
return

#DoorOpen1
LED3 = ON
Beep 568,5,0
LED3 = OFF
return

#DoorOpen2
LED3 = ON
Beep 568,5,0
LED3 = OFF
return

[Frank]

Bitte nicht für jeden kleinen Compilerfehler immer einen neuen Thread öffnen. Nenn Thread dann lieber "Syntax fehler im C-COntrol Basic" oder so ähnlich um und schreib da dann alle Problemchen rein.

Wenn man mit C-Control Basic anfängt ist es ganz normal das es am Anfang Fehlermeldungen hagelt - man muß halt noch lernen.

[Toxic]

Ok, OK! Werde mich daran halten.
Dir fällt nicht gerade so zufällig auch mein Fehler auf oder weist was es seien könnte?

[Frank]

Leider verstehe ich nicht so ganz deine Fehlerbeschreibung! Was heißt "Wenn ich F1 ein paar mal hintereinander betätige". Ist das ein Taster den du an einem Port hast oder was? Das müsstest du genauer beschreiben

[Toxic]

OK, vieleicht sollte ich, das ich das Gerät Namens C-Control-Station besitze.
2. vieleicht auch das sich in dieser 4 taster befinden (Standars F1-F4)
welche mit Pull-Up/Down(?)-Wiederständen an D-Ports (p[9] - p[13]) angeschlossen sind.

Bitte nich übelnehmen, bin schon etwas lääääääääääääääääänger wach... ;)

[jörg]

Ich weiss zwar nicht, was Du machen willst, aber Dein Source sieht bisschen komisch aus, ohne ihn genauer anzuschauen:

1. #F1Push (""F1 gedrückt"?)
wird mit GOSUB angesprungen, aber es gibt da gar kein Return am Ende. Die letzte Anweisung in #F1Push ist "gosub Suhdown1", und danach gehts im Source mit #F2Push weiter -- das heisst: "Wenn F1 gedrückt wird, soll abschliessend noch dasselbe gemacht werden, wie bei F2". Wolltest Du das?
Das könnte auf jeden Fall Deine Beobachtung erklären.

2. #Shutdown1 ("Beenden fwegen F1"?)
wird mit GOSUB angesprungen, und hört mit "gosub Shutdown1" auf; ruft sich selbst also rekursiv auf.
Kann mir nicht vorstellen, dass das wolltest; müsste wohl "goto Shutdown1" heissen.

3. Was vermutlich passiert:
Du rufst die Programmteile immer als Unterprogramm auf, obwohl die vermutlich nie zurückkehren sollen. Mit den GOSUBs wird aber der CCBASIC Stack immer mehr aufgebaut (hängt bisschen von Deinen Abfragen RXD / PRINT ab), und das kann dann zu Stack-Überlauf führen.

Vorschlag: GOTO statt GOSUB an den betreffenden Stellen...

[Toxic]

Danke, werde es gleich ändern.

#F1Push ist nur zur überückung. eigendlich wollte ich später mir in Bleigel-Akku besorgen und mir ne kleine schaltung bauen die an nen D-Port anschließen und wenn der Strom ausfällt (Altbau; schlechtes verteilersystem,; miese Leitungen...) das "merkt" und dann ann meinen PC nen Shutdownbefehl erteilt (Print "101") wie in den schleifen die ich da ja auch hab.

F2 soll bei betätigung einfach die 2 Temps und den Schaltzustand 2er Geräte an den Pc ausgeben.

Klingel und der rest kommen Später, will vom Pc aus die Türe öffnen (unten wie oben) und die Sprechanlage bedienen und und und
später halt... ;)

[Toxic]

Weiß denn keiner Rat?