Behöver hjälp med Visual basic igen!|Programmering / Grafisk formgivning|Forum|Nordichardware

Tack Zunk!

Jag lyckades i alla fall få talen att summeras med hjälp av kodsnutten du gav mig. Men hur gör jag för att efter fyra klick nollställa och börja om från början? D.v.s de fyra första klicken ger summan 22, de nästkommande fyra klicken ska inte läggas på de 22 utan börja räknas om från noll.

Så här ser koden ut nu:

Dim tal, summa As Integer

rivate Sub Tärning_Frame_Click()

Punkt1_img.Visible = False
Punkt2_img.Visible = False
Punkt3_img.Visible = False
Punkt4_img.Visible = False
Punkt5_img.Visible = False
Punkt6_img.Visible = False
Punkt7_img.Visible = False

summa = summa + tal

Randomize
tal = Int((6 * Rnd) + 1) 'Ett tal mellan 1 & 6 slumpas fram

If tal = 1 Then 'Om talet är 1 visas 1 punkt
Punkt4_img.Visible = True
ElseIf tal = 2 Then 'Om talet är 2 visas 2 punkter
Punkt1_img.Visible = True
Punkt7_img.Visible = True
ElseIf tal = 3 Then 'Om talet är 3 visas 3 punkter
Punkt1_img.Visible = True
Punkt4_img.Visible = True
Punkt7_img.Visible = True
ElseIf tal = 4 Then 'Om talet är 4 visas 4 punkter
Punkt1_img.Visible = True
Punkt3_img.Visible = True
Punkt5_img.Visible = True
Punkt7_img.Visible = True
ElseIf tal = 5 Then 'Om talet är 5 visas 5 punkter
Punkt1_img.Visible = True
Punkt3_img.Visible = True
Punkt4_img.Visible = True
Punkt5_img.Visible = True
Punkt7_img.Visible = True
ElseIf tal = 6 Then 'Om talet är 6 visas 6 punkter
Punkt1_img.Visible = True
Punkt2_img.Visible = True
Punkt3_img.Visible = True
Punkt5_img.Visible = True
Punkt6_img.Visible = True
Punkt7_img.Visible = True
End If

x = Int(Rnd * 10000) 'Ny position i x-led slumpas fram
y = Int(Rnd * 7000) 'Ny position i y-led slumpas fram
Tärning.Move x, y 'Formuläret Tärning flyttas till den nya positionen

Tärning.Caption = tal + summa 'Talet som slumpats fram visas i formulärets namnlist

End Sub

Alla förslag välkomnas varmt