Quiz: O-Quiz

Übersicht BlitzBasic Beginners-Corner

Gehe zu Seite 1, 2  Weiter

Neue Antwort erstellen

 

Spike

Betreff: Quiz: O-Quiz

BeitragSo, Feb 13, 2005 17:24
Antworten mit Zitat
Benutzer-Profile anzeigen
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

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
Print

;-----------------------------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

Print

;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

Print

;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

Print

;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

Print

;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

;-------------------------------------------------------------------

Print "Sie haben " + p + " Punkt(e) von möglichen 5 Punkten erreicht!"

Print

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 Smile
MfG Spike

Sebastian

BeitragSo, Feb 13, 2005 17:41
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragSo, Feb 13, 2005 17:56
Antworten mit Zitat
Benutzer-Profile anzeigen
1.) Ich dachte das passt hier rein Question Wo sonst?

2.)Ja das kann man noch ändern...dumm ist es das er auf groß und kleinschreibung achtet Mad

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

BeitragSo, Feb 13, 2005 18:03
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BladeRunner

Moderator

BeitragSo, Feb 13, 2005 18:10
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragSo, Feb 13, 2005 18:39
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragSo, Feb 13, 2005 18:57
Antworten mit Zitat
Benutzer-Profile anzeigen
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... Idea

.:BotC:. Pascal

BeitragSo, Feb 13, 2005 19:02
Antworten mit Zitat
Benutzer-Profile anzeigen
Ich würde einfach mal tippen, dass es in Projekte oder ins Anfängerboard gehört. Bin mir aber auch nicht ganz sicher Confused . Im Anfänger Board stehen mehr Fragen und im Projekte Board eher "richtige" Spiele. Aber weil es ja dein erstes Prog ist, fänd ich es schade wenn der Thread im Thrash Board landet, aber das wird wahrscheinlich trotzdem passieren. Wink

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

BeitragSo, Feb 13, 2005 19:07
Antworten mit Zitat
Benutzer-Profile anzeigen
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

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
Print

;-----------------------------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

Print

;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

Print

;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

Print

;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

Print

;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

;-------------------------------------------------------------------

Print "Sie haben " + p + " Punkt(e) von möglichen 5 Punkten erreicht!"

Print

Print "Vielen Dank das sie O-Quiz gespielt haben!"

Waitkey

End
MfG Spike

adba

Betreff: Ein besserer Aufbau:

BeitragSo, Feb 13, 2005 22:36
Antworten mit Zitat
Benutzer-Profile anzeigen
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.

Kabelbinder

Sieger des WM-Contest 2006

BeitragMo, Feb 14, 2005 15:31
Antworten mit Zitat
Benutzer-Profile anzeigen
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" Smile .
<Wing Avenger Download> ◊◊◊ <Macrophage Download>
 

Spike

BeitragMo, Feb 14, 2005 17:02
Antworten mit Zitat
Benutzer-Profile anzeigen
@abda

jo danke für die tipps werde es berücksichtigen

@Kabelbinder

Ja das hatte ich schon herausgefunden danke trotzdem
MfG Spike
 

Sandmann

BeitragMo, Feb 14, 2005 19:12
Antworten mit Zitat
Benutzer-Profile anzeigen
hihi...erinnert mich an meine alten qbasic zeiten, da hab ich auch son zeuch zusammengeproggt...aber bei mir war mehr goto drin Laughing

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 Wink
 

Spike

BeitragMo, Feb 14, 2005 20:15
Antworten mit Zitat
Benutzer-Profile anzeigen
Jo wie sagt man so schön "Die Erfahrung ist der beste Lehrer"
MfG Spike
 

Schraube

BeitragMi, Feb 16, 2005 15:03
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Feb 16, 2005 15:40
Antworten mit Zitat
Benutzer-Profile anzeigen
naja aber allgemein is es halt der cpu
MfG Spike
 

Reaper

BeitragMi, Feb 16, 2005 15:50
Antworten mit Zitat
Benutzer-Profile anzeigen
doch doch cpu würd isch shcon als herzstück betrachten, motherboard ist mehr so ne art knockengerüst Smile

blitzmaster

BeitragMi, Feb 16, 2005 17:38
Antworten mit Zitat
Benutzer-Profile anzeigen
man kann doch den PC sowiesonicht mit dem Menschen vergleichen oder? Confused
***************
Blitzmaster
 

FBI-blitz

BeitragMi, Feb 16, 2005 17:40
Antworten mit Zitat
Benutzer-Profile anzeigen
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

BeitragMi, Feb 16, 2005 17:56
Antworten mit Zitat
Benutzer-Profile anzeigen
Ä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

Gehe zu Seite 1, 2  Weiter

Neue Antwort erstellen


Übersicht BlitzBasic Beginners-Corner

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group