Interface graphique pour robot

 rem Archi Ver 1.0

 
 rem Déclaration des variables consignes
 dim mode, tempoav, tempoar, tempoga, tempodr, sens, coorx, coory, coorxx, cooryy
 dim capteur1, rotatete
 
 rem Déclaration des labels
 label debut
 label affichageauto, affichagemanu, exit, moteurav, moteurar, moteurga, moteurdr
 label affichagegrid, detection
 rem affichage premier plan
 maximize 0
 caption 0,"Archi gilles Ver 1.0"
 
 rem attribution valeur variables
 mode = 0
 tempoav = 500
 tempoar = 500
 tempoga = 500
 tempodr = 500
 capteur1 = 0
 coorx = 19
 coory = 18
 sens = 1
 rotatete = 1
 
 rem creation des boutons
 button 1 : top 1,10 : left 1,10 : caption 1,"Start"
 button 2 : top 2,10 : left 2,100 : caption 2,"Stop"
 button 3 : top 3,10 : left 3,190 : caption 3,"Test capteur1"
 button 4 : top 4,10 : left 4,280 : caption 4,"Exit"
 Button 5 : width 5,30 : top 5,55 : left 5,120 : caption 5,"AV"
 Button 6 : width 6,30 : top 6,105 : left 6,120 : caption 6,"AR"
 Button 7 : width 7,30 : top 7,80 : left 7,80 : caption 7,"GA"
 Button 8 : width 8,30 : top 8,80 : left 8,160 : caption 8,"DR"
 
 rem affichage de demarrage
grid 10
grid_row 10,35
grid_column 10,35
grid_column_width 10,15
grid_row_height 10,15
width 10,565
height 10,565
top 10,70
left 10,400
grid_clear 10,1,35
font_bold 10
font_color 10,255,0,0
grid_write 10,18,19,"X"
2d_pen_color 0,255,0
2d_line 10,40,85,40
2d_line 10,41,85,41
2d_line 10,42,85,42
2d_line 190,40,264,40
2d_line 190,41,264,41
2d_line 190,42,264,42
2d_pen_color 255,0,0
2d_line 100,40,174,40
2d_line 100,41,174,41
2d_line 100,42,174,42
2d_pen_color 0,0,0
2d_fill_color 0,255,0
2D_circle 135,93,9
alpha 20 : font_bold 20 : top 20,150 : left 20,10 : Caption 20,"MODE :"
alpha 21 : font_bold 21 : top 21,150 : left 21,57 : caption 21,"MANU"
alpha 22 : font_bold 22 : top 22,170 : left 22,10 : Caption 22,"ACTION : "
alpha 23 : font_bold 23 : top 23,170 : left 23,65 : caption 23,"NEANT"
alpha 24 : font_bold 24 : top 24,190 : left 24,10 : Caption 24,"MESURE CAPTEUR TËTE :"
alpha 25 : font_bold 25 : top 25,190 : left 25,170 : caption 25, capteur1
alpha 26 : font_bold 26 : top 26,10 : left 26,400 : Caption 26,"MOTEUR AV"
alpha 27 : font_bold 27 : top 27,10 : left 27,550 : Caption 27,"MOTEUR AR"
alpha 28 : font_bold 28 : top 28,10 : left 28,700 : Caption 28,"ROTATION GA"
alpha 29 : font_bold 29 : top 29,10 : left 29,850 : Caption 29,"ROTATION DR"
alpha 30 : font_bold 30 : top 30,10 : left 30,1000 : Caption 30, "DETECTION TETE"
alpha 31 : font_bold 31 : top 31,10 : left 31,1150 : Caption 31, "ROTATION TETE"
alpha 32 : font_size 32,15 :font_bold 32 : top 32,640 : left 32,470 : Caption 32, "ORIENTATION SUR LA GRILLE :"
alpha 33 : font_size 33,15 :font_bold 33 : top 33,640 : left 33,790 : Caption 33, "NORD"
2d_pen_color 0,0,0
2d_fill_color 255,0,0
2D_circle 440,40,9
2D_circle 590,40,9
2D_circle 740,40,9
2D_circle 890,40,9
2D_circle 1055,40,9
2D_circle 1200,40,9


debut:
on_click 1, affichageauto
on_click 2, affichagemanu
on_click 4, exit
on_click 5, moteurav
on_click 6, moteurar
on_click 7, moteurga
on_click 8, moteurdr
on_click 3, detection
end

 
affichageauto:
mode = 1
caption 21,"AUTO"
2d_pen_color 255,0,0
2d_line 10,40,85,40
2d_line 10,41,85,41
2d_line 10,42,85,42
2d_pen_color 0,255,0
2d_line 100,40,174,40
2d_line 100,41,174,41
2d_line 100,42,174,42
2d_pen_color 255,0,0
2d_line 190,40,264,40
2d_line 190,41,264,41
2d_line 190,42,264,42
2d_fill_color 255,0,0
2D_circle 135,93,9
return


affichagemanu:
mode = 0
caption 21,"MANU"
2d_pen_color 0,255,0
2d_line 10,40,85,40
2d_line 10,41,85,41
2d_line 10,42,85,42
2d_pen_color 255,0,0
2d_line 100,40,174,40
2d_line 100,41,174,41
2d_line 100,42,174,42
2d_pen_color 0,255,0
2d_line 190,40,264,40
2d_line 190,41,264,41
2d_line 190,42,264,42
2d_fill_color 0,255,0
2D_circle 135,93,9
return

affichagegrid:

moteurav:
caption 23, "AVANCE"
if mode=1
beep
return
end_if
2d_fill_color 0,255,0
2D_circle 440,40,9
wait tempoav
2d_fill_color 255,0,0
2D_circle 440,40,9
grid_write 10,coory,coorx," "
if sens = 1
coory = coory - 1
grid_write 10,coory,coorx,"X"
end_if
if sens = 2
coorx = coorx + 1
grid_write 10,coory,coorx,"X"
end_if
if sens = 3
coory = coory + 1
grid_write 10,coory,coorx,"X"
end_if
if sens = 4
coorx = coorx - 1
grid_write 10,coory,coorx,"X"
end_if
caption 23, "NEANT"
return
 

moteurar:
caption 23, "RECUL"
if mode=1
beep
return
end_if
2d_fill_color 0,255,0
2D_circle 590,40,9
wait tempoar
2d_fill_color 255,0,0
2D_circle 590,40,9
grid_write 10,coory,coorx," "
if sens = 1
coory = coory + 1
grid_write 10,coory,coorx,"X"
end_if
if sens = 2
coorx = coorx - 1
grid_write 10,coory,coorx,"X"
end_if
if sens = 3
coory = coory - 1
grid_write 10,coory,coorx,"X"
end_if
if sens = 4
coorx = coorx + 1
grid_write 10,coory,coorx,"X"
end_if
caption 23, "NEANT"
return


moteurga:
caption 23, "ROTATION GAUCHE"
if mode=1
beep
return
end_if
2d_fill_color 0,255,0
2D_circle 740,40,9
wait tempoga
2d_fill_color 255,0,0
2D_circle 740,40,9
if sens = 1
sens = 4
else
sens = sens - 1
end_if
 if sens = 1
 caption 33 , "NORD"
 end_if
 if sens = 2
 caption 33 , "EST"
 end_if
 if sens = 3
 caption 33 , "SUD"
 end_if
 if sens = 4
 caption 33, "OUEST"
 end_if
caption 23, "NEANT"
return


moteurdr:
caption 23, "ROTATION DROITE"
if mode=1
beep
return
end_if
2d_fill_color 0,255,0
2D_circle 890,40,9
wait tempodr
2d_fill_color 255,0,0
2D_circle 890,40,9
if sens = 4
sens = 1
else
sens = sens + 1
end_if
 if sens = 1
 caption 33 , "NORD"
 end_if
 if sens = 2
 caption 33 , "EST"
 end_if
 if sens = 3
 caption 33 , "SUD"
 end_if
 if sens = 4
 caption 33, "OUEST"
 end_if
caption 23, "NEANT"
return

detection:

2d_fill_color 0,255,0
2D_circle 1200,40,9










2D_circle 1200,40,9
beep
return

exit:
terminate