Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - MANULOMM

#431
Nose Si Depronto esto te sirva, todo es cuestion de logica y saber un poco de caracteres Ascii, aqui lo que hize fue generar 5 numeros aleatorios 5 veces he ir componiendo la clave conviertiendo  los numero aleatorios (ascii) en caracteres mediante la funcion Chr$
El objetivo es que estudies bien el code todo es cuestion de analisis.... este lo acabo de hacer, no es tan dificil


Private Sub Command1_Click()
    Dim MAY As Integer 'Num Aleatorio Letras MAYUSCULAS
    Dim Num As Integer 'Num Aleatorio Numeros 0-9
    Dim LON As Integer 'Letra O Numero
    Dim i As Integer 'Control De Bucle
    Dim j As Integer 'Control De Bucle
    Dim Clave As String 'Clave Completa XXXXX-XXXXX-XXXXX-XXXXX-XXXXX
    For i = 1 To 5
        For j = 1 To 5
            Randomize
            LON = Rnd * 1
            If LON = 0 Then 'Si Es Verdadero Se Genera Letra MAYUSCULA
                Randomize
                MAY = Rnd * 24
                MAY = MAY + 65
                If j = 5 And i < 5 Then
                    Clave = Clave + Chr$(MAY) + "-"
                Else
                    Clave = Clave + Chr$(MAY)
                End If
            Else 'De lo contrario se genera un numero de 0 - 9
                Randomize
                Num = Rnd * 8
                Num = Num + 49
                If j = 5 And i < 5 Then
                    Clave = Clave + Chr$(Num) + "-"
                Else
                    Clave = Clave + Chr$(Num)
                End If
            End If
        Next j
    Next i
    MsgBox Clave
End Sub

Mira estos enlaces:
http://es.wikipedia.org/wiki/ASCII
http://www.google.com.co/search?hl=es&q=Ascii&meta=

Atentamente,

Juan Manuel Lombana
Medellín - Colombia
#432
Muchas Gracias Esto era lo que necesitaba.....

Atentamente,

Juan Manuel Lombana
Medellín - Colombia
#433
Hola Necesito saber como puedo aumentar o disminuir el volumen del pc.... me imagino que es alguna api, espero haberme explicado bien,

Atentamente,


Juan Manuel Lombana
#434
Programación Visual Basic / Re: Ventana de apagado
28 Diciembre 2006, 13:52 PM
muchas gracias ahora solo es pasar esto a codigo para modificar el registro del sistema..

Atentamente,


Juan Manuel Lombana
Medellín - Colombia
#435
Programación Visual Basic / Re: Ventana de apagado
28 Diciembre 2006, 05:19 AM
Bueno... como lo harias, podrias explicarme un poco más,

Atentamente,



Juan Manuel Lombana
Medellín - Colombia
#436
Programación Visual Basic / Ventana de apagado
27 Diciembre 2006, 16:25 PM
Hola, mi pregunta es si hay manera de ocultar la ventana de apagado de windows XP, osea que haga lo que se haga no se muestre, nisiquiera oprimiendo alt f4, que la unica manera de apagar sea por la shell desde un programa externo.

Gracias de antemano.


Atentamente,



Juan Manuel Lombana
Medellín - Colombia
#437
eso se presenta por que cada control adicional que insertas en tu proyecto requiere una OCX en este caso el control winsock, si te fijas en el cuadro de añadir componentes el la parte inferior veras la ruta donde se encuentra el ocx lo copias, y le dices a tu amigo que lo pege en laruta que viste ahora general mente es c:\windows\system32...

Atentamenete,



Juan Manuel Lombana
Medellín - Colombia
#438
he visto que estan utilizando la shell en los ejemplos pero esto tiene una desventaja y es que para que la shell se ejecute el programa se deve ejecutar en una sesion con permisos, mejor seria llamar a la api


Private Declare Function ExitWindowsEx Lib "User32" (ByVal uFlags   As Long, ByVal dwReserved As Long) As Long
'Constantes.
Const reiniciar = 2
Dim HoraR as string
Private Sub Form_Load()
    timer.interval = 1000
    timer.enabled = true
    HoraR = "15:00:00" ' Este es la hora en que se reinicia.
End Sub
Private Sub Timer1_Timer()
     if Time = HoraR then
         ExitWindowsEx(reiniciar, 0)
     end if
End Sub
'Agregar un timer al formulario


Atentamente,



Juan Manuel Lombana
Medellín - Colombia
#439
no creo que en vb 6.0 se pueda programar para dispositivos moviles, se que en vb.net si esposible...

Atentamente,


Juan Manuel Lombana
Medellín - Colombia
#440
es algo muy simple..

si tefijas tienes que cuando se de click en el label 3 del formulario resultado sale el nombre.


Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Label1.Caption = Label1.Caption & Str(cal)
If cal < 6 Then
Label2.ForeColor = RGB(255, 0, 0)
Label2.Caption = "REPROBADO"
Else
Label2.ForeColor = RGB(0, 0, 255)
Label2.Caption = "APROBADO"
End If
End Sub
'esto no debe de ir ahi sino en el load...
Private Sub Label3_Click()
Label3.Caption = Trim((Nom) & " Usted fue :")
End Sub

asi :


Private Sub Command1_Click()
End
End Sub

Private Sub Form_Load()
Label1.Caption = Label1.Caption & Str(cal)
Label3.Caption = Trim((Nom) & " Usted fue :")
If cal < 6 Then
Label2.ForeColor = RGB(255, 0, 0)
Label2.Caption = "REPROBADO"
Else
Label2.ForeColor = RGB(0, 0, 255)
Label2.Caption = "APROBADO"
End If
End Sub