DISEÑO Y CODIFICACION

 MANEJAR VISUAL BASIC 6,0 ES SUPER FACIL EN ELLA APRENDERAS A RAZONAR ENTRE OTRAS COSAS A CONTINUACION TE DEJO ALGUNOS DISEÑOS Y LINEAS DE CODIGO SUPER FACIL DE REALIZAR

MENU DE INICIO

Private Sub Command6_Click()

Dim VAL As String

VAL = InputBox("DEME SU NOMBRE", " ")

MsgBox "SU NOMBRE ES:" & VAL

MENU.Hide

DATOS.Show

End Sub

Private Sub Command7_Click()

Dim VAL As String

VAL = InputBox("DEME SU NOMBRE", " ")

MsgBox "SU NOMBRE ES:" & VAL

Form6.Hide

Form5.Show

End Sub

Private Sub Command8_Click()

Dim VAL As String

VAL = InputBox("DEME SU NOMBRE", " ")

MsgBox "SU NOMBRE ES:" & VAL

Form6.Hide

Form7.Show

End Sub

Private Sub Command9_Click()

Dim VAL As String

VAL = InputBox("DEME SU NOMBRE", " ")

MsgBox "SU NOMBRE ES:" & VAL

Form6.Hide

Form8.Show

End Sub

Private Sub agregar_Click()

Dim NOMBRES  As String

NOMBRES = NOM.Text

Label4.Caption = NOMBRES

Dim APELLIDOS  As String

APELLIDOS = APE.Text

Label5.Caption = APELLIDOS

Dim EDAD As String

EDAD = EDA.Text

Label6.Caption = EDAD

Dim SEXO As String

SEXO = SEX.Text

Label7.Caption = SEXO

MsgBox "SE REGISTRO CON EXITO"

End Sub

Private Sub BORRAR_Click()

NOM.Text = ""

APE.Text = ""

EDA.Text = ""

SEX.Text = ""

End Sub

Private Sub Combo1_Click()

If Combo1.Text = "MASCULINO" Then

SEX.Text = "MASCULINO"

End If

If Combo1.Text = "FEMENINO" Then

SEX.Text = "FEMENINO"

End If

If Combo1.Text = "NO BINARIO" Then

SEX.Text = "NO BINARIO"

End If

End Sub

Private Sub Combo2_Click()

If Combo2.Text = "3" Then

EDA.Text = "3"

End If

If Combo2.Text = "4" Then

EDA.Text = "4"

End If

If Combo2.Text = "5" Then

EDA.Text = "5"

End If

If Combo2.Text = "6" Then

EDA.Text = "6"

End If

If Combo2.Text = "7" Then

EDA.Text = "7"

End If

If Combo2.Text = "8" Then

EDA.Text = "8"

End If

If Combo2.Text = "9" Then

EDA.Text = "9"

End If

If Combo2.Text = "10" Then

EDA.Text = "10"

End If

If Combo2.Text = "11" Then

EDA.Text = "11"

End If

If Combo2.Text = "12" Then

EDA.Text = "13"

End If

If Combo2.Text = "14" Then

EDA.Text = "14"

End If

If Combo2.Text = "15" Then

EDA.Text = "15"

End If

If Combo2.Text = "16" Then

EDA.Text = "16"

End If

If Combo2.Text = "17" Then

EDA.Text = "17"

End If

If Combo2.Text = "18" Then

EDA.Text = "18"

End If

If Combo2.Text = "19" Then

EDA.Text = "19"

End If

End Sub

Private Sub Command4_Click()

DATOS.Hide

MENU.Show

End Sub

Private Sub Form_Load()

Combo1.AddItem "MASCULINO"

Combo1.AddItem "FEMENINO"

Combo1.AddItem "NO BINARIO"

Combo2.AddItem "3"

Combo2.AddItem "4"

Combo2.AddItem "5"

Combo2.AddItem "6"

Combo2.AddItem "7"

Combo2.AddItem "8"

Combo2.AddItem "9"

Combo2.AddItem "10"

Combo2.AddItem "11"

Combo2.AddItem "12"

Combo2.AddItem "13"

Combo2.AddItem "14"

Combo2.AddItem "15"

Combo2.AddItem "16"

Combo2.AddItem "17"

Combo2.AddItem "18"

Combo2.AddItem "19"

End Sub

Private Sub SALIR_Click()

End

End Sub