Quiz: O-Quiz
Übersicht

SpikeBetreff: Quiz: O-Quiz |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Hi,
also ich habe mein ersten kleines Quiz geschrieben! Code: [AUSKLAPPEN] Apptitle "O-Quiz" Graphics 500, 500, 32, 2 Print "******" Print "O-Quiz Copyright 2005 by Spike" Print "******" Print "Willkommen zum O-Quiz!" ;------------------------Namensabfrage------------------------------ Name$ = Input$("Wie heißen sie: ") Print "Hallo, " + Name$ + "!" ;------------------------------------------------------------------- Print "Drücken sie eine beliebige Taste um mit dem Quiz zu beginnen" Waitkey ;-----------------------------Fragen-------------------------------- p = 0 ;Frage 1 Print "Frage 1:" Print "Welche Zahl kommt nach der Zahl 2 ?" a1$ = Input$() If a1$ = "3" Then Print "Richtig! (beliebige Taste drücken)" p = p + 1 WaitKey Else Print "Falsch (beliebige Taste drücken)" WaitKey EndIf ;Frage 2 Print "Frage 2:" Print "Wie heißt die untere Zahl eines Bruches ?" a2$ = Input$() If a2$ = "Nenner" or a2$ = "nenner" Then Print "Richtig! (beliebige Taste drücken)" p = p + 1 WaitKey Else Print "Falsch (beliebige Taste drücken)" WaitKey EndIf ;Frage 3 Print "Frage 3:" Print "Wieviel Euro sind 6 DM ?" a3$ = Input$() If a3$ = "3" Then Print "Richtig! (beliebige Taste drücken)" p = p + 1 WaitKey Else Print "Falsch (beliebige Taste drücken)" WaitKey EndIf ;Frage 4 Print "Frage 4:" Print "Wie heißt die Programmiersprache mit der dieses Quiz" Print "programmiert wurde ?" a4$ = Input$() If a4$ = "blitz basic" or a4$ = "Blitz Basic" Then Print "Richtig! (beliebige Taste drücken)" p = p + 1 WaitKey Else Print "Falsch (beliebige Taste drücken)" WaitKey EndIf ;Frage 5 Print "Frage 5:" Print "Wie heißt das Herzstück eines Computer's ?" a5$ = Input$() If a5$ = "prozessor" or a5$ = "Prozessor" Then Print "Richtig! (beliebige Taste drücken)" p = p + 1 WaitKey Else Print "Falsch (beliebige Taste drücken)" WaitKey EndIf ;------------------------------------------------------------------- Print "Sie haben " + p + " Punkt(e) von möglichen 5 Punkten erreicht!" Print "Vielen Dank das sie O-Quiz gespielt haben!" Waitkey End Wie findet ihr es? Hätte ich Dinge besser bzw. leicher machen können? Lob und Kritik erwünscht ![]() |
||
MfG Spike |
![]() |
Sebastian |
![]() Antworten mit Zitat ![]() |
---|---|---|
1. Was sucht das im Code-Archiv ?
2. Wenn man anstatt BlitzBasic BB einttippt oder CPU statt Prozessor ist das Falsch (die lsite von Richtigen antworten müsste größer sein ....) 3. Was soll daran besonders sein ? |
||
Seit 2 Jahren kein BlitzBasic und kein Windows mehr, und stolz darauf ! |
Spike |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
1.) Ich dachte das passt hier rein ![]() 2.)Ja das kann man noch ändern...dumm ist es das er auf groß und kleinschreibung achtet ![]() 3.)Es ist nix daranbesonders das ist mein aller aller aller ersten Programm in BB. Wollte es nur zeigen um Feedback bekommen Vielleicht kann es ja jemanden helfen der ein Quiz machen will oder so k.A |
||
MfG Spike |
![]() |
soli |
![]() Antworten mit Zitat ![]() |
---|---|---|
Zitat: 2.)Ja das kann man noch ändern...dumm ist es das er auf groß und kleinschreibung achtet
http://www.blitzbase.de/befehle2d/lower.htm |
||
solitaire |
![]() |
BladeRunnerModerator |
![]() Antworten mit Zitat ![]() |
---|---|---|
lower$ und upper$.
Zudem: 6 DM sind keine 3 Euro- das ist schlicht und ergreifend falsch. Der Umrechnungskurs liegt bei 1,95583 DM für einen Euro. Und zuguterletzt: Nix fürs Codearchiv. Mit Müh und Not unter Projekte, aber eine "Hilfestellung" oder ein nützliches Codefragment ists wohl eher nicht. |
||
Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3 Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64 B3D BMax MaxGUI Stolzer Gewinner des BAC#48, #52 & #92 |
Spike |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Hää? lower upper? was soll das bringen wen er alle buchstaben klein macht? das ist doch egal oder keinst ihr die antwort die der nutzer gibt macht er automatisch klein?
sry, wo kommt es den sonst rein? |
||
MfG Spike |
![]() |
simi |
![]() Antworten mit Zitat ![]() |
---|---|---|
Zitat: Diese Stringfunktion wandelt alle Buchstaben des angegebenen Textes in Kleinbuchstaben um. Das heisst, du kanst die Eingaben vom Benutzer in Kleinbuchstaben umwandeln, dann muss der Benutzer nicht auf Gross/Kleinschreibung achten... ![]() |
||
![]() |
.:BotC:. Pascal |
![]() Antworten mit Zitat ![]() |
---|---|---|
Ich würde einfach mal tippen, dass es in Projekte oder ins Anfängerboard gehört. Bin mir aber auch nicht ganz sicher ![]() ![]() Das mit dem Lower ist ganz leicht: Ich weiss jetzt gerade nicht wie die Variable für die Antworten bei dir heisst, aber ich nehme einfach mal Antwort$. If Lower$(Antwort$) = "blitz basic" then... So kann die Antwort auch "BlItZ BaSiC" sein. (Müsste zumindest richtig sein) |
||
Spike |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
OK danke habs geändert hier der Code falls ihn doch einer haben will
Code: [AUSKLAPPEN] Apptitle "O-Quiz" Graphics 500, 500, 32, 2 Print "******" Print "O-Quiz Copyright 2005 by Spike" Print "******" Print "Willkommen zum O-Quiz!" ;------------------------Namensabfrage------------------------------ Name$ = Input$("Wie heißen sie: ") Print "Hallo, " + Name$ + "!" ;------------------------------------------------------------------- Print "Drücken sie eine beliebige Taste um mit dem Quiz zu beginnen" Waitkey ;-----------------------------Fragen-------------------------------- p = 0 ;Frage 1 Print "Frage 1:" Print "Welche Zahl kommt nach der Zahl 2 ?" a1$ = Input$() If a1$ = "3" Then Print "Richtig! (beliebige Taste drücken)" p = p + 1 WaitKey Else Print "Falsch (beliebige Taste drücken)" WaitKey EndIf ;Frage 2 Print "Frage 2:" Print "Wie heißt die untere Zahl eines Bruches ?" a2$ = Input$() If LOWER$(a2$) = "nenner" Then Print "Richtig! (beliebige Taste drücken)" p = p + 1 WaitKey Else Print "Falsch (beliebige Taste drücken)" WaitKey EndIf ;Frage 3 Print "Frage 3:" Print "Wieviel Euro sind 6 DM ?" a3$ = Input$() If a3$ = "3" Then Print "Richtig! (beliebige Taste drücken)" p = p + 1 WaitKey Else Print "Falsch (beliebige Taste drücken)" WaitKey EndIf ;Frage 4 Print "Frage 4:" Print "Wie heißt die Programmiersprache mit der dieses Quiz" Print "programmiert wurde ?" a4$ = Input$() If LOWER$(a4$) = "blitz basic" Then Print "Richtig! (beliebige Taste drücken)" p = p + 1 WaitKey Else Print "Falsch (beliebige Taste drücken)" WaitKey EndIf ;Frage 5 Print "Frage 5:" Print "Wie heißt das Herzstück eines Computer's ?" a5$ = Input$() If LOWER$(a5$) = "prozessor" Then Print "Richtig! (beliebige Taste drücken)" p = p + 1 WaitKey Else Print "Falsch (beliebige Taste drücken)" WaitKey EndIf ;------------------------------------------------------------------- Print "Sie haben " + p + " Punkt(e) von möglichen 5 Punkten erreicht!" Print "Vielen Dank das sie O-Quiz gespielt haben!" Waitkey End |
||
MfG Spike |
![]() |
adbaBetreff: Ein besserer Aufbau: |
![]() Antworten mit Zitat ![]() |
---|---|---|
Hallo Spike. Ich würde das Quiz Programm ganz anderst angehen. Ich würde ein Auswahl von Antworten geben zwischen denen der Benutzer sich dann entscheiden muss. Ich habe im folgenden einen Prizipiellen Aufbau programmiert. Noch schöner währe es natürlich wenn alle Fragen in einer Externen Datei gespeichert werden oder in einer SQL Datenbank... aber lassen wir das. Also hier der Code:
Code: [AUSKLAPPEN] ;Beispiel für ein Quiz-Programm type TQuiz field Frage$ field Antwort1$ field Antwort2$ field Antwort3$ field Loesung end type quiz.TQuiz= new TQuiz quiz\Frage= "Wieviel sind 3 Euro" quiz\Antwort1 = "4dm" quiz\Antwort2 = "6dm" quiz\Antwort3 = "7dm" quiz\Loesung = 2 quiz.TQuiz= new TQuiz quiz\Frage= "Was ist das Herzen eines Computers?" quiz\Antwort1 = "Prozessor" quiz\Antwort2 = "Gehäuse" quiz\Antwort3 = "Maus" quiz\Loesung = 1 for quiz.TQuiz = each TQuiz print quiz\Frage print "" print "1 "+quiz\Antwort1 print "2 "+quiz\Antwort2 print "3 "+quiz\Antwort3 print "" a=Input("Welche Antwort ist richtig? (1, 2 oder 3?):") print "" if a=quiz\Loesung then print "Richtig" else print "Falsch. Die richtige Antwort währe "+quiz\Loesung endif print "" print "========= Weiter mit beliebiger Taste ========" print "" waitkey() next end Viel Spass damit. |
||
![]() |
KabelbinderSieger des WM-Contest 2006 |
![]() Antworten mit Zitat ![]() |
---|---|---|
Hi
Ich mag solche Quizspiele. Wenn du Groß- und Kleinschreibung in den Antworten nicht berücksichtigen willst, kannst du auch einfach schreiben: Code: [AUSKLAPPEN] If Lower$(a2$) = "nenner" Die Function Lower$() wandelt alle Großbuchstaben in einem Wort in kleinbuchstaben um. Die Fragen lassen aber finde ich noch zu Wünschen übrig: Bei der Frage "Was ist das Herzstück des Computers?" habe ich geantwortet "Rechner" ![]() |
||
<Wing Avenger Download> ◊◊◊ <Macrophage Download> |
Spike |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
@abda
jo danke für die tipps werde es berücksichtigen @Kabelbinder Ja das hatte ich schon herausgefunden danke trotzdem |
||
MfG Spike |
Sandmann |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
hihi...erinnert mich an meine alten qbasic zeiten, da hab ich auch son zeuch zusammengeproggt...aber bei mir war mehr goto drin ![]() Naja, als erstes prog zum ausprobieren, isses ganz ok, ich hätte aber nicht den mut gehabt, das irgendwem zu zeigen, geschweige denn irgendwohin zu posten... Naja muss jeder selber wissen ![]() |
||
Spike |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Jo wie sagt man so schön "Die Erfahrung ist der beste Lehrer" | ||
MfG Spike |
Schraube |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Meine Meinung zum Hertzstück eines Computers ist auf keinen Fall der Prozessor, sondern das Motherboard, da es die Grundlage für alle Prozesse ist. Prozzesor und co würde ich unter Gliedmaßen einstufen. | ||
Das Leben ist hart, aber fair! |
Spike |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
naja aber allgemein is es halt der cpu | ||
MfG Spike |
Reaper |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
doch doch cpu würd isch shcon als herzstück betrachten, motherboard ist mehr so ne art knockengerüst ![]() |
||
![]() |
blitzmaster |
![]() Antworten mit Zitat ![]() |
---|---|---|
man kann doch den PC sowiesonicht mit dem Menschen vergleichen oder? ![]() |
||
***************
Blitzmaster |
FBI-blitz |
![]() Antworten mit Zitat ![]() |
|
---|---|---|
Ich finde die vergleiche lustig... | ||
Computer 1: AMD Athlon64 3500+ | nVidia GF 7900GT | 1024 MB DDR-RAM | ASUS A8N-SLI Preimium | 250 GB SATA 2 || WindowsXP | Blitz3D | Blitz+
Computer 2: AMD AthlonXP 2400+ | ATI Radeon 9500 | 512 MB DDR-RAM | MSI K7N2 | 80 GB IDE | 160 GB IDE || WindowsXP | Blitz3D | Blitz+ Computer 3: Intel Pentium MMX | onBoard-Grafik | 32 MB RAM | 1 GB IDE || Windows 98 SE | Blitz+ |
![]() |
Izewind |
![]() Antworten mit Zitat ![]() |
---|---|---|
Ähh... schönes Quiz (..oder was auch immer hier das Thema sein mag..)
Ja.., genau. Weiter so. Und jetzt zu dir blitzmaster. Bist du etwa der blitzmaster der die genialen RPG-Tut's geschrieben hat? Falls doch, sollten wir mal ein Wörtchen miteinander reden. hätte dann nämlich einige Fragen betreffend der Urheberrechte und damit verbundener Prügelstrafe. Aber jetzt lassen wir das erstmal auf sich beruhen.. Bis dann. |
||
Neuerer Intel Prozesser mit weniger als 3gHz
-- Alt: PIV 3,0gHz | 512mb Dual-DDR | Radeon 9800 Pro |
Übersicht


Powered by phpBB © 2001 - 2006, phpBB Group