Procedure - Variable nutzen

[Jume]

Tag Leute, würde gerne ein Programmschreiben indem ich mit random eine zahl zwischen 0 und 3 per Zufall bestimme und diese per procedurenameplus<--zahl-->() aufrufe. Nur wie mach ich das?

Hier der Code:

Code: Alles auswählen

OpenConsole()
ConsoleTitle ("Quiz Beta 1.0")
eingabe$ = Input()

 zahl = Random(3)

Procedure frage1()

PrintN ("Frage 1")



EndProcedure

Procedure frage2()

PrintN ("Frage 2")



EndProcedure

Procedure frage3()

PrintN ("Frage 3")



EndProcedure

If eingabe$ = ""
frage+zahl()
EndIf


Input()

Ist natürlich lange lange nicht fertig aber da hapert es schon.

[Kiffi]

vielleicht so?

Code: Alles auswählen

Procedure Frage(zahl)
  
  Select zahl
      
    Case 1
      PrintN ("Frage 1")
      
    Case 2
      PrintN ("Frage 2")
      
    Case 3
      PrintN ("Frage 3")
      
  EndSelect
  
EndProcedure

OpenConsole()

ConsoleTitle ("Quiz Beta 1.0")

Frage(Random(2) + 1)

Input()

CloseConsole()

Zu Random(Max) -> Gibt eine Zahl zwischen 0 und Max aus. Demzufolge (bei
einem Gültigkeitsbereich von 1 bis 3) musst Du ein Random(2) + 1 ausführen.

Grüße ... Kiffi

[Jume]

vielen dank, kann man aber trotzdem bei einer procedure eine variabel dazupacken ? wie jetzt bspw. in meinem bsp. versucht.

das ich eine zufallszahl bestimmen lass und diese dann an frage() ansetze. das es dann bspw. frage4() lautet beim aufrufen.


edit: denn das ganze soll ein kleines quizspiel werden.

[Kiffi]

vielen dank, kann man aber trotzdem bei einer procedure eine variabel dazupacken ? wie jetzt bspw. in meinem bsp. versucht.

nein. Das geht nicht.

Grüße ... Kiffi

[Jume]

das ganze soll ein quiz werden.. wie mach ich das denn dann am besten ? mit case ist es ja schwer mehrere antworten zur auswahl zu stellen und dann noch prüfen zu lassen ob die bei eingabe$ = input() eingetippte antwort richtig ist.

[ts-soft]

Dann passte den Code von Kiffi an:

Code: Alles auswählen

 Procedure Frage(zahl)
  Protected result.s
  Select zahl
     
    Case 1
      PrintN ("Frage 1")
      result = Input()
      If result = "1"
        Debug "Winner"
      Else
        Debug "Looser"
      EndIf
    Case 2
      PrintN ("Frage 2")
      result = Input()
      If result = "2"
        Debug "Winner"
      Else
        Debug "Looser"
      EndIf     
    Case 3
      PrintN ("Frage 3")
      result = Input()
      If result = "3"
        Debug "Winner"
      Else
        Debug "Looser"
      EndIf     
  EndSelect
    
EndProcedure

OpenConsole()

ConsoleTitle ("Quiz Beta 1.0")

Frage(Random(2) + 1)

CloseConsole() 

[Jume]

vielen dank

[Josef Sniatecki]

Will nur darauf hinweisen, dass man oft an dynamischen Sprachen gewöhnt sein kann und dann plötzlich an die Wand klatscht, sobald es um statische Sprachen wie PB geht.

Ich weiß zwar nicht Jume, ob du schon erfahrungen mit anderen Sprachen gemacht hast, aber trotzdem erzähle ich mal was:

Letztends, Informatik-Unterricht... Delphi 5 (achtung STATISCH)
Lehrer: Wie tauscht man die Werte von zwei Variablen namens "x" und "y"
Ich melde mich.
Schüler hinter mir wird dranngenommen (PHP-Freak)...
Schüler: Wir können ja einfach die Variablen umbenennen. Also "x" wird zu "y" umbenannt und "y" zu "x"
Schreiend meine Gedanken [...] - Ihr wisst schon was ich gedacht habe.

[Shadow-Gamer]

Schüler: Wir können ja einfach die Variablen umbenennen. Also "x" wird zu "y" umbenannt und "y" zu "x":

in php kann man variablen umbennen?

[jojo1541]

Schüler: Wir können ja einfach die Variablen umbenennen. Also "x" wird zu "y" umbenannt und "y" zu "x":

in php kann man variablen umbennen?

Kommt mir auch spanisch vor...