von 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