Mostrar Mensajes

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


Temas - TrackerX

Páginas: [1]
1
Visual Basic / Como usar el Progressbar
« en: 25 de Julio de 2012, 00:16:57 am »
Saludos Phperos, he aqui con un nuevo tema "Como usar el Progressbar"

Iniciemos

-Añadimos 1 ProgressBar
-Nos vamos a proyecto>Agregar Windows Forms
-Añadimos 1 timer

-En el progressbar añadimos el siguiente codigo:
Citar
ProgressBar1.Value = 0
        ProgressBar1.Maximum = 100
        Timer1.Enabled = True
        Timer1.Interval = 20

-En el Timer añadimos el siguiente codigo:
Citar
If CONTADOR < 100 Then
            ProgressBar1.Value = CONTADOR
            CONTADOR = CONTADOR + 1
        Else
            Form2.StartPosition = FormStartPosition.CenterScreen
            Form2.Visible = True
            Me.Visible = False
            Timer1.Enabled = False
            MsgBox("Bienvenidos al Form2")
        End If

Es todo amigos :)

2
Visual Basic / [Crear] Simple Login de usuarios
« en: 24 de Julio de 2012, 22:57:37 pm »
Saludos phperos

Iniciemos  :)

-Añadimos 2 Label
-Añadimos 2 TextBox
-Añadimos 1 Button

-En button1 colocamos este codigo
Citar
If TextBox1.text ="TrackerX" and textbox2.text ="123456" Then
Form2.show()
Me.close()
MsgBox("Logueado Correctamente!", msgboxstyle.information, "Informacion")
Else
MsgBox("Password / Usuario incorrecto/s", msgboxstyle.critical, "ERROR")
End if

- Nos vamos a Proyecto> Agregar Windows Forms
- Nuevamente a Proyecto>Propiedades>Modo de Apagado>Al cerrar el ultimo formulario
- Nos Vamos a Form2

-Añadimos 1 Label (Bienvenido)
-Añadimos 2 Button (Desconectarse/Salir)

En button1 (Desconectarse), Ingresamos este código
Citar
Form1.Show()
Me.close


En button2 (Salir), Ingresamos este codigo
Citar
Me.close()

Para que el logueo sea correcto, se identifican así Usuario: TrackerX y Password: 123456

-Imagenes







3
Visual Basic / Keygen en Visual Basic
« en: 24 de Julio de 2012, 21:41:24 pm »
Saludos Phperos, Iniciemos  :)

-Añadimos 2 button (Generar código/Salir)
-Añadimos 1 Label (Código)
-Añadimos 1 TextBox

-En Button1 (Generar Codigo) añadimos el siguiente codigo
Citar
TextBox1.Text = Int(Rnd() * 4)
Select Case TextBox1.Text
Case 1
TextBox1.Text = "Texto 1"
Case 2
TextBox1.Text = "Texto 2"
Case 3
TextBox1.Text = "Texto 3"
Case 4
TextBox1.Text = "Texto 4"
End Select

-En Button2 (Salir)
Citar
Me.Close()

-Imagen






Páginas: [1]