elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Entrar al Canal Oficial Telegram de elhacker.net


  Mostrar Mensajes
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 [17]
161  Programación / Programación Visual Basic / Re: manual d vb en: 18 Junio 2006, 19:49 pm
Si no aprendes con este curso, mejor dedicate a otra cosa

http://www.mundoprogramacion.com/vb/cursos_vb/basico/indice.htm

salu2
162  Programación / Ejercicios / Re: ejercicio Nº1 de Visual basic en: 17 Junio 2005, 07:44 am
ya resolvi el reto, a mi me funciona bien no se que les paresca a ustedes

Código:
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

acepto sugerencias y notifiacion d error, un gran saludo
Páginas: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 [17]
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines