POWERBUILDER
®
LABORATORIOS
LABORATORIO 1
open(w_ventana)
bclick - st_texto.text="Buenas Noches", st_texto.visible=falsebnone
LABORATORIO 2
//messagebox("mensaje","HOLA PANAMÁ")
OPEN(ventana)
LABORATORIO 3
Open(lab3)
brojo --- Label.text = “PARAR”
bamarillo – Label.text = “PRECAUCION”
bverde – Label.text = “AVANZAR”
Laboratorio 4
integer a
integer b
integer c
a = integer(label1.text)
b = integer(label2.text)
c =a + b * EL SIGNO CAMBIA DEPENDIENDO DE LA OPERACION*
label3.text = string (c )
Laboratorio 5
double HorasT
double SalarioxHora
double SalarioB
double SS
double SE
double ISobreRenta
double TotalI
double SalarioNeto
HorasT = double(sle_3.text)
SalarioxHora = double(sle_2.text)
SS = double(sle_5.text)
SE = double (sle_6.text)
ISobreRenta = double (sle_7.text)
SalarioB = HorasT * SalarioxHora
sle_4.text =string(SalarioB, "#,##0.00") //SALARIO BRUTO
SS = (SalarioB * 0.0975) //IMPUESTO S.S.
sle_5.text = string(SS, "#,##0.00")
SE = (SalarioB * 0.0125) //IMPUESTO S.E.
sle_6.text = string(SE, "#,##0.00")
If (SalarioB > 800) then
ISobreRenta = SalarioB*0.15
sle_7.text = string(ISobreRenta, "#,##0.00")
TotalI=SS + SE + ISobreRenta //TOTAL DE IMPUESTOS
sle_8.text=string(TotalI, "#,##0.00")
SalarioNeto = SalarioB - SS - SE + ISobreRenta
sle_9.text = string(SalarioNeto, "#,##0.00") //SALARIO NETO
Else
ISobreRenta = 0
sle_7.text = string(0)
TotalI = SS + SE
sle_8.text=string(TotalI, "#,##0.00")
SalarioNeto = SalarioB - SS - SE
sle_9.text =string(SalarioNeto, "#,##0.00")
End If
Laboratorio 6
double kilos
double libras
double cantidad
cantidad = double(sle_1.text)
If rb_1.checked = true then
libras = cantidad * 1.25
st_3.text = string(libras, "$#,##0.00")
End If
If rb_2.checked = true then
kilos = cantidad * 3.00
st_3.text = string(kilos, "$#,##0.00")
End If
Laboratorio 7
double diametro
double altura
double volumen
diametro = double(sle_1.text)
altura = double(sle_2.text)
volumen = (3.14 * diametro * altura)
st_4.text = string(volumen)
Laboratorio 8
integer a
integer b
integer c
a = integer(sle_1.text)
b = integer (sle_2.text)
c = integer (sle_3.text)
If a > b and a > c then
st_4.text = "El mayor es " + string(a)
ElseIf b > a and b > c then
st_4.text = "El mayor es " + string(b)
ElseIf c > b and c > a then
st_4.text = "El mayor es " + string(c)
End If
Laboratorio 9
integer password
password = integer(sle_2.text)
If password = 123 then
loginpic.visible = true
messagebox("LOGIN",("Bienvenido al sistema de facturación 2.0"))
End If
Laboratorio 10
integer i = 0
integer a, b
a= integer(sle_1.text)
for i =1 to 10
lb_1.additem(string(a) + "*" + string(i) + "=" + string(a*i))
next
Laboratorio 11
integer a, b, c
a = integer(st_1.text)
b = integer(st_2.text)
c = integer (st_3.text)
pb_1.Visible = False
a = Rand (10)
b = Rand (10)
c = Rand (10)
st_1.text = string (a)
st_2.text = string (b)
st_3.text = string (c)
If (a= 7) Or (b = 7) Or (c = 7) Then
pb_1.visible = True
End If
