Discussions related to Visual Prolog
hadiranji
Posts: 11
Joined: 7 Dec 2013 15:16

use object in class

Unread post by hadiranji »

hi
i write a program to calculate path between edges but i can't return value to editbox and only i write in command windows !
how can do it ?

Code: Select all

connected(Window,X,Z):-edge(X,Z,L),L>"0", draw(Window,X,Z),nVal:=nVal+toterm(L), stdio::write(X, " to ",Z," by weight ", L," all ",nVal,"\n"),!.   connected(Window,X,Z):-edge(X,Y,L),L>"0", connected(Window,Y,Z),nVal:=nVal+toterm(L), stdio::write(X, " to ",Y," by weight ", L," all ",nVal,"\n"), %edit18_ctl:setText(tostring(L)), draw(Window,X,Y),!.   connected(_Window,_X,_Y).
Post Reply