el trabajo era mas que nada en numeros, no me deja poner un link para que puedan bajar el juego pero buen aca les dejo el codigo final
Option Explicit
Dim strnum As String
Dim byterr As Byte
Dim S_MIN, S_SEC As Integer
Private Sub cmdprocesar_Click()
Dim i As Byte
Dim j As Byte
Dim pbueno As Integer
Dim pmedio As Integer
Dim pmalo As Integer
Dim bueno As Integer
Dim medio As Integer
Dim malo As Integer
Dim a As Boolean
Dim b As String
b = Txtnumero.Text
For i = 1 To Len(Txtnumerofinal.Text)
For j = 1 + i To Len(Txtnumerofinal.Text)
If Mid(Txtnumerofinal, i, 1) = Mid(Txtnumerofinal, j, 1) Then
MsgBox "SOLO NUMEROS DISTINTOS"
Txtnumerofinal.Text = ""
Txtnumerofinal.SetFocus
Exit Sub
End If
Next
Next
If Not IsNumeric(Txtnumerofinal.Text) Then
MsgBox "SOLO SE PERMITEN NUMEROS"
Txtnumerofinal.Text = ""
Txtnumerofinal.SetFocus
Exit Sub
Else
If Txtnumerofinal.Text = "" Then
MsgBox "SOLO NUMEROS DISTINTOS"
Txtnumerofinal.Text = ""
Txtnumerofinal.SetFocus
Exit Sub
Else
If Len(Txtnumerofinal.Text) <> 4 Then
MsgBox "SOLO NUMEROS DISTINTOS"
Txtnumerofinal.Text = ""
Txtnumerofinal.SetFocus
Exit Sub
End If
End If
End If
For i = 1 To Len(Txtnumerofinal.Text)
a = False
j = 1
bueno = 0
medio = 0
malo = 0
Do While a = False And j <= 9
If Mid(Txtnumerofinal.Text, i, 1) = Mid(b, j, 1) Then
If i = j Then
bueno = 1
medio = 0
malo = 0
Else
medio = 1
bueno = 0
malo = 0
End If
a = True
Else
If bueno = 0 And medio = 0 Then
malo = 1
bueno = 0
medio = 0
End If
End If
j = j + 1
Loop
pbueno = pbueno + bueno
pmedio = pmedio + medio
pmalo = pmalo + malo
Next
Txtmalo.Text = pmalo
Txtmedio.Text = pmedio
Txtbueno.Text = pbueno
If Txtbueno = 4 Then
MsgBox "ENHORABUENA HAS GANADO " & Txtnumero.Text
End
End If
If Txtbueno.Text & 4 Then
byterr = byterr + 1
lblVer.Caption = "" & byterr & " de 10"
End If
If byterr = 10 Then
MsgBox "PERDISTE EL NUMERO ERA: " & Txtnumero.Text
End
End If
Txtnumerofinal = ""
Txtnumerofinal.SetFocus
Print Txtnumerofinal; ""
End Sub
Private Sub Cmdorde_Click()
Dim strg As String
Dim i As Integer
Dim j As Integer
Dim numeric As Integer
Timer = True
For i = 1 To Len(Txtnumero.Text)
For j = 1 + i To Len(Txtnumero.Text)
If Mid(Txtnumero, i, 1) = Mid(Txtnumero, j, 1) Then
MsgBox "SOLO NUMEROS"
Txtnumero.Text = ""
Txtnumero.SetFocus
Exit Sub
End If
Next
Next
If Not IsNumeric(Txtnumero.Text) Then
MsgBox "INGRESE SOLO NUMEROS"
Txtnumero.Text = ""
Txtnumero.SetFocus
Exit Sub
Else
If Txtnumero.Text = "" Then
MsgBox "INGRESE SOLO NUMEROS"
Txtnumero.Text = ""
Txtnumero.SetFocus
Exit Sub
Else
If Len(Txtnumero.Text) <> 4 Then
MsgBox "INGRESE SOLO NUMEROS"
Txtnumero.Text = ""
Txtnumero.SetFocus
Exit Sub
End If
End If
End If
Franum.Visible = False
Framegame.Visible = True
Cmdprocesar.Enabled = True
Txtnumerofinal.Enabled = True
Txtnumerofinal.SetFocus
End Sub
Private Sub CmdSalir_Click()
End
End Sub
Private Sub cmdsalir2_Click()
End
End Sub
Private Sub Txtnum_Change()
End Sub
Private Sub Command1_Click()
MsgBox "EL JUEGO DE TRATA DE INGRESAR 4 NUMEROS DISTINTOS Y TRATAR DE ACERTAR LOS NUMEROS I SU CORRESPONDIENTE LUGAR SOLO TIENES 10 OPORTUNIDADES "
End Sub
Private Sub Form_Load()
End Sub
Private Sub Timer_Timer()
S_SEC = S_SEC + 1
If S_SEC = 60 Then
S_SEC = 0
S_MIN = S_MIN + 1
End If
If S_SEC < 10 Then
Label5.Caption = Str$(S_MIN) + ":0" + Str$(S_SEC)
Else
Label5.Caption = Str$(S_MIN) + ":" + Str$(S_SEC)
End If
End Sub
Public Sub initilize()
SI = 0
TI = 0
Counter = 0
S_MIN = 0
S_SEC = 0
Dim X, Y, w, Z As Integer
X = Int(10)
Time(0) = X
Y = Int(10)
Do While (X = Y)
Y = Int(10)
Loop
Time(1) = Y
Z = Int(10)
Do While (X = Z) Or (Y = Z)
Z = Int(10)
Loop
Time(2) = Z
w = Int(10)
Do While (w = Y) Or (w = X) Or (w = Z)
w = Int(10)
Loop
Time(3) = w
End Sub
Mostrar Mensajes
