Cristian
07 de Diciembre del 2003

Lo q quiero hacer es lo siguiente:
Hay un juego en donde por cada nivel podes subir x cantidad de skills en distintas habilidades.
En nivel 1 podes subir 3
En nivel 2 podes subir 2
En nivel 3 podes subir 2
En nivel 4 podes subir 3
En nivel 5 podes subir 3

No se si se nota la sucecion , pero en nivel uno empezas con 3 y a partir de ahi es : 2,2 - 3,3 - 2,2 - 3,3
Lo que yo quiero es q el usuario introduzca su nivel y en base a eso le calcule la cantidad de skills q puede subir
Creo q con un for se podria pero no se bien como hacerlo
Ayuda
Un saludo

Juan
07 de Diciembre del 2003

No es necesario un for, prueba este código:

Private Sub Command1_Click()
Dim nivel As Integer, skills As Integer
Dim skillsResto(0 To 3) As Integer
skillsResto(0) = 0
skillsResto(1) = 3
skillsResto(2) = 5
skillsResto(3) = 7
nivel = CInt(InputBox("Introduce el nivel"))
skills = ((nivel 4) * 10) + skillsResto(nivel Mod 4)
MsgBox "Puedes subir " & CStr(skills) & " skills"
End Sub


Para probarlo necesitas un commandbutton llamado Command1
dentro de tu formulario.

mcdowell
07 de Diciembre del 2003

si entendi bien, lo mejor seria un select case

Select case [variable]
case = 1| case = true|case = "ALGO"
instrucciones
case else

end select

kinoscar
07 de Diciembre del 2003

entendi tu problema y tambien me di cuenta de algo que puede ser la solucion,
con la excepcion del nivel 1
cuando la parte entera de la division del nivel por 2 es inpar se asignas 2 skill, cuando es impar le asignas 3 skill, asi que pienso que el codigo deberia ser algo asi

If Val(nivel) = 1 Then
skill= 3
ElseIf (Int(Val(nivel) / 2) Mod 2) = 0 Then
skill= 3
Else
skill= 2
End If