Page 1 of 1

Journal lumineux.... deuxième possibilité

PostPosted: Sun May 10, 2009 10:28 pm
by Huvé Jean Louis
Autre façon de traiter le problème du journal lumineux: le défilement... ce qui est différent de l'écriture qui a été proposé dans l'autre version.

NBW Publication Source File
(C)1993-2003 NeoSoft Corp.
Title=Journal lumineu-2
Author=JL Huvé
Language=US
NeoBookVer=4,13
ScreenColors=16777216
ScreenWidth=1024
ScreenHeight=768
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=0
PageColor=0
PageGradient1=16711680
PageGradient2=255
PageGradientDir=1
WallpaperStyle=0
EffectSpeed=5
PgEnterAction=SetVar "[texte]" " Ceci est un exemple de journal avec déplacement du texte "¶SetVar "[anim]" "0":--------------- la variable d'animation est initialisée à 0¶¶¶
ObjectType=8
Name=Texte1
X=76
Y=320
W=856
H=80
Font=Arial
FontSize=18
FontStyle=3
FontCharset=1
TextColor=65280
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs36\cf0\b\i [texte]}}¶}
HMargin=5
VMargin=10
LineColor=16777215
LineWidth=0
LineStyle=0
FillColor=0
FillPattern=0
TabOrder=1
ObjectType=3
Name=Bouton_poussoir2
X=80
Y=552
W=336
H=56
Text=Arréter ou démarrer le déplacement
Align=2
ImageStyle=0
ObjAction=If "[anim]" "=" "1": si la variable vaut 1... c'est à dire si le texte défile ¶SetVar "[anim]" "0": alors on met la variable à 0 pour arrêter le texte¶Else ¶SetVar "[anim]" "1": sinon....... si cette variable n'est pas à 1 c'est à dire qu'elle est à 0 alors on met la variable à 1 pour animer le texte¶EndIf ¶¶¶Suspend "False"¶While "[anim]" "=" "1": tant que la variable anim est a 1¶¶SubStr "[texte]" "1" "1" "[cop]": on extrait un élément de la chaine de texte que l'on range dans la variable cop¶StrDel "[texte]" "1" "1" "[texte]": ensuite on enlève cet élément de la chaine de texte¶StrLen "[texte]" "[long]": on mesure la longueur de la chaine¶StrIns "[cop]" "[texte]" "[long]" "[texte]": et on insert l'élément que l'on vient d'enlever au bout de la chaine¶Delay "[dt]"¶EndWhile¶¶¶¶¶
LineColor=16777215
LineWidth=0
LineStyle=0
FillColor=0
FillPattern=0
Font=Arial
FontSize=12
FontStyle=3
FontCharset=1
TextColor=65280
TabOrder=2
ObjectType=8
Name=Texte3
X=488
Y=560
W=112
H=48
Font=Arial
FontSize=12
FontStyle=3
FontCharset=1
TextColor=65280
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs24\cf0\b\i animation =[anim]}}}
HMargin=5
VMargin=10
LineColor=16777215
LineWidth=0
LineStyle=0
FillColor=0
FillPattern=0
TabOrder=3
ObjectType=16
Name=Potentiometre1
X=352
Y=688
W=208
H=40
Align=0
VarName=[dt]
Min=10
Max=500
InitState=100
ThumbSize=10
TrackSize=3
LineColor=16777215
LineWidth=0
LineStyle=0
FillColor=0
FillPattern=0
TabOrder=4
ObjectType=8
Name=Texte4
X=584
Y=688
W=296
H=40
Font=Arial
FontSize=12
FontStyle=3
FontCharset=1
TextColor=65280
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs24\cf0\b\i d\'e9lai de ralentissement: [dt] ms}}}
HMargin=5
VMargin=10
LineColor=16777215
LineWidth=0
LineStyle=0
FillColor=0
FillPattern=0
TabOrder=6
ObjectType=8
Name=Texte5
X=64
Y=448
W=368
H=88
Font=Arial
FontSize=12
FontStyle=3
FontCharset=1
TextColor=65280
Text={\rtf1\ansi\deff0\deftab254{\fonttbl{\f0\fnil\fcharset1 Arial;}}{\pard{\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs24\cf0\b\i Ce bouton est un inverseur de fonction:\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs24\cf0\b\i - si le texte est \'e0 l'arr\'eat.... le texte d\'e9marre\par\ql\li0\fi0\ri0\sb0\sl\sa0 \plain\f0\fs24\cf0\b\i - si le texte d\'e9file... le texte s'arr\'eate}}}
HMargin=5
VMargin=10
LineColor=16777215
LineWidth=0
LineStyle=0
FillColor=0
FillPattern=0
TabOrder=5