FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» KGF.dll - demandes ou suggestions de modifications ou ajouts
par Klaus Aujourd'hui à 19:48

» KGF_dll - nouvelles versions
par pascal10000 Aujourd'hui à 17:27

» Mah-Jong européen new-look
par Minibug Hier à 22:31

» track_bar circulaire
par Klaus Hier à 13:54

» API Windows
par Klaus Hier à 3:21

» Cartes de voeux, menus, etc.
par JL35 Lun 11 Déc 2017 - 17:48

» a l'aide klaus
par Minibug Lun 11 Déc 2017 - 11:42

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Lun 11 Déc 2017 - 0:16

» Jukebox : Serge Reggiani
par papydall Sam 9 Déc 2017 - 5:58

» Ecouter la radio fm sur votre pc
par pascal10000 Sam 9 Déc 2017 - 3:42

» anomalie
par Klaus Sam 9 Déc 2017 - 3:21

» hommage
par Jicehel Ven 8 Déc 2017 - 11:29

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Ven 8 Déc 2017 - 10:43

» carte son
par Klaus Ven 8 Déc 2017 - 2:37

» mise a jour calculatrice
par joeeee2017 Mer 6 Déc 2017 - 22:19

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Décembre 2017
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031
CalendrierCalendrier

Partagez | 
 

 Interface graphique pour robot

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
gigi75

avatar

Nombre de messages : 95
Age : 45
Date d'inscription : 13/04/2013

MessageSujet: Interface graphique pour robot   Lun 27 Mai 2013 - 0:18

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 27 Mai 2013 - 1:05

@ 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 )
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Francis-mr



Nombre de messages : 164
Age : 65
Localisation : Corrèze
Date d'inscription : 26/11/2012

MessageSujet: Re: Interface graphique pour robot   Lun 27 Mai 2013 - 8:46

Bonjour
@ ygeronimi: Ton outil est dans quel répertoire de ton webdav ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://cfmr.e-monsite.com
Invité
Invité



MessageSujet: Re: Interface graphique pour robot   Lun 27 Mai 2013 - 10:30

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?
Revenir en haut Aller en bas
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 27 Mai 2013 - 15:39

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 27 Mai 2013 - 16:01

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Francis-mr



Nombre de messages : 164
Age : 65
Localisation : Corrèze
Date d'inscription : 26/11/2012

MessageSujet: Re: Interface graphique pour robot   Lun 27 Mai 2013 - 17:53

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+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://cfmr.e-monsite.com
Yannick

avatar

Nombre de messages : 8002
Age : 46
Localisation : Bretagne
Date d'inscription : 15/02/2010

MessageSujet: re   Lun 27 Mai 2013 - 20:13

@ 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.



Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mindstorm

avatar

Nombre de messages : 542
Age : 48
Localisation : charente
Date d'inscription : 13/02/2013

MessageSujet: Re: Interface graphique pour robot   Lun 27 Mai 2013 - 22:22

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
gigi75

avatar

Nombre de messages : 95
Age : 45
Date d'inscription : 13/04/2013

MessageSujet: salut   Jeu 30 Mai 2013 - 12:05

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Interface graphique pour robot   Jeu 30 Mai 2013 - 12:12

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...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
gigi75

avatar

Nombre de messages : 95
Age : 45
Date d'inscription : 13/04/2013

MessageSujet: Re: Interface graphique pour robot   Jeu 30 Mai 2013 - 12:17

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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5613
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Interface graphique pour robot   Jeu 30 Mai 2013 - 12:54

Gilles, c’est exactement ce que je croix.
Le savoir ne vaut rien s’il n’est pas partagé.
C’est dans ma signature.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Froggy One

avatar

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

MessageSujet: Re   Jeu 30 Mai 2013 - 14:21

Question 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...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
Jicehel

avatar

Nombre de messages : 5863
Age : 45
Localisation : 77500
Date d'inscription : 19/04/2011

MessageSujet: Re: Interface graphique pour robot   Jeu 30 Mai 2013 - 14:25

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 ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Froggy One

avatar

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

MessageSujet: Re   Jeu 30 Mai 2013 - 14:38

scratch 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 !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://gaeldwest.wordpress.com
Contenu sponsorisé




MessageSujet: Re: Interface graphique pour robot   

Revenir en haut Aller en bas
 
Interface graphique pour robot
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» interface bbox
» Logiciel Set ediiteur pour les séries FR7X et FR3X
» Tron Legacy ou l'art de créer des logiciels pour les VFX
» Livebox 2 : nouvelle interface SoftAtHome pour les modems Sagem (màj)
» Visionner une video sur le Carminat

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Vos sources, vos utilitaires à partager-
Sauter vers: