Source language: Translate to:

Gestion trigonométrique des ellipses

Discussion en Français sur NeoBook

Moderators: Neosoft Support, TTP-France

Gestion trigonométrique des ellipses

Postby Huvé Jean Louis » Fri May 15, 2009 8:07 am

Calcul trigonomètrique du cercle ou d'une ellipse avec contrôle des coefficients d'expansion en X et en Y, de la position à l'écran et de la vitesse d'affichage.

NBW Publication Source File
(C)1993-2003 NeoSoft Corp.
Title=Ellipse
Author=Huvé Jean Louis
Language=US
NeoBookVer=4,13
ScreenColors=16777216
ScreenWidth=800
ScreenHeight=600
BkndColor=0
LinkColor=16711680
WindowStyle=1
WindowOrder=0
WindowProps=27
UseUpdateTimer=Yes
ReturnTime=60
ShapeTransColor=536870912
CompileType=0
MediaType=0
FilesIncluded=1
FontsIncluded=2
CopyExternalFiles=No
SetupMedia=3
SetupInstDir=C:\Mon Programme
SetupTitle=Configuration
SetupColors=16711680|0|65535
CustomFontName=MS Sans Serif
CustomFontSize=8
CustomFontStyle=1
CustomCharset=1
CacheSize=30
ExtractOp=132
L_OK=OK
L_CANCEL=Annuler
L_YES=Oui
L_NO=Non
L_CLOSE=Fermer
L_ERRORTITLE=Erreur
L_FINDTITLE=Rechercher
L_FINDPROMPT=&Que rechercher ?
L_FINDFIRST=&Premier
L_FINDNEXT=&Suivant
L_FINDERROR=Texte recherché introuvable.
L_PWORDTITLE=Mot de passe obligatoire
L_PWORDMSG=Avant de continuer, vous devez d'abord|entrer le mot de passe correct.
L_PWORDPROMPT=Mo&t de passe :
L_PWORDERROR=Ce n'est pas le bon mot de passe !
L_MEDIAERROR=Afin de pouvoir diffuser ce type de fichier,|vous devez installer le matériel et/ou le|logiciel multimédia adéquat.
L_INTERNETERROR=Impossible de localiser le logiciel de navigation Internet.
L_ABORTFUNCTION=Voulez-vous annuler cette fonction ?
L_EXTRACTERROR=Ce fichier ne peut pas être extrait et donc ne peut pas être diffusé.
L_INSTDIRPROMPT=Veuillez indiquer le disque et le répertoire où vous voulez que ce programme soit installé. Pour accepter les paramètres par défaut, pressez sur Entrée.
L_INSTFOLDERPROMPT=Voulez-vous créer un dossier pour le programme ?
L_INSTRUNPROMPT=Voulez-vous lancer
L_INSTDISKPROMPT=Veuillez insérer la disquette n°
L_INSTDISKERROR=Ce n'est pas la bonne disquette, veuillez réessayer.
L_INSTGENERROR=L'installation s'est achevée.
L_INSTEXITPROMPT=Voulez-vous vraiment annuler l'installation ?
L_INSTWINTITLE=Installation
L_INSTPROGTITLE=Extraction de fichiers...
L_SENDEMAIL=Envoi d'un message e-mail...
L_MAILSERVER=Veuillez entrer le nom de votre serveur de messagerie SMTP :
L_TRAYOPEN=Ouvrir
L_TRAYCLOSE=Fermer
L_COPY=Copier vers le presse-papiers
L_SELECTALL=Sélectionner tout
MasterPage
NewPage=Nouvelle page
PageStyle=1
PageColor=16777215
PageGradient1=16776960
PageGradient2=15747072
PageGradientDir=0
WallpaperStyle=0
EffectSpeed=5
PgEnterAction=SetVar "[stop]" "1"¶SetVar "[affich]" "RUN"
ObjectType=6
Name=Ellipse2
X=379
Y=278
W=42
H=45
LineColor=0
LineWidth=1
LineStyle=5
FillColor=65280
FillPattern=0
TabOrder=1
ObjectType=7
Name=Ligne1
X1=400
Y1=81
X2=400
Y2=497
LineColor=0
LineWidth=0
LineStyle=0
FillColor=255
FillPattern=0
TabOrder=16
ObjectType=7
Name=Ligne2
X1=128
Y1=300
X2=712
Y2=300
LineColor=0
LineWidth=0
LineStyle=0
FillColor=255
FillPattern=0
TabOrder=17
ObjectType=8
Name=Texte2
X=96
Y=536
W=168
H=24
Font=Arial
FontSize=10
FontStyle=3
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0\b\i Position en X: [x0]}}}
HMargin=0
VMargin=0
LineColor=0
LineWidth=1
LineStyle=5
FillColor=16776960
FillPattern=0
TabOrder=12
ObjectType=16
Name=Potentiometre1
X=520
Y=560
W=168
H=24
Align=0
VarName=[coeffX]
Min=10
Max=400
InitState=100
ThumbSize=10
TrackSize=3
LineColor=0
LineWidth=0
LineStyle=0
FillColor=255
FillPattern=0
TabOrder=2
ObjectType=16
Name=Potentiometre2
X=720
Y=392
W=24
H=160
Align=1
VarName=[coeffY]
Min=10
Max=300
InitState=10
ThumbSize=10
TrackSize=3
LineColor=0
LineWidth=0
LineStyle=0
FillColor=255
FillPattern=0
TabOrder=3
ObjectType=16
Name=Potentiometre3
X=96
Y=560
W=168
H=24
Align=0
VarName=[X0]
Min=0
Max=800
InitState=0
ThumbSize=10
TrackSize=3
LineColor=0
LineWidth=0
LineStyle=0
FillColor=16711680
FillPattern=0
TabOrder=5
ObjectType=3
Name=Bouton_poussoir1
X=8
Y=544
W=56
H=32
Text=[affich]
Align=2
ImageStyle=0
ObjAction=If "[stop]" "=" "1"¶SetVar "[affich]" "STOP"¶SetVar "[stop]" "0"¶¶SetVar "[dt]" "1"¶¶: ---------------------- initialisation des variables ou rappel de leur valeur mises en mémoire avant l'arrêt¶If "[mem-angl]" "<>" "" ¶SetVar "[angl]" "[mem-angl]"¶Else¶SetVar "[angl]" "360"¶EndIf¶¶If "[mem-coeffX]" "<>" ""¶SetVar "[coeffX]" "[mem-coeffX]"¶Else¶SetVar "[coeffX]" "100"¶EndIf¶¶If "[mem-coeffY]" "<>" ""¶SetVar "[coeffY]" "[mem-coeffY]"¶Else¶SetVar "[coeffY]" "100"¶EndIf¶¶¶If "[mem-diam]" "<>" ""¶SetVar "[diam]" "[mem-diam]"¶Else¶SetVar "[diam]" "50"¶EndIf¶SizeObject "Ellipse2" "[diam]" "[diam]"¶¶¶If "[mem-X0]" "<>" ""¶SetVar "[X0]" "[mem-X0]"¶Else¶SetVar "[X0]" "379"¶EndIf¶¶If "[mem-Y0]" "<>" ""¶SetVar "[Y0]" "[mem-Y0]"¶Else¶SetVar "[Y0]" "278"¶EndIf¶¶¶¶¶¶¶Suspend "False"¶¶While "[stop]" "=" "0"¶Math "[angl]-1" "" "[angl]"¶Math "[coeffY]*sin([angl]*3.14/180)" "" "[y]"¶Math "[coeffX]*cos([angl]*3.14/180)" "" "[x]"¶MoveObject "Ligne1" "[x0]+[X]" "120"¶MoveObject "Ligne2" "120" "[y0]+[y]"¶MoveObject "Ellipse2" "[X0]+[x]" "[Y0]+[y]"¶Delay "[dt]"¶If "[angl]" "=" "0"¶SetVar "[angl]" "360"¶Else¶¶EndIf¶¶EndWhile¶¶¶: --------------- mise en mémoire des variable au moment de l'arrêt¶If "[stop]" "=" "1"¶SetVar "[mem-angl]" "[angl]"¶SetVar "[mem-coeffX]" "[coeffX]"¶SetVar "[mem-coeffY]" "[coeffY]"¶SetVar "[mem-diam]" "[diam]"¶SetVar "[mem-X0]" "[X0]"¶SetVar "[mem-Y0]" "[Y0]"¶EndIf¶¶¶¶Else¶SetVar "[stop]" "1"¶SetVar "[affich]" "RUN"¶EndIf¶¶¶
LineColor=0
LineWidth=0
LineStyle=0
FillColor=65535
FillPattern=0
Font=Arial
FontSize=10
FontStyle=3
FontCharset=1
TextColor=0
TabOrder=6
ObjectType=16
Name=Potentiometre4
X=328
Y=560
W=168
H=24
Align=0
VarName=[diam]
Min=10
Max=200
InitState=10
ThumbSize=10
TrackSize=3
ObjAction=SizeObject "Ellipse2" "[diam]" "[diam]"
LineColor=0
LineWidth=0
LineStyle=0
FillColor=65535
FillPattern=0
TabOrder=14
ObjectType=8
Name=Texte3
X=328
Y=536
W=168
H=24
Font=Arial
FontSize=10
FontStyle=3
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0\b\i Diam\'e8tre: [diam]}}}
HMargin=0
VMargin=0
LineColor=0
LineWidth=1
LineStyle=5
FillColor=16776960
FillPattern=0
TabOrder=10
ObjectType=16
Name=Potentiometre5
X=96
Y=512
W=168
H=24
Align=0
VarName=[Y0]
Min=0
Max=600
InitState=0
ThumbSize=10
TrackSize=3
LineColor=0
LineWidth=0
LineStyle=0
FillColor=16711680
FillPattern=0
TabOrder=4
ObjectType=8
Name=Texte4
X=96
Y=488
W=168
H=24
Font=Arial
FontSize=10
FontStyle=3
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0\b\i Position en Y: [y0]}}}
HMargin=0
VMargin=0
LineColor=0
LineWidth=1
LineStyle=5
FillColor=16776960
FillPattern=0
TabOrder=11
ObjectType=8
Name=Texte5
X=520
Y=536
W=168
H=24
Font=Arial
FontSize=10
FontStyle=3
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0\b\i Amplitude en X: [coeffX]}}}
HMargin=0
VMargin=0
LineColor=0
LineWidth=1
LineStyle=5
FillColor=16776960
FillPattern=0
TabOrder=8
ObjectType=8
Name=Texte6
X=624
Y=360
W=168
H=24
Font=Arial
FontSize=10
FontStyle=3
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0\b\i Amplitude en Y:[coeffY]}}}
HMargin=0
VMargin=0
LineColor=0
LineWidth=1
LineStyle=5
FillColor=16776960
FillPattern=0
TabOrder=7
ObjectType=16
Name=Potentiometre6
X=328
Y=512
W=168
H=24
Align=0
VarName=[dt]
Min=1
Max=100
InitState=1
ThumbSize=10
TrackSize=3
LineColor=0
LineWidth=1
LineStyle=5
FillColor=16776960
FillPattern=0
TabOrder=13
ObjectType=8
Name=Texte8
X=328
Y=488
W=168
H=24
Font=Arial
FontSize=10
FontStyle=3
FontCharset=1
TextColor=0
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\qc\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs20\cf0\b\i Vitesse}}}
HMargin=0
VMargin=0
LineColor=0
LineWidth=1
LineStyle=5
FillColor=16776960
FillPattern=0
TabOrder=9
LIMA20
Huvé Jean Louis
 
Posts: 18
Joined: Thu Apr 23, 2009 5:34 am
Location: CORSE du sud

Return to NeoBook en Français

Who is online

Users browsing this forum: No registered users and 0 guests

cron