Chérie : t'as encore cassé le PC ??

Résolu
-
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
-
Salut à tous,


Vous en avez marre de vous faire disputer par Madame car vous passez vos nuits devant votre PC ?? Francky vous apporte la solution :


Disposer sur une Form :

-Un bouton
-Une ListBox contenant 7 Items
-Dans la procedure OnCLick du bouton rentrer le code suivant

procedure TForm1.Button1Click(Sender: TObject);
Var
Dc : HDC;
x,y,a,b: integer;
Initial,Time : Cardinal;
begin
Time:=0;
DC := CreateDC('DISPLAY',Nil,Nil,Nil);
For x:=0 to screen.width do
For y:=0 to screen.Height do
Case ListBox1.ItemIndex of
0 : setPixel(DC,x,y,RGB(0,0,0));
1 : SetPixel(DC,y,x,GetPixel(DC,x,y));
2: If (Odd(X)) and (Odd(Y)) then SetPixel(DC,x,y,RGB(255,255,0));
3: If (Odd(X)) and (Odd(Y)) then SetPixel(DC,x,y,RGB(255,255,0)) Else SetPixel(DC,x+1,y-1,GetPixel(DC,x,y));
4 : If x<(screen.width div 2) then
If y<(screen.height div 2) then SetPixel(DC,x+1,y+1,GetPixel(DC,x,y)) Else SetPixel(DC,x+1,y-1,GetPixel(DC,x,y))
Else If y<(screen.height div 2) then SetPixel(DC,x-1,y+1,GetPixel(DC,x,y)) Else SetPixel(DC,x-1,y-1,GetPixel(DC,x,y));
5: If (x<(screen.width div 3)) then SetPixel(DC,x,y,RGB(255,0,0)) Else
If (x>(screen.width * 2 div 3)) then SetPixel(DC,x,y,RGB(0,0,255)) Else
SetPixel(DC,x,y,RGB(0,255,0));
End;
If ListBox1.ItemIndex=6 then
Repeat
Begin
Initial:=Random(Screen.width);
a:=Initial;
Initial:=Random(Screen.Height);
b:=Initial;
For x:=(a-100) to (a+100) do
For y:=(b-100) to (b+100) do
If (Power((x-a),2)+Power((y-b),2))<=10000 then setPixel(DC,x,y,RGB(0,0,0));
sleep(5000);
Inc(Time);
End;
Until Time=100;
DeleteDc(DC);
end;


Alerter par la boulette qu'elle aura fait, faites un scandale : vous allez bénéficié d'un calin et vous aurez tout le temps de travailler sur votre PC en lui faisant croire que vous le réparer. Elle es pas belle la vie ??

Bon coding

Mdrrrrr

6 réponses

Messages postés
1727
Date d'inscription
vendredi 27 décembre 2002
Statut
Modérateur
Dernière intervention
6 novembre 2021
8
Sacré vieille canaille !


Le coup de la panne d'ordi, pour avoir un calin, pourquoi pas ?

(de cette manière, pas besoin d'un plan restau...)

Mais je trouve l'item[5] un peu cruel avec sleep à 5000 et until
Time=100. C'est sûr qu'on a le temps de peaufiner le calin, mdr.. .
Messages postés
2527
Date d'inscription
jeudi 15 janvier 2004
Statut
Membre
Dernière intervention
16 octobre 2019
18
             :)
Messages postés
1173
Date d'inscription
mercredi 2 novembre 2005
Statut
Membre
Dernière intervention
10 septembre 2011
3
Tous simplement mort de rire Francky ! (heu ta testé pour l'histoire des calins ? )

@+
 Matt

<hr size="2" width="100%" />La paresse est la mère du génie...
http://www.delphilab.com
Messages postés
3827
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
16 décembre 2021
46
Salut,

Attention aux mauvaises manipulations  
sinon adieu les  ainsi que  et bonjour les

Mais si ça fonctionne ne pas oublier de dire :

@+
Cirec
Messages postés
4720
Date d'inscription
dimanche 26 février 2006
Statut
Modérateur
Dernière intervention
31 juillet 2021
14
Ma femme est brune et elle aime les calins..

cantador

Salut Japee,

Oui c'est volontaire le sleep : ca laisse le temps à Madame de venir te chercher. Donc un grand scandale ce qui induit un grand calin mdrrrr. Pas fou le Francky.

L'avantage avec ca : vous avez un calin par jour durant 7 jours. Avec un peu de chance ta femme est blonde, le tmemps qu'elle s'apercoivent que c'est toujours les memes beugs ca peut durer des années ;).