Subversion Repositories svnkaklik

Compare Revisions

No changes between revisions

Ignore whitespace Rev 296 → Rev 310

/programy/Robsim/Robiada2007/Cholerik.sum
0,0 → 1,119
program Cholerik;
 
var i, last;
 
LMOT:=30;
RMOT:=20;
 
while true
do
 
#last:= RRTOUCH & RFTOUCH & LRTOUCH & LFTOUCH;
 
if LEYE = 0 then
LMOT:=-30;
RMOT:=-30;
i:=TIME;
while TIME < (i+0.5)
do end;
LMOT:=-30;
RMOT:=30;
i:=TIME;
while TIME < (i+1)
do
if CEYE = 0 then
break;
end;
end;
LMOT:=30;
RMOT:=30;
end;
 
if REYE = 0 then
LMOT:=-30;
RMOT:=-30;
while TIME < (i+0.5)
do end;
LMOT:=30;
RMOT:=-30;
i:=TIME;
while TIME < (i+1)
do
if CEYE = 0 then
break;
end;
end;
LMOT:=30;
RMOT:=30;
end;
 
if CEYE = 0 then
RMOT:=-30;
LMOT:=-30;
i:=TIME;
while TIME < (i+1)
do end;
RMOT:=30;
LMOT:=-30;
i:=TIME;
while TIME < (i+1)
do
if RRADAR>0 or LRADAR>0 then
break;
end;
RMOT:=30;
LMOT:=30;
end;
 
if RFTOUCH = 1 then
RMOT:=-30;
LMOT:=30;
i:=TIME;
while TIME < (i+1)
do
if CEYE = 0 then
break;
end;
end;
RMOT:=30;
LMOT:=0;
i:=TIME;
while TIME < (i+1)
do
if CEYE = 0 or RRADAR>0 or LRADAR>0 then
break;
end;
end;
RMOT:=30;
LMOT:=30;
end;
 
if LFTOUCH = 1 then
RMOT:=30;
LMOT:=-30;
i:=TIME;
while TIME < (i+0.5)
do
if CEYE = 0 then
break;
end;
end;
RMOT:=0;
LMOT:=30;
i:=TIME;
while TIME < (i+0.5)
do
if CEYE = 0 or RRADAR>0 or LRADAR>0 then
break;
end;
end;
RMOT:=30;
LMOT:=30;
end;
if RRTOUCH = 1 or LRTOUCH = 1 then
RMOT:=30;
LMOT:=-30;
end;
end;
end;
/programy/Robsim/Robiada2007/kaklik.sum
0,0 → 1,122
program Cholerik;
 
var i, last;
 
LMOT:=30;
RMOT:=20;
 
while true
do
 
#last:= RRTOUCH & RFTOUCH & LRTOUCH & LFTOUCH;
 
if LEYE = 0 then
LMOT:=-30;
RMOT:=-30;
i:=TIME;
while TIME < (i+0.5)
do
end;
LMOT:=-30;
RMOT:=30;
i:=TIME;
while TIME < (i+1)
do
if CEYE = 0 then
break;
end;
end;
LMOT:=30;
RMOT:=30;
end;
 
if REYE = 0 then
LMOT:=-30;
RMOT:=-30;
while TIME < (i+0.5)
do
end;
LMOT:=30;
RMOT:=-30;
i:=TIME;
while TIME < (i+1)
do
if CEYE = 0 then
break;
end;
end;
LMOT:=30;
RMOT:=30;
end;
 
if CEYE = 0 then
RMOT:=-30;
LMOT:=-30;
i:=TIME;
while TIME < (i+0.5)
do
end;
RMOT:=30;
LMOT:=-30;
i:=TIME;
while TIME < (i+1)
do
if RRADAR>0 or LRADAR>0 then
break;
end;
RMOT:=30;
LMOT:=30;
end;
 
if RFTOUCH = 1 then
RMOT:=-30;
LMOT:=30;
i:=TIME;
while TIME < (i+1)
do
if CEYE = 0 then
break;
end;
end;
RMOT:=30;
LMOT:=0;
i:=TIME;
while TIME < (i+1)
do
if CEYE = 0 or RRADAR>0 or LRADAR>0 then
break;
end;
end;
RMOT:=30;
LMOT:=30;
end;
 
if LFTOUCH = 1 then
RMOT:=30;
LMOT:=-30;
i:=TIME;
while TIME < (i+0.5)
do
if CEYE = 0 then
break;
end;
end;
RMOT:=0;
LMOT:=30;
i:=TIME;
while TIME < (i+0.5)
do
if CEYE = 0 or RRADAR>0 or LRADAR>0 then
break;
end;
end;
RMOT:=30;
LMOT:=30;
end;
if RRTOUCH = 1 or LRTOUCH = 1 then
RMOT:=30;
LMOT:=-30;
end;
end;
end;
/programy/Robsim/index-soutez.html
0,0 → 1,32
<?xml version="1.0" encoding="iso-8859-2"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="cz" lang="cz">
<head>
<meta http-equiv="content-type"
content="text/html; charset=iso-8859-2" />
<meta http-equiv="content-language" content="cs" />
<link rel="stylesheet" href="robsim.css">
<title>SIMULACE SUMO ROBOTA</title>
</head>
 
<html>
<head>
</head>
<body>
<div align="center">
<!-- a href="lang.html" class="menu">Popis programovacího jazyka</a>
<a href="examples.html" class="menu">Pøíklady programù pro robota</a>
<a href="task.html" class="menu">Zadání úkolù</a -->
 
<h3>SIMULACE ROBOLABYRINTU A ROBOSUMA</h3>
<div class="warning">POZOR! Pøed zavøením okna si nezapomeòte zkopírovat kód na svùj poèítaè! POZOR! </div>
<applet code="SimApplet.class" archive="robsim_soutez.jar" width=850 height=600>
<param name="delay" value="1">
<param name="fps" value="25">
<param name="arrows" value="1">
</applet>
 
</div>
 
</body>
</html>
/programy/Robsim/robsim.jar
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
/programy/Robsim/robsim_soutez.jar
Cannot display: file marked as a binary type.
svn:mime-type = application/octet-stream
Property changes:
Added: svn:mime-type
+application/octet-stream
\ No newline at end of property