K0rnbr0t
13-12-2006, 19:44
Hi Leute,
Ich hab grad ne sehr große zwickmühle und komme nicht weiter. Ich muss was für eine AG machen. Und zwar ein Taschenrechner Programm.Das Programm enthält 6 Variablen , weil man nicht zwei nullen in eine variable speichen kann. deswegen besitzt das Programm 6 variablen
ZR:MY:WH
Dieses Ausgabe Format besitzt das Programm. Es Werden die Variablen Z,R,M,Y,W und H. Folgenden Anfangs-Code besitzt das Programm.
EDIT : Dieses Programm soll ein Countdown ausführen. Man gibt zuerst die Zahl ein im XX:XX:XX Format ein und dann soll er ein Countdown ausführen
:ClrHome
:Output(1,1,"ZAHLEN EINGEBEN. ENTER DRUECKEN WENN BEREIT. FORMAT : XX:XX:XX")
:Pause
:ClrHome
:Input Z
:ClrHome
:Output(3,1,Z)
:Input R
:ClrHome
:Output(3,1,Z)
:Output(3,2,R)
:Output(3,3,":")
:Input M
:ClrHome
:Output(3,1,Z)
:Output(3,2,R)
:Output(3,3,":")
:Output(3,4,M)
:Input Y
:ClrHome
:Output(3,1,Z)
:Output(3,2,R)
:Output(3,3,":")
:Output(3,4,M)
:Output(3,5,Y)
:Output(3,6,":")
:Input W
:ClrHome
:Output(3,1,Z)
:Output(3,2,R)
:Output(3,3,":")
:Output(3,4,M)
:Output(3,5,Y)
:Output(3,6,":")
:Output(3,7,W)
:Input H
:ClrHome
:Output(3,1,Z)
:Output(3,2,R)
:Output(3,3,":")
:Output(3,4,M)
:Output(3,5,Y)
:Output(3,6,":")
:Output(3,7,W)
:Output(3,8,H)
:If H>9 or W>5 or Y>9 or M>5
:Then
:ClrHome
:Output(1,1,"ERROR : ZU HOHE ZAHL IN VARIABLE. LIMIT IM FORMAT : XX:59:59")
:Stop
:End
:Lbl 1
:Output(1,1,Z)
:Output(1,2,R)
:Output(1,3,":")
:Output(1,4,M)
:Output(1,5,Y)
:Output(1,6,":")
:Output(1,7,W)
:Output(1,8,H)
:Output(3,1,"COUNTDOWN LAEUFT")
:For(X,1,350)
:End
Ab hier Beginnt die Rechnung. Da scheitert mein Projekt :( hat einer eine Idee?
Mfg k0rnbRoT
Ich hab grad ne sehr große zwickmühle und komme nicht weiter. Ich muss was für eine AG machen. Und zwar ein Taschenrechner Programm.Das Programm enthält 6 Variablen , weil man nicht zwei nullen in eine variable speichen kann. deswegen besitzt das Programm 6 variablen
ZR:MY:WH
Dieses Ausgabe Format besitzt das Programm. Es Werden die Variablen Z,R,M,Y,W und H. Folgenden Anfangs-Code besitzt das Programm.
EDIT : Dieses Programm soll ein Countdown ausführen. Man gibt zuerst die Zahl ein im XX:XX:XX Format ein und dann soll er ein Countdown ausführen
:ClrHome
:Output(1,1,"ZAHLEN EINGEBEN. ENTER DRUECKEN WENN BEREIT. FORMAT : XX:XX:XX")
:Pause
:ClrHome
:Input Z
:ClrHome
:Output(3,1,Z)
:Input R
:ClrHome
:Output(3,1,Z)
:Output(3,2,R)
:Output(3,3,":")
:Input M
:ClrHome
:Output(3,1,Z)
:Output(3,2,R)
:Output(3,3,":")
:Output(3,4,M)
:Input Y
:ClrHome
:Output(3,1,Z)
:Output(3,2,R)
:Output(3,3,":")
:Output(3,4,M)
:Output(3,5,Y)
:Output(3,6,":")
:Input W
:ClrHome
:Output(3,1,Z)
:Output(3,2,R)
:Output(3,3,":")
:Output(3,4,M)
:Output(3,5,Y)
:Output(3,6,":")
:Output(3,7,W)
:Input H
:ClrHome
:Output(3,1,Z)
:Output(3,2,R)
:Output(3,3,":")
:Output(3,4,M)
:Output(3,5,Y)
:Output(3,6,":")
:Output(3,7,W)
:Output(3,8,H)
:If H>9 or W>5 or Y>9 or M>5
:Then
:ClrHome
:Output(1,1,"ERROR : ZU HOHE ZAHL IN VARIABLE. LIMIT IM FORMAT : XX:59:59")
:Stop
:End
:Lbl 1
:Output(1,1,Z)
:Output(1,2,R)
:Output(1,3,":")
:Output(1,4,M)
:Output(1,5,Y)
:Output(1,6,":")
:Output(1,7,W)
:Output(1,8,H)
:Output(3,1,"COUNTDOWN LAEUFT")
:For(X,1,350)
:End
Ab hier Beginnt die Rechnung. Da scheitert mein Projekt :( hat einer eine Idee?
Mfg k0rnbRoT