Ingeniero

Ejemplo 1
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...