INFORMATICA

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 visualizadaen la barra 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 AsInteger, FechaNa As Date
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 listade Expresiones
Función Spc
Inserta 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 Marquina2

FORMATOS DE SALIDA:
Patrón
Entrada: 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

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

Función Format
Metodo.Format(variable, “formato”)Ejemplo: Print.Format(n,”#,##0,00”)
EJERCICIO:
Crear un formulario y los siguientes 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

Objeto: Label

Objeto: Label

Objeto: TextBox

Nombre
Caption
Font
ForeColorNombre
Caption
Font
ForeColor

Nombre
Text
Font
ForeColor

LblIntProd
Interés Producto
Arial, 12, negrita
Negro

LblCapital
Capital
Arial, 12, negrita
Negro

LblCapitAcum
Capital Acumulado
Arial, 12, negrita
Negro

Nombre
Caption
Font
ForeColor

LblInteres
% de Interés
Arial, 12, negrita
Negro

TxtCapital
Arial, 12, negrita
Negro

Objeto: TextBox

Objeto:TextBox

Objeto: TextBox

Nombre
Text
Font
ForeColor

Nombre
Text
Font
ForeColor

Nombre
Text
Font
ForeColor

TxtInteres
Arial, 12, negrita
Negro

TxtIntProd
Arial, 12, negrita
Negro

TxtCapAcum
Arial, 12, negrita
Negro

Objeto: CommandButton
Nombre
Caption
Font

BtnCalcular
&Calcular
Arial, 12, negrita

Ing. Raymond Marquina

3

Escriba el siguientecó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 unaaplicació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...