Problemas con SELECT CASE

[stork32]

Ups !! errores de ESCRITURA  pues va asi

Código [Seleccionar] Expandir



Dim i As Integer
Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
If Text1.Text = "mar1" And Text2.Text = "mar1" Then
    MsgBox "Bienvenido a mi sistema"
   
Else

i = i - 1
Select Case i
Case 0
vez = "ninguna"
Case 1
vez = "una primera"
Case 2
vez = "una segunda"
End Select
End If
End Sub



Pues le doy el comand1 pero con el text1.text= "mar1" y igual con el text2 y me sale el mensaje de bienvenido al sistema y si en el text1 y text2 coloco otro palabras, no sale nada  . Pues creo que ya esta. Pero mi duda es para que esto?

Código [Seleccionar] Expandir


i = i - 1
Select Case i
Case 0
vez = "ninguna"
Case 1
vez = "una primera"
Case 2
vez = "una segunda"


[Novlucker]

Supongo que para mostrar a alguien la cantidad de intentos que le quedan... pero en el code no se implementa en ningún lado   

Saludos

[stork32]

Pues sii creo que si 

Bueno Gracias  todos aqui se cierra este tema   

Saludos!   

PD: Quiza al rato abra otro Tema para mas dudas    :laugh:

[Spider-Net]

stork32 ese programa no está acabado tio.

Yo creo que sería algo así:

Código (vb) [Seleccionar] Expandir

Dim i As Integer

Private Sub Command1_Click()
End
End Sub

Private Sub Command2_Click()
If Text1.Text = "mar1" And Text2.Text = "mar1" And i < 3 Then
    MsgBox "Bienvenido a mi sistema"
Else
i = i + 1
Select Case i
    Case 1
        vez = "una primera"
    Case 2
        vez = "una segunda"
    Case 3
        vez = "una tercera"
    Case Else
        vez = "No quedan intentos"
    End Select
   
    MsgBox vez
End If
End Sub

Se puede hacer de otras maneras, pero esa sería una correcta.