1. Visual Basic - Curso completo teoria y practica

1. Visual Basic - Curso completo teoria y practica 1. Visual Basic - Curso completo teoria y practica

sanjudas.edu.do
from sanjudas.edu.do More from this publisher
30.04.2013 Views

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

Text6<br />

Text7<br />

Text8<br />

Option1<br />

Option2<br />

Check1<br />

Check2<br />

Nombre TxtFonavi<br />

BackColor &H80000004&<br />

Locked True<br />

Text<br />

Nombre TxtAFP<br />

BackColor &H80000004&<br />

Locked True<br />

Text<br />

Nombre TxtSueldoNeto<br />

BackColor &H80000004&<br />

Locked True<br />

Text<br />

Nombre OptDiurno<br />

Caption Diurno<br />

Value True<br />

Nombre OptNocturno<br />

Caption Nocturno<br />

Value False<br />

Nombre ChkRenta<br />

Caption Renta<br />

Pág. 244

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!