Graphicswindow.Show ()
GraphicsWindow.Top=1
GraphicsWindow.left=1
GraphicsWindow.Title = "Wien Quiz"
GraphicsWindow.Height = 600
GraphicsWindow.Width = 600
TextWindow.left=610
TextWindow.top=20
image1 = "M:\Klasse5\Bilder\56030066-riesenrad.jpg"
GraphicsWindow.DrawImage(image1, 0, 0)
GraphicsWindow.ShowMessage("Herzlich Willkommen zu diesem wunderprächtigen Wien Quiz!", "Willkommen")
TextWindow.WriteLine("Frage 1: Wie hieß das Römerlager, das sich über Teile des heutigen ersten Bezirkes erstreckte und nach dem Wien benannt sein soll? 1: Vinubia 2: Vindobona 3: Oppidum vineti")
up3:
antw = TextWindow.Read ()
If antw = 2 Then
TextWindow.WriteLine("Richtig!")
Sound.PlayChime()
Else
TextWindow.WriteLine("Leider falsch! Versuche es erneut!")
Sound.PlayBellRing()
Goto up3
Endif
TextWindow.WriteLine("Frage 2: Welcher Film mit Orson Welles wurde in Wien gedreht? 1: Othello 2: Wiener Blut 3: Der dritte Mann")
up4:
antw = TextWindow.Read ()
If antw = 3 Then
TextWindow.WriteLine("Richtig!")
Sound.PlayChime()
Else
TextWindow.WriteLine("Leider falsch! Versuche es erneut!")
Sound.PlayBellRing()
Goto up4
EndIf
image3 = "http://www.ruprechtsviertel.alt-wien.eu/assets/images/autogen/a_Der_Dritte_Mann_Filmplakat.jpg"
GraphicsWindow.DrawresizedImage(image3, 150, 150, 300, 300)
Program.Delay(3000)
GraphicsWindow.Clear()
GraphicsWindow.DrawImage(image1, 0, 0)
TextWindow.WriteLine("Frage 3: Welches Lied wurde zu Ehren des Café Hawelka verfasst? 1: Jö schau, so a Sau, Jessas na, was macht a Nackerter im Hawelka? 2: I am from Hawelka! 3: Es wird das Hawelka sein und wir werd´n nimmer sein.")
up5:
antw = TextWindow.Read()
If antw = 1 Then
TextWindow.WriteLine("Super!")
Sound.PlayChime()
Else
TextWindow.WriteLine("Leider falsch! Versuche es erneut!")
Sound.PlayBellRing()
Goto up5
Endif
image4 = "http://www.rundumadum.at/ru/PanosWien/CafeHawelka01_thgr.jpg"
GraphicsWindow.DrawresizedImage(image4, 200, 200, 300, 300)
Program.Delay(3000)
GraphicsWindow.Clear()
GraphicsWindow.DrawImage(image1, 0, 0)
TextWindow.WriteLine(" Frage 4: Was ist der Calafati? 1: Eine Spezialität des Café Calafatti, eine Art Mohr im Hemd 2: Eine volkstümliche Figur des Stegreiftheaters 3: Eine große, drehbar angebrachte Statue im Wiener Prater")
up6:
antw = TextWindow.Read()
If antw = 3 Then
TextWindow.WriteLine("Genau!")
Sound.PlayChime()
Else
TextWindow.WriteLine("Leider falsch! Versuche es erneut!")
Sound.PlayBellRing()
Goto up6
Endif
image5 = "http://www.wayfaring.info/wp-content/uploads/2007/03/calafati.jpg"
GraphicsWindow.DrawresizedImage(image5, 200, 200, 300, 300)
Program.Delay(3000)
GraphicsWindow.Clear()
GraphicsWindow.DrawImage(image1, 0, 0)
TextWindow.WriteLine ("Frage 5: Welcher Komponist hat in Wien gelebt? 1: Wolfgang Amadeus Mozart 2:SergeiRachmaninoff 3: Frederic Chopin")
up7:
antw = TextWindow.Read()
If antw = 1 Then
TextWindow.WriteLine("Bravo, nächste Frage")
Sound.PlayChime()
Else
TextWindow.WriteLine("Leider falsch! Versuche es erneut!")
Sound.PlayBellRing()
Goto up7
EndIf
image6 = "http://www.mozart-wein.at/Mozart.jpg"
GraphicsWindow.DrawresizedImage(image6, 200, 200, 300, 300)
Program.Delay(3000)
GraphicsWindow.Clear()
GraphicsWindow.DrawImage(image1, 0, 0)
TextWindow. WriteLine ("Frage 6: Wien war vor dem ersten Weltkrieg Hauptstadt einer Doppelmonarchie - zwischen welchen beiden Ländern? 1:Ungarn und Slovakien 2:Österreich und Ungarn 3: Schweiz und Deutschland")
up8:
antw = TextWindow.Read()
If antw = 2 Then
TextWindow.WriteLine("Bravo, nächste Frage")
Sound.PlayChime()
Else
TextWindow.WriteLine("Leider falsch! Versuche es erneut!")
Sound.PlayBellRing()
Goto up8
EndIf
TextWindow. WriteLine ("Frage 7: Wie heißt die bekannteste Barockkirche der Stadt Wien? 1:Karlskirche 2:Minoritenkirche 3:Stephansdom ")
up9:
antw = TextWindow.Read()
If antw = 1 Then
TextWindow.WriteLine("Ausgezeichnet!")
Sound.PlayChime()
Else
TextWindow.WriteLine("Leider falsch! Versuche es erneut!")
Sound.PlayBellRing()
Goto up9
EndIf
image7 = "http://www.dillum.ch/html/karlskirche_wien.jpg"
GraphicsWindow.DrawresizedImage(image7, 200, 200, 300, 300)
Program.Delay(3000)
GraphicsWindow.Clear()
GraphicsWindow.DrawImage(image1, 0, 0)
TextWindow.WriteLine("Frage 8: Wie heißt der berühmte Jungenchor von Wien? 1: Wiener Sängerjungen, 2: Wiener Sängerknaben, 3: Wiener Knabenchor")
up:
antw = TextWindow.Read ()
If antw = 2 Then
TextWindow.WriteLine("Richtig!")
Sound.PlayChime()
Else
TextWindow.WriteLine("Leider falsch! Versuche es erneut!")
Sound.PlayBellRing()
Goto up
Endif
image2 = "http://www.tyrolis.com/images/900354866434.jpg"
GraphicsWindow.DrawresizedImage(image2, 200, 200, 300, 300)
Program.Delay(3000)
GraphicsWindow.Clear()
GraphicsWindow.DrawImage(image1, 0, 0)
TextWindow.WriteLine("Letzte Frage: Wie heißt der Vergnügungspark in Wien? 1: Wiener Prater, 2: Maxlaun, 3: Wiener Rummel")
up2:
antw = TextWindow.Read ()
If antw = 1 Then
TextWindow.WriteLine("Richtig! Gratuliere! Sie haben das Quiz erfolgreich abgeschlossen.")
Sound.PlayChime()
Else
TextWindow.WriteLine("Leider falsch! Versuche es erneut!")
Sound.PlayBellRing()
Goto up2
Endif
image3 = "http://www.tourist-net.co.at/wien/bilder/wien-riesenrad.jpg"
GraphicsWindow.DrawresizedImage(image3, 200, 200, 300, 300)
Program.Delay(3000)
GraphicsWindow.Clear()
GraphicsWindow.DrawImage(image1, 0, 0)
Program Listing: CDF761-0