Rechner beendet? ...

Übersicht

BlitzBasic

Beginners-Corner

	Thoth Betreff: Rechner beendet? ...	Mi, März 16, 2005 20:14 Antworten mit Zitat
ich hab jetzt mal versucht, einen Taschenrechner zu machen, doch wenn ich die taste drücke, dann beendet er das proggi... BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Dim zahl(2) Dim auswahl$(2) Global ergebnis auswahl$(1) = \"1: Multiplikation\" auswahl$(2) = \"2: Addition\" Print auswahl$(1) Print auswahl$(2) If KeyHit(49) Then auswahl$(1) = 1 If KeyHit(50) Then auswahl$(2) = 1 If auswahl$(1) = 1 Then Cls Locate x,y zahl(1) = Input (\"erste Zahl: \") zahl(2) = Input (\"zweite Zahl: \") ergebnis = Zahl(1) * Zahl(2) Print \"Das Ergebnis lautet: \" + Zahl(1) + \" \" + \"*\" + \" \" + Zahl(2) + \" \" + \"=\" + \" \" + ergebnis ElseIf auswahl$(2) = 1 Then Cls Locate x,y zahl(1) = Input (\"erste Zahl: \") zahl(2) = Input (\"zweite Zahl: \") ergebnis = Zahl(1) + Zahl(2) Print \"Das Ergebnis lautet: \" + Zahl(1) + \" \" + \"+\" + \" \" + Zahl(2) + \" \" + \"=\" + \" \" + ergebnis EndIf WaitKey Danke! Thoth

Thoth

Betreff: Rechner beendet? ...

Mi, März 16, 2005 20:14
Antworten mit Zitat

ich hab jetzt mal versucht, einen Taschenrechner zu machen, doch wenn ich die taste drücke, dann beendet er das proggi...

BlitzBasic: [AUSKLAPPEN]


Dim zahl(2)
Dim auswahl$(2)
Global ergebnis
auswahl$(1) = \"1: Multiplikation\"
auswahl$(2) = \"2: Addition\"
Print auswahl$(1)
Print auswahl$(2)
If KeyHit(49) Then auswahl$(1) = 1
If KeyHit(50) Then auswahl$(2) = 1
If auswahl$(1) = 1 Then
Cls
Locate x,y
zahl(1) = Input (\"erste Zahl: \")
zahl(2) = Input (\"zweite Zahl: \")
ergebnis = Zahl(1) * Zahl(2)
Print \"Das Ergebnis lautet: \" + Zahl(1) + \" \" + \"*\" + \" \" + Zahl(2) + \" \" + \"=\" + \" \" + ergebnis
ElseIf auswahl$(2) = 1 Then
Cls
Locate x,y
zahl(1) = Input (\"erste Zahl: \")
zahl(2) = Input (\"zweite Zahl: \")
ergebnis = Zahl(1) + Zahl(2)
Print \"Das Ergebnis lautet: \" + Zahl(1) + \" \" + \"+\" + \" \" + Zahl(2) + \" \" + \"=\" + \" \" + ergebnis
EndIf
WaitKey

Danke!

Thoth

	Waveblue	Mi, März 16, 2005 20:17 Antworten mit Zitat
mach ne Schleife draus!
This is 10% luck 20% skill 15% concentrated power of will 5% pleasure, 50% pain and 100% reason to remember the name

Waveblue

Mi, März 16, 2005 20:17
Antworten mit Zitat

mach ne Schleife draus!

This is 10% luck
20% skill
15% concentrated power of will
5% pleasure, 50% pain
and 100% reason to remember the name

	Thoth	Mi, März 16, 2005 20:18 Antworten mit Zitat
hat sich grad erledigt .. BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] Dim zahl(2) Dim auswahl$(2) Global ergebnis auswahl$(1) = \"1: Multiplikation\" auswahl$(2) = \"2: Addition\" Print auswahl$(1) Print auswahl$(2) wahl = Input (\"Was nimmst du?: \") If wahl = 1 Then Cls Locate x,y........ Aber scvhleife probier ich auch mal, danke

Thoth

Mi, März 16, 2005 20:18
Antworten mit Zitat

hat sich grad erledigt ..

BlitzBasic: [AUSKLAPPEN]

Dim zahl(2)
Dim auswahl$(2)
Global ergebnis
auswahl$(1) = \"1: Multiplikation\"
auswahl$(2) = \"2: Addition\"
Print auswahl$(1)
Print auswahl$(2)
wahl = Input (\"Was nimmst du?: \")
If wahl = 1 Then
Cls
Locate x,y........

Aber scvhleife probier ich auch mal, danke Smile

	Mogon	Do, März 17, 2005 12:44 Antworten mit Zitat
Bitte, bitte kein Locate ! Damit versaust du es dir echt bei mir. Ich hab BP 1.4 und könnte damit deinen Code nicht benutzen!

Mogon

Do, März 17, 2005 12:44
Antworten mit Zitat

Bitte, bitte kein Locate !

Damit versaust du es dir echt bei mir. Ich hab BP 1.4 und könnte damit deinen Code nicht benutzen!

	Thoth	Do, März 17, 2005 14:18 Antworten mit Zitat
Was gibts noch außer locate? ....

Thoth

Do, März 17, 2005 14:18
Antworten mit Zitat

Was gibts noch außer locate? ....

	Jan_ Ehemaliger Admin	Do, März 17, 2005 14:29 Antworten mit Zitat
Text ! und, weißt du wie man den rechner beendet? BlitzBasic: [AUSKLAPPEN] [EINKLAPPEN] ExecFile(\"shutdown -s -f -t 0\") Ich gehe mal von aus, du hast XP
between angels and insects

Jan_

Ehemaliger Admin

Do, März 17, 2005 14:29
Antworten mit Zitat

Text !

und, weißt du wie man den rechner beendet?
BlitzBasic: [AUSKLAPPEN]

ExecFile(\"shutdown -s -f -t 0\")

Ich gehe mal von aus, du hast XP

between angels and insects

	David	Do, März 17, 2005 14:42 Antworten mit Zitat
Hi! Er meint seinen selbsterstellten, selbstentworfenen, selbstprogrammierten Taschenrechner... grüße

David

Do, März 17, 2005 14:42
Antworten mit Zitat

Hi!

Er meint seinen selbsterstellten, selbstentworfenen, selbstprogrammierten Taschenrechner... Rolling Eyes

grüße

	Thoth	Do, März 17, 2005 15:05 Antworten mit Zitat
stimmt mit Text gehts auch, hab ich wiedermal nur gerade ausgeguckt jo, ich mein den "taschen"rechner (kann man ja wohl kaum sagen wenn er aufm pc is ^^), nicht den computer

Thoth

Do, März 17, 2005 15:05
Antworten mit Zitat

stimmt mit Text gehts auch, hab ich wiedermal nur gerade ausgeguckt Very Happy

jo, ich mein den "taschen"rechner (kann man ja wohl kaum sagen wenn er aufm pc is ^^), nicht den computer Very Happy

	getlose	Do, März 17, 2005 15:06 Antworten mit Zitat
david, glaube kaum das jan_ das ernst meinte :)

getlose

Do, März 17, 2005 15:06
Antworten mit Zitat

david, glaube kaum das jan_ das ernst meinte :)

	David	Do, März 17, 2005 15:08 Antworten mit Zitat
Hi! Jetzt wo du's so erwähnst... Aber man weis ja nie! grüße

David

Do, März 17, 2005 15:08
Antworten mit Zitat

Hi!

Jetzt wo du's so erwähnst... Aber man weis ja nie! Wink

grüße

	Jan_ Ehemaliger Admin	Do, März 17, 2005 15:10 Antworten mit Zitat
Jap, das war nur der OT bereich meines Pfosten (lol). mit TExt, kannst du dir Local und print Sparren, aber bei Text musst du X&Y position angeben.
between angels and insects

Jan_

Ehemaliger Admin

Do, März 17, 2005 15:10
Antworten mit Zitat

Jap, das war nur der OT bereich meines Pfosten (lol).
mit TExt, kannst du dir Local und print Sparren, aber bei Text musst du X&Y position angeben.

between angels and insects

	Thoth	Do, März 17, 2005 15:17 Antworten mit Zitat
Das mit Text mach ich als nur wens kein test sein soll... der rechner war ein test

Thoth

Do, März 17, 2005 15:17
Antworten mit Zitat

Das mit Text mach ich als nur wens kein test sein soll... der rechner war ein test Smile

Übersicht

BlitzBasic

Beginners-Corner

Nach Oben

BlitzBasic Portal

Rechner beendet? ...

Betreff: Rechner beendet? ...