Tutorial Project. Release 1 - Revision history

Thomas Linder Puls: touch

2021-06-10T13:34:58Z

touch

← Older revision		Revision as of 15:34, 10 June 2021
Line 146:		Line 146:
	end implement main		end implement main
	</vip>		</vip>

	\|rusver=		\|rusver=
	[[ru:Учебный Проект. Релиз 1]]		[[ru:Учебный Проект. Релиз 1]]
	}}		}}

Victor Yukhtenko at 13:34, 1 April 2011

2011-04-01T13:34:19Z

← Older revision		Revision as of 15:34, 1 April 2011
Line 19:		Line 19:
	<vip>		<vip>
	/*****************************************************************************		/*****************************************************************************
	~~Copyright (c)~~ Elena Efimova		Written by Elena Efimova

	Translated by Victor Yukhtenko		Translated by Victor Yukhtenko

Victor Yukhtenko at 12:49, 28 March 2011

2011-03-28T12:49:59Z

← Older revision		Revision as of 14:49, 28 March 2011
Line 22:		Line 22:

	Translated by Victor Yukhtenko		Translated by Victor Yukhtenko

	******************************************************************************/		******************************************************************************/
	goal		goal
Line 145:		Line 144:
	_ = readLine().		_ = readLine().

	end implement main</vip>		end implement main
			</vip>

	\|rusver=		\|rusver=
	[[ru:Учебный Проект. Релиз 1]]		[[ru:Учебный Проект. Релиз 1]]
	}}		}}

Victor Yukhtenko at 09:23, 26 March 2011

2011-03-26T09:23:48Z

← Older revision		Revision as of 11:23, 26 March 2011
Line 1:		Line 1:
	{{~~spbCopyright~~}}		{{PolylineTemplateEn
			\|goal=
			The demonstration of the simplest ways of the Visual Prolog language programming
			\|goalContent=
			\|code=
			*Author: Elena Efimova
			*The source:[http://www.progz.ru/forum/index.php?showtopic=34097&pid=153443&st=0&#entry153443#2 http://www.progz.ru/forum/index.php?showtopic=34097&pid=153443&st=0&#entry153443#2]
			*The User Interface type – console
			*The size of the playing field is set 5x6 points. It is not recommended to set the size of the field more than 36 points (say 6 x 6) due to the inefficient algorithm used
			\|functionality=
			Please follow the instructions of the application.
			\|install={{PolylineInstall}}

	~~This program is part of the [[Tutorial Project Evolutions]] article.~~		\|open=
			{{Polyline1_10Open\|project='''Examples\Polyline\Polyline1\Polyline1.prj'''}}
	{{~~PolyLine Game Rules}}~~

	~~{{note~~\|~~content~~=
	~~It is not recommended to set the size of the field more than 36 points (say 6 x 6) due to the inefficient algorithm used~~
	}}

	~~The source: [http://www.progz.ru/forum/index.php?showtopic=34097&pid=153443&st=0&#entry153443#2 http://www.progz.ru/forum/index.php?showtopic=34097&pid=153443&st=0&#entry153443#2]~~

	~~To run the game please make the steps as follows:~~

	*Create the new project with the User Interface strategy Console
	*In the created project replace the entire content of the file "main.pro" by the code shown below.
	*While building the project answer "Add All", when any dialog with proposals to include any packages to the project appears.

			{{Polyline1-06Copy_Paste}}
			\|run=Run the application using the “E” of the IDE or run the executable at the directory EXE.
	<vip>		<vip>
	/*****************************************************************************		/*****************************************************************************
	Copyright (c) ~~2007-2010.~~ Elena Efimova		Copyright (c) Elena Efimova
	~~Tested for Vip7.3~~

	~~Written~~ by ~~Elena Efimova~~		Translated by Victor Yukhtenko

	~~Translated by Victor Yukhtenko~~
	~~Copyright (c) 2007-2010. Victor Yukhtenko~~
	******************************************************************************/		******************************************************************************/
	goal		goal
Line 150:		Line 147:
	end implement main</vip>		end implement main</vip>

	~~=References~~=		\|rusver=
	[[ru:Учебный Проект. Релиз 1]]		[[ru:Учебный Проект. Релиз 1]]
	~~[[Category:Tutorial Project Evolutions]]~~		}}

Victor Yukhtenko at 21:32, 4 June 2010

2010-06-04T21:32:38Z

← Older revision		Revision as of 23:32, 4 June 2010
Line 14:		Line 14:

	*Create the new project with the User Interface strategy Console		*Create the new project with the User Interface strategy Console
	*In the created project replace the entire content of the file "main.pro" by the code shown below ~~(different for 7.1 and 7.2)~~.		*In the created project replace the entire content of the file "main.pro" by the code shown below.
	*While building the project answer "Add All", when any dialog with proposals to include any packages to the project appears.		*While building the project answer "Add All", when any dialog with proposals to include any packages to the project appears.

Line 20:		Line 20:
	/*****************************************************************************		/*****************************************************************************
	Copyright (c) 2007-2010. Elena Efimova		Copyright (c) 2007-2010. Elena Efimova
			Tested for Vip7.3

	Written by Elena Efimova		Written by Elena Efimova
Line 25:		Line 26:
	Translated by Victor Yukhtenko		Translated by Victor Yukhtenko
	Copyright (c) 2007-2010. Victor Yukhtenko		Copyright (c) 2007-2010. Victor Yukhtenko

	~~Tested for Vip7.3~~
	******************************************************************************/		******************************************************************************/
	goal		goal

Victor Yukhtenko at 21:08, 4 June 2010

2010-06-04T21:08:14Z

← Older revision		Revision as of 23:08, 4 June 2010
Line 26:		Line 26:
	Copyright (c) 2007-2010. Victor Yukhtenko		Copyright (c) 2007-2010. Victor Yukhtenko

	Tested for Vip7.3 ~~Build 7302~~		Tested for Vip7.3
	******************************************************************************/		******************************************************************************/
	goal		goal

Victor Yukhtenko at 21:06, 4 June 2010

2010-06-04T21:06:49Z

Show changes

Victor Yukhtenko at 14:34, 26 May 2010

2010-05-26T14:34:33Z

← Older revision		Revision as of 16:34, 26 May 2010
Line 1:		Line 1:
			{{spbCopyright}}

	This program is part of the [[Tutorial Project Evolutions]] article.		This program is part of the [[Tutorial Project Evolutions]] article.

Victor Yukhtenko: New page: This program is part of the Tutorial Project Evolutions article. {{PolyLine Game Rules}} {{note|content= It is not recommended to set the size of the field more than 36 points (say 6...

2009-10-20T13:53:52Z

New page: This program is part of the Tutorial Project Evolutions article. {{PolyLine Game Rules}} {{note|content= It is not recommended to set the size of the field more than 36 points (say 6...

New page

This program is part of the [[Tutorial Project Evolutions]] article.

{{PolyLine Game Rules}}

{{note|content=
It is not recommended to set the size of the field more than 36 points (say 6 x 6) due to the inefficient algorithm used
}}

The source: [http://www.progz.ru/forum/index.php?showtopic=34097&pid=153443&st=0&#entry153443#2 http://www.progz.ru/forum/index.php?showtopic=34097&pid=153443&st=0&#entry153443#2]

To run the game please make the steps as follows:

*Create the new project with the User Interface strategy Console
*In the created project replace the entire content of the file "main.pro" by the code shown below (different for 7.1 and 7.2).
*While building the project answer "Add All", when any dialog with proposals to include any packages to the project appears.

<vip>
/*****************************************************************************
Copyright (c) 2007-2008. Elena Efimova

Translated by Victor Yukhtenko
Compatible with Vip ver. 7.2
******************************************************************************/
goal
mainExe::run(main::run).

implement main
open core, console

constants
className = "PolyLine".
classVersion = "1.0".

clauses
classInfo(className, classVersion).

domains
cell = c(unsigned16, unsigned16).
cells = cell*.

class predicates
wins: (positive, positive, cells, cells) nondeterm (i,i,i,o).
clauses
wins(_Player1, _Player2, PolyLine, PolyLine1):-
step(PolyLine, PolyLine1, Cell),
list::isMember(Cell, PolyLine).
wins(Player1, Player2, PolyLine, PolyLine1):-
step(PolyLine, PolyLine1, _),
not(wins(Player2, Player1, PolyLine1, _)).

class predicates
move: (positive, cells).
clauses
move(2, PolyLine):-
step(PolyLine, PolyLine1, Cell),
list::isMember(Cell, PolyLine),
!,
show(PolyLine1),
setLocation(console_native::coord(0, 14)),
write("Computer Won!\n\n", PolyLine1).
move(2, PolyLine):-
wins(2, 1, PolyLine, PolyLine1),
!,
move(1, PolyLine1).
move(2, PolyLine):-
step(PolyLine, PolyLine1, _),
!,
move(1, PolyLine1).
move(1, PolyLine):-
show(PolyLine),
setLocation(console_native::coord(0, 14)),
write(PolyLine),
std::repeat(),
write( "\n\nIt is your turn.\nEnter the new cell as c(2,3): "),
hasDomain(cell, К),
К = read(),
clearInput(),
step(PolyLine, PolyLine1, К),
!,
if list::isMember(К, PolyLine) then
write("\nCongratulations! You have won!")
else
move(2, PolyLine1)
end if.
move(_, _).

class predicates
step: (cells, cells, cell) nondeterm (i,o,o) (i,o,i).
clauses
step([A, B | PolyLine], [X, A, B | PolyLine], X):-
candidate(A, X),
not(X = B).
step(PolyLine, PolyLine1, X):-
PolyLine2 = list::reverse(PolyLine),
PolyLine2 = [A, B | _],
candidate(A, X),
not(X = B),
PolyLine1 = list::append(PolyLine, [X]).

class predicates
candidate: (cell, cell) nondeterm (i,o) (i,i).
clauses
candidate(c(X, Y), c(X - 1, Y)):- X > 1.
candidate(c(X, Y), c(X + 1, Y)):- X < 6.
candidate(c(X, Y), c(X, Y - 1)):- Y > 1.
candidate(c(X, Y), c(X, Y + 1)):- Y < 5.

class predicates
show: (cells).
clauses
show(PolyLine):-
clearOutput(),
foreach I = std::fromTo(1, 6) do
setLocation(console_native::coord(3*I, 0)), write(I)
end foreach,
foreach J = std::fromTo(1, 5) do
setLocation(console_native::coord(0, 2*J)), write(J)
end foreach,
foreach c(X, Y) = list::getMember_nd(PolyLine) do
setLocation(console_native::coord(3*X, 2*Y)), write("*")
end foreach.

clauses
run():-
init(),
write("Wich player moves first? (1 - human, 2 - computer): "),
Player = read(),
clearInput(),
if Player = 1 then
write("Enter the start of the line as c(3,3): "),
hasDomain(cell, К1),
К1 = read(),
clearInput(),
write("Enter the end of the line: "),
hasDomain(cell, К2),
К2 = read(),
clearInput(),
move(2, [К1, К2])
else
move(1, [c(3, 3), c(4, 3)])
end if,
_ = readLine().

end implement main</vip>

<vip>/******************************************
Copyright (c) 2007-2008. Elena Efimova

Translated by Victor Yukhtenko
Compatible with Vip ver. 7.1
*******************************************/
goal
mainExe::run(main::run).

implement main
open core, console

constants
className = "PolyLine".
classVersion = "1.0".

clauses
classInfo(className, classVersion).

domains
cell = c(unsigned16, unsigned16).
cells = cell*.

class predicates
wins: (positive, positive, cells, cells) nondeterm (i,i,i,o).
clauses
wins(_Player1, _Player2, PolyLine, PolyLine1):-
step(PolyLine, PolyLine1, Cell),
list::isMember(Cell, PolyLine).
wins(Player1, Player2, PolyLine, PolyLine1):-
step(PolyLine, PolyLine1, _),
not(wins(Player2, Player1, PolyLine1, _)).

class predicates
move: (positive, cells).
clauses
move(2, PolyLine):-
step(PolyLine, PolyLine1, Cell),
list::isMember(Cell, PolyLine),
!,
show(PolyLine1),
setLocation(location(0, 14)),
write("Computer Won!\n\n", PolyLine1).
move(2, PolyLine):-
wins(2, 1, PolyLine, PolyLine1),
!,
move(1, PolyLine1).
move(2, PolyLine):-
step(PolyLine, PolyLine1, _),
!,
move(1, PolyLine1).
move(1, PolyLine):-
show(PolyLine),
setLocation(location(0, 14)),
write(PolyLine),
std::repeat(),
write( "\n\nIt is your turn.\nEnter the new cell as c(2,3): "),
hasDomain(cell, К),
К = read(), clearInput(),
step(PolyLine, PolyLine1, К),
!,
if list::isMember(К, PolyLine) then
write("\nCongratulations! You have won!")
else
move(2, PolyLine1)
end if.
move(_, _).

class predicates
step: (cells, cells, cell) nondeterm (i,o,o) (i,o,i).
clauses
step([A, B | PolyLine], [X, A, B | PolyLine], X):-
candidate(A, X),
not(X = B).
step(PolyLine, PolyLine1, X):-
PolyLine2 = list::reverse(PolyLine),
PolyLine2 = [A, B | _],
candidate(A, X),
not(X = B),
PolyLine1 = list::append(PolyLine, [X]).

class predicates
candidate: (cell, cell) nondeterm (i,o) (i,i).
clauses
candidate(c(X, Y), c(X - 1, Y)):- X > 1.
candidate(c(X, Y), c(X + 1, Y)):- X < 6.
candidate(c(X, Y), c(X, Y - 1)):- Y > 1.
candidate(c(X, Y), c(X, Y + 1)):- Y < 5.

class predicates
show: (cells).
clauses
show(PolyLine):-
clearOutput(),
foreach I = std::fromTo(1, 6) do
setLocation(location(3*I, 0)), write(I)
end foreach,
foreach J = std::fromTo(1, 5) do
setLocation(location(0, 2*J)), write(J)
end foreach,
foreach c(X, Y) = list::getMember_nd(PolyLine) do
setLocation(location(3*X, 2*Y)), write("*")
end foreach.

clauses
run():-
init(),
write("Wich player moves first? (1 - human, 2 - computer): "),
Player = read(), clearInput(),
if Player = 1 then
write("Enter the start of the line as c(3,3): "),
hasDomain(cell, К1),
К1 = read(), clearInput(),
write("Enter the end of the line: "),
hasDomain(cell, К2),
К2 = read(), clearInput(),
move(2, [К1, К2])
else
move(1, [c(3, 3), c(4, 3)])
end if,
_ = readLine().

end implement main</vip>

=References=
[[ru:Учебный Проект. Релиз 1]]
[[Category:Tutorial Project Evolutions]]