PureBoard

Verfasst: **22.12.2013 21:07**

Ist zwar ein bischen Kaotisch und doppeltgemopelt aber kann mir jemand mal zeigen wie man dort einen Highscore einfückt

Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
#Frage
#Antwort
#Antwort1
#Antwort2
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
ButtonGadget(#KNOPF_INTERAKTION, 10, 170, 100, 20, "Klick' mich")
ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()
Case #KNOPF_INTERAKTION
  Debug "Die Schaltfläche wurde gedrückt."

Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
ButtonGadget(#Frage, 10, 170, 100, 20, "Frage")
ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()

Case #Frage
  MessageRequester("Frage","1+1")

Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
  ButtonGadget(#Antwort, 10, 130, 100, 20, "2")
  ButtonGadget(#Antwort1, 10, 150, 100, 20, "9")
  ButtonGadget(#Antwort2, 10, 170, 100, 20, "7")
ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()

Case #Antwort
  MessageRequester("Antwort","Richtig nächste frage")
    Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
ButtonGadget(#Frage, 10, 170, 100, 20,"Frage")
ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()
  Case #Frage
    MessageRequester("Frage","Was entsteht aus einen Hund und einen Oktupus ? " ) 
      Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
  ButtonGadget(#Antwort , 10,130,100,20, "Hundupus")
  ButtonGadget(#Antwort1, 10,150,100,20,"Oktohund")
  ButtonGadget(#Antwort2,10,170,100,20,"irgend etwas")
ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()
  Case #Antwort
    MessageRequester("Antwort","Richtig auf zur Nächsten frage " )
      Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
ButtonGadget(#Frage,10,170,100,20,"Frage")
ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()
  Case #Frage
    MessageRequester("Frage","Aus was bestehen grüne Sterne")
      Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
  ButtonGadget(#Antwort , 10,130,100,20, "Ioniesiertes Plasma")
  ButtonGadget(#Antwort1, 10,150,100,20,"Aus Grünes Zeugs")
  ButtonGadget(#Antwort2,10,170,100,20,"Aus waldmeister ")
ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()
  Case #Antwort
    MessageRequester("Antwort","Richtig das war die letzte frage Jetz hast du den scheiß durch")
    Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
ButtonGadget(#Frage,10,170,100,20,"Frage")

Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()
  Case #frage
    MessageRequester("Tja","Welches Drüsenorgan im Körper erzeugt das Insulin?")
Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
 ButtonGadget(#Antwort , 10,130,100,20, "Zirbeldrüse")
  ButtonGadget(#Antwort1, 10,150,100,20,"Schilddrüse")
  ButtonGadget(#Antwort2,10,170,100,20,"Bauchspeicheldrüse ")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()
  Case #Antwort
    MessageRequester("Antwort","Falsch")
    Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
ButtonGadget(#KNOPF_INTERAKTION,190,150,100,20,"Test")
ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()


Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End


  Case #Antwort1
    MessageRequester("Antwort","Falsch")
    Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
ButtonGadget(#KNOPF_INTERAKTION,190,150,100,20,"Test")
ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()


Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
  Case #Antwort2
    MessageRequester("Antwort","Richtig")
    Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
ButtonGadget(#Frage,10,150,100,20,"Frage")
ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()
Case #Frage
  MessageRequester("Frage","Wie alt ist Gronkh")
  Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
ButtonGadget(#KNOPF_INTERAKTION,190,150,100,20,"Test")
ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
 ButtonGadget(#Antwort , 10,130,100,20, "37")
  ButtonGadget(#Antwort1, 10,150,100,20,"36")
  ButtonGadget(#Antwort2,10,170,100,20,"35")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()
  Case #Antwort
    MessageRequester("Antwort","Falsch")
    Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
ButtonGadget(#KNOPF_INTERAKTION,190,150,100,20,"Test")
ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()


Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
  Case #Antwort1
    MessageRequester("Antwort","Richtig das wars für dieses Jahr Updates kommen nächstes Jahr ")
    Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
ButtonGadget(#KNOPF_INTERAKTION,190,150,100,20,"Test")
ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()


Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
  Case #Antwort2
    MessageRequester("Antwort","Falsch")
    Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)
ButtonGadget(#KNOPF_INTERAKTION,190,150,100,20,"Test")
ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()


Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
    

Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
    
Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
    Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)

ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()


Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
  Case #Antwort1
    MessageRequester("Antwort","Falsch")
    Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)

ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()


Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
  Case #Antwort2
    MessageRequester("Antwort","Falsch")
    Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)

ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()


Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
  Case #Antwort1
      Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)

ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()

Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
Case #Antwort2
    Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)

ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()

Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
Case #Antwort1
  MessageRequester("Antwort","Falsch")
  Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)

ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()

Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
  Case #Antwort2
    MessageRequester("Antwort","Falsch")
      Enumeration
#FENSTER_HAUPT
#KNOPF_INTERAKTION
#KNOPF_SCHLIESSEN
EndEnumeration
Global Ende.i = #False
#FLAGS = #PB_Window_SystemMenu | #PB_Window_ScreenCentered
If OpenWindow(#FENSTER_HAUPT, 0, 0, 300, 200, "Interaktion", #FLAGS)

ButtonGadget(#KNOPF_SCHLIESSEN, 190, 170, 100, 20, "Schließe Fenster")
Repeat
Ereignis.i = WaitWindowEvent()
Select Ereignis
Case #PB_Event_Gadget
Select EventGadget()

Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End
Case #KNOPF_SCHLIESSEN
Ende = #True
EndSelect
EndSelect
Until Ereignis = #PB_Event_CloseWindow Or Ende = #True
EndIf
End

Verfasst: **22.12.2013 21:22**

KaffesatzHD hat geschrieben:Ist zwar ein bischen Kaotisch

Ein Bißchen?

Mit Str+A und anschließend Str+I kannst Du den Source erstmal formatieren.
Enumerationen gehören an den Anfang des Codes und auf keinen Fall irgendwo
in der Ereignisschleife.

Für jeden Pub ein neues Fenster aufzumachen und ein neue Ereignisschleife zu
nutzen ist nicht sehr Sinnvoll.

Frage: Bist Du Italiener? Spaghetti Bolognese ist ja ein Scheißdreck dagegen.

Ein Fenster sollte genügen, die Texte der Gadgets können ja geändert werden.
Eine Ereignisschleife reicht auch.

Deinen jetzigen Code werde ich nicht versuchen zu korrigieren, da bekommt man
ja Kopfschmerzen beim lesen.

Versuch das ganze bitte nochmal besser zu machen, mit dem bisherigen kommste
nicht weiter.

Gruß
Thomas

Verfasst: **22.12.2013 21:43**

ts-soft hat geschrieben:
KaffesatzHD hat geschrieben:Ist zwar ein bischen Kaotisch
Ein Bißchen?

Mit Str+A und anschließend Str+I kannst Du den Source erstmal formatieren.
Enumerationen gehören an den Anfang des Codes und auf keinen Fall irgendwo
in der Ereignisschleife.

Für jeden Pub ein neues Fenster aufzumachen und ein neue Ereignisschleife zu
nutzen ist nicht sehr Sinnvoll.

Frage: Bist Du Italiener? Spaghetti Bolognese ist ja ein Scheißdreck dagegen.

Ein Fenster sollte genügen, die Texte der Gadgets können ja geändert werden.
Eine Ereignisschleife reicht auch.

Deinen jetzigen Code werde ich nicht versuchen zu korrigieren, da bekommt man
ja Kopfschmerzen beim lesen.

Versuch das ganze bitte nochmal besser zu machen, mit dem bisherigen kommste
nicht weiter.

Gruß
Thomas

bin ja noch anfänger würde mich aber trotzdem über hilfe freuen

Verfasst: **22.12.2013 22:12**

Bei dem Code wird Dir keiner so richtig helfen wollen, hat aber nichts mir Dir zu tun

Stell erstmal Überlegungen zu Deinem Quiz an.
Du benötigst ein Fenster.
Ein ReadOnly EditorGadget für die Frage.
2 oder 3 Antwortbutton.

Eine Strukture für Fragen und Lösung:

Code: Alles auswählen

Structure Fragen
  Frage.s
  Antwort.s
  Loesung.l
EndStructure

Global NewList Quiz.Fragen()

AddElement(Quiz())
Quiz()\Frage = "Was entsteht aus einen Hund und einen Oktupus ?"
Quiz()\Antwort = "Hundupus|Oktohund|irgend etwas"
Quiz()\Loesung = 0

oder ähnlich, nur als Ansatz. Kannste auch ein Array, Datas oder ähnliches nutzen, was Dir leichter fällt.

Button auswerten, Punkte merken und nächstes Element anzeigen.

Am besten erstmal gemäss meines Vorschlages, neu Planen und versuchen.

Gruß
Thomas

Verfasst: **22.12.2013 22:14**

KaffesatzHD hat geschrieben:
ts-soft hat geschrieben:
KaffesatzHD hat geschrieben:Ist zwar ein bischen Kaotisch
Ein Bißchen?

Mit Str+A und anschließend Str+I kannst Du den Source erstmal formatieren.
Enumerationen gehören an den Anfang des Codes und auf keinen Fall irgendwo
in der Ereignisschleife.

Für jeden Pub ein neues Fenster aufzumachen und ein neue Ereignisschleife zu
nutzen ist nicht sehr Sinnvoll.

Frage: Bist Du Italiener? Spaghetti Bolognese ist ja ein Scheißdreck dagegen.

Ein Fenster sollte genügen, die Texte der Gadgets können ja geändert werden.
Eine Ereignisschleife reicht auch.

Deinen jetzigen Code werde ich nicht versuchen zu korrigieren, da bekommt man
ja Kopfschmerzen beim lesen.

Versuch das ganze bitte nochmal besser zu machen, mit dem bisherigen kommste
nicht weiter.

Gruß
Thomas
bin ja noch anfänger würde mich aber trotzdem über hilfe freuen

Danke mache das ganze eh nochma neu

Verfasst: **22.12.2013 23:22**

Hier noch mal zur Anregung ein komplettes Beispiel. Wesentlich kürzer und auch übersichtlicher.
Am besten ausprobieren, ausbauen und dann ähnliches alleine von Vorne programmieren.

Code: Alles auswählen

EnableExplicit

DataSection
  fragen:
  Data.s "Was entsteht aus einen Hund und einen Oktupus?", "Hundupus", "Oktohund", "irgend etwas"
  Data.l 1
  Data.s "Aus was bestehen grüne Sterne?", "Ioniesiertes Plasma", "Aus Grünes Zeugs", "Aus Waldmeister"
  Data.l 2
  Data.s "" ; Leerstring kennzeichnet ende der Fragen!
EndDataSection

Global frage.s, antwort1.s, antwort2.s, antwort3.s
Global loesung.l, punkte.l = 0

Procedure NextFrage(Nr.l)
  If loesung = Nr
    punkte + 100
    MessageRequester("Quiz", "Diese Antwort war richtig!")
  Else
    MessageRequester("Quiz", "Diese Antwort war leider falsch!")
  EndIf
  
  Read.s frage
  If frage = "" ; keine weiteren Fragen vorhanden!
    MessageRequester("Quiz", "Sie haben alle Fragen beantwortet und erreichten: " + Str(punkte) + " Punkte!")
    End
  EndIf
  
  Read.s antwort1
  Read.s antwort2
  Read.s antwort3
  Read.l loesung
  SetGadgetText(0, frage)
  SetGadgetText(1, antwort1)
  SetGadgetText(2, antwort2)
  SetGadgetText(3, antwort3)
 
EndProcedure

OpenWindow(0, #PB_Ignore, #PB_Ignore, 490, 160, "Quiz")
EditorGadget(0, 10, 10, 470, 100, #PB_Editor_ReadOnly)
ButtonGadget(1, 10, 120, 150, 25, "")
ButtonGadget(2, 170, 120, 150, 25, "")
ButtonGadget(3, 330, 120, 150, 25, "")

; gadgets mit erster frage füllen
Restore fragen
Read.s frage
Read.s antwort1
Read.s antwort2
Read.s antwort3
Read.l loesung

SetGadgetText(0, frage)
SetGadgetText(1, antwort1)
SetGadgetText(2, antwort2)
SetGadgetText(3, antwort3)

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
      
     Case #PB_Event_Gadget
      Select EventGadget()
        Case 1
          NextFrage(1)
        Case 2
          NextFrage(2)
        Case 3
          NextFrage(3)
      EndSelect
  EndSelect
ForEver

Verfasst: **24.12.2013 14:51**

ts-soft hat geschrieben:Hier noch mal zur Anregung ein komplettes Beispiel. Wesentlich kürzer und auch übersichtlicher.
Am besten ausprobieren, ausbauen und dann ähnliches alleine von Vorne programmieren.

Code: Alles auswählen

EnableExplicit

DataSection
  fragen:
  Data.s "Was entsteht aus einen Hund und einen Oktupus?", "Hundupus", "Oktohund", "irgend etwas"
  Data.l 1
  Data.s "Aus was bestehen grüne Sterne?", "Ioniesiertes Plasma", "Aus Grünes Zeugs", "Aus Waldmeister"
  Data.l 2
  Data.s "" ; Leerstring kennzeichnet ende der Fragen!
EndDataSection

Global frage.s, antwort1.s, antwort2.s, antwort3.s
Global loesung.l, punkte.l = 0

Procedure NextFrage(Nr.l)
  If loesung = Nr
    punkte + 100
    MessageRequester("Quiz", "Diese Antwort war richtig!")
  Else
    MessageRequester("Quiz", "Diese Antwort war leider falsch!")
  EndIf
  
  Read.s frage
  If frage = "" ; keine weiteren Fragen vorhanden!
    MessageRequester("Quiz", "Sie haben alle Fragen beantwortet und erreichten: " + Str(punkte) + " Punkte!")
    End
  EndIf
  
  Read.s antwort1
  Read.s antwort2
  Read.s antwort3
  Read.l loesung
  SetGadgetText(0, frage)
  SetGadgetText(1, antwort1)
  SetGadgetText(2, antwort2)
  SetGadgetText(3, antwort3)
 
EndProcedure

OpenWindow(0, #PB_Ignore, #PB_Ignore, 490, 160, "Quiz")
EditorGadget(0, 10, 10, 470, 100, #PB_Editor_ReadOnly)
ButtonGadget(1, 10, 120, 150, 25, "")
ButtonGadget(2, 170, 120, 150, 25, "")
ButtonGadget(3, 330, 120, 150, 25, "")

; gadgets mit erster frage füllen
Restore fragen
Read.s frage
Read.s antwort1
Read.s antwort2
Read.s antwort3
Read.l loesung

SetGadgetText(0, frage)
SetGadgetText(1, antwort1)
SetGadgetText(2, antwort2)
SetGadgetText(3, antwort3)

Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
      
     Case #PB_Event_Gadget
      Select EventGadget()
        Case 1
          NextFrage(1)
        Case 2
          NextFrage(2)
        Case 3
          NextFrage(3)
      EndSelect
  EndSelect
ForEver

Danke jetz gehts viel besser XD

PureBoard

Will highscore einfuegen und prauche hilfe

Will highscore einfuegen und prauche hilfe

Re: Will highscore einfuegen und prauche hilfe

Re: Will highscore einfuegen und prauche hilfe

Re: Will highscore einfuegen und prauche hilfe

Re: Will highscore einfuegen und prauche hilfe

Re: Will highscore einfuegen und prauche hilfe

Re: Will highscore einfuegen und prauche hilfe