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
» I Love You
par papydall Aujourd'hui à 1:15

» mise a jour calculatrice
par joeeee2017 Aujourd'hui à 1:01

» Convertisseur de base 10 de 2 à 36
par gigi75 Hier à 18:49

» [solved] 3D_LINE How to ?
par papydall Hier à 6:51

» supprimé
par joeeee2017 Dim 15 Oct 2017 - 20:02

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» supprimé
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
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   Ven 26 Juil 2013 - 20:28

Bonjours à tous,

Mon PC chauffe par la chaleur, nous aussi.
Je vous ai fait une interface graphique à complété suivant les besoin de chacun pour le déplacement d'un robot ou modélisme.
Ce la fonctionne manuellement.
Code:
 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
 

Cordialement.

Croyez vous que dans les grands projets de panoramic, au futur, il y aura un module panoramic pour creer des applications ANDROID?cheers 

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

avatar

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

MessageSujet: Re: Interface graphique pour robot   Lun 29 Juil 2013 - 21:57

whaou
beau travail
j'ai hate de voir la suite
mindstorm
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
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: