Contador sumatorio

[majo83]

Hola tengo el siguiente codigo,es un programa que simula una tragaperras:

Dim num As Integer
Dim num1 As Integer
Dim num2 As Integer




num = Int(3 * Rnd() + 1)
num1 = Int(3 * Rnd() + 1)
num2 = Int(3 * Rnd() + 1)


If (num = 1) Then
PictureBox1.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\fresa.gif")

ElseIf (num = 2) Then
PictureBox1.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\platano.jpg")
Else
PictureBox1.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\cerezas.jpg")

End If
If (num1 = 1) Then
PictureBox2.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\fresa.gif")

ElseIf (num1 = 2) Then
PictureBox2.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\platano.jpg")
Else
PictureBox2.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\cerezas.jpg")
End If

If (num2 = 1) Then
PictureBox3.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\fresa.gif")

ElseIf (num2 = 2) Then
PictureBox3.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\platano.jpg")
Else
PictureBox3.Image = Image.FromFile("C:\Documents and Settings\Administrador\Escritorio\tragaperras\trag aperras\tragaperras\bin\cerezas.jpg")

End If






If (num = 1 And num1 = 1 And num2 = 1) Then
MessageBox.Show("Has ganado 15 euros")



End If

If (num = 2 And num1 = 2 And num2 = 2) Then
MessageBox.Show("Has ganado 25 euros")

End If

If (num = 3 And num1 = 3 And num2 = 3) Then
MessageBox.Show("Has gando 45 euros")
End If

Y lo que quiero es que me vaya sumando los premios y me los muestre en un textbox.Son tres premios 15 euros si num,num1 y num2 son igual a 1, 25 euros si
son igual a 2 y 45 euros si son igual a 3.

Y otra duda es quiero que el jugador tenga 20 intentos y cada vez que le de al boton de jugar se vaya restando uno pero no se como traslado a codigo la accion de darle al boton de jugar.Gracias

[Kruzado]

declara estas dos variables como publicas
public totalpremios as double
public intentos as integer
en el formload

totalpremios=0
intentos=0

en el boton para jugar

if intentos <20 then
tu rutina de juegos
else
msgbox("No tienes mas intentos")
endif

crea un boton para resetear (comenzar a jugar denuevo) y agregale lo sig:
totalpremios=0
intentos=0

aqui va el codigo para calcular los premios (con mayuscula el ke totaliza)

If (num = 1 And num1 = 1 And num2 = 1) Then
MessageBox.Show("Has ganado 15 euros")
TOTALPREMIOS=TOTALPREMIOS+15
End If

If (num = 2 And num1 = 2 And num2 = 2) Then
MessageBox.Show("Has ganado 25 euros")
TOTALPREMIOS=TOTALPREMIOS+25

End If

If (num = 3 And num1 = 3 And num2 = 3) Then
MessageBox.Show("Has gando 45 euros")
TOTALPREMIOS=TOTALPREMIOS+45
End If
LABELNUEVO.CAPTION=TOTALPREMIOS

[majo83]

Muchas gracias voy a probar haber que tal

[majo83]

Me fue de lujo el problema era donde declaraba las variables.Gracias