Picaxe 20X2 MICROBOT Mode D'emploi page 38

BOT120FR PICAXE-20X2 MICROBOT
Exemple de fichier BASIC :
BOT120 LIGHT FOLLOWER.BAS
symbol distance = w0 ' b1:b0
symbol leftEyeLevel = b2
symbol rightEyeLevel = b3
symbol brightnessDifference = b4
' Configure les photo-capteurs comme analogique
adcsetup = %1010000000
main:
' Lecture du niveau de luminosité sur les photo-capteurs
readadc 7, leftEyeLevel
readadc 9, rightEyeLevel
' Détermine s'il y a un obstacle. Si oui, stop et attend
' Cela avec le module SRF005 (si installé).
do
pause 10
pulsout C.2, 2
pulsin C.2, 1, distance
distance = distance * 5 / 58
ff distance < 10 then
end if
loop until distance >= 10
' Détermine lequel des photo-capteurs reçoit le plus d'intensité lumineuse
if leftEyeLevel > rightEyeLevel then
brightnessDifference = leftEyeLevel – rightEyeLevel
if brightnessDifference >= 10 then ' tourne à gauche
else
end if
else
brightnessDifference = rightEyeLevel – leftEyeLevel
if brightnessDifference >= 10 then ' tourne à droite
else ' avance
end if
end if
' Répète la boucle indéfiniment
goto main
revolution
halt A
halt B
pause 1000
halt A
forward B
forward A
forward B
forward A
halt B
forward A
forward B
© Copyright Revolution Education Ltd.
Traduction : Claude Robert Vendome
' Avance
Web : www.picaxe.com v.1.04.2015
38
BOT120.PMD