Manual VB6 eVB PDA

Universidad de Alcalá. Departamento de Electrónica

“Curso Programación de PDAs con
Visual Basic”

Rafael Barea

Universidad de Alcalá. Departamento de Electrónica

“Curso Programación de PDAs con
Visual Basic”
Introducción al Visual Basic 6.0
Rafael Barea

VB6
Ejecutar visual basic 6.0 y seleccionar aplicación EXE estandar

3

Universidad de Alcalá. Departamento de Electrónica

“CursoProgramación de PDAs con
Visual Basic”
Introducción al Visual Basic 6.0:
Menús
Rafael Barea

VB6 - MENU (I)
Diseño del menú ÷ Editor de menús (Herramientas/Editor de menus)

Caption: Título del menú
Name: Nombre utilizado en el código para referirse al menú
&: Acceso directo al menú ( Alt + tecla subrayada)
þ³: Sangrar: insertar elementos del submenu.
↑↓: Subir y bajar por el menú para insertar nuevoscomandos
- (guión): Separador
5

VB6 – MENU (II)
Ejercicio 1. Construir el siguiente menú

6

VB6 – MENU (III)
Ejercicio 2. Reloj despertador
1. Crear el siguiente formulario (Reloj.frm)
2. Editar el menú siguiente
Objeto
Menú Despertador

Propiedad
Caption
Name

Valor
&Despertador
MenuDespertador

Orden Despertar
No

Caption
Name

&DespertadorNo
DespertadorSiNo

Orden Cerrar

Caption
NameCaption
Name

&Cerrar
Cerrar
&Pais
MenuPais

Orden Añadir

Caption
Name

&Añadir
AñadirPais

Orden Borrar

Caption
Name
Caption
Name

&Borrar
BorrarPais
Separador

Caption
Name
Index
Visible

En blanco
Pais
0
Sin marcar

Menu Pais

Separador
Orden Pais(0)

7

VB6 – MENU (IV)
3. Añadir temporizador, etiquetas y cajas de texto
Objeto
Etiqueta

Propiedad
Caption
Name

Valor
Hora:
Label1

EtiquetaCaption
Name
Caption
Name
Name
Text

(ninguno)
Hora
Despertador:
Label2
Despertador
(nada)

Caption
Name
Caption
Name
Caption
Name

Hora en:
Label3
???
EtiquetaPais
(ninguno)
OtraHora

Name
Interval

Timer1
1000

Etiqueta
Caja de texto
Etiqueta
Etiqueta
Etiqueta
Temporizador

8

VB6 – MENU (V)
4. Añadir código en el formulario Reloj.frm
4.1. Presentar la hora actual mediante el Temporizador
PrivateSub Timer1_Timer()
Hora.Caption = Time
End Sub
Time devuelve un valor (Tipo Date) de la forma”hh:mm:ss”.
4.2. Detectar errores al introducir datos en la hora del despertador: sólo se pueden
introducir carácters 0-9 y :
Private Sub Despertador_KeyPress(KeyAscii As Integer)
Dim Car As String * 1
Car = Chr(KeyAscii)
If (Car < "0" Or Car > "9") And Car <> ":" Then
Beep
'aviso acústico
KeyAscii = 0'borrar carácter
End If
End Sub

9

VB6 – MENU (VI)
4.3. Activar o desactivar el despertador
a)

Definir variable global
Private DespertadorSi As Boolean

b)

Acciones a realizar al arrancar la aplicación
Private Sub Form_Load()
DespertadorSi = False
Despertador.Text = "00:00:00“
End Sub

c)

Modificar el timer
Private Sub Timer1_Timer()
If (Despertador.Text < CStr(Time) And DespertadorSi) ThenBeep: Beep: Beep
End If
Hora.Caption = Time
End Sub

10

VB6 – MENU (VII)
4.3. Activar o desactivar el despertador
d) Cambiar una orden del menú durante la ejecución
Private Sub DespertadorSiNo_Click()
If (DespertadorSi) Then
DespertadorSi = False
DespertadorSiNo.Caption = "Despertador No"
Else
DespertadorSi = True
DespertadorSiNo.Caption = "Despertador Si"
End If
End Sub
4.4. Menú Cerrar
PrivateSub Cerrar_Click()
End
End Sub

11

VB6 – MENU (VIII)
5. Añadir un nuevo formulario (DatosEnt.frm)

Objeto
Etiqueta
Caja de texto
Etiqueta
Caja de texto
Boton

Boton

Propiedad
Caption
Name
Name
Text

Valor
Pais:
Label1
PaisEnt
(nada)

Caption
Name
Name
Text
Caption
Name
Default

Diferencia horaria:
Label2
DifHora
(nada)
Aceptar
Aceptar
True

Caption
Name

Cancelar
Cancelar

12

VB6 – MENU(IX)
6. Añadir un módulo (reloj.bas) para almacenar la declaración de la estructura
PaisHora
Type TipoPaísHora
País As String * 20
DifH As Integer
End Type
Public PaísHora() As TipoPaísHora 'matriz dinámica
Public NumPaíses As Integer
7. Añadir órdenes a un menú durante la ejecución (Cuando se pulsa Pais/Añadir) en
el formulario Reloj.frm
Private Sub AñadirPaís_Click()
DatosEnt.Show vbModal
If...