mariainteriano.files.wordpress.com€¦  · Web viewEl programa está diseñado para que cuando se...

Post on 07-Oct-2020

6 views 0 download

Transcript of mariainteriano.files.wordpress.com€¦  · Web viewEl programa está diseñado para que cuando se...

Tablas de Resultado y Codificación

Programas sencillos en Visual Basic

Elaborado por: María José Díaz Interiano y Sandy Paola García Ramos

Blog de Sandy García: sandypaolagarcia.wordpress.com

Blog de María Interiano: mariainteriano.wordpress.com

Los colores

El programa está diseñado para que cuando se apreté el botón (por ejemplo) rojo, traduzca la palabra rojo al inglés, si toca azul traduciré el azul y así sucesivamente.

Tabla de Objetos y PropiedadesControl Propiedad ValorFrmLosColores Name FrmLosColores

Caption Los ColoresHeight 8000Widch 6000BackColor &H008080FF& (Rosado)

LblRed Name LblRedCaption (Vacío)Height 615Widch 1815BacKColor &H000000FF& (Rojo)

LblBlack Name LblBlackCaption (Vacío)Height 615Widch 1815BackColor &H0000000000& (Negro)

LblBrown Name LblBrownCaption (Vacío)Height 615Widch 1815BackColor &H00004080& (Café)

LblGreen Name LblGreenCaption (Vacío)Height 615Widch 1815BackColor &H0000FF00& (Verde)

LblPurple Name LblPurpleCaption (Vacío)Height 615Widch 1815BackColor &H00C000C0& (Morado)

LblOrange Name LblOrangeCaption (Vacío)Height 615Widch 1815BackColor &H00080FF& (Anaranjado)

LblYellow Name LblYellowCaption (Vacío)Height 615Widch 1815

BackColor &H0000FFFF& (Amarillo)LblBlue Name LblBlue

Caption (Vacío)Height 615Widch 1815BackColor &H00C0000& (Azul)

Control Propiedad ValorLblPink Name LblPink

Caption (Vacío)Height 615Widch 1815BackColor &H00FF80FF& (Rosado)

CmdRojo Name CmdRojoCaption &RojoHeight 615Widch 1815Tool Tip Text Traduce el Rojo

CmdNegro Name CmdNegroCaption &NegroHeight 615Widch 1815Tool Tip Text Traduce el Negro

CmdCafe Name CmdCafeCaption &CaféHeight 615Widch 1815Tool Tip Text Traduce el Cafe

CmdVerde Name CmdVerdeCaption &VerdeHeight 615Widch 1815Tool Tip Text Traduce el Verde

CmdMorado Name CmdMoradoCaption &MoradoHeight 615Widch 1815Tool Tip Text Traduce el Morado

CmdAmarillo Name CmdAmarilloCaption &AmarilloHeight 615Widch 1815Tool Tip Text Traduce el Amarillo

CmdAnaranjado Name CmdAnaranjadoCaption &AnaranjadoHeight 615Widch 1815

Tool Tip Text Traduce el AnaranjadoCmdAmarillo Name CmdAmarillo

Caption &MoradoHeight 615Widch 1815Tool Tip Text Traduce el Amarillo

Control Propiedad ValorCmdAzul Name CmdAzul

Caption &AzulHeight 615Widch 1815Tool Tip Text Traduce elAzul

CmdRosado Name CmdRosadoCaption &RosadoHeight 615Widch 1815Tool Tip Text Traduce el Rosado

CmdRosado Name CmdRosadoCaption &RosadoHeight 615Widch 1815Tool Tip Text Traduce el Rosado

CmdLimpiar Name CmdLimpiarCaption &LimpiarHeight 615Widch 1815Tool Tip Text Limpia la pantalla

CmdCerrar Name CmdCerrarCaption &CerrarHeight 615Widch 1815Tool Tip Text Cierra el Programa

Codificación

PrivateSub CmdMorado_(click()LblPurple.Caption=”Purple”

EndSubPrivateSubCmdRojo_Click()

LblRed.Caption=”Red”EndSubPrivateSub CmdNegro_Click()

LblNegro.Caption=”Negro”EndSubPrivateSub CmdRosado_Click()

LblPink.Caption=”Pink”EndSubPrivsteSub CmdVerde_Click()

LblGreen.Caption=”Green”EndSubPrivateSub CmdAmarillo_Click()

NOTA: Este programa que se ve en la parte de abajo esta hecho en Microsoft Visual Studio Express 2012 pero las propiedades y los objetos son los mismos de la tabla.

Programa#2

Los días de la semana

Este programa tiene la misma función del anterior con la diferencia que este traduce los días de la semana al inglés.

Tabla de Objetos y Propiedades

Control Propiedad ValorFrmLaSemana Name FrmLaSemana

BackColor &HOOFFFF00&StarUpPosition CenterSecreenCaption Los días de la semanaHeight 5355Widch 11865

LblSunday Name LblSundayCaption VacíoHeight 495Widch 1215BackColor &HOOCOCOOO&

LblMonday Name LblMondayCaption VacíoHeight 495Widch 1215BackColor &HOOCOCOOO&

LblTuesday Name LblTuesdayCaption VacíoHeight 495Widch 1215BackColor &HOOCOCOOO&

LblWednesday Name LblWednesdayCaption VacíoHeight 495Widch 1215BackColor &HOOCOCOOO&

LblThursday Name LblThursdayCaption VacíoHeight 495Widch 1215BackColor &HOOCOCOOO&

LblFriday Name LblFridayCaption VacíoHeight 495Widch 1215BackColor &HOOCOCOOO&

LblSaturday Name LblSaturdayCaption VacíoHeight 495Widch 1215BackColor &HOOCOCOOO&

CmdDomingo Name CmdDomingoCaption &DomingoHeight 495

Control Propiedades ValorWidch 1215

CmdLunes Name CmdLunesCaption &LunesHeight 495Widch 1215

CmdMartes Name CmdMartesCaption &MartesHeight 495Widch 1215

CmdMiercoles Name CmdMiercolesCaption &Height 495Widch 1215

CmdJueves Name CmdJuevesCaption &Height 495Widch 1215

CmdViernes Name CmdViernesCaption &ViernesHeight 495Widch 1215

CmdSabado Name CmdSabadoCaption &SabadoHeight 495Widch 1215

CmdCerrar Name CmdCerrarCaption &CerrarHeight 495Widch 1215

CmdLimpiar Name CmdLimpiarCaption &LimpiarHeight 495Widch 1215

Codificación

Private Sub CmdCerrar_Click()End

End SubPrivate Sub CmdDomingo_(Click)

LblSunday.Caption_” Sunday”End SubPrivate Sub CmdJueves_Click()

LblThursday.Caption” Sunday”End SubPrivate Sub CmdLimpiar_Click()

LblModay.Caption=”” LblSunday.Caption=”” LblTuesday.Caption=”” LblWednesday.Caption=”” LblSaturday.Caption=””

LblFriday.Caption=”” LblThursday=””

End SubPrivate Sub Cmd_Lunes_Click()

LblMonday.Caption=” Monday”End SubPrivate Sub CmdMartes_Click()

LblTuesday.Caption=” Tuesday”Private Sub CmdMiercoles_Click()

LblWednesday.Caption=” Wednesday”End SubPrivate Sub CmdSabado_Click()

LblSaturday.Caption=” Saturday”End SubPrivate Sub CmdViernes_Click()

LblFriday.Caption” Friday”End Sub

Los Meses

La función del programa es traducir cada uno de los meses del año.

Control Propiedad ValorFrmLosMeses Name FrmLosMeses

Text Los MesesStarPosition CenterScreenSize 323,200

BtnEnero Name BtnEneroText &EneroSize 75,23

BtnFebrero Name BtnFebreroText &FebreroSize 75,23

BtnMarzo Name BtnMarzoText &MarzoSize 75,23

BtnAbril Name BtnAbrilText &AbrilSize 75,23

BtnMayo Name BtnMayoText &MayoSize 75,23

BtnJunio Name BtnJunioText &JunioSize 75,23

BtnJulio Name BtnEneroText &EneroSize 75,23

BtnAgosto Name BtnAgostoText &AgostoSize 75,23

BtnSeptiembre Name BtnSeptiembreText &SeptiembreSize 75,23

BtnOctubre Name BtnOctubreText &OctubreSize 75,23

BtnNoviembre Name BtnNoviembreText &NoviembreSize 75,23

BtnDiciembre Name BtnDiciembreText &Diciembre

Size 75,23BtnLimpiar Name BtnLimpiar

Text &LimpiarSize 75,23

BtnCerrar Name BtnCerrarText &CerrarSize 75,23

LblAnswer Name LblAnswerText VacíoSize 100,23

Codificación

Public Class FrmLosMeses

Private Sub Button12_Click(sender As Object, e As EventArgs) Handles BtnSeptiembre.Click LblAnswer.Text = "September" End Sub

Private Sub BtnEnero_Click(sender As Object, e As EventArgs) Handles BtnEnero.Click LblAnswer.Text = "January" End Sub

Private Sub BtnFebrero_Click(sender As Object, e As EventArgs) Handles BtnFebrero.Click LblAnswer.Text = "February" End Sub

Private Sub BtnMarzo_Click(sender As Object, e As EventArgs) Handles BtnMarzo.Click LblAnswer.Text = "March" End Sub

Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click LblAnswer.Text = "April" End Sub

Private Sub BtnMayo_Click(sender As Object, e As EventArgs) Handles BtnMayo.Click LblAnswer.Text = "May" End Sub

Private Sub BtnJunio_Click(sender As Object, e As EventArgs) Handles BtnJunio.Click LblAnswer.Text = "June" End Sub

Private Sub BtnJulio_Click(sender As Object, e As EventArgs) Handles BtnJulio.Click LblAnswer.Text = "July" End Sub

Private Sub BtnAgosto_Click(sender As Object, e As EventArgs) Handles BtnAgosto.Click LblAnswer.Text = "August" End Sub

Private Sub BtnOctubre_Click(sender As Object, e As EventArgs) Handles BtnOctubre.Click LblAnswer.Text = "October" End Sub

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click LblAnswer.Text = "November" End Sub

Private Sub BtnDiciembre_Click(sender As Object, e As EventArgs) Handles BtnDiciembre.Click LblAnswer.Text = "December" End Sub

Private Sub BtnLimpiar_Click(sender As Object, e As EventArgs) Handles BtnLimpiar.Click LblAnswer.Text = "" End Sub

Private Sub BtnCerrar_Click(sender As Object, e As EventArgs) Handles BtnCerrar.Click End End SubEnd Class