mariainteriano.files.wordpress.com€¦ · Web viewEl programa está diseñado para que cuando se...
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