Documentos de Académico
Documentos de Profesional
Documentos de Cultura
Guia-PB10-01-2 - 115 OK
Guia-PB10-01-2 - 115 OK
10. Luego haga Click en el menú File, elija New elija la ficha PB Object,
seleccione el icono Window tal como se muestra en la siguiente figura:
Lectora [ENTER]
Quemador [ENTER]
Monitor [ENTER]
Teclado [ENTER]
Mouse [ENTER]
Scanner [ENTER]
WebCam [ENTER]
Parlantes [ENTER]
Micrófono [ENTER]
open (w_productos).
Close (w_productos).
w_productos.lb_productos.additem("Tarjeta de Red" )
w_productos.lb_productos.additem("Tarjeta de Video" )
5. Termine la aplicación.
if len(this.text)<>0 then
cb_agregar.enabled=true
else
cb_agregar.enabled=false
end if
String Producto
Producto= sle_agregar.text
lb_productos.AddItem (Producto)
sle_agregar.text=""
cb_eliminar.enabled=true
cb_limpiar.enabled=true
end if
8. Termine la aplicación.
string ps
ps = this.selecteditem( )
st_producto.text = ps
st_mensaje.text="Producto Seleccionado"
cb_eliminar.enabled=true
end if
9. Termine la aplicación.
integer pp
pp=lb_productos.selectedindex ( )
lb_productos.deleteitem (pp)
st_mensaje.text="Producto Eliminado"
this.enabled=false
cb_limpiar.enabled=false
end if
lb_productos.reset( )
st_mensaje.text=""
st_producto.text=""
cb_eliminar.enabled=false
this.enabled=false
st_mensaje.text="Lista Vacía"
6. Ejecute la aplicación.
9. Finalice la aplicación.
4.
Picturename ComputePage5!
TabTextColor Blue
TabBackColor Sky
BackColor Sky
BackColor Sky
BackColor Sky
BackColor Sky
BackColor Sky
BackColor Sky
BackColor Sky
Text <vacío>
Text <vacío>
Text <vacío>
Text <vacío>
Text <vacío>
Text <vacío>
Item Huacho
Huaura
Sayán
Andahuasi
Végueta
Santa María
Hualmay
Primavera
Humaya
Carquín
Text &Agregar
Text &Salir
Tabtext Detalles
Picturename Custom048!
TabTextColor Red
TabBackColor Mint
BackColor Mint
BackColor Mint
BackColor Mint
BackColor Mint
BackColor Mint
BackColor Mint
BackColor Mint
Text <vacío>
DisplayOnly (Activar)
Text <vacío>
DisplayOnly (Activar)
Text <vacío>
DisplayOnly (Activar)
Text <vacío>
DisplayOnly (Activar)
Text <vacío>
DisplayOnly (Activar)
Text <vacío>
DisplayOnly (Activar)
Text Condición
BorderStyle StyleRaised!
TextColor Red
BackColor Mint
Text Nombrado
BackColor Mint
Text Contratado
BackColor Mint
Enabled (Desactivar)
Nivel IV
Nivel V
TextColor Red
Text &Calcular
Int Bono
If sle_password.text="020769" Then
Open(w_personal)
Close (w_acceso)
Else
sle_usuario.text=""
sle_password.text=""
sle_usuario.setfocus()
End If
int Rpta
If Rpta=1 Then
Close (w_acceso)
Else
Return 1
End if
Return 1
End if
Int Indice
tab_1.tabpage_1.sle_codigo.text=""
tab_1.tabpage_1.sle_apellidos.text=""
tab_1.tabpage_1.sle_nombres.text=""
tab_1.tabpage_1.sle_direccion.text=""
tab_1.tabpage_1.sle_telefono.text=""
tab_1.tabpage_1.mle_observacion.text=""
tab_1.tabpage_1.ddlb_distrito.text=""
tab_1.tabpage_1.sle_codigo.setfocus()
tab_1.tabpage_2.rb_nombrado.checked=false
tab_1.tabpage_2.rb_contratado.checked=false
Indice=tab_1.tabpage_2.lb_categorias.selectItem(0)
tab_1.tabpage_2.lb_categorias.enabled=false
tab_1.tabpage_2.sle_horasn.text=""
tab_1.tabpage_2.sle_horase.text=""
tab_1.tabpage_2.sle_pagon.text=""
tab_1.tabpage_2.sle_pagoe.text=""
tab_1.tabpage_2.sle_bonifica.text=""
tab_1.tabpage_2.sle_pagototal.text=""
close(w_personal)
If tab_1.tabpage_2.rb_nombrado.checked=true Then
lb_categorias.enabled=true
Else
lb_categorias.enabled=false
Bono=0
End if
Int Indice
Indice=tab_1.tabpage_2.lb_categorias.SelectItem(0)
Bono =0
If tab_1.tabpage_2.lb_categorias.SelectedIndex()=1 Then
Bono=30
End If
If tab_1.tabpage_2.lb_categorias.SelectedIndex()=2 Then
Bono=20
End If
If tab_1.tabpage_2.lb_categorias.SelectedIndex()=3 Then
Bono=15
End If
If tab_1.tabpage_2.rb_nombrado.checked=True Then
Horas=8
Else
Horas=6
End If
H=Integer (tab_1.tabpage_2.sle_horasn.text)
HE=Integer(tab_1.tabpage_2.sle_horase.text)
Pago1=H*Horas
Pago2=HE*Horas*1.5
tab_1.tabpage_2.sle_pagon.text=String(Pago1)
tab_1.tabpage_2.sle_pagoe.text=String(Pago2)
tab_1.tabpage_2.sle_bonifica.text=String(Bono)
tab_1.tabpage_2.sle_pagototal.text=String(Total)