DCF - Deutsches Casio-Taschenrechner Forum

Ich wollte gern ein Menü mit Auswahl punkten. habe ein Prog. geschrieben aber immer wenn ich auf Auswahl 2 oder 3,4 gehen will kommt GO Error

ViewWindow 1,127,1,1,63,1
Cls
Text 3,2,"1 Wirkungsgrad"
Text 9,2,"2 Blindleistung"
Text 15,2,"3 Scheinleistung"
Text 21,2,"4 Wirkleistungsfaktor"
Text 27,2,"5 Wirkleistung"
Text 33,2,"6 Gleichheitsfacktor"
Do
GetKey ->H
LpWhile (H->72) And (H->62) And (H->52) And (H->73) And (H->63) And (H->53)
ClrText
H=72->Goto 2
H=62->Goto 3
H=52->Goto 4
H=73->Goto 5
H=63->Goto 6
H=53->Goto 7
Lbl 2
ClrText
Cls
Text 5,1,"Im Allgemeinen gibt der"
Text 11,1,"Wirkungsgrad Eta das "
Text 17,1,"Verhaeltnis zwischen"
Text 23,1,"Aufwand und dem letztlich"
Text 29,1,"gewonnen Nutzen an."
Text 35,1,"Meistens wir der"
Text 41,1,"Leistungswirkungsgrad."
Text 47,1,"verwendet. Er ist das "
Text 53,1,"Verhaeltnis zwischen"
Do
GetKey->Z
LpWhile (Z->31)
Cls
Text 5,1,"abgefuehrter Leistung"
Text 11,1,"Pab zu zugefuehrter"
Text 17,1,"Leistung Pzu."
Do
Return
Lbl 3
ClrText
Cls
Text 5,1,"ist der Anteil der"
Text 11,1,"elektrischen Leistung in"
Text 17,1,"einem Wechselstromsystem,"
Text 23,1,"der nicht zur nutzbaren"
Text 29,1,"Energieumformung beitraegt"
Text 35,1,"Die Blindleistung hat"
Text 41,1,"ihre Ursache in der durch"
Text 47,1,"Induktivitaeten und"
Text 53,1,"Kapazitaeten hervorgerufenen"
Do
GetKey->Z
LpWhile (Z->31)
Cls
Text 5,1,"Phasenverschiebung f zwischen"
Text 11,1,"Stromstaerke I und Spannung U"
Do
Return
Lbl 4
ClrText
Cls
Text 5,1,"Die Scheinleistung ist die"
Text 11,1,"geometrische Summe aus"
Text 17,1,"Wirkleistung und "
Text 23,1,"Blindleistung"
Do
Return
Lbl 5
ClrText
Cls
Text 5,1,"Das Verhaeltnis zwischen"
Text 11,1,"Scheinleistung und"
Text 17,1,"Wirkleistung wird als"
Text 23,1,"Wirkleistungsfaktor bezeichnet."
Text 29,1,"Bei reinen sinusfoermigen"
Text 35,1,"Stroemen stimmt der"
Text 41,1,"Wirkleistungsfaktor mit dem "
Text 47,1,"cos f ueberein. Betraegt der"
Text 53,1,"cos f z.B. 0,5, dann ist die"
Do
GetKey->Z
LpWhile (Z->31)
Cls
Text 5,1,"Scheinleistung doppelt so hoch"
Text 11,1,"wie die Wirkleistung."
Text 17,1,"Bei einem cos f von 1 ist die"
Text 23,1,"Scheinleistung gleich der "
Text 29,1,"Wirkleistung und der fliessende"
Text 35,1,"Strom halb so hoch wie bei "
Text 41,1,"einem cos f von 0,5 "
Do
Return
Lbl 6
ClrText
Cls
Text 5,1,"Die Wirkleistung P tritt an einem"
Text 11,1,"rein ohmschen Verbraucher auf,"
Text 17,1,"z. B. ein Heizstab. In diesem"
Text 23,1,"Fall sind Strom und Spannung"
Text 29,1,"phasengleich, d.h. zwischen"
Text 35,1,"Strom und Spannung gibt"
Text 41,1,"es keine Phasenverschiebung. "
Do
GetKey->Z
LpWhile (Z->31)
Cls

im lbl 2, vor dem Return das Do entfernen.
im lbl 3, vor dem Return das Do entfernen.
im lbl 4, vor dem Return das Do entfernen.
im lbl 5, vor dem Return das Do entfernen.

ich hoffe, dass hier und in ähnlichen Fällen das -> ein = sein soll?
LpWhile (H->72) And (H->62) And (H->52) And (H->73) And (H->63) And (H->53)

[geändert von elias.koegel am [TIME]1211452131[/TIME]]

ich habe das Do raus genommen,
das Problem ist aber jetzt, das bei Wirkungsgrad und bei den anderen
der Text (die 9 Zeilen) nur noch kurz angezeigt wird und dann Syn ERROR kommt

Do
GetKey->Z
LpWhile (Z->31)
Das Do muss ja auch stehen bleiben. Nur das letzte Do im Block unmittelbar vor Return muss weg.

Was soll eigentlich passieren, wenn du einen Block zuende gelesen hast? Das Programm beenden, oder wieder die Auswahl anzeigen?

[geändert von elias.koegel am [TIME]1211454723[/TIME]]

es sollte wieder in die Auswahl gehen

dann mach doch oben nen label und spring dorthin zurück,wenn der block zu ende gelesen ist
also anstatt dein
[CODE]
Do
Return
[/CODE]
so:
[CODE]
Lbl A
...
...
...
Do:LpWhile Getkey=/=31
Goto A
[/CODE]

[geändert von robin_cfx am [TIME]1211458168[/TIME]]

Menüpunkt 6 Kommt immer GO Error

ViewWindow 1,127,1,1,63,1
Cls
Text 3,2,"1 Wirkungsgrad"
Text 9,2,"2 Blindleistung"
Text 15,2,"3 Scheinleistung"
Text 21,2,"4 Wirkleistungsfaktor"
Text 27,2,"5 Wirkleistung"
Text 33,2,"6 Gleichheitsfacktor"
Do
GetKey->H
LpWhile (H->72) And (H->62) And (H->52) And (H->73) And (H->63) And (H->53)
ClrText
H=72->Goto 2
H=62->Goto 3
H=52->Goto 4
H=73->Goto 5
H=63->Goto 6
H=53->Goto 7
Lbl 2
ClrText
Cls
Text 5,1,"Im Allgemeinen gibt der"
Text 11,1,"Wirkungsgrad Eta das "
Text 17,1,"Verhaeltnis zwischen"
Text 23,1,"Aufwand und dem letztlich"
Text 29,1,"gewonnen Nutzen an."
Text 35,1,"Meistens wir der"
Text 41,1,"Leistungswirkungsgrad."
Text 47,1,"verwendet. Er ist das "
Text 53,1,"Verhaeltnis zwischen"
Do
GetKey->Z
LpWhile (Z->31)
Cls
Text 5,1,"abgefuehrter Leistung"
Text 11,1,"Pab zu zugefuehrter"
Text 17,1,"Leistung Pzu."
Return
Lbl 3
ClrText
Cls
Text 5,1,"ist der Anteil der"
Text 11,1,"elektrischen Leistung in"
Text 17,1,"einem Wechselstromsystem,"
Text 23,1,"der nicht zur nutzbaren"
Text 29,1,"Energieumformung beitraegt"
Text 35,1,"Die Blindleistung hat"
Text 41,1,"ihre Ursache in der durch"
Text 47,1,"Induktivitaeten und"
Text 53,1,"Kapazitaeten hervorgerufenen"
Do
GetKey->Z
LpWhile (Z->31)
Cls
Text 5,1,"Phasenverschiebung f zwischen"
Text 11,1,"Stromstaerke I und Spannung U"
Return
Lbl 4
ClrText
Cls
Text 5,1,"Die Scheinleistung ist die"
Text 11,1,"geometrische Summe aus"
Text 17,1,"Wirkleistung und "
Text 23,1,"Blindleistung"
Return
Lbl 5
ClrText
Cls
Text 5,1,"Das Verhaeltnis zwischen"
Text 11,1,"Scheinleistung und"
Text 17,1,"Wirkleistung wird als"
Text 23,1,"Wirkleistungsfaktor bezeichnet."
Text 29,1,"Bei reinen sinusfoermigen"
Text 35,1,"Stroemen stimmt der"
Text 41,1,"Wirkleistungsfaktor mit dem "
Text 47,1,"cos f ueberein. Betraegt der"
Text 53,1,"cos f z.B. 0,5, dann ist die"
Do
GetKey->Z
LpWhile (Z->31)
Cls
Text 5,1,"Scheinleistung doppelt so hoch"
Text 11,1,"wie die Wirkleistung."
Text 17,1,"Bei einem cos f von 1 ist die"
Text 23,1,"Scheinleistung gleich der "
Text 29,1,"Wirkleistung und der fliessende"
Text 35,1,"Strom halb so hoch wie bei "
Text 41,1,"einem cos f von 0,5 "
Return
Lbl 6
ClrText
Cls
Text 5,1,"Durch die große Abnehmerzahl"
Text 11,1,"im Ring kann davon ausgegangen"
Text 17,1,"werden.das nicht alle "
Text 23,1,"Verbraucher gleichzeitig"
Text 29,1,"eingeschaltet sind.Man "
Text 35,1,"rechnet deshalb mit einem"
Text 41,1,"Gleichzeitigkeitsfaktor g,"
Do
GetKey->Z
LpWhile (Z->31)
Cls
Text 5,1,"der hier mit 0,8 angenommen"
Text 11,1,"werden soll.Dies bedeutet,"
Text 17,1,"das nur 80 % der Verbraucher"
Text 23,1,"gleichzeitig eingeschaltet"
Text 29,1,"sind."
Do
GetKey->Z
LpWhile (Z->31)
Cls

dann hast du wahrscheinlich einen tippfehler gemacht,oder in Lbl 6 stimmt irgendwas nicht
und die anderen abschnitte funktionieren??

im Menüpunkt 5 --> geht am ende nicht ins Hauptmenü zurück
im Menüpunkt 6 --> GO ERROR

könnt ihr mir mal bitte helfen, den Fehler zu finden und auszubessern

Auch wenns dir jetzt wahrscheinlich nicht mehr so viel hilft: (ungetestet, könnte aber funktionieren)

ViewWindow 1,127,1,1,63,1
Lbl 0
Cls
Text 3,2,"1 Wirkungsgrad"
Text 9,2,"2 Blindleistung"
Text 15,2,"3 Scheinleistung"
Text 21,2,"4 Wirkleistungsfaktor"
Text 27,2,"5 Wirkleistung"
Text 33,2,"6 Gleichheitsfacktor"
Do
GetKey->H
LpWhile H=/=72 And H=/=62 And H=/=52 And H=/=73 And H=/=63 And H=/=53
H=72->Goto 2
H=62->Goto 3
H=52->Goto 4
H=73->Goto 5
H=63->Goto 6
H=53->Goto 7
Lbl 2
Cls
Text 5,1,"Im Allgemeinen gibt der"
Text 11,1,"Wirkungsgrad Eta das "
Text 17,1,"Verhaeltnis zwischen"
Text 23,1,"Aufwand und dem letztlich"
Text 29,1,"gewonnen Nutzen an."
Text 35,1,"Meistens wir der"
Text 41,1,"Leistungswirkungsgrad."
Text 47,1,"verwendet. Er ist das "
Text 53,1,"Verhaeltnis zwischen"
Do:LpWhile Getkey=/=31
Cls
Text 5,1,"abgefuehrter Leistung"
Text 11,1,"Pab zu zugefuehrter"
Text 17,1,"Leistung Pzu."
Do:LpWhile Getkey=/=31
Goto 0
Lbl 3
Cls
Text 5,1,"ist der Anteil der"
Text 11,1,"elektrischen Leistung in"
Text 17,1,"einem Wechselstromsystem,"
Text 23,1,"der nicht zur nutzbaren"
Text 29,1,"Energieumformung beitraegt"
Text 35,1,"Die Blindleistung hat"
Text 41,1,"ihre Ursache in der durch"
Text 47,1,"Induktivitaeten und"
Text 53,1,"Kapazitaeten hervorgerufenen"
Do:LpWhile Getkey=/=31
Cls
Text 5,1,"Phasenverschiebung f zwischen"
Text 11,1,"Stromstaerke I und Spannung U"
Do:LpWhile Getkey=/=31
Goto 0
Lbl 4
Cls
Text 5,1,"Die Scheinleistung ist die"
Text 11,1,"geometrische Summe aus"
Text 17,1,"Wirkleistung und "
Text 23,1,"Blindleistung"
Do:LpWhile Getkey=/=31
Goto 0
Lbl 5
Cls
Text 5,1,"Das Verhaeltnis zwischen"
Text 11,1,"Scheinleistung und"
Text 17,1,"Wirkleistung wird als"
Text 23,1,"Wirkleistungsfaktor bezeichnet."
Text 29,1,"Bei reinen sinusfoermigen"
Text 35,1,"Stroemen stimmt der"
Text 41,1,"Wirkleistungsfaktor mit dem "
Text 47,1,"cos f ueberein. Betraegt der"
Text 53,1,"cos f z.B. 0,5, dann ist die"
Do:LpWhile Getkey=/=31
Cls
Text 5,1,"Scheinleistung doppelt so hoch"
Text 11,1,"wie die Wirkleistung."
Text 17,1,"Bei einem cos f von 1 ist die"
Text 23,1,"Scheinleistung gleich der "
Text 29,1,"Wirkleistung und der fliessende"
Text 35,1,"Strom halb so hoch wie bei "
Text 41,1,"einem cos f von 0,5 "
Do:LpWhile Getkey=/=31
Goto 0
Lbl 6
Cls
Text 5,1,"Durch die große Abnehmerzahl"
Text 11,1,"im Ring kann davon ausgegangen"
Text 17,1,"werden.das nicht alle "
Text 23,1,"Verbraucher gleichzeitig"
Text 29,1,"eingeschaltet sind.Man "
Text 35,1,"rechnet deshalb mit einem"
Text 41,1,"Gleichzeitigkeitsfaktor g,"
Do:LpWhile Getkey=/=31
Cls
Text 5,1,"der hier mit 0,8 angenommen"
Text 11,1,"werden soll.Dies bedeutet,"
Text 17,1,"das nur 80 % der Verbraucher"
Text 23,1,"gleichzeitig eingeschaltet"
Text 29,1,"sind."
Do:LpWhile Getkey=/=31
Goto 0

Erstaunlich, mit was du den Tag vor deiner Prüfung verbringst ~0


[geändert von elias.koegel am [TIME]1211524426[/TIME]]