Programación

Programa de Los Días de la Semana en Ingles

Tabla de Objetos y Propiedades

Control

Propiedad

Valor

FrmDias Nombre FrmDias
Caption Dias de la Semana
Heigth 5535
Width 7395
Start Up Position 2- Center Screen
LblTitulo01 Nombre LblTitulo01
Caption Los Días en Ingles
Auto Size True
Fon Estilo Negrita
Fon Tamaño 12
LblTitulo02 Nombre LblTitulo02
Caption Elaborado por Luis Salgado
Auto Size True
Fon Estilo Negrita
Fon Tamaño 10
LblDias Nombre LblDias
Caption Domingo   Lunes   Martes  Miércoles   Jueves   Viernes  Sábado
Height 1455
Width 975
LblMensaje Nombre LblMensaje
Caption Vacio
Height 1455
Width 975
CmdTraducir Nombre CmdTraducir
Caption &Traducir
ToolTipText Traduce los Días al Ingles
CmdLimpiar Nombre CmdLimpiar
Caption &Limpiar
ToolTipText Limpia la Traducción
CmdCerrar Nombre CmdCerrar
Caption &Cerrar
ToolTipText Cierra el Programa

Codificación

Private Sub CmdCerrar_Click()

End

End Sub

Private Sub CmdLimpiar_Click()

LblMensaje.Caption = “”

End Sub

Private Sub CmdTraducir_Click()

LblMensaje.Caption = “Sunday   Monday   Tuesday      Wednesday  Thursday  Friday  Sathurday”

End Sub

Programa en Pantalla

Los Dias de la Semana

Programa de Los Mese del Año en Ingles

Tabla de Objetos y Propiedades

Control

Propiedad

Valor

FrmMes Nombre FrmMes
Caption Los Meses
Heigth 5535
Width 7395
Start Up Position 2- Center Screen
LblTitulo1 Nombre LblTitulo1
Caption Los Meses del Año
Auto Size True
Fon Estilo Negrita
Fon Tamaño 12
LblTitulo2 Nombre LblTitulo2
Caption Elaborado por Luis Salgado
Auto Size True
Fon Estilo Negrita
Fon Tamaño 10
LblMes Nombre LblMes
Caption Enero   Febrero  Marzo      Abril       Mayo     Junio       Julio    Agosto Septiembre Octubre  Noviembre  Diciembre
Height 1455
Width 975
LblMensaje Nombre LblMensaje
Caption Vacio
Height 1455
Width 975
CmdTraducir Nombre CmdTraducir
Caption &Traducir
ToolTipText Traduce los Meses al Ingles
CmdLimpiar Nombre CmdLimpiar
Caption &Limpiar
ToolTipText Limpia la Traducción
CmdCerrar Nombre CmdCerrar
Caption &Cerrar
ToolTipText Cierra el Programa

Codificación

Private Sub CmdCerrar_Click()

End

End Sub

Private Sub CmdLimpiar_Click()

LblMensaje.Caption = “”

End Sub

Private Sub CmdTraducir_Click()

LblMensaje.Caption = “January  February      March      April         May            Jun            July      August   September  October  November  December”

End Sub

Programa en Pantalla

Los meses_______________________________________

Programa de Los Colores en Ingles

Tabla de Objetos y Propiedades

Control

Propiedad

Valor

FrmColores Nombre FrmColores
Caption Los Colores
Height 5550
Width 9120
StartUpPosition 2-CenterScreen
LblTitulo1 Nombre LblTitulo1
Caption Los Colores
AutoSize True
Fon Estilo Negrita
Fon Tamaño 12
LblTitulo2 Nombre LblTitulo2
Caption Elaborado Por Luis Salgado
AutoSize True
Fon Estilo Negrita
Fon Tamaño 10
LblColores Nombre LblColores
Caption Rojo       Azul  Morado  Cafe   Negro  Verde  Rosado  Amarillo  Anaranjado
Height 2355
Width 1095
Fon Tamaño 10
LblMensaje Nombre LblMensaje
Caption Vacio
Fon Tamaño 10
Height 2355
Width 1095
CmdTraducir Nombre CmdTraducir
Caption &Traducir
ToolTipText Traduce los Colores al Ingles
CmdLimpiar Nombre CmdLimpiar
Caption &Limpiar
ToolTipText Limpia la Traducción
CmdCerrar Nombre CmdCerrar
Caption &Cerrar
ToolTipText Cierra el Programa

Codificación

Private Sub CmdCerrar_Click()

End

End Sub

Private Sub CmdLimpiar_Click()

LblMensaje.Caption = “”

End Sub

Private Sub CmdTraducir_Click()

LblMensaje.Caption = “Red        Blue       Purple     Brown   Black  Green    Pink      Yellow  Orange”

End Sub

Programa en Pantalla

Colores_______________________________________

Propuestas:

N°1

Programa de De Signos

Tabla de Objetos y Propiedades

Control

Propiedad

Valor

FrmSignos Nombre FrmSignos
Caption Signos
BackColor &H00C00000& (Azul Oscuro)
Heigth 5250
Width 8625
StartUpPosition 2- Center Screen
LblTitulo Nombre LblTitulo
Caption Signos
Auto Size True
Fon Estilo Negrita
Fon Tamaño 12
BackColor &H00C00000& (Azul Oscuro)
LblTitulo02 Nombre LblTitulo02
Caption Elaborado por Gustavo
Auto Size True
Fon Estilo Negrita
Fon Tamaño 10
BackColor &H00C00000& (Azul Oscuro)
LblMensaje Nombre LblMensaje
Caption Vacio
BackColor &H00FF8080& (Azul Opaco)
Heigth 615
Width 5175
CmdLimpiar Nombre CmdLimpiar
Caption Li&mpiar
ToolTipText Limpia la Fecha del Signo
CmdCerrar Nombre CmdCerrar
Caption C&errar
ToolTipText Cierra el Programa
CmdAries Nombre CmdAries
Caption &Aries
ToolTipText Muestra las Fechas de Aries
BackColor &H8000000D& (Azul Cielo)
CmdTauro Nombre CmdTauro
Caption &Tauro
ToolTipText Muestra las Fechas de Tauro
BackColor &H8000000D& (Azul Cielo)
CmdGeminis Nombre CmdGeminis
Caption &Géminis
ToolTipText Muestra las Fechas de Geminis
BackColor &H8000000D& (Azul Cielo)
CmdCáncer Nombre CmdCáncer
Caption &Cáncer
ToolTipText Muestra las Fechas de Cancer
BackColor &H8000000D& (Azul Cielo)
CmdLeo Nombre CmdLeo
Caption &Leo
ToolTipText Muestra las Fechas de Leo
BackColor &H8000000D& (Azul Cielo)
CmdVirgo Nombre CmdVirgo
Caption &Virgo
ToolTipText Muestra las Fechas de Virgo
BackColor &H8000000D& (Azul Cielo)
CmdLibra Nombre CmdLibra
Caption L&ibra
ToolTipText Muestra las Fechas de Libra
BackColor &H8000000D& (Azul Cielo)
CmdEscorpion Nombre CmdEscorpion
Caption &Escorpion
ToolTipText Muestra las Fechas de Escorpion
BackColor &H8000000D& (Azul Cielo)
CmdSagitario Nombre CmdSagitario
Caption &Sagitario
ToolTipText Muestra las Fechas de Sagitario
BackColor &H8000000D& (Azul Cielo)
CmdCapricornio Nombre CmdCapricornio
Caption &Capricornio
ToolTipText Muestra las Fechas de Capricornio
BackColor &H8000000D& (Azul Cielo)
CmdAcuario Nombre CmdAcuario
Caption &Acuario
ToolTipText Muestra las Fechas de Acuario
BackColor &H8000000D& (Azul Cielo)
CmdPiscis Nombre CmdPiscis
Caption &Piscis
ToolTipText Muestra las Fechas de Piscis
BackColor &H8000000D& (Azul Cielo)

Codificación

Private Sub CmdAcuario_Click()

LblMensaje.Caption = “  21 de Enero – 21 de Febrero”

End Sub

Private Sub CmdAries_Click()

LblMensaje.Caption = “    21 de Marzo – 20 de Abril”

End Sub

Private Sub CmdCáncer_Click()

LblMensaje.Caption = “    22 de Junio – 22 de Julio”

End Sub

Private Sub CmdCapricornio_Click()

LblMensaje.Caption = “22 de Diciembre – 20 de Enero”

End Sub

Private Sub CmdCerrar_Click()

End

End Sub

Private Sub CmdEscorpion_Click()

LblMensaje.Caption = “23 de Octubre – 22 de Noviembre”

End Sub

Private Sub CmdGeminis_Click()

LblMensaje.Caption = “     22 de Mayo – 21 de Junio”

End Sub

Private Sub CmdLeo_Click()

LblMensaje.Caption = “   23 de Julio – 22 de Agosto”

End Sub

Private Sub CmdLibra_Click()

LblMensaje.Caption = “23 de Septiembre – 22 de Octubre”

End Sub

Private Sub CmdLimpiar_Click()

LblMensaje.Caption = “”

End Sub

Private Sub CmdPiscis_Click()

LblMensaje.Caption = “  22 de Febrero – 21 de Marzo”

End Sub

Private Sub CmdSagitario_Click()

LblMensaje.Caption = “23 de Noviembre – 21 de Diciembre”

End Sub

Private Sub CmdTauro_Click()

LblMensaje.Caption = “     21 de Abril – 21 de Mayo”

End Sub

Private Sub CmdVirgo_Click()

LblMensaje.Caption = “23 de Agosto – 22 de Septiembre”

End Sub

_______________________________________

N°2

Programa de  Zonas Hors

Tabla de Objetos y Propiedades

Control Propiedad Valor
FrmHorario Nombre FrmHorario
Caption Zonas Horarias
Height 4530
Width 9105
StartUpPosition 2-CenterScreen
Picture (Mapa de Bits)
LblTitulo Nombre LblTitulo
Caption Hora de Algunas Ciudades del Mundo
AutoSize True
Fon Estilo Negrita
Fon Tamaño 12
LblTitulo2 Nombre LblTitulo2
Caption Elaborado Por Gustavo D
AutoSize True
Fon Estilo Negrita
Fon Tamaño 10
LblMensaje Nombre LblMensaje
Caption Vacio
Height 615
Width 1215
Fon Estilo Negrita
TxtHora Nombre TxtHora
Text Vacios
Height 615
Width 1215
CmdCerrar Nombre CmdCerrar
Caption &Cerrar
TooTipText Cierra el Programa
CmdLimpiar Nombre CmdLimpiar
Caption L&impiar
TooTipText Limpia la Hora
CmdBogota Nombre CmdBogota
Caption &Bogota
ToolTipText Muestra Hora Actual de Bogota
CmdCiudadMex Nombre CmdCiudadMex
Caption Ciudad de &Mexico
ToolTipText Muestra Hora Actual de Mexico
CmdLosAngeles Nombre CmdLosAngeles
Caption &Los Angeles
ToolTipText Muestra Hora Actual de Los Angeles
CmdBuenosAires Nombre CmdBuenosAires
Caption Buenos &Aires
ToolTipText Muestra Hora Actual de Buenos Aires
CmdSantiago Nombre CmdSantiago
Caption &Santiago
ToolTipText Muestra Hora Actual de Santiago
CmdLondres Nombre CmdLondres
Caption L&ondres
ToolTipText Muestra Hora Actual de Londres
CmdVaticano Nombre CmdVaticano
Caption &Vaticano
ToolTipText Muestra Hora Actual del Vaticano
CmdDubai Nombre CmdDubai
Caption &Dubai
ToolTipText Muestra Hora Actual de Dubai
CmdIsrael Nombre CmdIsrael
Caption &Israel
ToolTipText Muestra Hora Actual de Israel
CmdHongKong Nombre CmdHongKong
Caption &HongKong
ToolTipText Muestra Hora Actual de Hong Kong
CmdSydney Nombre CmdSydney
Caption &Sydeny
ToolTipText Muestra Hora Actual de Sydney
CmdHawaii Nombre CmdHawaii
Caption Ha&waii
ToolTipText Muestra Hora Actual de Hawaii

Codificación

Private Sub CmdBogota_Click()

LblMensaje.Caption = Val(TxtHora) + 100

End Sub

Private Sub CmdBuenosAires_Click()

LblMensaje.Caption = Val(TxtHora) + 300

End Sub

Private Sub CmdCerrar_Click()

End

End Sub

Private Sub CmdCiudadMex_Click()

LblMensaje.Caption = Val(TxtHora)

End Sub

Private Sub CmdDubai_Click()

LblMensaje.Caption = Val(TxtHora) + 1000

End Sub

Private Sub CmdHawaii_Click()

LblMensaje.Caption = Val(TxtHora) – 400

End Sub

Private Sub CmdHongKong_Click()

LblMensaje.Caption = Val(TxtHora) + 1400

End Sub

Private Sub CmdIsrael_Click()

LblMensaje.Caption = Val(TxtHora) + 800

End Sub

Private Sub CmdLimpiar_Click()

LblMensaje.Caption = “”

TxtHora.Text = “”

End Sub

Private Sub CmdLondres_Click()

LblMensaje.Caption = Val(TxtHora) + 600

End Sub

Private Sub CmdLosAngeles_Click()

LblMensaje.Caption = Val(TxtHora) – 100

End Sub

Private Sub CmdSantiago_Click()

LblMensaje.Caption = Val(TxtHora) + 200

End Sub

Private Sub CmdSydney_Click()

LblMensaje.Caption = Val(TxtHora) + 500

End Sub

Private Sub CmdVaticano_Click()

LblMensaje.Caption = Val(TxtHora) + 700

End Sub

_______________________________________

Proramas de Manual

Nº1

 

Programa de Colores

Tabla de Objetos y Propiedades

Control

Propiedad

Valor

FrmColores Nombre FrmColores
Caption Colores
Height 5235
Width 7380
StartUpPosition 2-CenterScreen
FraColor Nombre FraColor
Caption Colores
Height 2055
Width 1222.689
FraPosición Nombre FraPosición
Caption Posición
Height 1575
Width 1222.689
OptRojo Nombre OptRojo
Caption Rojo
OptAzul Nombre OptAzul
Caption Azul
OptVerde Nombre OptVerde
Caption Verde
OptAmarillo Nombre OptAmarillo
Caption Amarillo
OptArriba Nombre OptArriba
Caption Arriba
OptEnMedio Nombre OptEnMedio
Caption En Medio
OptAbajo Nombre OptAbajo
Caption Abajo
TxtCaja Nombre TxtCaja
Text Vacio
Height 1695
Width 3239.496

Codificación

Private Sub OptAbajo_Click()

TxtCaja.Top = FrmColores.ScaleHeight – TxtCaja.Height

End Sub

Private Sub OptAmarillo_Click()

TxtCaja.BackColor = vbYellow

End Sub

Private Sub OptArriba_Click()

TxtCaja.Top = 0

End Sub

Private Sub OptAzul_Click()

TxtCaja.BackColor = vbBlue

End Sub

Private Sub OptEnMedio_Click()

TxtCaja.Top = FrmColores.ScaleHeight – TxtCaja.Width

End Sub

Private Sub OptRojo_Click()

TxtCaja.BackColor = vbRed

End Sub

Private Sub OptVerde_Click()

TxtCaja.BackColor = vbGreen

End Sub

Programa en Pantalla

Colores2


 Nº2

Programa de Mini Calculadora

Tabla de Objetos y Propiedades

Control

Propiedad

Valor

FrmMiniCal Nombre FrmMiniCal
Caption Mini Calculadora
Height 3810
Width 7920
StartUpPosition 2-CenterScreen
TxtN1 Nombre TxtN1
Text Vacio
Fon Tamaño 24
Fon Estilo Negrita
Height 1575
Width 1222.689
TxtN2 Nombre TxtN2
Text Vacio
Fon Tamaño 24
Fon Estilo Negrita
Height 1575
Width 1222.689
TxtResultado Nombre TxtResultado
Text Vacio
Fon Tamaño 24
Fon Estilo Negrita
Height 1575
Width 1222.689
LblOpcion Nombre LblOpcion
Caption Vacio
Fon Tamaño 23
Fon Estilo Negrita
LblIgual Nombre LblIgual
Caption =
Fon Tamaño 23
Fon Estilo Negrita
CmdSuma Nombre CmdSuma
Caption +
Fon Tamaño 23
Fon Estilo Negrita
CmdResta Nombre CmdResta
Caption
Fon Tamaño 23
Fon Estilo Negrita
CmdMultiplicar Nombre CmdMultiplicar
Caption *
Fon Tamaño 23
Fon Estilo Negrita
CmdDividir Nombre CmdDividir
Caption /
Fon Tamaño 23
Fon Estilo Negrita
CmdLimpiar Nombre CmdLimpiar
Caption &Limpiar

Codificación

Private Sub CmdDividir_Click()

TxtResultado.Text = Val(TxtN1) / Val(TxtN2)

LblOpcion.Caption = “/”

End Sub

Private Sub CmdLimpiar_Click()

TxtResultado.Text = “”

TxtN1.Text = “”

TxtN2.Text = “”

End Sub

Private Sub CmdMultiplicar_Click()

TxtResultado.Text = Val(TxtN1) * Val(TxtN2)

LblOpcion.Caption = “*”

End Sub

Private Sub CmdPotencia_Click()

TxtResultado.Text = Val(TxtN1) ^ Val(TxtN2)

LblOpcion.Caption = “^”

End Sub

Private Sub CmdResta_Click()

TxtResultado.Text = Val(TxtN1) – Val(TxtN2)

LblOpcion.Caption = “-”

End Sub

Private Sub CmdSuma_Click()

TxtResultado.Text = Val(TxtN1) + Val(TxtN2)

LblOpcion.Caption = “+”

End Sub

Programa en Pantalla

MiniCal


 Nº3

Programa de Conversion de Temperatura

Tabla de Objetos y Propiedades

Control

Propiedad

Valor

FrmTemperatura Nombre FrmTemperatura
Caption Conversor de Temperatura
Height 5415
Width 7110
StartUpPosition 2-CenterScreen
TxtCen Nombre TxtCen
Text 0
TxtFahr Nombre TxtFahr
Text 32
VsbTemperatura Nombre VsbTemperatura
Min 100
Max -100
SmallChange 1
LargeChange 10
Value 0
MnuArchivo Nombre MnuArchivo
Caption &Archivo
MnuSalir Nombre MnuSalir
Caption Salir
CmdSalir Nombre CmdSalir
Caption &Salir
LblCent Nombre LblCent
Caption Grados Centigrados
Fon Tamaño 10
LblFahr Nombre LblFahr
Caption Grados Fahrenheit
Fon Tamaño 10

Codificación

Private Sub CmdSalir_Click()

End

End Sub

Private Sub NmuSalir_Click()

End

End Sub

Private Sub VsbTemperatura_Change()

TxtCent.Text = VsbTemperatura.Value

TxtFahr.Text = 32 + 1.8 * VsbTemperatura.Value

End Sub

Programa en Pantalla

conversiones

Propuestas

Programa de Venta de un Carro

Tabla de Objetos y Propiedades

Control Propiedad Valor
FrmVenta de Carro Nombre FrmVenta de Carro
Caption Venta de Carro
Height 5625
Width 6300
StartUpPosition 2-CenterScreen
LblModelo Nombre LblModelo
Caption Modelo:
Fon Tamaño 12
AutoSize True
LblColor Nombre LblColor
Caption Modelo:
Fon Tamaño 12
AutoSize True
LblAño Nombre LblAño:
Caption Color:
Fon Tamaño 12
AutoSize True
LblUnion Nombre LblUnion
Caption Vacio
TxtModelo Nombre TxtModelo
Text Vacio
TxtColor Nombre TxtColor
Text Vacio
TxtAño Nombre TxtAño
Text Vacio
CmdUnir Nombre CmdUnir
Caption &Unir
CmdNuevo Nombre CmdNuevo
Caption &Nuevo
CmdCerrar Nombre CmdCerrar
Caption &Cerrar

 

Codificación

Private Sub CmdCerrar_Click()

End

End Sub

 

Private Sub CmdNuevo_Click()

LblUnion.Caption = “”

TxtModelo.Text = “”

TxtColor.Text = “”

TxtAño.Text = “”

End Sub

 

Private Sub CmdUnir_Click()

LblUnion.Caption = TxtModelo.Text & ” ” & TxtColor.Text & ” ” & TxtColor.Text

End Sub

Programa de Empresariales

Tabla de Objetos y Propiedades

Control Propiedad Valor
FrmEmpresariales Nombre FrmEmpresariales
Caption Empresariales
Height 5580
Width 6480
StartUpPosition 2-CenterScreen
LblEmpresariales Nombre LblEmpresariales
Caption Empresariales:
Fon Tamaño 12
AutoSize True
LblCargo Nombre LblCargo
Caption Cargo:
Fon Tamaño 12
AutoSize True
LblSueldo Nombre LblSueldo
Caption Sueldo:
Fon Tamaño 12
AutoSize True
LblUnion Nombre LblUnion
Caption Vacio
TxtEmpresa Nombre TxtEmpresa
Text Vacio
TxtCargo Nombre TxtCargo
Text Vacio
TxtSueldo Nombre TxtSueldo
Text Vacio
CmdUnir Nombre CmdUnir
Caption &Unir
CmdNuevo Nombre CmdNuevo
Caption &Nuevo
CmdCerrar Nombre CmdCerrar
Caption &Cerrar

 

Codificación

Private Sub CmdCerrar_Click()

End

End Sub

 

Private Sub CmdNuevo_Click()

LblUnion.Caption = “”

TxtEmpresariales.Text = “”

TxtCargo.Text = “”

TxtSueldo.Text = “”

End Sub

 

Private Sub CmdUnir_Click()

LblUnion.Caption = TxtEmpresariales.Text & ” ” & TxtCargo.Text & ” ” & TxtSueldo.Text

End Sub

Programa de los Dias

Tabla de Objetos y Propiedades

Control Propiedad Valor
FrmFecha Nombre FrmFecha
Caption Fecha
Height 5700
Width 5820
StartUpPosition 2-CenterScreen
LblDia Nombre LblDia
Caption Día:
Fon Tamaño 12
AutoSize True
LblMes Nombre LblMes
Caption Mes:
Fon Tamaño 12
AutoSize True
LblAño Nombre LblAño
Caption Año:
Fon Tamaño 12
AutoSize True
LblUnion Nombre LblUnion
Caption Vacio
TxtDia Nombre TxtDia
Text Vacio
TxtMes Nombre TxtMes
Text Vacio
TxtAño Nombre TxtAño
Text Vacio
CmdUnir Nombre CmdUnir
Caption &Unir
CmdNuevo Nombre CmdNuevo
Caption &Nuevo
CmdCerrar Nombre CmdCerrar
Caption &Cerrar

 

Codificación

Private Sub CmdCerrar_Click()

End

End Sub

 

Private Sub CmdNuevo_Click()

LblUnion.Caption = “”

TxtDia.Text = “”

TxtMes.Text = “”

TxtAño.Text = “”

End Sub

 

Private Sub CmdUnir_Click()

LblUnion.Caption = TxtDia.Text & ” ” & TxtMes.Text & ” ” & TxtAño.Text

End Sub

Programa de Especialidades de un Negocio

Tabla de Objetos y Propiedades

Control Propiedad Valor
FrmComida Nombre FrmComida
Caption Orden de Comida
Height 5160
Width 6015
StartUpPosition 2-CenterScreen
LblComida Nombre LblComida
Caption Comida:
Fon Tamaño 12
AutoSize True
LblRefresco Nombre LblRefresco
Caption Refresco:
Fon Tamaño 12
AutoSize True
LblPostre Nombre LblPostre
Caption Postre:
Fon Tamaño 12
AutoSize True
LblOrden Nombre LblOrden
Caption Vacio
TxtComida Nombre TxtComida
Text Vacio
TxtRefresco Nombre TxtRefresco
Text Vacio
TxtPostre Nombre TxtPostre
Text Vacio
CmdOrden Nombre CmdOrden
Caption &Orden
CmdNueva Nombre CmdNueva
Caption &Nueva
CmdCerrar Nombre CmdCerrar
Caption &Cerrar

 

Codificación

Private Sub CmdCerrar_Click()

End

End Sub

 

Private Sub CmdNueva_Click()

LblOrden.Caption = “”

TxtComida.Text = “”

TxtRefresco.Text = “”

TxtPostre.Text = “”

End Sub

 

Private Sub CmdOrden_Click()

LblOrden.Caption = TxtComida.Text & ” ” & TxtRefresco.Text & ” ” & TxtPostre.Text

End Sub

Programa de un Mall

Tabla de Objetos y Propiedades

Control Propiedad Valor
FrmTienda Nombre FrmTienda
Caption Tienda
Height 5625
Width 6300
StartUpPosition 2-CenterScreen
LblTienda Nombre LblTienda
Caption Tienda:
Fon Tamaño 12
AutoSize True
LblArticulo Nombre LblArticulo
Caption Articulo:
Fon Tamaño 12
AutoSize True
LblPrecio Nombre LblPrecio
Caption Precio:
Fon Tamaño 12
AutoSize True
LblUnion Nombre LblUnion
Caption Vacio
TxtTienda Nombre TxtTienda
Text Vacio
TxtArticulo Nombre TxtArticulo
Text Vacio
TxtPrecio Nombre TxtPrecio
Text Vacio
CmdUnir Nombre CmdUnir
Caption &Unir
CmdNuevo Nombre CmdNuevo
Caption &Nuevo
CmdCerrar Nombre CmdCerrar
Caption &Cerrar

 

Codificación

Private Sub CmdCerrar_Click()

End

End Sub

 

Private Sub CmdNuevo_Click()

LblUnion.Caption = “”

TxtTienda.Text = “”

TxtArticulo.Text = “”

TxtPrecio.Text = “”

End Sub

 

Private Sub CmdUnir_Click()

LblUnion.Caption = TxtTienda.Text & ” ” & TxtArticulo.Text & ” ” & TxtPrecio.Text

End Sub

Public Class FrmEdad

 

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles CmdCerrar.Click

End

End Sub

 

Private Sub CmdCalcular_Click(sender As Object, e As EventArgs) Handles CmdCalcular.Click

LblResultado.Text = TxtNombre.Text & “, ” & “su edad es: ” & Val(TxtActual.Text) – Val(TxtAño.Text)

End Sub

Programa de Edades

Tabla de objetos y propiedades

Control Propiedad Valor
FrmEdad Name FrmEdad
Text Programa para calcular edad
StarPosition CenterScreen
Size 300,256
LblNombre Name LblNombre
Text Ingrese nombre:
AutoSize True
LblAño Name LblAño
Text Ingrese año de nacimiento:
Autosize True
LblActual Name LblActual
Text Ingrese año actual
Autosize True
TxtNombre Name TxtNombre
Text Vacío
Size 133,20
txtAño Name TxtAÑo
Text Vacío
Size 100,20
TxtActual Name TxtActual
Text Vacío
Size 100,20
CmdCalcular Name CmdCalcular
Text &Calcular
Size 100,20
CmdNuevo NAME CmdNuevo
Text &Nuevo
Size 75,23
CmdCerrar Name CmdCerrar
Text &Cerrar
Size 75,23
LblResultado Name LblResultado
Text Vacío
Size 236,23
backColor ControlDark

 

Codificacion

Private Sub CmdNuevo_Click(sender As Object, e As EventArgs) Handles CmdNuevo.Click

TxtActual.Text = “”

TxtAño.Text = “”

TxtNombre.Text = “”

LblResultado.Text = “”

End Sub

End Class

 

Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google+ photo

Estás comentando usando tu cuenta de Google+. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

w

Conectando a %s

Instituto Monterrey

A %d blogueros les gusta esto: