Plan | Précédent | Suivant | Erreurs |
Script 4 |
---|
Sub Click(Source As Buttoncontrol) Set r=[a].newRectangle(2000+Rnd*5000,2000+Rnd*5000,2800+Rnd*5000,2900+Rnd*5000) r.rotation=360*Rnd Dim codecouleur As Integer codecouleur=Rnd*239 Set r.edgecolor=currentapplication.colors(codecouleur) Set r.background.color=r.edgecolor Dim motif As Integer motif=Rnd*73 r.background.pattern=motif End Sub |
r.rotation=360*RndPour faire tourner le rectangle on modifie sa propriété rotation en lui donnant une valeur entre 0 et 360 : puisque Rnd renvoie une valeur entre 0 et 1, 360*Rnd est entre 0 et 360.
Dim codecouleur As Integer codecouleur=Rnd*239 Set r.edgecolor=currentapplication.colors(codecouleur)
Set r.background.color=r.edgecolor: donne au motif qui remplit l'arrière-plan de r (background) la même couleur que celle de ses bords (edgecolor)
Dim motif As Integer motif=Rnd*73 r.background.pattern=motifCes lignes modifient le motif de remplissage (propriété pattern du background de r) . Il existe 74 possibilités numérotées de 0 à 73.