Ingeniero
CLASE DEL DIA LUNES 9 DE MAYO--2 A 3
PROGRAMA PARA CALCULAR SALARIOS --programacion no visual
_____________________________________________________________
"CODIGO DEL PROGRAMA"
sl=0
ig = 0
it = 0
bn = 0
sq = 0
CLEAR
@ 3,5 say "INGRESE SUELDO:" get sl
READ
ig = sl*4.83/100
it = sl*10/100
bn = sl*10/100
sq = sl-ig-it+bn
@ 6,5 say "DESCUENTOS:"
@ 7,5 say"IGSS:" get ig
@ 8,5 say "INTECAP" get it
@ 9,5 say "10% BONIFICACION:" get bn
@ 11,5 say "EL SUELDO LIQUIDO ES:" get sq
Ejemplo 2
CLASE DEL DIA LUNES 9 DE MAYO- 3 A 4 PM
COMO HACER UNPROGRAMA PARA CALCULAR EL SALARIO--programacion visual
"BOTON CALCULAR"
thisform.text2.Value=VAL(thisform.text1.Value)*4.83/100
thisform.text3.Value=VAL(thisform.text1.Value)*10/100thisform.text4.Value=VAL(thisform.text1.Value)*10/100
thisform.text5.Value=VAL(thisform.text1.Value)-thisform.text2.Value-thisform.text3.Value+thisform.text4.value -----------------------------------------------------------------------------------------------------------------
"doble clic en el formulario para insertar este codigo"
thisform.text1.Value=""
thisform.text2.Value=""
thisform.text3.Value=""thisform.text4.Value=""
thisform.text5.Value=""
thisform.text1.setfocus
----------------------------------------------
y configurar esta opcion ver imagen
"EL PROGRAMA QUEDA ASI"----------------------------------------------------
Ejemplo 3
Public Class Cplanilla
Public nombre, departamento, cargo As String
Public sueldo As Decimal
Public afp, isss, renta,sin_descuentos As Decimal
Function descuento_renta() As Double
renta = sueldo * 0.1
Return renta
End Function
Function descuento_isss() As Double
isss = sueldo *0.03
Return isss
End Function
Function descuento_afp() As Double
afp = sueldo * 0.065
Return afp
End Function
Function sueldo_liquido() As Double...
Regístrate para leer el documento completo.