Programacion

UNIDAD EDUCATIVA FISCOMISIONAL
DON BOSCO



PROGRAMACION




NAVEGADORES



PEDRO A. MEZA M.




2009-2010

OBJETIVOS

Aprender sobre el tema, a través de este medio detrabajo para argumentar mi éxito de conocimiento y utilizar esta información en el futuro.



Justificación.-

Este trabajo lo realizo por interés propio y con la finalidad de conocer más sobre loque es el mantenimiento de una PC.






































MARCO TEORICO

Este programa se hizo con bastantes componentes de Visual Basic 6.0Primero se puso una carátula con un progress bar para que salga un cargando para que pase al segundo formulario en el segundo formulario hay una password que se tiene que ingresar la clave y elusuario para pasar al tercer formulario. En el tercer formulario hay que ingresar los datos personales de la persona una vez ingresados se aprieta el botón de siguiente y pasa al cuarto formulario. En elcuarto formulario esta como hacer un mantenimiento a nuestra PC.

FORMULARIO 1

Dim i As Long

Private Sub Form_Activate()


ProgressBar2.Max = 20000
For i = 0 To ProgressBar2.MaxProgressBar2.Value = i
Lbl_cargar = CLng((ProgressBar2.Value * 100) / ProgressBar2.Max) & " %"
DoEvents
Next
Frm.Hide
cmd.Show
End Sub

Private Sub ProgressBar2_MouseDown(Button As Integer,Shift As Integer, x As Single, y As Single)

End Sub

FORMULARIO 2

Private Sub Cmd_aceptar_Click()
usuario = "pedro"
clave = 874521

If Txt_usuario.Text = usuario And Txt_ingreseclav.Text =clave Then
cmd.Hide
Form1.Show

Else

If Txt_usuario.Text = usuario And Txt_ingreseclav.Text clave Then
MsgBox "La Contraseña es Incorrecta"
Txt_usuario.Text = ""
Txt_ingreseclav.Text = ""Else
If Txt_usuario.Text usuario And Txt_ingreseclav.Text = clave Then
MsgBox "El Usuario es Incorrecto"
Txt_usuario.Text = ""
Txt_ingreseclav.Text = ""
Else
If Txt_usuario.Text usuario And...