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
» Le Forum est en vacances.
par JL35 Aujourd'hui à 21:20

» Une autre façon de terminer une application.
par JL35 Hier à 14:27

» Compilateur FBPano
par Mike Lun 21 Aoû 2017 - 23:17

» Pb 20 (en analyse): plantage à l'appel d'un SUB
par Jack Lun 21 Aoû 2017 - 21:58

» Pb 19 (en analyse): libellé d'erreur dans des IF imbriqués
par Jack Lun 21 Aoû 2017 - 21:55

» Copier / coller du texte à partir de la fenêtre de commandes
par jean_debord Lun 21 Aoû 2017 - 9:46

» COMPILATEUR V 0.9 beta 8 du 18 aout 2017
par papydall Lun 21 Aoû 2017 - 5:01

» Mettre en windows en veille
par papydall Lun 21 Aoû 2017 - 4:15

» Stretch_on ne stretch plus...
par papydall Dim 20 Aoû 2017 - 15:22

» Pb 18 (en analyse): RESTORE_LABEL avec DATA à la fin
par Jack Dim 20 Aoû 2017 - 13:21

» Problème de traitement des opérateurs avec le compilateur.
par Pedro Alvarez Sam 19 Aoû 2017 - 20:01

» Pb 17 (résolu): ITEM_SELECT ne fonctionne pas
par Jack Jeu 17 Aoû 2017 - 19:26

» un nouveau editeur panobasic
par Jean Claude Jeu 17 Aoû 2017 - 10:18

» Le compilateur.
par Pedro Alvarez Jeu 17 Aoû 2017 - 8:36

» Pb 16 (résolu): ON_CLOSE plante à l'exécution
par Jack Mer 16 Aoû 2017 - 20:00

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 | 
 

 finition du program trigo

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

avatar

Nombre de messages : 519
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: finition du program trigo   Sam 30 Juil 2016 - 5:26

Voilà mon program de trigonométrie est terminé
encore 2 ptit truc a faire
il peut servir aux étudiants et aux dessinateurs industriel
il est très simple a utilisé juste a cliquer sur 2 edit dont on connait
la valeur et le reste se fait tout seul



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

avatar

Nombre de messages : 519
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: finition du program trigo   Sam 30 Juil 2016 - 20:11

voici le source

Code:
dim CY,CX,sinu,csinu,tang,ctang,seca,cseca,degre
dim A,B,C,D,degre$

full_space 0
color 0,0,0,0
label trr,triangleR,window,determine,vider,onclick,inverse
on_click 0,trr
pythagore()
main_menu 1
sub_menu 2
parent 2,1
caption 2,"Determination"
on_click 2,window
end

trr:
pythagore()
if message_input("Angle", "Indiquez un angle" , "")=1
 degre=message_text$
 print_locate 0,30
degrees
ctang=cos(degre)/sin(degre)
 print "cotangente "+str$(degre)+"°="+str$(ctang)
 2d_pen_color 125,0,0
 2d_line CX,CY-100,CX+(ctang*100),CY-100

tang=tan(degre)
 print "tangente "+str$(degre)+"°="+str$(tang)
 2d_pen_color 0,125,0
 2d_line CX+100,CY,CX+100,CY-(tang*100)
 
csinu=cos(degre)
 print "cosinus  "+str$(degre)+"°="+str$(csinu)
 2d_pen_color 0,0,125
 2d_line CX,CY,CX+(csinu*100),CY
 
sinu=sin(degre)
 print "sinus    "+str$(degre)+"°="+str$(sinu)
 2d_pen_color 125,0,125
 2d_line CX+(csinu*100),CY,CX+(csinu*100),CY-(sinu*100)

cseca=1/sin(degre)
 print "cosécante    "+str$(degre)+"°="+str$(cseca)
 2d_pen_color 125,125,125
  if degre=>45
  2d_line CX,CY,CX+100,CY-(tang*100)
  else
  2d_line CX,CY,CX+(ctang*100),CY-100
  end_if

seca=1/cos(degre)
 print "sécante    "+str$(degre)+"°="+str$(seca)
 2d_pen_color 200,125,125
  if degre=>45
  2d_line CX,CY,CX+(ctang*100),CY-100
  else
  2d_line CX,CY,CX+100,CY-(tang*100)
  end_if
end_if
return

' fenêtre qui représent les cotes du triangle rectangle
determine:
if object_exists(100)=0
 form 100
 width 100,600 : left 100,(screen_x-600)/2
 height 100,500 : top 100,(screen_y-500)/2
 caption 100,"Figure"
 color 100,0,0,0
 2d_target_is 100
 font_color 0,255,255,255
end_if
show 100
 on_close 100,ferme
return

window:
if object_exists(200)=0
 form 200
 width 200,400 : left 200,10
 height 200,210 : top 200,(screen_y-210)/2
 caption 200,"Element"
 color 200,0,0,0
 label ferme: on_close 200,ferme
 command_target_is 200
 edit 201:left 201,50:top 201,15:width 201,300
 font_color 201,0,0,0
 edit 202:left 202,50:top 202,45:width 202,300
 font_color 202,0,0,0
 edit 203:left 203,50:top 203,75:width 203,300
 font_color 203,0,0,0
 edit 204:left 204,50:top 204,105:width 204,300
 font_color 204,0,0,0

 button 205:left 205,(width(200)-width(205))/2:top 205,135:caption 205,"OK"
 on_click 205,triangleR
gosub determine
end_if
show 100
show 200
 2d_target_is 100
 print_target_is 200
 gosub vider

 font_color 200,255,255,255
 print_locate 0,20
 print "Cote A="
 print_locate 0,50
 print "Cote B="
 print_locate 0,80
 print "Cote C="
 print_locate 0,110
 print "  Angle="
return

triangleR:
2d_clear
 if text$(201)<>"" then A=text$(201)
 if text$(202)<>"" then B=text$(202)
 if text$(203)<>"" then C=text$(203)
 if text$(204)<>"" then degre=text$(204)
 degrees

 if B>1 and C>1
 A=sqr((C*C)+(B*B))
 text 201,A
 degre=atn(C/B)
 gosub inverse
 origine()
 gosub onclick
 return
 end_if
 
 if A>1 and B>1
 if A=B
 message "Calcul impossible"
 gosub vider
 return
 end_if

  if B<A
  C=sqr((A*A)-(B*B))
  end_if
  if A<B
  C=sqr((B*B)-(A*A))
  end_if
 text 203,C
 degre=atn(C/B)
 gosub inverse
 origine()
 gosub onclick
 return
 end_if

 if A>1 and C>1
 if A=C
 message "Calcul impossible"
 gosub vider
 return
 end_if
 
  if C<A
  B=sqr((A*A)-(C*C))
  end_if
  if A<C
  B=sqr((C*C)-(A*A))
  end_if

 degre=atn(C/B)
 text 202,B
 gosub inverse
 origine()
 gosub onclick
 return
 end_if

' section par raport à l'angle
 if A>1 and degre>1
 B=A*cos(degre)
 text 202,B
 C=A*sin(degre)
 text 203,B
 gosub inverse
 origine()
 gosub onclick
 return
 end_if

 if B>1 and degre>1
 C=B*tan(degre)
 text 203,C
 A=sqr((C*C)+(B*B))
 text 201,A
 gosub inverse
 origine()
 gosub onclick
 return
 end_if
 
 if C>1 and degre>1
 B=C*tan(degre)
 text 202,B
 A=sqr((C*C)+(B*B))
 text 201,A
 gosub inverse
 origine()
 gosub onclick
 return
 end_if
return

inverse:
 degre$=str$(int(degre))+"°"
 text 204,degre$
return

onclick:
 on_click 201,vider
 on_click 202,vider
 on_click 203,vider
 on_click 204,vider
return

vider:
2d_clear
 off_click 201
 off_click 202
 off_click 203
 off_click 204
A=0
B=0
C=0
degre=0
text 201,""
text 202,""
text 203,""
text 204,""
return

ferme:
hide 100
hide 200
active 0
 2d_target_is 0
 print_target_is 0
return

sub origine()
 cx= (600-(B*10))/2
 cy= 500/2+((C*10)/2)
 2d_pen_color 0,250,0
 2d_line cx,cy,cx+(B*10),cy
 2d_pen_color 250,0,0
 2d_line cx,cy,cx,cy-(C*10)
 2d_pen_color 0,0,250
 2d_line cx,cy-(C*10),cx+(B*10),cy
end_sub

sub pythagore()
font_color 0,255,255,255
cy=height(0)/2
cx=width(0)/2
 2d_pen_color 250,250,250
 2d_clear
 2d_circle cx,cy,100
 2d_line cx,cy,cx+100,cy
 2d_line cx,cy,cx,cy-100
print "cliquer sur la fenêtre pour déterminer un angle"
end_sub
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Ouf_ca_passe

avatar

Nombre de messages : 192
Age : 68
Localisation : Villeneuve d'Ascq (59-Dpt du NORD) France
Date d'inscription : 21/12/2015

MessageSujet: Félicitations   Lun 1 Aoû 2016 - 10:15

Félicitations.

Et c'est quoi la suite ...

Bonne journée
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pascal10000

avatar

Nombre de messages : 519
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: finition du program trigo   Lun 1 Aoû 2016 - 17:44

bjr
Rien de plus c juste pour faire les calculs
il sera utile pour les fraiseurs et tourneur
afin de faire au plus vite les réglages des
machines
Voilà c tout!!!!
au fait merci! tu es le seul a donner ton
avis merci
Il y aura d'autre option mais je ne mettrai
pas le source ici.j'en garderai le secret
a+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
JL35



Nombre de messages : 5928
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: finition du program trigo   Lun 1 Aoû 2016 - 18:32

alors, si c'est un secret, il vaut mieux ne pas en parler...
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pascal10000

avatar

Nombre de messages : 519
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: finition du program trigo   Lun 1 Aoû 2016 - 20:27

bjr jl35

c'est une façon de parler quand je dit
que c un secret.Mais si personne ne ce manifeste
a mes projet ou qui est intéressé . Je ne vois pas
pourquoi je continuerais vous divulguer la suite!
a+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

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

MessageSujet: Re: finition du program trigo   Mar 2 Aoû 2016 - 1:47

Personnellement je n’ai pas de secret à garder concernant la trigo.
Ce que je savais, je l’ai posté sur ce forum.
Je vous rappelle les liens si ça vous intéresse.

http://panoramic.free-boards.net/t2210-trigonometrie-circulaire-et-hyperbolique?highlight=trigonom%E9trie

http://panoramic.free-boards.net/t4290-trigonometrie-circulaire?highlight=trigonom%E9trie

NB : Pour les versions récentes de Panoramic, il faut supprimer la déclaration : DIM PI puisque la constante Pi est désormais reconnu par Panoramic
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
RMont



Nombre de messages : 165
Age : 75
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: finition du program trigo   Mar 2 Aoû 2016 - 19:30


bonjour a tous.
moi, je me pose la question suivante:pourquoi trouve-t-on dans
trr:
print_locate 0,30
degrees <--------pourquoi ce mot seul sur cette ligne ?
ctang= ;;;;;;;
si je " rem " ce mot ,le résultat pour un angle (ex 25 ou autre) est totalement différent que si ce mot n'est pas en rem
y a-t-il une explication ?


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



Nombre de messages : 165
Age : 75
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: finition du program trigo   Mar 2 Aoû 2016 - 20:01


autre chose.
si je clique sur détermination et que je rentre comme données:
cote A =142
cote b =25
cote C = je ne mets rien
angle =23°
résultat surprenant
la cote C passe a 139,.....
l'angle est changé en 79°
je clic sur ok et là, j'ai une erreur en ligne 136 (chez moi car modif de l'ordre des modules).
message d'erreur :erreur externe ligne 136:79° is not valid floating point value
ma ligne 136 est :if text$(204)<>"" then degre=text$(204)

et pour finir ,malgré que je rajoute toujours ERROR_FRENCH j'ai toujours les messages qui sortent en Anglais . pourquoi ?
c'est tout pour aujourd'hui

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



Nombre de messages : 5928
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: finition du program trigo   Mar 2 Aoû 2016 - 20:53

Bonsoir RMont,
juste une réponse rapide à ta première question (pour le reste, je n'ai pas essayé le programme).
DEGREES est un mot-clé de Panoramic (depuis décembre dernier) qui indique que les angles vont être exprimés en degrés (au lieu de radians implicites).
Et c'est bien normal que les résultats soient complètement différents si tu l'inhibes.
Mot-clé inverse: RADIANS
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pascal10000

avatar

Nombre de messages : 519
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: finition du program trigo   Mer 3 Aoû 2016 - 13:15

bjr
rmont
il ne faut donner que 2 indice et pas 3
sinon il prendra les 2 premier indice de plus
dans ton exe.. l'indice C= est la longueur du cote adjacent du
p'tit angle
le code degrees est le nouveau code de la derniere version
de panoramic v .27i8 elle permet de changer les grades en degré
ce qui est plus pratique pour calculer la trigonométrie

si ça vous intéresse je peut vous donner l'adresse du formulaire de l'outilleur
toute les formules sont dans le contenu du livre et plus encore
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
RMont



Nombre de messages : 165
Age : 75
Localisation : charente maritime
Date d'inscription : 29/12/2008

MessageSujet: Re: finition du program trigo   Mer 3 Aoû 2016 - 20:13


bonjour a tous
j'ai donc un problème car j'utilise la version 27i8 de 2 juin 2016
avant de poser la question ,j'avais fait une verif en mettant les mots cles en rouge.
degrees n'apparait pas dans ma liste.
j'ai posé une autre question concernant le mot cle " error_french ".
sytematiquement ,j'ai une réponse en Anglais quand il y a une erreur.

sinon c'est tout pour aujourd'hui
a+
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
pascal10000

avatar

Nombre de messages : 519
Localisation : Troyes
Date d'inscription : 05/02/2011

MessageSujet: Re: finition du program trigo   Mer 3 Aoû 2016 - 20:55

rmont
les mots clés comme "degrees" pourront se mettre en rouge
une fois que la version 0.9.27i8 sera en version 0.6.27

Je ne peut pas t'expliquer pour la clé "error_french"
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: finition du program trigo   

Revenir en haut Aller en bas
 
finition du program trigo
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» Infoland Définition Lettre C
» c\program
» Définition des mots des templates
» définition du terme anti-virus
» les informations sur la finition de la twingo initiale

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: