terminologia

TRABAJO RECOPILATORIO

INTRODUCCIÓN Y PROGRAMACIÓN EN VISUAL BASIC (6.0)


Curso: 6to “Q.Q.B.B.”

Tema: Síntesis de programación en visual Basic (6.0)


LA SIGUIENTE PRESENTACIÓN, ES UNA SÍNTESIS DE TEORÍA Y ESJERCICIOS PRÁCTICOS HECHOS EN EL AULA
SOBRE PROGRAMACIÓN VISUAL EN
VISUAL BASIC (6.0).



EJERCICIOS

Ejercicio 1:

Este ejercicio consiste en elaborar un relojdigital intermitente.

Paso 1: Diagramación







Paso 2: Propiedades


CONTROL
PROPIEDAD
VALOR
Form
Caption
Reloj Digital
Intermitente
Label
Name
Lb/Hora

Alignment
2- Center

Caption
2- Center

Font
Arial, negrita, 20

Tag
Mostrar Hora
Timer
Interval
500

Enabled
True


Paso 3: Programación

Label:

If LbHora.Tag = "Mostrar Hora" ThenLbHora.Caption = Time
LbHora.Tag = "Ocultar Hora"
Else
LbHora.Caption = " "
LbHora.Tag = "Mostrar Hora"
End If




Ejercicio 2:

Este ejercicio consiste en elaborar un formulario que contenga estos elementos:
Formulario, Text Box, Command Button1, Command Button2

Paso 1: Diagramación






Paso 2: Propiedades

CONTROL
PROPIEDAD
VALOR
Form1
CaptionFormular Mensaje
Text Box
Name
Text Mensaje

Text
“ ”

Font
Arial, Negrita, Tamaño 18
Command1
Name
End Mensaje

Caption
Mensaje
Command2
Name
End Salir

Caption
Salir


Paso 3: Programación

Text Box:

TxtMensaje.Text = "Programando en Visual Basic"
End Sub

Ejercicio 3:

Este ejercicio me permite implementar el botón Check Box a un programa




Paso1: Diagramación



Paso 2: Propiedades

CONTROL
PROPIEDAD
VALOR
Form
Caption
Formulario
Formato
Text Box
Nombre
TxtFormato

Text
“ ”
Check Box 1
Nombre
ChkNegrita

Caption
& Negrita
Check Box 2
Nombre
ChkCursiva

Caption
& Cursiva
Check Box 3
Nombre
ChkMayuscula

Caption
& Mayuscula
Check Box 4
Nombre
ChkColorRojo

Caption
Color & RojoCommand Button Frame
Caption
Salir

Caption
Formatos

Paso 3: Programación

Check Box Negrita:
If ChkNegrita.Value = 1 Then
TxtFormato.Font.Bold = True
Else
TxtFormato.Font.Bold = False
End If

Check Box Cursiva:
If ChkCursiva.Value = 1 Then
TxtFormato.Font.Italic = True
Else
TxtFormato.Font.Italic = False
End If

Check Box Mayúscula:
If ChkMayuscula.Value = 1 Then
TxtFormato =UCase(TxtFormato)
Else
TxtFormato = LCase(TxtFormato)
End If




Check Box Color Rojo:
If ChkColorRojo.Value = 1 Then
TxtFormato.ForeColor = RGB(255, 0, 0)
Else
TxtFormato.ForeColor = RGB(0, 0, 0)
End If

Ejercicio 4:

Este ejercicio me permite implementar varios botones Check Box a un programa, y usarlos para poder cambiar las características de las letras digitadas enText Box.

Paso 1: Diagramación





Paso 2: Propiedades

CONTROL
PROPIEDAD
VALOR
Form
Caption
Formulario
Formato
Text Box
Nombre
TxtFormato

Text
“ ”
Check Box 1
Nombre
ChkNegrita

Caption
& Negrita
Check Box 2
Nombre
ChkCursiva

Caption
& Cursiva
Check Box 3
Nombre
ChkMayuscula

Caption
& Mayuscula
Check Box 4
Nombre
ChkColorRojo

CaptionColor & Rojo
Check Box 5
Nombre
chkalgerian

Caption
Algerian
Check Box 6
Nombre
chkarial

Caption
Arial
Check Box 7
Nombre
chkbroadway

Caption
Broadway
Check Box 8
Nombre
chkcentaur

Caption
Centaur
Check Box 9
Nombre
chkchiller

Caption
Chiller
Command Button Frame
Caption
Salir

Paso 3: Programación

Check Box Negrita:
If ChkNegrita.Value = 1 ThenTxtFormato.Font.Bold = True
Else
TxtFormato.Font.Bold = False
End If

Check Box Cursiva:
If ChkCursiva.Value = 1 Then
TxtFormato.Font.Italic = True
Else
TxtFormato.Font.Italic = False
End If

Check Box Mayúscula:
If ChkMayuscula.Value = 1 Then
TxtFormato = UCase(TxtFormato)
Else
TxtFormato = LCase(TxtFormato)
End If

Check Box Color Rojo:
If ChkColorRojo.Value = 1 Then...