1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
Text3 Command1 Command2 Command3 Nombre TxtAnno Text Nombre CmdAceptar Caption &Aceptar Default True Nombre CmdLimpiar Caption &Limpiar Nombre CmdSalir Caption &Salir Una vez establecidas las propiedades de la interfaz proceda a ingresar el siguiente código: Private Sub CmdAceptar_Click() Dim CadMes As String, Mes As Integer Mes = Val(TxtMes) Select Case Mes Case 1: CadMes = “Enero” Case 2: CadMes = “Febrero” Case 3: CadMes = “Marzo” Case 4: CadMes = “Abril” Case 5: CadMes = “Mayo” Case 6: CadMes = “Junio” Case 7: CadMes = “Julio” Case 8: CadMes = “Agosto” Case 9: CadMes = “Setiembre” Pág. 254
Case 10: CadMes = “Octubre” Case 11: CadMes = “Noviembre” Case 12: CadMes = “Diciembre” Case Else MsgBox “Error de datos...”, vbCritical, “Mensaje” Call CmdLimpiar_Click Exit Sub End Select LblFecha = TxtDia & “ de ” & CadMes & “ de ” & TxtAnno End Sub Private Sub CmdLimpiar_Click() TxtDia = “” : TxtMes = “” : TxtAnno = “” TxtDia.SetFocus End Sub Private Sub CmdSalir_Click() If MsgBox(“¿Desea terminar la aplicación?”, _ vbQuestion + vbYesNo, “Pregunta”) = vbYes Then End Else: Call CmdLimpiar_Click End If End Sub Aplicación Nº 4 Un restaurante ofrece un descuento del 10% para consumos entre S/. 30.00 y S/. 50.00; un descuento del 20% para consumos mayores a S/. 50.00 nuevos soles; para todos los demás casos no se aplica ningún tipo de descuento. Elaborar una aplicación que permita determinar el importe a pagar por el consumidor. El diseño de la interfaz y otras consideraciones se dejan a su criterio. Pág. 255
- 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 and 238: A continuación haga doble click so
- Page 239 and 240: Private Sub CmdAceptar_Click() Dim
- 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: Form1 Label1 Label2 Label3 Label4 T
- 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
- Page 289 and 290: Command1 Command2 Command3 Nombre C
- Page 291 and 292: El curso quedará seleccionado al h
- Page 293 and 294: En ese instante se añadirá un nue
- Page 295 and 296: indica: Form2 List1 Command1 Luego
- Page 297 and 298: Del cuadro de diálogo Agregar form
- Page 299 and 300: Private Sub MnuFixedSingle_Click()
- Page 301 and 302: GUÍA DE LABORATORIO Parte II ELABO
- Page 303 and 304: GUÍA DE LABORATORIO Nº 6 Objetivo
Case 10: CadMes = “Octubre”<br />
Case 11: CadMes = “Noviembre”<br />
Case 12: CadMes = “Diciembre”<br />
Case Else<br />
MsgBox “Error de datos...”, vbCritical, “Mensaje”<br />
Call CmdLimpiar_Click<br />
Exit Sub<br />
End Select<br />
LblFecha = TxtDia & “ de ” & CadMes & “ de ” & TxtAnno<br />
End Sub<br />
Private Sub CmdLimpiar_Click()<br />
TxtDia = “” : TxtMes = “” : TxtAnno = “”<br />
TxtDia.SetFocus<br />
End Sub<br />
Private Sub CmdSalir_Click()<br />
If MsgBox(“¿Desea terminar la aplicación?”, _<br />
vbQuestion + vbYesNo, “Pregunta”) = vbYes Then<br />
End<br />
Else: Call CmdLimpiar_Click<br />
End If<br />
End Sub<br />
Aplicación Nº 4<br />
Un restaurante ofrece un descuento del 10% para consumos<br />
entre S/. 30.00 y S/. 50.00; un descuento del 20% para<br />
consumos mayores a S/. 50.00 nuevos soles; para todos los demás<br />
casos no se aplica ningún tipo de descuento. Elaborar una<br />
aplicación que permita determinar el importe a pagar por el<br />
consumidor. El diseño de la interfaz y otras consideraciones se<br />
dejan a su criterio.<br />
Pág. 255