✔ Zähler?

[Becks187]

Hallo,
ich möchte folgenese tuen.

Der Benutzer gibt eine richtige Antwort, das 1. Bild soll erscheinen.
Bei der nächsten richtigen Antwort das nächste Bild usw.

Nur wie bekomme ich das hochgezählt?
If Text1.Text = x Then
MsgBox "richtig"
For U = 0 To 8
Kugel(U).Visible = False
Next
Else
MsgBox "Falsch"
kugeln
End If
End Sub

Da wollte ich jetzt einfügen dass das Bild sichtbar wird.....
Aber eben immer nur eines und dann zusätzlich das nächste

Danke

 

[FJK]

Kugel(U).Visible = False
was ist kugel denn?
ein array?

und wie genau willst du die bilder sichtbarmachen
hast du die auf der form, in verschiedenen picturboxen
oder hast du sie alle als variablen und willst sie dann hintereinander abrufen?
...

flo

 

[Becks187]

Also Kugel ist auch ein Bild (ist aber unwichtig).
Das Bild das ich darstellen ist will ist ein array.
habe es smile genannt.
Also smile(1), smile(2).....

Ich wollte es so machen:

c=0
ganz nach oben

c=c+1
jedes mal nachdem die antwort richtig war

und dann:
smile(c).visible=true

So funktioniert das mit dem hochzählen bei HT Basic.
Aber bei meinem Programm gerade nicht
Hoffe das ist halbwegs verständlich

 

[FJK]

If Text1.Text = x Then
MsgBox "richtig"
For U = 0 To 8
Kugel(U).Visible = False
Next
Else
MsgBox "Falsch"
kugeln
End If
End Sub

also wie ich das sehe
du willst doch immer wenn die frage richtig ist, um einen hochzählen
aber du benutzt hier eine schleife, das bedeutet jedesmal wenn eine frage richtig ist, werden alle bilder angezeigt.

global:
dim a as integer
a = 0

function
if frage == richtig then

picturebox = smile(a)
a = a + 1 nachdem das bild angezeigt wurden ist, wir a um einen hochgezählt, und global gespeichert.

end if

 

[Becks187]

Das mit den Kugeln ist was anderes.
Ich probier's mal aus!

 

[Becks187]

If Text1.Text = x Then
MsgBox "richtig"
smile(a).Visible = True
a = a + 1
For U = 0 To 8
Kugel(U).Visible = False
Next
kugeln
Else
MsgBox "Falsch"
kugeln
End If

So sieht es jetzt aus und es funktioniert
Daaaaanke.

Ich hab wahrscheinlich das dim falsch gemacht.
Muss das also als integer sein?