1. Visual Basic - Curso completo teoria y practica
1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica
Text6 Text7 Text8 Option1 Option2 Check1 Check2 Nombre TxtFonavi BackColor &H80000004& Locked True Text Nombre TxtAFP BackColor &H80000004& Locked True Text Nombre TxtSueldoNeto BackColor &H80000004& Locked True Text Nombre OptDiurno Caption Diurno Value True Nombre OptNocturno Caption Nocturno Value False Nombre ChkRenta Caption Renta Pág. 244
Check3 Command1 Command2 Command3 Nombre ChkFonavi Caption Fonavi Nombre ChkAFP Caption AFP Nombre CmdAceptar Caption &Aceptar Default True Nombre CmdLimpiar Caption &Limpiar Nombre CmdSalir Cancel True Caption &Salir Una vez establecidas las propiedades, proceda a ingresar el código que se indica a continuación: Private Sub CmdAceptar_Click() Dim SueldoBasico As Double Dim HorasExtras As Integer, PagoHoraExtra As Double Dim Renta As Double, Fonavi As Double, AFP As Double Dim Ingresos As Double, Egresos As Double Dim SueldoNeto As Double SueldoBasico = Val(TxtSueldoBasico) HorasExtras = Val(TxtHorasExtras) If OptDiurno Then Pág. 245
- 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 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: Label4 Label5 Text1 Text2 Text3 Tex
- 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
- 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
Check3<br />
Command1<br />
Command2<br />
Command3<br />
Nombre ChkFonavi<br />
Caption Fonavi<br />
Nombre ChkAFP<br />
Caption AFP<br />
Nombre CmdAceptar<br />
Caption &Aceptar<br />
Default True<br />
Nombre CmdLimpiar<br />
Caption &Limpiar<br />
Nombre CmdSalir<br />
Cancel True<br />
Caption &Salir<br />
Una vez establecidas las propiedades, proceda a ingresar<br />
el código que se indica a continuación:<br />
Private Sub CmdAceptar_Click()<br />
Dim Sueldo<strong>Basic</strong>o As Double<br />
Dim HorasExtras As Integer, PagoHoraExtra As Double<br />
Dim Renta As Double, Fonavi As Double, AFP As Double<br />
Dim Ingresos As Double, Egresos As Double<br />
Dim SueldoNeto As Double<br />
Sueldo<strong>Basic</strong>o = Val(TxtSueldo<strong>Basic</strong>o)<br />
HorasExtras = Val(TxtHorasExtras)<br />
If OptDiurno Then<br />
Pág. 245
Change language