Informe de diseño Creación de una registradora de datos

Informe de diseño

Creación de una registradora de datos

Pasos para crear una registradora de Datos

• Primero abrimos Visual Basic escogemos la opción Exe Estándar.

• Nos saldrá un formulario al cual le pondremos el nombre Zona Activa Registradora de Datos

• Luego creamos dos Frame tres Label, tres List Box y cuatro Command Button. Dentro del Frame numero uno agregamos un Label y un Combo Box.En el otro Frame le agregamos tres Option Button.

• Luego que creamos los objetos le ponemos estilo, color, fuente al formulario.

Pasos para la codificación

• En el Command agregar ponemos la siguiente Codificación.

Option Explicit

Private Sub Command1_Click ()

'elemento faltante

If Nombre = "" Then

MsgBox "debe de ingresar un nombre para poder agregar un elemento", vbExclamation, "verifique"

Edad.Text = ""

Radio1.Value = False

Radio2.Value = False

Radio3.Value = False

List2.Clear

List3.Clear

End If

'agregar nombre

List1.AddItem (Nombre. Text)

'agregar edad

List2.AddItem (Edad.Text)

'agregar turno

If Radio1.Value = True Then

List3.AddItem "Mañana"

End If

If Radio2.Value = True Then

List3.AddItem "Tarde"

End If

If Radio3.Value = True Then

List3.AddItem "Noche"

End If

'campos en blanco

Nombre.Text = ""

Edad.Text = " - Elige o Escribe Tu Edad -”

Radio1.Value = False

Radio2.Value = False

Radio3.Value = False

End Sub

• En el Command Quitar ponemos la siguiente codificación

Private Sub Command2_Click ()

If List1.ListIndex <> -1 Then

List1.RemoveItem List1.ListIndex

End If

If List2.ListIndex <> -1 Then

List2.RemoveItem List2.ListIndex

End If

If List3.ListIndex <> -1 Then

List3.RemoveItem List3.ListIndex

End If

End Sub

• En el Command Limpiar ponemos la siguiente codificación

Private Sub Command3_Click ()

List1.Clear

List2.Clear

List3.Clear

End Sub

• En el Command Cerrar ponemos la siguiente codificación

...