• Author / Uploaded
• Hugo Solorzano Andagua

Citation preview

//Mostrar mensajes predicates onClase1Mensaje : window::menuItemListener. clauses onClase1Mensaje(_Source, _MenuTag):vpiCommonDialogs::note("Título: Hola Mundo","Contenido del mensaje: Hola Sistemas").

//Mostrar el Mensaje de Error. predicates onClase1MensajeError : window::menuItemListener. clauses onClase1MensajeError(_Source, _MenuTag):-error("Titilo","Mensaje de error").

//Insertar opciones con contenido predicates onClase1MensajePregunta1cntrla : window::menuItemListener. clauses onClase1MensajePregunta1cntrla(_Source, _MenuTag):- Boton=ask("Pregunta: ",["Opción 0 ","Opción 1","Opción 2"]), note("Presionaste el Boton: ",toString(Boton)).

//Ingreso y captura de cadena de caracteres predicates onClase1MensajePregunta2 : window::menuItemListener. clauses onClase1MensajePregunta2(_Source, _MenuTag):CadRespuesta=getString("Inteligencia Artificial","Ingrese su Nombre: ","Alumno de Prolog"), !,note("Inteligencia Artificial - Alumnos", CadRespuesta). onClase1MensajePregunta2(_Source, _MenuTag):note("Inteligencia Artificial","Cancelaste").

predicates onClase1Mensaje : window::menuItemListener. clauses onClase1Mensaje(_Source, _MenuTag):vpiCommonDialogs::note("Título: Hola Mundo","Contenido del mensaje: Hola Sistemas"). predicates onClase1Errorctrla : window::menuItemListener. clauses onClase1Errorctrla(_Source, _MenuTag):-error("Titilo","Mensaje de error").

// Mostrar mensajes onClase1MensajePregunta2(_Source, _MenuTag):CadRespuesta=getString("Inteligencia Artificial","Ingrese su Apellidos: ","Apellidos..."), CadRespuesta1=getString("Inteligencia Artificial","Ingrese su Nombres: ","Nombres..."), !, note("Apellidos y Nombres: ", string::concat(CadRespuesta," ",CadRespuesta1)). onClase1MensajePregunta2(_Source, _MenuTag):note("Inteligencia Artificial","Cancelaste").

-----------------------------------------------------

onFileNew(Source, _MenuTag):- Variable=frmNuevo::new(source), Variable:show().

D=txtDato:getText(), lbDato:add(D), txtDato:setText(" ").

ce) = button::defaultAction:txtDato:clearAll().

ce) = button::defaultAction:txtDato:clearAll().

txtNom:setText(""), txtApe:setText(""),

Con=lbDatos:getCount(), txtTotal:setText(tostring(Con)).

A=0.15, B=0.30, C=0.25, D=0.30,

Ud1=txtUd1:getText(), Ud2=txtUd2:getText(), Ud3=txtUd3:getText(), Ud4=txtUd4:getText(),

Promedio=0.15toBoolean(Ud1), Ud1=txtUd1:getText(),

+B*toInteger64(Ud2)+C*toInteger64(Ud3)+D*toInteger64(Ud4)

Ud1=txtUd1:getText(),

Promedio=10*(0.30), txtPf:setText(tostring(Promedio)).

if Ud1=Ud2 then Min=0, Min=Ud1 else if Ud3=Min then Min=Ud3

if 1=1 then Min=1 else if 2=2 then Min=2 else txtMin:setText("Hola") end if end if.

hasDomain(integer,ValorNumero), ValorNumero= toTerm(Ud1), Pro=ValorNumero+1, txtPf:setText(tostring(Pro)).

hasDomain(integer,ValorNumero), ValorNumero= toTerm(Ud1) + 0, Pro=ValorNumero+10, txtPf:setText(tostring(Pro)).

A1=0.15, B2=0.30, C3=0.25, D4=0.30, Nota1= toTerm(Ud1) + 0, Nota2= toTerm(Ud2) + 0, Nota3= toTerm(Ud3) + 0, Nota4= toTerm(Ud4) + 0, Pro=(A1*Nota1+B2*Nota2+C3*Nota3+D4*Nota4), txtPf:setText(tostring(Pro)).

Mostrar=string::concat(AlumnoNomApe,"

",tostring(Pro)),

lbDato:add(Mostrar), Con=lbDato:getCount(), txtPf:setText(tostring(Pro)).

A1=0.15, B2=0.30, C3=0.25, D4=0.30, Nota1= toTerm(Ud1) + 0, Nota2= toTerm(Ud2) + 0, Nota3= toTerm(Ud3) + 0, Nota4= toTerm(Ud4) + 0, Pro=(A1*Nota1+B2*Nota2+C3*Nota3+D4*Nota4), if Pro>=11 then txtCon:setText("Aprobado") else txtCon:setText("Reprobado") end if,

Ver1=string::concat(Ud1," Ver2=string::concat(Ver1," Ver3=string::concat(Ver2," Ver4=string::concat(Ver3," Ver5=string::concat(Ver4," Con=lbDato:getCount(),

",Ud2), ",Ud3), ",Ud4), ",tostring(Pro)), ", tostring(txtCon:getText()) ),

Ver0=string::concat(tostring(Con+1),") ",AlumnoNomApe), lbAlumno:add(Ver0), lbDato:add(Ver5),

txtPf:setText(tostring(Pro)).

if Nota1