Interface graphique pour robot

Nombre de messages : 101 Age : 52 Date d'inscription : 13/04/2013

Bonsoir à tous

Je vous ai fait une interface graphique pour les déplacement d'un mobile, par contre elle fonctionne avec 4 images BMP (Des flèches) que je ne sais pas comment vous les donner.
Le code est simple, il y a un mode Manuel, et auto.
Le mode auto est vide, c'est à vous de faire le complément.
en manu c'est assez sympas

Code:: rem ver 1.0

rem declaration de variables de positions
dim x,y,xr,yr,ori

rem declaration de variables de la carte entree
dim ana1,ana2,dig1,dig2,dig3,dig4,dig5,dig6
dim dig7,dig8

rem declaration de variables de la carte sortie
dim anal1,anal2,digi1,digi2,digi3,digi4,digi5,digi6,digi7,digi8

rem declaration de variables de la carte entite
dim carte

rem declaration variables mode programme
dim mode, start

label clic1, deplacementav, deplacementdr, deplacementar, deplacementga, detection, affichage
label modemanu, modeauto

rem parametre affichage fenetre
color 0,0,50,100 : maximize 0
caption 0,"RAA V1.0"
alpha 1 : top 1,150 : font_color 1,2,255,2 : font_bold 1 : left 1,400
alpha 2 : top 2,30 : font_color 2,255,255,255 : font_bold 2 : left 2,20
alpha 3 : top 3,10 : font_color 3,255,255,255 : font_bold 3 : left 3,20
alpha 4 : top 4,50 : font_color 4,255,255,255 : font_bold 4 : left 4,20
alpha 5 : top 5,70 : font_color 5,255,255,255 : font_bold 5 : left 5,20
alpha 6 : top 6,90 : font_color 6,255,255,255 : font_bold 6 : left 6,20
alpha 7 : top 7,110 : font_color 7,255,255,255 : font_bold 7 : left 7,20
alpha 8 : top 8,50 : font_color 8,255,255,255 : font_bold 8 : left 8,300
alpha 9 : top 9,70 : font_color 9,255,255,255 : font_bold 9 : left 9,300
alpha 10 : top 10,90 : font_color 10,255,255,255 : font_bold 10 : left 10,300
alpha 11 : top 11,29 : font_color 11,255,255,255 : font_bold 11 : left 11,300
alpha 12 : top 12,150 : font_color 12,2,255,2 : font_bold 12 : left 12,400
alpha 13 : top 13,150 : font_color 13,255,2,2 : font_bold 13 : left 13,400
alpha 14 : top 14,230 : font_color 14,145,145,145 : font_bold 14 :left 14,385
alpha 30 : top 30,130 : font_color 30,255,255,255 : font_bold 30 : left 30,20
button 15 : width 15,110 : top 15,6 : font_color 15,145,145,145 : font_bold 15 : left 15,300
button 16 : top 16,6 : font_color 16,145,145,145 : font_bold 16 : left 16,460
alpha 17 : top 17,80 : font_color 17,145,145,145 : font_bold 17 : left 17,4
picture 20 : top 20,90 : left 20,460 : width 20,25 : height 20,25
picture 19 : top 19,90 : left 19,400 : width 19,30 : height 19,30
picture 18 : top 18,70 : left 18,430 : width 18,30 : height 18,30
picture 21 : top 21,110 : left 21,430: width 21,30 : height 21,30
picture 22 : top 22, 200 : left 22,430 : width 22,30 : height 22,30
caption 15,"START mode auto"
caption 16,"Stop"
caption 30,"Position du robot: X=14 _ Y=26
caption 14, "Orientation du robot"
caption 2,"Position recherchée : x=? _ y=?"
caption 3,"Etat du process :"
caption 4,"Etat des entrées analogiques :"
caption 5,"Etat des entrées digitales :"
caption 6,"Etat des sorties analogiques :"
caption 7,"Etat des sorties digitales :"
file_load 18,"avance.bmp"
file_load 19,"gauche.bmp"
file_load 20,"droite.bmp"
file_load 21,"arriere.bmp"
caption 1,"Commande On"
file_load 22,"avance.bmp"
rem création de la grille
grid 100 :left 100,550 :top 100,5
height 100,705 : width 100,705: grid_column 100,50
grid_column_width 100,13 : grid_row_height 100,13
grid_row 100,50
font_color 100,145,2,2: font_bold 100
grid_write 100,25,26,"#"

rem valeur variables
mode = 0
ori = 0
xr=25
yr=26
x= yr
y= yr

rem clic
clic1:
on_click 18,deplacementav
on_click 19,deplacementga
on_click 20,deplacementdr
on_click 21,deplacementar
on_click 15,modeauto
on_click 16,modemanu

beep
end

deplacementav:

if mode=1
beep
print mode
goto clic1
end_if
if ori = 0
xr = xr-1
end_if
if ori = 1
yr = yr+1
end_if
if ori = 2
xr = xr+1
end_if
if ori = 3
yr = yr-1
end_if
gosub affichage
return

deplacementdr:
if mode=1
beep
print mode
goto clic1
end_if
ori = ori+1
if ori > 4
ori = 0
end_if
gosub affichage
return

deplacementar:
if mode=1
beep
print mode
goto clic1
end_if
if ori = 2
xr = xr-1
end_if
if ori = 1
yr = yr-1
end_if
if ori = 0
xr = xr+1
end_if
if ori = 3
yr = yr+1
end_if

gosub affichage
return

deplacementga:
if mode=1
beep
print mode
goto clic1
end_if
ori = ori-1
if ori < 0
ori = 3
end_if
gosub affichage
return

detection:

gosub affichage
return

affichage:
print ori
grid_write 100,x,y,"0"
if ori = 0
file_load 22,"avance.bmp"
end_if
if ori = 1
file_load 22,"droite.bmp"
end_if
if ori = 2
file_load 22,"arriere.bmp"
end_if
if ori = 3
file_load 22,"gauche.bmp"
end_if
grid_write 100,x,y," "
x=xr
y=yr
grid_write 100,xr,yr,"#"

return

modemanu:
mode = 0
hide 13
show 12
caption 12,"Commande On "
return

modeauto:
mode = 1
hide 12
show 13
caption 13,"Commande off"

return

c'est dommage pour les images.bmp, elle représentes des flèche pour la commande jostick, et un qui visualise l'orientation du mobile.

gilles

@ gigi75,

Plusieurs solutions pour partager des images:

1/ tu les post sur le forum
( pas super ca prend de la place sur le serveur )

2/ tu fais comme la plupart d'entre nous, un webdav
( c'est pas mal )

3/ tu transformes tes *.bmp en "data"
( je dois avoir laissé mon petit outil sur mon webdav )

Nombre de messages : 186 Date d'inscription : 26/11/2012

Bonjour
@ ygeronimi: Ton outil est dans quel répertoire de ton webdav ?

Invité

Bonjour,
Je suis désolé pour ne pas pouvoir regardr ton programme, il me faudrait 2 vies en ce moment.
Est-ce que les caractères de la fonte: Wingdings ne peuvent pas servir?

le programme se trouve dans :

"Mes programmes.exe\Outils Panoramic\Install Panoramic Data Création.exe"

tu choisis ton fichier avec un open dialog
tu le conconvertis
et tu l'enregistres avec un save dialog
ensuite tu mets un include dans ton source
tu récupères la fonction de re création de l'image incorporée en l'appelant
(cf l' entête du fichier créé)

Lis bien l' aide, c'est court mais çà aide ... Laughing

Un petit exemple :

j' ai un bouton image en 25x25
je charge par Ouvrir
je convertis par Convertir
je l'enregistre dans mon dossier source par Enregistrer
je le nomme :"onButton_bmp.bas"

dans mon source principal :

Code:: Init_bmp()

end
sub Init_bmp()
Read_On_Button_bmp(no%)
end_sub

#include "outButton.bas"

no% est la cible 2D pour redessiner le bouton dans mon appli
après tu peux adapter la fonction de re création comme tu veux

Nombre de messages : 186 Date d'inscription : 26/11/2012

Merci ygeronimi, j'ai installé ton outil et j'ai créé un fichier data sans problème.
Je regarde comment l'utiliser ce soir car je profite du relatif beau temps pour travailler dans le jardin.
A+

@ francis-mr,

Mais de rien très cher...
Tu remarqueras que l'installateur inclus un " désinstallateur " ce qui est pratique pour faire le ménage
dans les applications.

bonsoir a tous
GIGI je viens d'executer ton programme avec des fleches "maison" pirat

rien de sorcier en trois click sur paint (pour les autres: elles doivent etre en 20x20 pixels)

juste , je reprends la remarque de Papydall
"pense a mettre quelques explications ça et là"

pour le programme super, il te reste a rentrer le resultat de ta sonde et creer ton premier univers

ou mieux encore ,tu rentre son monde a ton robot et il doit s'orienter pour retrouver ça maison!!!!!

les idées ne manque pas jocolor

bon courage
mindstorm

Nombre de messages : 101 Age : 52 Date d'inscription : 13/04/2013

Re-bonjours à tous.

J'ai suprimé les images, l'interface est simple, il s'agit d'un programme qui peut servir pour le déplacement manuel d'un mobile, la commande auto est vide, je vous laisse la liberté de la remplir.
En mode manu, vous pouvez vous servir des bouton pour déplacer le mobile, la marche avant diffère en fonction de l'orientation du mobile.

Code:: rem ver 1.0

rem declaration de variables de positions
dim x,y,xr,yr,ori

rem declaration variables mode programme
dim mode, start

rem declaration tempo
dim tempoav, tempoga, tempodr, tempore

label clic1, deplacementav, deplacementdr, deplacementar, deplacementga, affichage
label modemanu, modeauto

rem parametre affichage fenetre
color 0,0,50,100 : maximize 0
caption 0,"RAA V1.0"
alpha 1 : top 1,150 : font_color 1,2,255,2 : font_bold 1 : left 1,400
alpha 2 : top 2,40 : font_color 2,255,255,255 : font_bold 2 : left 2,20
alpha 3 : top 3,20 : font_color 3,255,255,255 : font_bold 3 : left 3,20
alpha 4 : top 4,60 : font_color 4,255,255,255 : font_bold 4 : left 4,20
alpha 5 : top 5,80 : font_color 5,255,255,255 : font_bold 5 : left 5,20
alpha 6 : top 6,100 : font_color 6,255,255,255 : font_bold 6 : left 6,20
alpha 7 : top 7,120 : font_color 7,255,255,255 : font_bold 7 : left 7,20
alpha 8 : top 8,60 : font_color 8,255,255,255 : font_bold 8 : left 8,300
alpha 9 : top 9,80 : font_color 9,255,255,255 : font_bold 9 : left 9,300
alpha 10 : top 10,100 : font_color 10,255,255,255 : font_bold 10 : left 10,300
alpha 11 : top 11,29 : font_color 11,255,255,255 : font_bold 11 : left 11,300
alpha 12 : top 12,150 : font_color 12,2,255,2 : font_bold 12 : left 12,400
alpha 13 : top 13,150 : font_color 13,255,2,2 : font_bold 13 : left 13,400
alpha 14 : top 14,290 : font_color 14,145,145,145 : font_bold 14 :left 14,385
alpha 30 : top 30,140 : font_color 30,255,255,255 : font_bold 30 : left 30,20
alpha 31 : top 30,140 : font_color 30,255,255,255 : font_bold 30 : left 30,20
alpha 32 : top 32,20 : font_color 32,255,255,255 : font_bold 32 : left 32,120
button 15 : width 15,110 : top 15,6 : font_color 15,145,145,145 : font_bold 15 : left 15,300
button 16 : top 16,6 : font_color 16,145,145,145 : font_bold 16 : left 16,460
alpha 17 : top 17,80 : font_color 17,145,145,145 : font_bold 17 : left 17,4
button 20 : top 20,90 : left 20,460 : width 20,30 : height 20,30
button 19 : top 19,90 : left 19,400 : width 19,30 : height 19,30
button 18 : top 18,70 : left 18,430 : width 18,30 : height 18,30
button 21 : top 21,110 : left 21,430: width 21,30 : height 21,30
caption 15,"START mode auto"
caption 16,"Stop"
caption 20, "DR"
caption 19, "GA"
caption 18, "AV"
caption 21, "AR"
caption 30,"Position du robot: X=14 _ Y=26"
caption 32,"Manuel"
caption 14, "Orientation du robot"
caption 2,"Position recherchée : x=? _ y=?"
caption 3,"Etat du process :"
caption 4,"Etat des entrées analogiques :"
caption 5,"Etat des entrées digitales :"
caption 6,"Etat des sorties analogiques :"
caption 7,"Etat des sorties digitales :"
caption 1,"Commande On"
2d_fill_color 255,0,0
2d_circle 480,220,9
2d_circle 440,250,9
2d_circle 400,220,9
2d_fill_color 0,255,0
2d_circle 440,190,9
rem création de la grille
grid 100 :left 100,550 :top 100,5
height 100,705 : width 100,705: grid_column 100,50
grid_column_width 100,13 : grid_row_height 100,13
grid_row 100,50
font_color 100,145,2,2: font_bold 100
grid_write 100,25,26,"#"

rem valeur variables
mode = 0
ori = 0
xr=25
yr=26
x= yr
y= yr
tempoav=10
tempore=10
tempoga=50
tempodr=50

rem clic
clic1:
on_click 18,deplacementav
on_click 19,deplacementga
on_click 20,deplacementdr
on_click 21,deplacementar
on_click 15,modeauto
on_click 16,modemanu
end

deplacementav:
caption 32,"Avance"
if mode=1
goto clic1
end_if
if ori = 0
xr = xr-1
end_if
if ori = 1
yr = yr+1
end_if
if ori = 2
xr = xr+1
end_if
if ori = 3
yr = yr-1
end_if
gosub affichage
return

deplacementdr:
caption 32,"Pivote à droite"
if mode=1
beep
print mode
goto clic1
end_if
ori = ori+1
if ori > 4
ori = 0
end_if
gosub affichage
return

deplacementar:
caption 32,"Recul"
if mode=1
goto clic1
end_if
if ori = 2
xr = xr-1
end_if
if ori = 1
yr = yr-1
end_if
if ori = 0
xr = xr+1
end_if
if ori = 3
yr = yr+1
end_if
gosub affichage
return

deplacementga:
caption 32,"Pivote à gauche"
if mode=1
goto clic1
end_if
ori = ori-1
if ori < 0
ori = 3
end_if
gosub affichage
return

affichage:

if ori=4
ori = 0
end_if
2d_fill_color 255,0,0
2d_circle 440,190,9
2d_circle 480,220,9
2d_circle 440,250,9
2d_circle 400,220,9
if ori = 0
2d_fill_color 0,255,0
2d_circle 440,190,9
end_if
if ori = 1
2d_fill_color 0,255,0
2d_circle 480,220,9
end_if
if ori = 2
2d_fill_color 0,255,0
2d_circle 440,250,9
end_if
if ori = 3
2d_fill_color 0,255,0
2d_circle 400,220,9
end_if
grid_write 100,x,y," "
x=xr
y=yr
grid_write 100,xr,yr,"#"
caption 30,"Position du robot : x=" + str$ (xr) + " y=" + str$ (yr)
return

modemanu:
on_click 18,deplacementav
on_click 19,deplacementga
on_click 20,deplacementdr
on_click 21,deplacementar
caption 32,"Manuel"
mode = 0
hide 13
show 12
caption 12,"Commande On "
return

modeauto:
caption 32,"Auto"
mode = 1
hide 12
show 13
caption 13,"Commande off"
off_click 18
off_click 19
off_click 20
off_click 21
return

Avec ce code, les deplacements sont horizontaux et verticaux, il est sympas, et de plus de partager nos créations est vraiment bien plus qu'une simple discution, on partage, et c'est ca le plaisir.

Gilles

Exactement gigi. Perso je ne publie pas de code en ce moment, tout simplement par ce que je n'ais pas le temps de coder. Pourtant j'aimerais bien finir mes trucs en cours...

Nombre de messages : 101 Age : 52 Date d'inscription : 13/04/2013

Le temps est un facteur important, il est une liberté que nous ne contrôlons pas toujours, j'en fais l'expérience.
Je sais que tu est là, ce n'est pas le contenu qui compte, mais le contenant.

Ta présence suffit.

Gilles

Gilles, c’est exactement ce que je croix.
Le savoir ne vaut rien s’il n’est pas partagé.
C’est dans ma signature.

Nombre de messages : 598 Date d'inscription : 06/01/2012

Je pense qu'il y a un problème lors de la création de la grille (ligne 67) : chez moi ça donne un (47) Object out of range...

Tu sembles avoir plusieurs problème de saturation.
Suite à un bug as-tu bien fermé tous les Panoramic.exe dans le gestionnaire de tâche ou / et as tu rebooté ta machine ?

Nombre de messages : 598 Date d'inscription : 06/01/2012

C'est intervenu après un REBOOT, mais j'avoue que j'utilise une vieille machine dont je n'ai pas effacé toutes les versions du PANORAMIC... ça expliquerait peut-être aussi le problème que j'expose dans un autre post sur un programme de Champollion. Je fais le ménage et j'avise, merci !

» Interface graphique pour robot
» Interface de puissance pour la régie lumière 8 canaux.
» Interface de commande RS485/Modbus
» systeme de combat et compétence[Skill system and battle sys]
» Interface avec Outlook