variable Variablen?

[ralfschmitt]

Moin,

ich programmiere zur Übung ein "Hangman"-Spiel auf der Konsole. Nun möchte ich in Abhängigkeit von der Fehlerquote das entsprechende Hangman-Stadium einblenden. Dafür habe ich ne numerische Variable, die heißt Hangman.

Da ich auf der Konsole arbeite, besteht mancher Hangman-Zustand ja aus mehreren Zeilen Zeichen, deshalb kann ich keine Struktur oder Array verwenden. Statt dessen würde ich Prozeduren bzw. Gosubs verwenden. Da müßte ich dann aber den Namen zusammenflicken. Wie geht das?

Beispiel:

Code: Alles auswählen

If Hangman > 0
  For i= 1 To i <= Hangman Step 1
  
    Gosub_i

  Next
EndIf

Gruß
Ralf

[cxAlex]

> Da ich auf der Konsole arbeite, besteht mancher Hangman-Zustand ja aus mehreren Zeilen Zeichen, deshalb kann ich keine Struktur oder Array verwenden.

Ich versteh die Logik dahinter nicht.

Mach einfach für jeden Zustand eine Procedure und die rufst du je nach Zustand auf. Und wenn das ganze unbedingt über nen Counter machen musst:

Code: Alles auswählen

Prototype _HangmanState()

Structure HangmanState
  Show._HangmanState
EndStructure

Procedure State1()
  ; Hangman Zeichnen
  Debug "Hangman1"
EndProcedure

Procedure State2()
  ; Hangman Zeichnen
  Debug "Hangman2"
EndProcedure

Procedure State3()
  ; Hangman Zeichnen
  Debug "Hangman3"
EndProcedure


Dim State.HangmanState(3)

State(1)\Show = @State1()
State(2)\Show = @State2()
State(3)\Show = @State3()

For i = 1 To 3
  State(i)\Show()
Next

Und in die Proceduren kommen eben deine Print(),... mit was du eben den Hangman zeichnest.


PS:
Deine For - Loop pass auch nicht ganz (Hast du früher C programmiert ?)

> For i= 1 To i <= Hangman Step 1
müsste
> For i= 1 To Hangman Step 1
heißen, oder
> For i= 1 To Hangman
, Step 1 ist Standard.

[Kaeru Gaman]

garnicht.

gewöhn dir am besten GoSub ganz schnell wieder ab.
für so etwas würde sich ggf eine Select/Case konstruktion empfehlen.

aber:
> besteht mancher Hangman-Zustand ja aus mehreren Zeilen Zeichen, deshalb kann ich keine Struktur oder Array verwenden.

wieso? wo ist das problem?
definier dir ein Array von Strings zweidimensional.
die eine Dimension ist die Zeile, die andere das Stadium.


[edit]
@cxAlex
oy, bitte! doch nicht mit Procedure-Adressen in Strukturen ankommen!
das ist ja ein fürchterlicher Overkill für so ein echtes Anfänger-Problem.

[ralfschmitt]

mhm, wahrscheinlich habe ich Strukturen einfach noch nicht richtig verstanden

Danke für die Tipps. Ich setz mich gleich mal dran und probiere das aus.

Und richtig, mein Loop hat gewisse Schreibfehler. Die stammen aber eher von PHP

[cxAlex]

Ich wollte es nur so machen wie er es beschrieben hat, aber du hast recht, das dürfte wohl Overkill sein (mal abgesehen davon ob das ein Anfänger versteht). Hier mal dasselbe mit Select - Case:

Code: Alles auswählen

Procedure State1()
  ; Hangman Zeichnen
  Debug "Hangman1"
EndProcedure

Procedure State2()
  ; Hangman Zeichnen
  Debug "Hangman2"
EndProcedure

Procedure State3()
  ; Hangman Zeichnen
  Debug "Hangman3"
EndProcedure

For State = 1 To 3
  Select State
    Case 1
      State1()
    Case 2
      State2()
    Case 3
      State3()
  EndSelect
Next

[Kaeru Gaman]

hier noch ne demo, wie ich das mit nem 2dimensionalen Stringarray meinte...

Code: Alles auswählen

Dim Hang.s(5,3)

Hang(0,0) = "dies    1"
Hang(0,1) = "ist     1"
Hang(0,2) = "erster  1"
Hang(0,3) = "status  1"

Hang(1,0) = "dies    2"
Hang(1,1) = "ist     2"
Hang(1,2) = "zweiter 2"
Hang(1,3) = "status  2"

Hang(2,0) = "dies    3"
Hang(2,1) = "ist     3"
Hang(2,2) = "dritter 3"
Hang(2,3) = "status  3"

Hang(3,0) = "dies    4"
Hang(3,1) = "ist     4"
Hang(3,2) = "vierter 4"
Hang(3,3) = "status  4"

Hang(4,0) = "dies    5"
Hang(4,1) = "ist     5"
Hang(4,2) = "fünfter 5"
Hang(4,3) = "status  5"

Hang(5,0) = "dies    6"
Hang(5,1) = "ist     6"
Hang(5,2) = "sechster6"
Hang(5,3) = "status  6"

OpenConsole()

For Status = 0 To 5
  PrintN("Anzeige Status " + Str(Status+1))
  For Zeile = 0 To 3
    PrintN(Hang(Status,Zeile))
  Next
  PrintN("")
Next
Input()

[ralfschmitt]

Erst noch mal Danke! an alle. Hab das jetzt mit case ... select gelöst.

in PHP kann ich halt den Inhalt einer Variablen zum Namen einer neuen Variablen machen, dachte das ginge in Purebasic vlt. auch


Gruß
Ralf

[Falko]

Vielleicht könnte man es ja auch mit Preferences machen:

Code: Alles auswählen

CreatePreferences("Test.MyV")
For i= 1 To 10
MyString$="a"+Str(i)
WritePreferenceString(MyString$,Str(i))
Next i
ClosePreferences()

OpenPreferences("Test.MyV")
 ExaminePreferenceKeys()
While  NextPreferenceKey()>0
  Debug PreferenceKeyName()+" entspricht "+ReadPreferenceString(PreferenceKeyName(),"0") ;= PreferenceKeyValue()
Wend


Delay(10000)

Zwar sind das keine Variablen, aber zufällig Namen und deren
Werte würde man so ermitteln können.

Ich denke aber, das du damit auch nicht viel anfangen kannst.

Gruß Falko