CCG 2
Complément d'explications
Bravo CATHY ça va étre super !
alors pour te remercier j'explique le SRIPT !
Pfffff............. juste pour les courageux qui n'on pas peur de lire tout ça !
Pourtant vous verrez c'est pas si compliqué qu'on croit !
=========================================================<HTML>
Un SCRIPT l'ordinateur fait comme nous dans un bouquin,
il lit de la premiére ligne à la derniére tout bétement !!

<SCRIPT language=VBScript>
dim w,nx,ny,nbI,posI
dim ça veux dire "dis donc toi l'ordinateur" je Dimentionne des boites (variables)
je metterais des trucs dedans et quand le te demanderais tu me rendras mes trucs
on mets nimporte quel nom bidule,truc,machin ... ici c'est
w puis nx puis ny puis nbI puis posI !

set w=document.body
 
Ho le fénéant !! au lieu d'écrire document.body il met ça dans la boite w
donc à chaque fois qu'il écrira w l'ordinateur liras ce qu'il y a dans la boite w
et trouvera "document.body"
A propos document body désigne tout le contenu de la fenétre du message !
 
sub window_onload ( )
 
Ahrr.. un "sub" !!
quand l'ordinateur vois un sub ,
il comprend que les lignes en dessous du sub et jusqu'au "End Sub"
ne seront exécutées  que lorsque le sub (qui porte un nom ) sera appelé!
ici le nom du sub est spécial c'est window_onload !
bon pas de blabla ce sub est appelé par l'ordinateur quad le message est bien chargé
donc une seule fois, à chaque fois que nous ouvrons le message
c'est ça qui le lance!
   w.bgcolor="#c0c0c0"
Allez on va vite... ici le fond de l'écran aura la couleur "#c0c0c0"
   w.style.cursor="crosshair"
Le curseur sera une petite croix
   nx=w.offsetWidth
La on met dans la boite "nx" la largeur de la fenétre
   ny=w.offsetHeight
La on met dans la boite "ny" la hauteur de la fenétre
   nbI=4
On met dans la boite nbI le chifre 4 ce sera le nombre d'images
oui vous avez vu quatre images sont employées ici
   posI=1
Dans pos on met la valeur 1 en effet on commence par l'image 1
   fond1.src=s2.src
src c'est la source d'un objet vous avez vu dans le HTML
<IMG id=s1 src="toto.gif">
et bien ici on dit que l'mage fond1 seras la meme que c1
   fond2.src=s1.src
ici c'est pareil pour l'image fond2 ...........
   Ecran.style.visibility="visible"
 
Bon tout est pret alors comme vous l'avez vu les deux images
sont dans un <SPAN id=Ecran > donc maintenant que les images
fond1 et fond2 ont une image rendons visible le SPAN qui les contient
 
   SF
Et voila on appelle le sub dont le nom est SF et l'ordinateur va l'exécuter !
end sub
====================BON ce premier sub est fini ... voyons le suivant !
sub SF ( )
bien nous voila dans le sub qui s'appel SF !
mais là je suis obligé de vous expliquer un peut le if
en français ça se dit 
" si la hauteur de l'image dont le nom est fond2 est plus grande que 0
   alors je fais..xxxxxxxx.... sinom je fais ....yyyyyyy..."
en langage VBScript ça se dit
"
 if fond2.height>0 then        /// si l'image fond2 a encore une largeur alors on la fait diminuer
     fond2.style.pixelLeft=fond2.style.pixelLeft+2 // on pousse l'image fond2 vers la droite de 2 pixels 
     fond2.width=fond2.width-4 // on diminuee sa largeur de 4 pixels
     fond2.style.pixelTop=fond2.style.pixelTop+2   // ET Hop on fait pareil avec sa hauteur
     fond2.Height=fond2.Height-4
     SetTimeOut "SF",32    // allez on continu on retourne au début de Sub ST
 
 
si non.........
else // Arhhh ici c'est pour quand fond2 à disparut (sa taille =0) ALORS on fait ce qui est sous le "else"
   posI=posI+1 // on prend l'image suivante vous vous rappelez posI = 1 donc maintenant on va faire la 2
   x=posI+1 // dans x on met l'image qui suivra donc la 3 dans notre exemple
   if x>nbI then x=1 //mais si on arrive à x=5 alors qu'il n'y a que quatre images
                                   alors on repart a la premiére x=1
   fond1.src=document.all("s"&x).src // on met donc dans fond1 l'image "s"&x  donc s3
   fond2.style.pixelLeft=0                     // fond deux est remis au bord du <SPAN>
   fond2.style.pixelTop=0                      // en haut a gauche
   fond2.Width=255                                // et on lui rend sa taille pour remplir le SPAN largeur
   fond2.Height=156                               // hauteur 
   fond2.src=document.all("s"&posI).src // et on lui met l'image nouvelle a Zoomer ici s2
   if posI=nbI then posI=0 //si posI est le nombre d'image on repart a zéro !!
   SetTimeOut "SF",32 // Et Hop on repart au début de SF
   end if
 
 
Voila "end if" c'est la fin de notre if .......... 
end sub
Et ça vous connaissez c'est la fin du Sub !!
</SCRIPT>
Je sais je sais DUR DUR mais bon posez des questions ...... et vous aurez fait un gros progrés !!
=======================================================
Et Voili et Voila !!
A+ Jipi
 
Ah un gros gros racourcis ............
 
<SCRIPT language=VBScript>
dim ......... On dimentionne des boites (variables)
set w=document.body etc... on met des valeurs dans les variables
 
sub window_onload ( )
   Tout ce que l'on fait au départ
end sub

sub SF ( )
  Le script en boucle qui fait le boulot
end sub
</SCRIPT>
 
 
 
 

Menu