1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
Label1 Label2 Text1 Text2 Command1 Command2 Command3 Nombre LblFecNac AutoSize True Caption Fecha de nacimiento: Nombre LblEdad AutoSize True Caption Su edad es: Nombre TxtFecNac Text Nombre TxtEdad Locked Text True Nombre CmdAceptar Caption &Aceptar Default True Nombre CmdLimpiar Caption &Limpiar Nombre CmdSalir Cancel True Caption &Salir En seguida proceda a ingresar el siguiente código: Pág. 238
Private Sub CmdAceptar_Click() Dim FecNac As Date, Edad As Integer FecNac = CDate(TxtFecNac) Edad = CInt((Date - FecNac) / 365) TxtEdad = Str(Edad) & “ años” End Sub Se deja como ejercicio para el estudiante el código asociado con los botones Limpiar y Salir, respectivamente. Aplicación Nº 4 Se tiene un cajero automático el cual permite manipular cierta cantidad de dinero para lo cual dispone de los siguientes billetes: S/. 10.00, S/. 20.00, S/. 50.00, S/. 100.00 y S/. 200.00. Elaborar una aplicación que permita la lectura de la cantidad a retirar e indique el menor número de billetes a utilizar. Creo que a estas alturas Ud. ya entendió como funciona esto. Por ello, esta aplicación se deja como ejercicio para el estudiante. Pág. 239
- Page 187 and 188: Permite grabar en un archivo binari
- Page 189 and 190: Por ejemplo si ingresa el mensaje
- Page 191 and 192: Como ejemplo considere los siguient
- Page 193 and 194: El ejemplo inicial (código hexadec
- Page 195 and 196: Por ejemplo, las instrucciones sigu
- Page 197 and 198: A manera de ejemplo considere la es
- Page 199 and 200: Para el dibujo de puntos se usará
- Page 201 and 202: En el ejemplo anterior se utiliza l
- Page 203 and 204: Para este ejemplo crear una nueva a
- Page 205 and 206: Para el desarrollo de la presente a
- Page 207 and 208: Control Line Line es un control gr
- Page 209 and 210: Como ejemplo de este tipo de gráfi
- Page 211 and 212: Para realizar nuestra aplicación d
- Page 213 and 214: Para el caso de las gráficas de ec
- Page 215 and 216: Luego proceda a ingresar el código
- Page 217 and 218: La matemática fractal es producto
- Page 219 and 220: Para el desarrollo de la presente a
- Page 221 and 222: En este capítulo, debido a las lim
- Page 223 and 224: La presente Guía de Laboratorio de
- Page 225 and 226: Para el desarrollo de esta aplicaci
- Page 227 and 228: Text1 Text2 Text3 Text4 Text5 Text6
- Page 229 and 230: Luego, haga doble click sobre el bo
- Page 231 and 232: A continuación active la casilla d
- Page 233 and 234: Label10 Nombre LblImpuesto Caption
- Page 235 and 236: En primer lugar debemos cargar los
- Page 237: A continuación haga doble click so
- Page 241 and 242: Los descuentos a aplicar son sobre
- Page 243 and 244: Label4 Label5 Text1 Text2 Text3 Tex
- Page 245 and 246: Check3 Command1 Command2 Command3 N
- Page 247 and 248: Cuatro notas entre 0 y 20 represent
- Page 249 and 250: Label6 Label7 Text1 Text2 Text3 Tex
- Page 251 and 252: N3 = Val(TxtN3) : N4 = Val(TxtN4) P
- Page 253 and 254: Form1 Label1 Label2 Label3 Label4 T
- Page 255 and 256: Case 10: CadMes = “Octubre” Cas
- Page 257 and 258: Para el desarrollo de esta aplicaci
- Page 259 and 260: El diseño de la interfaz debe ser
- Page 261 and 262: Para el desarrollo de esta aplicaci
- Page 263 and 264: Label5 Label6 Label7 Text1 Text2 Te
- Page 265 and 266: Una vez establecidas las propiedade
- Page 267 and 268: Un centro numérico es un número q
- Page 269 and 270: Para el desarrollo de esta aplicaci
- Page 271 and 272: Private Sub CmdAceptar_Click() If I
- Page 273 and 274: figura: El diseño de la interfaz d
- Page 275 and 276: Combo1 Text1 Text2 Option1 Option2
- Page 277 and 278: Private Sub CboArticulo_Click() Dim
- Page 279 and 280: Form1 Frame1 Frame2 Frame3 Frame4 L
- Page 281 and 282: Text3 Text4 Text5 Command1 Command2
- Page 283 and 284: LstDistrito.AddItem “La Victoria
- Page 285 and 286: CboSexo.Locked = False TxtDireccion
- Page 287 and 288: GUÍA DE LABORATORIO Nº 5 Objetivo
Private Sub CmdAceptar_Click()<br />
Dim FecNac As Date, Edad As Integer<br />
FecNac = CDate(TxtFecNac)<br />
Edad = CInt((Date - FecNac) / 365)<br />
TxtEdad = Str(Edad) & “ años”<br />
End Sub<br />
Se deja como ejercicio para el estudiante el código<br />
asociado con los botones Limpiar y Salir, respectivamente.<br />
Aplicación Nº 4<br />
Se tiene un cajero automático el cual permite manipular<br />
cierta cantidad de dinero para lo cual dispone de los<br />
siguientes billetes: S/. 10.00, S/. 20.00, S/. 50.00,<br />
S/. 100.00 y S/. 200.00. Elaborar una aplicación que permita la<br />
lectura de la cantidad a retirar e indique el menor número de<br />
billetes a utilizar.<br />
Creo que a estas alturas Ud. ya entendió como funciona<br />
esto. Por ello, esta aplicación se deja como ejercicio para el<br />
estudiante.<br />
Pág. 239
Change language