Search found 9 matches

by fathia
29 Apr 2012 8:09
Forum: Visual Prolog
Topic: how can use varible(X) in form1 and form2?
Replies: 7
Views: 2520

positive(X,Y):- xpositive(X,Y),!. positive(X,Y):- not(xnegative(X,Y)),ask(X,"y"). negative(X,Y):- xnegative(X,Y),!. negative(X,Y):- not(xpositive(X,Y)),ask(X,"n"). ask(X,"y"):- Newdialog=ask_sym::new(applicationwindow::get Newdialog:show(), Newdialog:formask(X),stdio::write(X). ask(X,"n"):- Newdial...
by fathia
29 Apr 2012 7:51
Forum: Visual Prolog
Topic: how the system give the result after receive the answer of questions of ask_sym ?
Replies: 2
Views: 1613

class facts -personDB xpositive:(string X). xnegative:(string X). clauses positive(X,Y):- xpositive(X,Y),!. positive(X,Y):- not(xnegative(X,Y)),ask(X,"y"). negative(X,Y):- xnegative(X,Y),!. negative(X,Y):- not(xpositive(X,Y)),ask(X,"n"). ask(X,"y"):- Newdialog=ask_sym::new(applicationwindow::get Ne...
by fathia
5 Apr 2012 9:13
Forum: Visual Prolog
Topic: how the system give the result after receive the answer of questions of ask_sym ?
Replies: 2
Views: 1613

how the system give the result after receive the answer of questions of ask_sym ?

when running the following code : positive(X,Y):- xpositive(X,Y),!. positive(X,Y):- not(xnegative(X,Y)),ask(X,"y"). negative(X,Y):- xnegative(X,Y),!. negative(X,Y):- not(xpositive(X,Y)),ask(X,"n"). ask(X,"y"):- Newdialog=ask_sym::new(applicationwindow::get Newdialog:show(), Newdialog:formask(X),stdi...
by fathia
5 Apr 2012 8:07
Forum: Visual Prolog
Topic: how can use varible(X) in form1 and form2?
Replies: 7
Views: 2520

how give the result after receive the answer of questions of ask_sym ?

when running the following code : positive(X,Y):- xpositive(X,Y),!. positive(X,Y):- not(xnegative(X,Y)),ask(X,"y"). negative(X,Y):- xnegative(X,Y),!. negative(X,Y):- not(xpositive(X,Y)),ask(X,"n"). ask(X,"y"):- Newdialog=ask_sym::new(applicationwindow::get Newdialog:show(), Newdialog:formask(X),stdi...
by fathia
8 Jan 2012 11:04
Forum: Visual Prolog
Topic: how can use varible(X) in form1 and form2?
Replies: 7
Views: 2520

how can i pass varible(x) from form1 to predicate (formask) in form2?.

Hellow: when i write the following code ask(X,"y"):- Newdialog=ask_sym::new(applicationwindow::get()), Newdialog:show(), Newdialog:formask(X). it accured error: "Undeclared identifier 'formask/1'" how can i pass varible(x) from form1 to predicate (formask) in form2?.
by fathia
2 Jan 2012 11:44
Forum: Visual Prolog
Topic: how can use varible(X) in form1 and form2?
Replies: 7
Views: 2520

how can use varible(X) in form1 and form2?

hellow, how call varible in form1 for using its value in form2? ex:- in form1 use the predicate: ask(X,"y"):- Newdialog=ask_sym::new(applicationwindow::get()), Newdialog:show(). how send varible x to predicate in form 2: onRadioButtonClick(_Source):- symp_ctl:settext(X). how can use varible(X) in fo...
by fathia
27 Dec 2011 7:29
Forum: Visual Prolog
Topic: how read a char form keyboard in visual prolog7.1?
Replies: 5
Views: 8457

can i use forms and readline to get informatin from user?.

Thanks you for your answer . ask(X,"y"):- stdio::write("\n Does the patient suffered from",X,"please select y,w?") , Reply=stdio::readline(),Reply="y",remember(X,Reply). ok i write it,but when i use forms to enter information and use readline to enter string ,an internal error has occured: Exception...
by fathia
25 Dec 2011 8:00
Forum: Visual Prolog
Topic: how read a char form keyboard in visual prolog7.1?
Replies: 5
Views: 8457

how read a char form keyboard in visual prolog7.1?

how read a char form keyboard in visual prolog7.1?,when write

Code: Select all

   ask(X,"y"):-                         stdio::write("\n Does the patient suffered from",X,"please select y,w ?"),                         stdio::readchar(Reply).
it occured error "undeclared identifier 'stdio::readchar'"


thanks
by fathia
15 Dec 2011 12:56
Forum: Visual Prolog
Topic: how to creat a form and link it to onOkClick(Source) = button::defaultAction:-?
Replies: 1
Views: 1244

how to creat a form and link it to onOkClick(Source) = button::defaultAction:-?

how to creat a form and link it to onOkClick(Source) = button::defaultAction:-?
when writting the code

Code: Select all

onOkClick(Source) = button::defaultAction:-      Newdialog= symptom1::new(Source),      Newdialog:show().

occurred erroe.