Le programme suivant vous apprendra à créer un formulaire qui tremblera constamment à l'écran une fois exécuté.
Définissez deux variables :
var
BackLeft, BackTop, I:entier ;
//Enregistre la gauche du formulaire
ArrièreGauche := Gauche ;
//Enregistre le haut du formulaire
RetourHaut := Haut;
//Le nombre peut être défini par vous comme un nombre flexible. Bien entendu, la valeur est déterminée par vous.
pour I:=1 toNumber faire
commencer
//Gigue horizontale
Gauche := (BackLeft-10) + (Aléatoire (20) );
//gigue verticale
Haut := (BackTop-10) + (Aléatoire(20));
fin;
// Sauvegarde la gauche du formulaire
Gauche := ArrièreGauche ;
//Sauvegarder le haut du formulaire
Haut := RetourHaut ;