Encuesta

Actividad Nº 4: Encuesta

Ejemplo5: Básicos de Power Builder 11.5

Elaborar un programa que permita generar números aleatorios del 1 al 13, y muestre una imagen respectiva utilizando las imágenes de las cartas de la baraja.

Antes de codificar debes generar 14 imágenes, una para al tapa y 13 que representen las cartas de la baraja, puedes utilizar formatos png, bmp, jpg ademas debes de copiarlas a la carpeta donde están los archivos del programa.
El código se encuentra en el botón pb_azar



integer m
RANDOMIZE(0)
m=RAND(13)
choose case m
case 1
p_carta.picturename="as.bmp"
sle_azar.text="1"
case 2
p_carta.picturename="dos.bmp"
sle_azar.text="2"
case 3
p_carta.picturename="tres.bmp"
sle_azar.text="3"
case 4
p_carta.picturename="cuatro.bmp"
sle_azar.text="4"
case 5
p_carta.picturename="cinco.bmp"
sle_azar.text="5"
case 6
p_carta.picturename="seis.bmp"
sle_azar.text="6"
case 7
p_carta.picturename="siete.bmp"
sle_azar.text="7"
case 8
p_carta.picturename="ocho.bmp"
sle_azar.text="8"
case 9
p_carta.picturename="nueve.bmp"
sle_azar.text="9"
case 10
p_carta.picturename="diez.bmp"
sle_azar.text="10"
case 11
p_carta.picturename="once.bmp"
sle_azar.text="11"
case 12
p_carta.picturename="doce.bmp"
sle_azar.text="12"
case 13
p_carta.picturename="trece.bmp"
sle_azar.text="13"

end choose

Ejemplo4: Power Builder

Utilización de CheckBox y RadioButton. Este es un programa que permite calcular el sueldo neto a pagar teniendo en cuenta que se pueden aplicar varias bonificaciones a la vez pero solo un tipo de descuento.

El código se encuentra en cada uno de los controles checkbox y radiobutton en su evento clicked.


Este código se repite para cada CheckBox, sólo se cambia nombres y valores
DEC SB
SB = DEC(ST_SN.TEXT)
IF CBX_1.CHECKED THEN
SB= SB + 200
ELSE
SB= SB - 200
END IF
ST_SN.TEXT= STRING(SB,"###,##0.00")

Este código se repite para cada RadioButton sólo se cambia nombres y valores
DEC A,B,C,D, SB,SN

SB=DEC(SLE_SB.TEXT)
IF RB_1.CHECKED = TRUE THEN
IF CBX_1.CHECKED = TRUE THEN A = 200
IF CBX_2.CHECKED = TRUE THEN B = 150
IF CBX_3.CHECKED = TRUE THEN C = 100
SN = SB+ A+B+C - 80
ST_SN.TEXT=STRING(SN,"###,##0.00")
END IF

Ejemplo4: VB.Net

Elaborar un programa que permita ingresar un número entero y muestre como resultado si ese número es positivo, negativo o cero.

El código se encuentra en el botón cb_mostrar:


Dim numero As Short
        numero = CShort(txt_numero.Text)
        If numero > 0 Then
            txt_mostrar.Text = "POSITIVO"
        ElseIf numero < 0 Then
            txt_mostrar.Text = "NEGATIVO"
        Else
            txt_mostrar.Text = "CERO"
        End If

Ejemplo3: Power Builder

Se trata de un programa que permite calcular el valor del descuento  y el total a pagar, sabiendo que sólo se puede aplicar un tipo de descuento en un determinado momento.

Para el diseño, para el ingreso del consumo definimos al control con el nombre de sle_consumo, trabajamos con controles RadioButton, con sus nombres predeterminados comenzando de la izquierda rb_1, rb_2 ... hasta rb_5, el código se encuentra en cada uno de los botones.

Para rb_1 evento clicked

dec comprado
comprado=dec(sle_2.text)
st_d.text="0.00"
st_t.text=string(comprado,"###,##0.00")


Para rb_2 evento clicked


ec consumo
consumo = dec(sle_2.text)
st_d.text=string(consumo*0.05,"###,##0.00")
st_t.text=string(consumo - (consumo*0.05),"###,##0.00")


Para los demás botones el código es el mismo que para rb_2, solo se cambia el valor del descuento. El código alternativo para los botones rb_2 al rb_5 puede ser:


dec comprado, descuento, total
comprado=dec(sle_2.text)
if rb_2.checked= true then
descuento= comprado * 5/100
end if
total =comprado - descuento
st_d.text=string(descuento,"###,##0.00")
st_t.text=string(total,"###,##0.00")

Ejemplo1: VB.Net

PRIMER EJEMPLO: Este programa permite ingresar los nombres y apellidos en controles TextBox diferentes y muestra el resultado en un solo TextBox.

Renombrar los controles TextBox  utilizando la propiedad Name para los nombres txt_nombre, para 

el apellido paterno txt_paterno, para el apellido materno txt_materno y para el resultado txt_concatenar.

En la venta de código introducir las siguientes líneas de código asegúrese de que corresponda al control cb_concatenar en su evento click:

Dim nom, paterno, materno, cad As String ‘ Declarando 4 varibles tipo cadena

nom = txt_nombre.Text ‘ recogiendo el valor ingresado en la propiedad text de

paterno = txt_paterno.Text ‘los controles textbox en las variables

materno = txt_materno.Text

cad = nom & " " &  paterno & " " &  materno ‘ realizando la operación de concatenación

txt_concatenar.Text = cad ‘mostrando el resultado 

También puede utilizar el siguiente código:

txt_concatenar.Text = txt_nombre.Text & " " & txt_paterno.Text & " " & txt_materno.Text

Ejemplo2: Power Builder

Ejemplo2: Se trata de un local de venta de comida se pide elaborar un programa que permite calcular el monto a pagar teniendo en cuenta los platos que el cliente a elegido así, el bisteck a lo pobre cuesta 20 soles, el arroz con pato 18, la pavita mechada 12 y la ensalada criolla 8 soles.

El código está, implementado en el botón cb_consumo:

decimal p1,p2,p3,p4,precio
if cbx_bisteck.checked then
p1=20
end if
if cbx_ensalada.checked then
p2=8
end if
if cbx_pavita.checked then
p3=12
end if
if cbx_arroz.checked then
p4=18
end if
precio =p1+p2+p3+p4
st_consumo.text=sle_cliente.text + " ha consumido un total de: " + string(precio)

Otro código alternativo y más eficiente es:

decimal  total
if cbx_bisteck.checked  then total = total +20
if cbx_ensalada. checked    then total = total + 8
if cbx_pavita. checked    then total = total + 12
if cbx_arroz. checked   then total = total + 18
st_consumo.text=sle_cliente.text + " ha consumido un total de: " + string(total)