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 pascal10000 Aujourd'hui à 17:49

» Cartes de voeux, menus, etc.
par JL35 Aujourd'hui à 17:48

» Mah-Jong européen new-look
par jjn4 Aujourd'hui à 15:48

» a l'aide klaus
par Minibug Aujourd'hui à 11:42

» KGF_dll - nouvelles versions
par Minibug Aujourd'hui à 1:48

» bug SYNEDIT_TARGET_IS_OBJECT
par Jack Aujourd'hui à 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

» API Windows
par Klaus Jeu 7 Déc 2017 - 21:03

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

» j'ai un petit problème
par JL35 Mer 6 Déc 2017 - 21:58

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   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 : 541
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: