Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 1 sur 1
[Prog] Figures géométriques
Auteur Message
Répondre en citant
Message [Prog] Figures géométriques 
Voici un code qui ne contient aucun GUI, juste une inputbox et deux fonctions.
Il permet de faire bouger la souris ou plutôt de donner un mouvement à la souris, le mouvement du carré.
Code pas dangeureux, interminable mais qui peut être stopé par la touche "q" du clavier (merci sablier pour m'avoir appris cette technique).
J'ai mis quelques commentaires mais aps trop non plus.
A vous de juger (programme n'ayant aucun interêt si ce n'est de s'entrainer)

Code:

Func Exi()
   Exit ;ferme le prog
EndFunc

HotKeySet("q","Exi")
;la syntaxe de cette commande est : Si la touche q est pressée n'importe quand dans le programme, alors appeller la fonction Exi

$Hauteur=@DesktopHeight
$Largeur=@DesktopWidth
; on récupère la hauteur et la largeur max de l'écran (coin en bas à droite)
$4_H=$Hauteur/4
$3_4_H=$Hauteur*3/4
$4_L=$Largeur/4
$3_4_L=$Largeur*3/4
;je fais diverses calculs qui me permettent d'obtenir soit 1/4, soit 3/4 de la largeur ou de la hauteur de l'écran.

$vit=InputBox("SPEED","Entrez une vitesse 10=RAPIDE 100=LENT 40=DEFAULT","40","","200","200")
;on demande la vitesse de déplacement
Call("CARRE",$vit)
;on appelle la fonction CARRE avec comme paramètre $vit (vitesse donc InputBox juste avant)

Func CARRE($SPEED)
MouseMove($Largeur/2, $Hauteur/2, $SPEED) ;on amène la souris au centre ($Largeur/2 et $Hauteur/2)
MouseMove($Largeur/2, $4_H, $SPEED) ;on amène la souris à 1/2 de la Largeur et au 1/4 de la Hauteur
While 1
;boucle infinie
MouseMove($3_4_L, $4_H, $SPEED) ;3/4 Largeur et 1/4 Hauteur
MouseMove($3_4_L, $3_4_H, $SPEED) 3/4 Largeur ey 3/4 Hauteur
MouseMove($4_L, $3_4_H, $SPEED) 1/4 Largeur et 3/4 Hauteur
MouseMove($4_L, $4_H, $SPEED) 1/4 Largeur et 1/4 Hauteur
MouseMove($3_4_L, $4_H, $SPEED) 3/4 Largeur et 1/4 Hauteur
WEnd
EndFunc



Voila, je posterais d'autres figures à la suite.



Message Publicité 
PublicitéSupprimer les publicités ?


Montrer les messages depuis:
Répondre au sujet Page 1 sur 1
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch