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
» Pb 16 (en analyse): ON_CLOSE plante à l'exécution
par Jack Aujourd'hui à 20:00

» Pb 15 (en analyse): TIMER_ON plante à l'exécution
par Jack Aujourd'hui à 19:58

» Compilateur FBPano
par jean_debord Aujourd'hui à 8:49

» un nouveau editeur panobasic
par Jean Claude Hier à 20:05

» COMPILATEUR V 0.9 beta 7 du 10 aout 2017
par Pedro Alvarez Hier à 19:31

» KGF_dll - nouvelles versions
par Yannick Dim 13 Aoû 2017 - 17:35

» probleme d'outil
par Yannick Dim 13 Aoû 2017 - 17:32

» Carte de France des régions
par Yannick Sam 12 Aoû 2017 - 21:33

» Pb 14 (en analyse): PRINT_LOCATE plante à l'exécution
par Jack Ven 11 Aoû 2017 - 22:37

» Petit avertissement [Mots réservés]
par papydall Ven 11 Aoû 2017 - 13:45

» Distances sur plan
par JL35 Jeu 10 Aoû 2017 - 21:29

» Tracé : Triangle, Carrée, Dents de scie, Sinusoïde redressée
par papydall Jeu 10 Aoû 2017 - 14:52

» Troncature dans une image
par JL35 Mer 9 Aoû 2017 - 13:45

» A chacun son point de vue
par papydall Mar 8 Aoû 2017 - 17:20

» Problème avec les chaines de caractères
par bignono Dim 6 Aoû 2017 - 9:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Août 2017
LunMarMerJeuVenSamDim
 123456
78910111213
14151617181920
21222324252627
28293031   
CalendrierCalendrier

Partagez | 
 

 Un debut de radar, encore de la trigo

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

avatar

Nombre de messages : 91
Age : 44
Date d'inscription : 13/04/2013

MessageSujet: Un debut de radar, encore de la trigo   Ven 30 Aoû 2013 - 1:33

J'ai écris un petit programme pour ceux qui veulent l'exploiter.
Il s'agit d'un radar en deux D, qui dessine un périmètre en fonction d'une donnée RND (Aléatoire), à la place libre à chacun de le remplacer.
C'est très simple, il fait un tour, mais c'est le coté Math qui est sympas à exploiter.
En fait la fonction RND(RAND) détermine le rayon.

Gilles

Code:
dim i,a,x,y,x1,y1,angle, angled,hypo, pas
angled = 360/500
width 0,1370 : height 0,768
maximize 0
hypo = 10
pas =500
alpha 2 : top 2,8 : left 2,8 : width 2,10 : height 2,49 : caption 2,"Angle en degrée :"
alpha 3 : top 3,8 : left 3,95 : width 3,109 : height 3,49
2d_fill_color 1,1,1
2d_circle 620,350,5
angle = 0
hypo = 0
y = 0
x = 0
2d_fill_color 1,1,1
2d_circle 620,350,5
for i=1 to pas
angle = ((2*3.14116)/pas)+ angle
caption 3,str$ (angled*I)
pause 10
hypo = rnd (30)+ 200
x = hypo*cos (angle)
y = hypo*sin (angle)
2d_point 620+int (X),350+int(Y)
if i>1
2d_line 620+int (X),350+int(Y),x1,y1
end_if
x1 = 620+int (X)
y1 = 350+int(Y)
next i
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: Un debut de radar, encore de la trigo   Ven 30 Aoû 2013 - 8:23

Je t'ai légèrement modifié le source (principalement pour retirer quelques lignes inutiles et pour rendre le centre plus facilement modifiable)
Code:
dim i
dim x,y,x1,y1
dim angle
dim hypo    : hypo = 10
dim pas    : pas = 500
dim angled  : angled = 360 / pas
dim x_centre,y_centre : x_centre = 620 : y_centre = 350

maximize 0

alpha 2 : top 2,8 : left 2,8 : width 2,10 : height 2,49 : caption 2,"Angle en degrés :"
alpha 3 : top 3,8 : left 3,95 : width 3,109 : height 3,49
2d_fill_color 1,1,1 : 2d_circle x_centre,y_centre,5

angle = 0 : hypo = 0 : x = 0 : y = 0
for i=1 to pas
  angle = ((2*3.14116)/pas)+ angle
  caption 3,str$ (angled*I) : pause 2
  hypo = rnd (30)+ 200 : x = hypo*cos (angle) : y = hypo*sin (angle)
  if i > 1 then 2d_line x_centre+int (X),y_centre+int(Y),x_centre+x1,y_centre+y1
  x1 = X : y1 = Y
next i
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
gigi75

avatar

Nombre de messages : 91
Age : 44
Date d'inscription : 13/04/2013

MessageSujet: Re: Un debut de radar, encore de la trigo   Ven 30 Aoû 2013 - 11:34

Merci pour le coup d'aspirateur, en effet il est le résultat d'un programme non aboutit, il y avait pas mal de choses en plus (Variables, etc).
je ferai plus attention avant.

Merci beaucoup pour la communauté Panoramic.


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

avatar

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

MessageSujet: Re: Un debut de radar, encore de la trigo   Ven 30 Aoû 2013 - 11:55

Pas de problème Gilles, partager même un programme qui ne semble pas utile ou avec des imperfections est mieux que de ne rien partager du tout et ce pour 2 raisons:

D'une part, dans un programme qui ne semble pas utile, il y a peut être une idée, une façon de faire qui servira à quelqu'un d'autre en train de faire un programme "inutile"

D'autre part quand on partage des programmes parfait, c'est très bien, ça permet aux autres d'apprendre et d'avoir des idées, mais quand quelqu'un fait des erreurs, d'autres les ferrait certainement aussi et en règle général, la correction est mieux retenu que l'exemple parfait.

Enfin, l'utilité d'un programme est toute relative.

Certains penseront sans doute que de tracer des jolies courbes ne sert à rien, d'autres qu'un programme de généalogie (ou de travail des fichiers) ne sert à rien, d'autres qu'un éditeur élaboré ne sert à rien et d'autres qu'il a déjà pleins de super jeux et qu'un petit jeu ne sert à rien. Je vous assure que vous aurez à chaque fois certainement quelqu'un qui pense le contraire, par contre il est possible qu'il ne l'écrive pas faute de temps ou par ce qu'il pense que son avis n'est pas utile...

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

avatar

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

MessageSujet: Re: Un debut de radar, encore de la trigo   Mar 17 Sep 2013 - 14:27

Merci gigi
ce programme peut tres bien servire pour localiser un robot
mindstorm
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: Un debut de radar, encore de la trigo   Mar 17 Sep 2013 - 16:51

D'ailleurs un article sur un robot Mindstorm (de manière générale) et comment utiliser Panoramic pour s'en servir serait une bonne idée pour le prochain numéro du mag, non ?
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mindstorm

avatar

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

MessageSujet: Re: Un debut de radar, encore de la trigo   Mar 17 Sep 2013 - 20:14

OU Là Là   Surprised 
merci jichel de cet entousiasme  sunny 
je vous ai fait un beau robot avec un beau labyrinte.
y a t il quelqu un que ça interresse?
il est beaucoup plus abordable a programmer  que mon vieux mindstorm .
même mon fils ne veut pas s'en servir!!
pourtant je suis sur une piste pour lui donner la vue... pirat 
je ne dit pas non mais il faut developper le bon sujet
a vous tous de me dire
mindstorm
ps de plus je ne suis pas doué en ecriture ni en programmation affraid
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: Un debut de radar, encore de la trigo   Mar 17 Sep 2013 - 20:42

C'est un sujet intéressant pour un mag, ça montre une facette d'application. L'avantage d'un mag, c'est que l'on peut sortir un peu de Panoramic pour en montrer les applications typiquement comme pour ton robot, dans un domaine étendu tel que la robotique, la domotique et autres champs d'application
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Yannick

avatar

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

MessageSujet: re   Mer 18 Sep 2013 - 8:23

@ mindstorm,

Mindstorm a écrit:
ps de plus je ne suis pas doué en ecriture ni en programmation
C' est pour cela que l' on a mis un système avec des correcteurs en place...Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mindstorm

avatar

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

MessageSujet: Re: Un debut de radar, encore de la trigo   Mer 18 Sep 2013 - 13:23

Ygeronimi
il faut vocabulaire syntax et grammaire
je suis preneur
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jicehel

avatar

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

MessageSujet: Re: Un debut de radar, encore de la trigo   Mer 18 Sep 2013 - 14:25

Lance toi, réfléchi un peu à ton plan et à ce que tu veux dire, le reste se fera tout seul plus ou moins vite. Rien ne presse, laisse toi le temps, mais tu peux commencer à y réfléchir (enfin, si ça te dit, bien sûr)
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
mindstorm

avatar

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

MessageSujet: Re: Un debut de radar, encore de la trigo   Mer 18 Sep 2013 - 20:42

il faut que je vois
il y a quelqu un qui m'a demandé une imprimante 3D...
mindstorm
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Un debut de radar, encore de la trigo   

Revenir en haut Aller en bas
 
Un debut de radar, encore de la trigo
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» garmin nuvi 200 poi radar
» toujours pas de radar
» Probléme son aprés mise a jour radar (nuvi 465T)
» disparition poi radar + son wav
» chargement des POIs radar

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