Foro de elhacker.net

---------- Declaraciones ---------------
Declarar_Tabla (enteros) 
Declarar variable VALIDO (booleana)
Declarar Numero (entero)
---------- Asignar valores iniciales ----
Rellenar_tabla_con_valores_-1
VALIDO=FALSE
---------- Rutina Principal --------------
sub Cmd_Obtener_Numeros_Click()
   Iniciar_bucle_para_cada_número
      Numero=Obtener_número
      VALIDO=comprobar(Numero)   
      si valido entonces
         Meter_Elemento_En_Tabla
      si no
         Decrementar contador de bucle en 1
      fin si
   Fin_bucle
   Mostrar_tabla
EndSub

Function Comprobar(int Numero)
------------- Declarar Variable ---------
Contador (entero)

------------- Asignar valores iniciales ---
comprobar=true

------------- código ------------------------
Iniciar_bucle para recorrer la tabla con contador
   si tabla(contador) es igual a numero then
      comprobar=false
      salir de funcion
   endif
End Function

Function Mostar_Tabla()
------------- Declarar variable --------------
Contador (entero)

Iniciar_bucle con contador
   mostrar tabla(contador)
fin_bucle
End Function

Dim TablaNumeros(5) as integer

sub Command1_Click()
Dim Contador as integer, Valido as boolean, Numero as integer
   RellenarValores  'Llenar la tabla con valores -1
   for Contador=0 to 4 'una vez para cada número
      Numero=int(rnd*98)+1 'obtener número entre 1 y 99
      Valido=comprobar(Numero)   'saber si es válido
      if valido then
         tabla(Contador)=Numero 'meter número en tabla
      else
         Contador=Contador-1 'volver a calcular número
      endif
   Next Contador
   MostrarTabla 'mostrar los elementos de la tabla
EndSub

Sub RellenarValores()
dim Contador as integer
for Contador=0 to 4 'para cada elemento de la tabla
   tabla[contador]=-1 'poner valor -1
next x
End Sub

Sub MostrarTabla
dim Contador as integer
for Contador=0 to 4 'para cada elemento de la tabla
   lblnumero(contador)=tabla(contador) 'poner el número en pantalla
next x

Function Comprobar(Num as integer)
dim Contador as integer

Comprobar=true 'inicialmente se supone que el número es bueno
For Contador=0 to 4 'para cada elemento de la tabla
   if tabla(Contador)=numero then
      comprobar=false 'el número es malo
      exit function
   endif
next Contador
End Function

Private Sub cmdCalcular_Click()
    Dim n1 As Integer
    Dim n2 As Integer
    Dim n3 As Integer
    Dim n4 As Integer
    Dim n5 As Integer
    Randomize
    n1 = Int(Rnd * 99) + 1
    n2 = Int(Rnd * 99) + 1
    n3 = Int(Rnd * 99) + 1
    n4 = Int(Rnd * 99) + 1
    n5 = Int(Rnd * 99) + 1
    
    If n1 <> n2 And n1 <> n3 And n1 <> n4 And n1 <> n5 And n2 <> n3 And n2 <> n4 And n2 <> n5 And n3 <> n4 And n3 <> n5 And n4 <> n5 Then
        lbl1.Caption = n1
        lbl2.Caption = n2
        lbl3.Caption = n3
        lbl4.Caption = n4
        lbl5.Caption = n5
    Else
        cmdCalcular_Click
    End If
    
End Sub

Private Sub cmdImprimir_Click()
    On Error Resume Next
    cuadrodedialogo.CancelError = True
    cuadrodedialogo.ShowPrinter
    If Err = 0 Then
        Printer.Font = "Comic Sans MS"
        Printer.FontSize = 36
        Printer.Print " "
        Printer.Print "Los numeros generados por el LOTO son: " & vbCrLf & lbl1.Caption & " " & lbl2.Caption & " " & lbl3.Caption & " " & lbl4.Caption & " " & lbl5.Caption
        Printer.EndDoc
    End If
End Sub

Private Sub cmdSalir_Click()
    End
End Sub