Tutorial visual basic

VISUAL BASIC 6

GUIA 2

Ing. Raymond Marquina

1

ENTRADA Y SALIDA DE DATOS: En Visual Basic, una forma común de introducir datos es utilizando la caja de dialogo provista por InputBox. Su sintaxis es: Variable = InputBox(“Mensaje”,”Titulo”, Por_omisión, posX, posY) Donde: Mensaje: contiene el mensaje que indica al usuario que tipo de datos debe ingresar Titulo: sera visualizada en labarra de titulo de la caja de dialogo Por_omisión: indica la cadena de caracteres que aparecen de manera predeterminada Ejemplo: Crear un formulario con las siguientes propiedades: Name = EntradaSalida Caption = Ejemplo Autoredraw = true BackColor = White Codigo: Declare las siguientes variables en el objeto: General del procedimiento: Declaraciones Dim NomAp As String, Edad As Integer, FechaNa AsDate Escriba el siguiente código en el procedimiento Load del Form Private Sub Form_Load() ' Entrada de Datos NomAp = InputBox("Nombre y Apellidos:", "Ingreso de Datos") Edad = InputBox("Edad", "Ingreso de Datos") FechaNa = InputBox("Fecha de Nacimiento", "Ingreso de Datos") ' Salida de Datos Print NomAp Print Edad Print FechaNa End Sub Método Print Objeto.Print lista de Expresiones Función SpcInserta n espacios antes de imprimir la expresión especificada Spc (n) Ejemplo: Print Spc(12); “Nombre”; Spc(16); “Edad” Función Tab Indica la columna donde se desea que comience la impresión de una determinada expresión Tab (n) Ejemplo: Print Tab(13); “Nombre”; Tab(35); “Edad” NOTA: En ambas funciones es necesario el uso del punto y coma.
Ing. Raymond Marquina

2

FORMATOS DE SALIDA: PatrónEntrada: 5 Sin patrón 5 0 5 0.00 5,00 #,##0 5 #,##0.00 5,00 #,###,## 5, 0% 500% 0.00% 500,00% 0.00E+00 5,00E+00 0.00E-00 5,00E00 Función Format Metodo.Format(variable, “formato”) Ejemplo: Print.Format(n,”#,##0,00”)

Entrada: -5 -5 -5 -5,00 -5 -5,00 -5, -500% -500,00% -5,00E+00 -5,00E00

Entrada: .5 ,5 1 0,50 1 0,50 ,5 50% 50,00% 5,00E-01 5,00E-01

EJERCICIO: Crear un formulario y lossiguientes objetos, definiendo las siguientes propiedades sobre los mismos: Objeto: Formulario Objeto: Label Objeto: Label
Nombre CapitalInter Caption Capital e Intereses BackColor Blanco Nombre Caption Font ForeColor LblCapital Capital Arial, 12, negrita Negro Nombre Caption Font ForeColor LblInteres % de Interés Arial, 12, negrita Negro

Objeto: Label
Nombre Caption Font ForeColor LblIntProd InterésProducto Arial, 12, negrita Negro

Objeto: Label
Nombre Caption Font ForeColor LblCapitAcum Capital Acumulado Arial, 12, negrita Negro

Objeto: TextBox
Nombre Text Font ForeColor TxtCapital Arial, 12, negrita Negro

Objeto: TextBox
Nombre Text Font ForeColor TxtInteres Arial, 12, negrita Negro

Objeto: TextBox
Nombre Text Font ForeColor TxtIntProd Arial, 12, negrita Negro

Objeto:TextBox
Nombre Text Font ForeColor TxtCapAcum Arial, 12, negrita Negro

Objeto: CommandButton
Nombre Caption Font BtnCalcular &Calcular Arial, 12, negrita

Ing. Raymond Marquina

3

Escriba el siguiente código en el botón calcular: Private Sub BtnCalcular_Click() Dim Cap As Double, tp As Double Dim Formato As String Formato = "#,###,###,##0.00" Cap = TxtCapital.Text tp = TxtInteres.Text'Calculos redondeando resultados TxtIntProd.Text = Format(Int(Cap * tp / 100 + 0.5), Formato) TxtCapAcum.Text = Format(Cap + TxtIntProd.Text, Formato) End Sub EJERCICIOS PROPUESTOS: 1. Realizar una aplicación que convierta una cantidad dada en grados Centígrados a Fahrenheit y viceversa. Sabiendo que: Grados Fahr = (grados centígrados * 9 / 5)+32 Grados Cent = (Grados Fahrenheit – 32) * 5 / 9 2.Realizar un programa que pregunte el Nombre y el año de nacimiento y de cómo resultado la siguiente información: Hola: Nombre introducido En el año 2010 tendrás nn años CUADROS DE DIALOGO Función MsgBox MsgBox “mensaje”,Botones+Iconos,”Titulo” Valor Retornado = MsgBox “mensaje”,Botones + Iconos + Botón Default,”Titulo” Mensaje: contiene el mensaje que se desea visualizar Botones: se selecciona...