variable wird nicht erkannt :( Verfasst am: 12.11.2007, 14:42
hi.
ich habe sprüche unter den variablen a-z eingespeichert
Code:
dim a as string
...
dim z as string
a = "bla, spruch, bla"
b= "allalmmlöd"
...
z = "jojojo"
jetzt wollte ich sie per timer zufällig anzeigen lassen, und das per funktion:
Code:
Private Function RandomChar() As String
Const CHARS As String = _
"abcdefghijklmnopqrstuvwxyz"
Randomize Timer
RandomChar = Mid(CHARS, Int(Rnd * (Len(CHARS))) + 1, 1)
End Function
code im timer:
label1.caption = RandomChar()
jetzt das problem: es wird nicht der spruch, der als variable eingespeichert ist angezeigt, sonder nur die buchstaben (zB. a).
also wird der zufallsbuchstabe nicht als variable erkannt.
wie kann ich das umgehen?
ZiG_ Überflieger
Anmeldedatum: 07.03.2007 Beiträge: 1248
Verfasst am: 12.11.2007, 15:40
Du kannst so nicht auf eine Variable zugreifen.
Er wird die Buchstaben immer als string deuten und nicht dass er auf eine Variable mit diesem Namen zugreifen soll.
Du müßtest es per Array und Zahlen machen.
Code:
Dim Sprueche(20) as string
In der Klammer schreibst du die Anzahl der Sprüche die du haben willst.
Und dann die Sprüche noch einfügen.
Code:
Sprueche(0) = "blabla"
Sprueche(1) = "blub"
usw.
Und per Random lässt du die Zahlen von 0 bis .. generieren.
Dann kannst du den Text einfach z.B. so anzeigen lassen.
Code:
MsgBox Sprueche(GenerierteZahl)
Wer nicht auf seine Weise denkt, denkt überhaupt nicht. (Oscar Wilde)
Registrieren
Login
