Das Deutsche Casio-Taschenrechner Forum wurde zum 31.12.2013 geschlossen und kann weiterhin als Nachschlagewerk verwendet werden.
Wer mehr erfahren möchte: Ein sehr guter Beitrag von Elias

problem

Ideen sammeln, umsetzen, Fehler ausmerzen, Tipps holen und geben, Fragen stellen, Programmierprobleme lösen...

problem

Beitragvon Wissenslücke:casio » So 17. Apr 2005, 10:45

hi

ich habe da mal ein kleines problem!

ich habe eine macke mit viel zu vielen "lbl"´n
ich habe jetzt schon alle zeichen verwendet, brauche aber noch ein paar. mit casiocom fuktionierts mit kleinbuchstaben (unterscheidet klein und großbuchstaben), aber bei meinem rechner kommt immer arg error!

wisst ihr was ich jetzt machen koennte??
es ist ziemlich wichtig!

ach ja, ich will alles in ein programm!!!

ciao

[geändert von Wissenslücke:casio am [TIME]1113731172[/TIME]]


[geändert von Wissenslücke:casio am [TIME]1113731250[/TIME]]
Wissenslücke:casio
 

Re: problem

Beitragvon CFX-Freak » So 17. Apr 2005, 11:35

Poste uns mal, was du machen willst.
Du kannst mit etwas Geschick bestimmte Lbls ersetzten durch verschieden Schleifen.


[geändert von CFX-Freak am [TIME]1113734486[/TIME]]
CFX-Freak
 

Re: problem

Beitragvon Wissenslücke:casio » So 17. Apr 2005, 12:21

hier ist bloß das problem, dass es nicht alle zeichen erkennt.
ps: den fahrenheit rechner habe ich nur aus einem anderen programm kopiert, weil ich nicht alles neu schreiben wollte

[CODE]Lbl 1:ClrText
Locate 3,1,"[1] physikalische"
Locate 7,2,"Groessen"
Locate 3,3,"[2] Berechnungen"
Locate 3,4,"[3] Fahrenheit™"
Locate 7,5,"Kelvin™Celsius"
Lbl D
GetKey=72ãGoto E
GetKey=62ãGoto F
GetKey=52ãGoto G
Goto D
Lbl G:ClrText
Locate 1,1,"Geg.:"
Locate 1,2,"F1:Celsius"
Locate 1,3,"F2:Fahrenheit"
Locate 1,4,"F3:Kelvin"
Do
GetKeyÞG
LpWhile Gá79 And Gá69 And Gá59
ClrText
If G=79
Then "Wieviel in Cesius:"?ÞA
A©1.8‰32ÞB
A‰273ÞC
Goto A
IfEnd
If G=69
Then "Wieviel in Fahrenheit:"?ÞB
(B™32)¹1.8ÞA
A‰273ÞC
Goto A
IfEnd
If G=59
Then "Wieviel in Kelvin:"?ÞC
C™273ÞA
A©1.8‰32ÞB
Goto A
IfEnd
Lbl A:ClrText
Locate 1,1,"Celsius:"
Locate 1,2,"Fahrenheit:"
Locate 1,3,"Kelvin:"
Locate 10,1,A
Locate 13,2,B
Locate 9,3,C
Lbl H
GetKey=31ãGoto C
Goto H
Lbl E:ClrText
Locate 1,1,"(1)Zustandsgroesen"
Locate 1,2,"(2)Temperatur"
Locate 1,3,"(3)therm.Energie"
Locate 1,4,"(4)Waerme"
Locate 1,5,"(5)therm.Leistung"
Locate 1,6,"(6)Waermekapazit."
Locate 1,7,"(7)zurueck"
Lbl I
GetKey=72ãGoto J
GetKey=62ãGoto K
GetKey=52ãGoto L
GetKey=73ãGoto M
GetKey=63ãGoto N
GetKey=53ãGoto O
GetKey=74ãGoto 1
Goto I
Lbl J:ClrText
Locate 1,1,"Zustandsgroessen"
Locate 1,2,"sind z.B.:"
Locate 1,3,"Temperatur oder"
Locate 1,4,"Energie"
Lbl P
GetKey=31ãGoto E
Goto P
Lbl L:ClrText
Locate 1,1,"therm. Energie:"
Locate 1,2,"Zustand eines"
Locate 1,3,"Koerper"
Locate 1,4,"FZ: E[th]"
Locate 1,5,"Einheit: 1J"
Locate 1,6,"Faehigkeit"
Locate 1,7,"Waerme abzugeben"
Lbl Q
GetKey=31ãGoto E
Goto Q
Lbl M:ClrText
Locate 1,1,"Waerme= Prozess"
Locate 1,2,"eines Koerpers"
Locate 1,3,"FZ: Q"
Locate 1,4,"Einheit: 1J"
Locate 1,5,"gibt an, wieviel"
Locate 1,6,"therm.Energie"
Locate 1,7,"abgegeben wurde"
Lbl R
GetKey=31ãGoto E
Goto R
Lbl N:ClrText
Locate 1,1,"therm.Leistung"
Locate 1,2,"FZ: P; P=Q¹t"
Locate 1,3,"FZ: Q"
Locate 1,4,"Einheit: 1W"
Locate 1,5,"gibt an, wieviel"
Locate 1,6,"Waerme in 1ner sec"
Locate 1,7,"abgegeben wurde"
Lbl S
GetKey=31ãGoto E
Goto S
Lbl K:ClrText
Locate 1,1,"(1) Temperatur"
Locate 1,2,"(2) absolute"
Locate 5,3,"Temperatur"
Locate 1,5,"0Celsius=273K"
Lbl T
GetKey=72ãGoto U
GetKey=62ãGoto V
Goto T
Lbl U:ClrText
Locate 1,1,"Temperatur gibt an,"
Locate 1,2,"wie warm od. kalt"
Locate 1,3,"ein Koerper ist."
Locate 1,4,"FZ: roh"
Locate 1,5,"Einheit: 1[grad]C"
Lbl W
GetKey=31ãGoto E
Goto W
Lbl V:ClrText
Locate 1,1,"abs.Temperatur:"
Locate 1,2,"FZ: T"
Locate 1,3,"Einheit: 1K"
Lbl X
GetKey=31ãGoto E
Goto X
Lbl O:ClrText
Locate 1,1,"spez.Waermekapaz.gibt"
Locate 1,2,"gibt an, wieviel not™"
Locate 1,3,"wendig ist,damit Temp"
Locate 1,4,"v.1kg um 1K erhoeht"
Locate 1,5,"FZ:c Einheit: kj/kg©K"
Locate 1,6,"Q=c© m© delta T"
Lbl Y
GetKey=31ãGoto E
Goto Y
Lbl F:ClrText
Locate 1,1,"1)Waermekapazitaet"
Locate 1,3,"2)therm.Leistung"
Locate 1,5,"3)Laengenausdehnung"
Lbl Z
GetKey=72ãGoto 2
GetKey=62ãGoto 3
GetKey=52ãGoto 4
Goto Z
Lbl 2:ClrText
Locate 5,1,"ges.:"
Locate 1,2,"1)Waermekapazitaet_c"
Locate 1,3,"2)Waerme_Q"
Locate 1,4,"3)Masse_m"
Locate 1,5,"4)Laengenaenderung"
Locate 1,6," Delta T"
Lbl 5
GetKey=72ãGoto 6
GetKey=62ãGoto 7
GetKey=52ãGoto 8
GetKey=73ãGoto 9
Goto 5
Lbl 6:ClrText
Locate 1,1," Waerme"
?ÞQ
Locate 1,1," Masse"
?ÞM
Locate 1,1," delta T"
?ÞT
Q¹M©TÞC
ClrText
Locate 1,1,"spezifische"
Locate 1,2,"Waermekapazitaet:"
Locate 1,4,C
Locate 1,5,"kj/kg©K"
Lbl 0
GetKey=31ãGoto 1
Goto 0
Lbl 7:ClrText
Locate 1,1," Waermekapazitaet"
?ÞC
Locate 1,1," Masse"
?ÞM
Locate 1,1," delta T"?
?ÞT
C©M©TÞQ
ClrText
Locate 1,1,"Waerme:"
Locate 1,3,Q
Locate 1,4,"Celsius"
Lbl ‰
GetKey=31ãGoto 1
Goto ‰
Lbl 8:ClrText
Locate 1,1," Waermekapazitaet"
?ÞC
Locate 1,1," Waerme"
?ÞQ
Locate 1,1," delta T"
?ÞT
Q¹C©TÞM
ClrText
Locate 1,1,"Masse:"
Locate 1,3,M
Locate 1,4,"kg"
Lbl ©
GetKey=31ãGoto 1
Goto ©
Lbl 9:ClrText
Locate 1,1," Waermekapazitaet"
?ÞC
Locate 1,1," Masse"
?ÞM
Locate 1,1," Waerme"
?ÞQ
Q¹C©MÞT
ClrText
Locate 1,1,"Laengenaenderung:"
Locate 1,3,T
Locate 1,4,"Kelvin"
Lbl ™
GetKey=31ãGoto 1
Goto ™
Lbl 3:ClrText
Locate 5,1,"ges.:"
Locate 1,2,"1)therm.Leistung_P"
Locate 1,3,"2)Waerme_Q"
Locate 1,4,"3)Zeit_t in sec."
Lbl z
GetKey=72ãGoto a
GetKey=62ãGoto b
GetKey=52ãGoto c
Goto z
Lbl a:ClrText
Locate 1,1," Waerme"
?ÞQ
Locate 1,1," Zeit"
?ÞT
Q¹TÞP
ClrText
Locate 1,1,"therm.Leistung:"
Locate 1,3,P
Locate 1,4,"Watt"
Lbl Z
GetKey=31ãGoto 1
Goto Z
Lbl b:ClrText
Locate 1,1," Leistung"
?ÞP
Locate 1,1," Zeit"
?ÞT
P©TÞQ
ClrText
Locate 1,1,"Waerme:"
Locate 1,3,Q
Locate 1,4,"Celsius"
Lbl d
GetKey=31ãGoto 1
Goto d
Lbl c:ClrText
Locate 1,1," Leistung"
?ÞP
Locate 1,1," Waerme"
?ÞQ
Q¹PÞT
ClrText
Locate 1,1,"Zeit:"
Locate 1,3,T
Locate 1,4,"Sekunden"
Lbl A
GetKey=31ãGoto 1
Goto A
Lbl 4:ClrText
Locate 1,1,"ges.:"
Locate 3,2,"(1) Alpha"
Locate 3,3,"(2) Delta T"
Locate 3,4,"(3) L0"
Locate 3,5,"(4) Delta L"
Lbl B
GetKey=72ãGoto g
GetKey=62ãGoto h
GetKey=52ãGoto i
GetKey=73ãGoto j
Goto B
Lbl g
ClrText
Locate 1,1,"Alpha ist der"
Locate 1,2,"Laengenausdehnungsko™"
Locate 1,3,"effizient"
Lbl C
GetKey=31ãGoto l
Goto C
Lbl l
ClrText
Locate 1,1,"Delta T:"?ÞT
Locate 1,4,"L0:"?ÞL
Locate 1,7,"Delta L:"?ÞD
D¹(L©T)ÞA
ClrText
Locate 1,1,"Alpha ist"
Locate 3,3,A
Lbl m
GetKey=31ãGoto 1
Goto m
Lbl h
ClrText
Locate 1,1,"Delta T ist die"
Locate 1,2,"Temperaturaenderung"
Locate 1,3,"was in Kelvin angege™"
Locate 1,4,"ben wird."
Lbl n
GetKey=31ãGoto o
Goto n
Lbl o
ClrText
Locate 1,1,"Alpha:"?ÞA
Locate 1,4,"L0:"?ÞL
Locate 1,7,"Delta L:"?ÞD
D¹(L©A)ÞT
ClrText
Locate 1,1,"Delta T ist"
Locate 3,3,T
Lbl p
GetKey=31ãGoto 1
Goto p
Lbl i
ClrText
Locate 1,1,"L0 ist die Ausgangs™"
Locate 1,2,"laenge"
Lbl q
GetKey=31ãGoto r
Goto q
Lbl r
ClrText
Locate 1,1,"Delta T:"?ÞT
Locate 1,4,"Alpha:"?ÞA
Locate 1,7,"Delta L:"?ÞD
D¹(A©T)ÞL
ClrText
Locate 1,1,"L0 ist"
Locate 3,3,L
Lbl s
GetKey=31ãGoto 1
Goto s
Lbl j
ClrText
Locate 1,1,"Delta L ist die"
Locate 1,2,"Laengenaenderung"
Lbl t
GetKey=31ãGoto u
Goto u
Lbl u
ClrText
Locate 1,1,"Delta T:"?ÞT
Locate 1,4,"L0:"?ÞL
Locate 1,7,"Alpha:"?ÞA
A©L©TÞD
ClrText
Locate 1,1,"Delta L ist"
Locate 3,3,D
Lbl v
GetKey=31ãGoto 1
Goto v
Stop[/CODE]

nu gut
vllt. hilfts ja, ist sicherlich ein bisschen umständlich geschrieben

ciao
Wissenslücke:casio
 

Re: problem

Beitragvon Wissenslücke:casio » So 17. Apr 2005, 16:26

danke

das hat mir echt geholfen!

naja ich werde jetzt mal umschreiben

ciao
Wissenslücke:casio
 

Re: problem

Beitragvon CFX-Freak » So 17. Apr 2005, 18:52

mach Endlosschleifen wie

Lbl [irgendwas]
...
Goto [Das Lbl eben]

zu:

Do
...
Lp While 1=1

Ansonsten such mal mit der Suchfunktion, ob du jedes Lbl wirklich brauchst.

Ups,
habe nach dem ich mich neu eingewählt habe die Seite nicht aktuallisiert,
naja, vieleicht hilft es ja noch jemanden.

[geändert von CFX-Freak am [TIME]1113760480[/TIME]]
CFX-Freak
 


Zurück zu Graphikrechner (CFX 9850 G/GB/GC; FX 9860 G/ GSD; FX 9750G; FX 7400G) ohne CAS

Wer ist online?

Mitglieder in diesem Forum: Google [Bot] und 6 Gäste