Promedio de notas de un alumno en power builder 12.0

hacer promedio de notas de un alumno  en power builder 12.0

1. diseñar el formulario como la imagen siguiente.

2. codigo fuente.

Function

integer v,s,j,p,promedio

string nivel,condi

v=integer(sle_visual.text)

s=integer(sle_sql.text)

j=integer(sle_java.text)

p=integer(sle_power.text)

promedio= integer(v+s+j+p)/4

st_promedio.text=string(promedio)

choose case promedio

            case 0 to 7

            nivel="pesimo"

            case  8 to 12

            nivel ="bajo"

            case 13 to 14

            nivel="regular"

            case 15 to 19

            nivel="bueno"

            case 20

            nivel="excelente"

            end choose

st_nivel.text=string(nivel)

choose case  promedio

case 0 to 10

condi="Desaprobado"          

case 11 to 20

condi="Aprobado"

end choose

st_condicion.text=string(condi)

Codigo boton new

sle_codigo.text=""

sle_alumno.text=""

sle_edad.text=""

sle_visual.text=""

sle_sql.text=""

sle_java.text=""

sle_power.text=""

st_promedio.text=""

st_condicion.text=""

st_nivel.text=""

sle_codigo.setfocus()

Escribe tu comentario sugerencias o consultas aqui abajo gracias

espero ayudarte..