Hallo liebe vb-Welt.
Ich programmiere zur Zeit ein Spiel bzw versuche es
Dabei klappt auch alles einwandfrei. Bei dem Spiel gibt es auch einen Würfel. Da ich seit 2010 programmiere, funktioniert das Würfeln auch schon. Mit "random" lass ich eine zufällige Zahl in eine Variable schreiben und je nach dem, welche Zahl dann in der Variable geschrieben ist, wird ein Bild mit der Augenzahl in einer Pictuerbox geladen:
wie gesagt, das alles funktioniert.
Jetzt möchte ich aber, dass der Würfel auch richtig würfelt. also dass nicht sofort das Bild mit der Augenzahl erscheint, sondern dass das Bild alle 500ms oder so noch wechselt und erst am Ende dann das "gewürfelte" Bild angezeigt wird.
Ich hab es mal mit diesem code versucht:
Aber jetzt dauert es einfach die Zeit, bis die For-Schleife beendet ist und dann wird einfach wieder nur das Bild von der letzten Zahl angezeigt.
Was hab ich bei dem Code falsch bzw vergessen? Oder funktioniert es mit diesem Code überhaupt nicht? Was wäre eine andere Lösung?
Vielen Dank schon mal für Eure Bemühungen und gute Nacht
Ich programmiere zur Zeit ein Spiel bzw versuche es
Dabei klappt auch alles einwandfrei. Bei dem Spiel gibt es auch einen Würfel. Da ich seit 2010 programmiere, funktioniert das Würfeln auch schon. Mit "random" lass ich eine zufällige Zahl in eine Variable schreiben und je nach dem, welche Zahl dann in der Variable geschrieben ist, wird ein Bild mit der Augenzahl in einer Pictuerbox geladen:
wie gesagt, das alles funktioniert.
Jetzt möchte ich aber, dass der Würfel auch richtig würfelt. also dass nicht sofort das Bild mit der Augenzahl erscheint, sondern dass das Bild alle 500ms oder so noch wechselt und erst am Ende dann das "gewürfelte" Bild angezeigt wird.
Ich hab es mal mit diesem code versucht:
Quellcode
- Dim zahl1 as integer
- Dim zahl2 as integer
- Dim zufall as integer
- Dim zufallszahl as new random
- zahl2 = zufallszahl.next(3,10)
- for zufall = 0 to zahl2
- zahl1 = zufallszahl.next(1,6)
- if zahl1 = 1 then
- picturebox1 = My.Resources._1
- elseif zahl1 = 2 then
- picturebox1 = My.Resources._2
- .... und so weiter...
- end if
- Threading.Thread.Sleep(500)
- next
Aber jetzt dauert es einfach die Zeit, bis die For-Schleife beendet ist und dann wird einfach wieder nur das Bild von der letzten Zahl angezeigt.
Was hab ich bei dem Code falsch bzw vergessen? Oder funktioniert es mit diesem Code überhaupt nicht? Was wäre eine andere Lösung?
Vielen Dank schon mal für Eure Bemühungen und gute Nacht