Kleinere Frage zu BlitzBasic2D
Übersicht

AnassisBetreff: Kleinere Frage zu BlitzBasic2D |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Hallo,
Ich habe es schonmal vor längeren probiert zu Programmieren und habe es nicht geschafft, ich habe 0 verstanden. Nun habe ich mich doch mal wieder dran gewagt, und das damals erstandene Buch von Rene Meyer ausgegraben, und mitlerweile klappt es doch das ich das ein oder andere verstehe. Also meine Frage. Wenn ich z.b. eine Frage stelle, das der Benutzer eine antwort geben muss. Z.b. Ich frage ihm wie es geht, und er kann antworten Gut oder Schlecht Je nach antwort kommt dann ein kleiner text. Der Code soweit funktioniert auch, nur die Antwort klappt nicht, bei Gut oder Schlecht, kommt immer der text zur antwort Gut, wenn ich es aber mit zahlen mach also 1 oder 2, dann klappt es mit den antworten. Wie kriege ich esn un hin das er auch die richtige antwort nimmt wenn ich Gut oder Schlecht anstatt 1 oder 2 eingebe? Gruß Lars |
||
HyDr0x |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Wäre ganz hilfreich wenn du deinen Code posten würdest damit wir den Fehler sehen können und dir besser helfen. Ich kann dir ja mal so ein Beispiel zeigen wie ich es machen würde:
Code: [AUSKLAPPEN] antw$ = input("Gib deine Antwort ein.") if antw$ = "gut" then blubb elseif antw$ = "schlecht" then blubber endif So oder so ähnlich sollte es wohl aussehen. |
||
- Zuletzt bearbeitet von HyDr0x am Mi, Nov 14, 2007 21:42, insgesamt 2-mal bearbeitet
![]() |
The_Nici |
![]() Antworten mit Zitat ![]() |
---|---|---|
Kleiner Beispiel Code:
Code: [AUSKLAPPEN] gemuet$=Input("Wie geht es dir heute? ") ;Eingabe Gut, Schlecht oder Es geht so FlushKeys() ;Tastatureingaben löschen, nur zur Sicherheit, da sonst Anykey betätigt werden könnte! Select gemuet$ ;Wähle Case "gemuet$" aus, also die Eingabe, die der User eingetippt hat. Case "Gut" ;Case, also Auswahl "Gut". Print "Oh, das freut mich!" ;Print WaitKey() ;Anykey drücken End ;Ende Case "Es geht so" ;Auswahl "Es geht so" Print "Achso..." ;Print WaitKey() ;Anykey End ;Ende Case "Schlecht" ;Case "Schlecht" Print "Hmm...das tut mir aber leid!" ;Print WaitKey() ;Anykey drücken End ;Ende End Select Bei Fragen, fragen. ![]() |
||
Anassis |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Also ich habe es so Versucht
Code: [AUSKLAPPEN] Graphics 800,600,32,2
Gut=1 Schlecht=2 Name$ = Input ("Gib bitte deinen Namen ein:") Print "Hallo " + Name$ + " wie geht es dir Heute?" Frage$ = Input ("Gut oder Schlecht?:") If Frage$=Gut Then Print "Das hört man gerne!" ElseIf Frage$=Schlecht Then Print "Oh ich hoffe es geht dir bald wieder besser!" EndIf WaitKey Wenn man dies mit Zahlen beantwortet klappts einbahnfrei wenn ich Gut oder schlecht eingebe kommt immer die erste antwort ^^. Sry wenn der Code nicht professionel ist ich probiere nur das gelernte aus dem buch ein bischen selbstständig zu nutzen, Bin ja noch neu ^^ Gruß Lars |
||
HyDr0x |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Das Problem liegt daran das du die "" vergessen hast.
z.B. : Code: [AUSKLAPPEN] If Frage$="Gut" Then Print "Das hört man gerne!" ElseIf Frage$="Schlecht" Then Print "Oh ich hoffe es geht dir bald wieder besser!" EndIf So müsste es aussehen. |
||
Anassis |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Hey super stimmt nun funktionierts ^^.
Code: [AUSKLAPPEN] Graphics 800,600,32,2
Gut=1 Schlecht=2 Name$ = Input ("Gib bitte deinen Namen ein:") Print "Hallo " + Name$ + " wie geht es dir Heute?" Frage$ = Input ("Gut oder Schlecht?:") If Frage$="Gut" Then Print "Das hört man gerne!" ElseIf Frage$="Schlecht" Then Print "Oh ich hoffe es geht dir bald wieder besser!" EndIf WaitKey Ist nichts spektakuleres aber immerhin der erste eigene entscheidungsbefehl mit If Then xD Gruß Lars PS: Top wie schnell hier geholfen wird danke an euch! |
||
![]() |
The_Nici |
![]() Antworten mit Zitat ![]() |
---|---|---|
www.robsite.de/bbkurs2 würde ich auch noch empfehlen, für Grundlegendes und so. | ||
Anassis |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Jap in das tutorial hab ich auch schonr eingeschaut, damals null verstanden jetzt ein bischen, aber das mit den Anführungsstrichen war wohl ein anfängerfehler ^^.
Wenn ich jetzt schon dabei bin, was könnte man den als übung so kleines programmiern? muss kein spiel sein kann auch irgendne mini anwendung sein oder so? Habe da keine großen ideen wie man sieht. Gruß Lars |
||
![]() |
The_Nici |
![]() Antworten mit Zitat ![]() |
---|---|---|
Ein kleines Moorhuhn, Ein spaceInvaders, Pong, etc. | ||
FWeinbehemals "ich" |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Ich würde dir Empfehlen was kleines zu Programieren ,vll eine Space Shooter oder einen kleines Text Advancer, wobei ein Text Advantur schon etwas schwer sein kann wenn man ihn mit einer Script Sprache usw. ausstatte aber man kann das ganze ja auch wie du schon von dir gemacht immer mit IF-Abfragen machen (ist nicht schön aber geht )
Und ich würde mir an deiner Stelle nochmal die Datentypen anschauen also: String Int Float usw. mfg ich |
||
"Wenn die Menschen nur über das sprächen, was sie begreifen, dann würde es sehr still auf der Welt sein." Albert Einstein (1879-1955)
"If you live each day as if it was your last, someday you'll most certainly be right." Steve Jobs |
Anassis |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Werde mich da aufjedenfall nochmal durchlesen, sowas wie pong spaceinvader clone und so habe ich das gefühl das das schon ein zu großes projekt für mich ist.
Habe nun erstmal an dem jetzigen noch ein bischen was geschrieben. Könnt es euch ja mal anschaun und Tipps geben, Funktioniern tut es komplett könnt es gerne testen ![]() Code: [AUSKLAPPEN] Graphics 800,600,32,2
Gut=1 Schlecht=2 ;Namensabfrage Name$ = Input ("Gib bitte deinen Namen ein:") Print "Hallo " + Name$ + " wie geht es dir Heute?" ;Stimmungsfrage Frage$ = Input ("Gut oder Schlecht?:") If Frage$="Gut" Then Print "Das hört man gerne!" ElseIf Frage$="Schlecht" Then Print "Oh ich hoffe es geht dir bald wieder besser!" EndIf ;Aufgabenauswahl Print "Nun zu deinem anliegen, welches Körpervolumen willst du Berechnen?" Print "(Wähle dazu bitte die Zahl zu dem nebenstehenden Körpervolumen)" Print "1 QUADRAT-RECHTECKVOLUMEN" Print "2 DREIECKVOLUMEN" Koerpervolumen$ = Input ("Deine auswahl?:") ;Berechnung Select Koerpervolumen Case 1 Print "QUADRAT-RECHTECKVOLUMEN" Laenge = Input ("Gebe mir bitte die Länge:") Breite = Input ("Gebe mir bitte die Breite:") Hoehe = Input ("Gebe mir bitte die Höhe:") Ergebniss = Laenge*Breite*Hoehe Print "Das Volumen beträgt " + Ergebniss + " m³" Case 2 Print "DREIECKVOLUMEN" Laenge = Input ("Gebe mir bitte die Länge:") Breite = Input ("Gebe mir bitte die Breite:") Hoehe = Input ("Gebe mir bitte die Höhe:") Ergebniss = Laenge*Breite*Hoehe/2 Print "Das DREIECKVOLUMEN beträgt " + Ergebniss + " m³" End Select WaitKey Was meint Ihr dazu? Ist für mich weiterhin ein Testprojekt für Befehle ^^ Gruß Lars |
||
HyDr0x |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Ein schönes Testprogramm. Mach weiter so. Jeder hat mal klein angefangen (hab auch mal sowas gemacht). In nem halben Jahr kannst du dann schon locker ein Space Invader proggen usw. | ||
![]() |
Eingeproggt |
![]() Antworten mit Zitat ![]() |
---|---|---|
Zum Proggen lernen taugt dein Programm schon, kann mich nur dem "weiter so" anschließen.
Aber mathematisch solltest vlt nochmal dein Büchlein ausgraben (welches du auch immer hast... Schulbuch) und nachschauen, was der Begriff "Quader" heißt. Und dann eine Formel für ein "Dreiecksvolumen", wohl besser bekannt unter dem Begriff "Kegel" suchen ![]() mfG, Christoph. |
||
Gewinner des BCC 18, 33 und 65 sowie MiniBCC 9 |
Anassis |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Oja sorry, beim quader war ich mir nicht ganz sicher und naja, beim Proggen hab ich sowieso nicht weiter gedacht.
Schulbücher wären sicher ganz praktisch, aber da ich schon länger aus der schule raus bin, gibts die nichtmehr. Naja ok das nächste mal geb ich mir mehr Mühe mit der Wortwahl, wobei es mir auch nich darum ging die namen richtig zu schreiben sondern das das Prog funkt. Gut das nächste mal weis ichs besser. THX Gruß Lars |
||
Übersicht


Powered by phpBB © 2001 - 2006, phpBB Group