5. PROGRAMA DE PRACTICA

• Aplicación que permita capturar un numero y determinar cuantas cifras tiene. Generar el resultado en una caja de texto.

1. planeasion
*ingreso de numero
*determinar de cuantos digitos es.
*dar resultado en caja de texto.
1.1 lista de chequeo
*declarar variables
*darles valor
*operar
*resultados

2. interfaz grafica

3. programacion de eventos:

En este programa utilizamos el operador logico and. para saber las cifras es muy facil, declaramos una varible y le damos la logica. ejemplo: a<>0 and a < 9=" una">



Dim a As Long
Private Sub Command1_Click()
a = Val(Text1.Text)
If a > o And a <>Then
Text2.Text = "numero de una cifra"
End If

If a > 9 And a <= 99 Then
Text2.Text = "numero de dos cifras"
End If

If a > 99 And a <>Then
Text2.Text = "numero de tres cifras "
End If

If a > 999 And a <>Then
Text2.Text = "numero de cuatro cifras"
End If


para restringir las cifras utilizamos la propiedad maxleng.


hacemos el codigo en el coman de borrar y el codigo en el comand de salir y terminamos nuestro programa.

6. PROGRAMA DE PRACTICA

• programa que permita capturar un numero de 1 a 7 y dependiendo del numero nos diga que día de la semana es

1.planeacion
*numero de 1 a 7
*dias de la semana
1.1 lista de chequeo
*declarar variables
*asignar valor
*operar
*resultado caja de texto
*fin de la aplicación

2.Interfaz grafica

Programacion de eventos:

dim a as long

a=text1.text

Select Case a

Case 1
Text2.Text = "lunes"
Case 2
Text2.Text = "martes"
Case 3
Text2.Text = "miercoles"
Case 4
Text2.Text = "jueves"
Case 5
text3.Text = "viernes"
Case 6
Text2.Text = "sabado"
Case 7
Text2.Text = "domingo"
Case Else
Text2.Text = "numero no valido "
End Select
End Sub

Private Sub Command2_Click()
Text1.Text = ""
Text2.Text = ""
End Sub

Private Sub Command3_Click()
End
End Sub

EDITOR DE MENUS

El editor de menús es una herramienta utilizada para crear una barra de menús sobre un formulario activo


Este se encuentra ubicado en la opción herramientas del visual basic y está compuesto por tres partes

INFORMACIÓN DE ELEMENTOS

CAPTION: Aquí se escribe el nombre con el que aparecerá el menú en la barra de menús del formulario para tener acceso al menú por medio de la tecla "Alt" y una letra se coloca el símbolo ampersan "&" antes de la letra deseada.


Para crear una barra separada entre dos ordenes del menú se escribe un guión


NAME: En este recuadro se digita el nombre con que se identificara cada elemento del menú en el código del programa. Dicho nombre debe iniciar con letra; no puede tener espacios y su longitud no puede superar los 255 caracteres. además siempre debe llevar "Mnu"


INDEX: Aquí se asigna un valor numérico que identificara un elemento del menú en caso de que este pertenezca a un arreglo de controles.



SHORTCUT: De esta lista se puede definir una combinación de teclas para tener acceso a la opción por medio de una atajo de teclado.

CASILLAS DE VERIFICACIÓN

CHECKED: Esta casilla de verificación sirve para indicar si junto a la opción del menú aparecerá o no una marca de selección.

ENABLED: Establece si el elemento esta disponible o si aparece en el menú, pero no puede se seccionada.

VISIBLE: Define si la opción se muestra o no en el menú.

BOTONES DE ADMINISTRACIÓN

Representa la información que aparecerá en sus enunciados .

Es importante aclarar que el cuadro de dialogo editor de menús simplemente sirve para crear plantilla del menú es decir para que cada opción responda adecuadamente (en tiempo de ejecución) es necesario asociar las instrucciones de programación que deben ejecutarse cuando se seleccione algunas de las opciones.

EJEMPLO DE UN MENU

• programa donde sume dos numeros donde se calcule por medio de un menu y no de un comand button y el resultado lo de en una caja de texto.

En herramientas buscamos editor de menus, luego escribimos:
caption: & archivo
name: Mnuarchivo.

despues pulsamos siguiente con un nivel de sangria escribimos:
caption: &colores
name: Mnucolores.

pulsamos siguiente y colocamos dos niveles de sangria.
caption : amarillo
name : Mnuamarillo.

pulsamos siguiente y escribimos
caption: salir
name : Mnusalir

pulsamos siguiente y quitamos toda la sangria para hacer un menu al lado
caption: opciones
name:mnuopciones

siguiente y otro nivel de sangria
caption: borrar
name: borrar

si vas bien se deberá de ver de la siguiente manera.

luego buscamos en la interfaz grafica cada menu y le damos el codigo necesario par nuestro programa .

ejemplo:
Dim a As Long
Dim b As Long
Dim r As Long

Private Sub mnuamarillo_Click()
Form1.BackColor = &HFFFF&
End Sub

Private Sub mnuborrar_Click()
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
End Sub

Private Sub mnucalcular_Click()
a = Text1.Text
b = Text2.Text
r = a + b
Text3.Text = r
End Sub

Private sub mnusalir_Click()
End
End sub
en nuestra interfaz colocamos las tres cajas de texto y los dos label para terminar nuestra aplicacion.

METODOS GRAFICOS

Mediante los métodos gráficos se dibujan figuras sobre el formulario de acuerdo con unos valores especificados en el código del programa, es decir solo aparecerán durante la ejecución de la aplicación.

Los métodos gráficos incluidos en el lenguaje de programación son:

CIRCLE: Este método dibuja un circulo elipse o arco sobre un formulario u objeto picturebox o imagen.

sintaxis:
objeto.circle (x,y), radio[color]

LINE: Sirve para dibujar lineas y cuadriláteros sobre un formulario o un control picturebox.

sintaxis:
objeto.Line-(x,y), color

CLS: Es usado para limpiar la superficie de un control picturebox o de un formulario durante tiempo de ejecución.

sixtaxis
objeto.Cls

PSET: Dibuja un punto sobre un formulario o control picturebox, el tamaño del un punto, dibujado por el método pset depende del valor establecido en la propiedad drawwidth.

sintaxis:
objeto.pset (x,y), color

FUNCIONES

otros botones y sus propiedades

common Dialog


En Visual Basic 6.0, el control ActiveX CommonDialog se utiliza para mostrar varios cuadros de diálogos comunes (Abrir, Guardar, Color, Fuente, Imprimir y Ayuda) en la aplicación.

para encontrar este botón debemos de oprimir ctrl + t, y buscar microsoft common Dialog control 6.0 (sp3)

Algunos Códigos

7 programa de practica:

programa que cambie el fondo del formulario, muestre la ventana de guardar, abrir, cerrar y la de help por medio de 5 command button y el common dialog.

1planeasion

*cambiar fondo

*ventanas de abrir,cerrar,guardar,imprimir,ayuda.

2. inter faz grafica

3.programacion de eventos:

Private Sub Command1_Click() 'abrir
CommonDialog1.InitDir = "C:\Program Files"
CommonDialog1.ShowOpen
End Sub

Private Sub Command2_Click() 'color
CommonDialog1.ShowColor
Form1.BackColor = CommonDialog1.Color
End Sub

Private Sub Command3_Click() 'guardar
CommonDialog1.InitDir = App.Path
CommonDialog1.ShowSave
End Sub

Private Sub Command4_Click() 'Imprimir
CommonDialog1.FileName = App.Path & "MyFile.txt"
CommonDialog1.ShowPrinter
End Sub

Private Sub Command5_Click() 'help
CommonDialog1.HelpFile = "C:\Windows\Help\calc.hlp"
CommonDialog1.HelpCommand = cdlHelpContents
CommonDialog1.ShowHelp
End Sub