Efekt Kodu

[Kral__]

Global Function
[spoiler][code]function liste()
Hiz = 30

Img = "list-çek"
Img1 = "l1"
Img2 = "l2"
Img3 = "l3"
Img4 = "l4"
Img5 = "l5"
Img6 = "l6"

nPos = Image.GetPos(Img);
nPos1 = Image.GetPos(Img1);
nPos2 = Image.GetPos(Img2);
nPos3 = Image.GetPos(Img3);
nPos4 = Image.GetPos(Img4);
nPos5 = Image.GetPos(Img5);
nPos6 = Image.GetPos(Img6);
while nPos.X == 0 do
nCek = nPos.X+10;
Image.SetPos(Img, nCek, nPos.Y);
nCek1 = nPos1.X+10;
Image.SetPos(Img1, nCek1, nPos1.Y);
nCek2 = nPos2.X+10;
Image.SetPos(Img2, nCek2, nPos2.Y);
nCek3 = nPos3.X+10;
Image.SetPos(Img3, nCek3, nPos3.Y);
nCek4 = nPos4.X+10;
Image.SetPos(Img4, nCek4, nPos4.Y);
nCek5 = nPos5.X+10;
Image.SetPos(Img5, nCek5, nPos5.Y);
nCek6 = nPos6.X+10;
Image.SetPos(Img6, nCek6, nPos6.Y);
Application.Sleep(Hiz);
end
end

function listee()
Hiz = 30

Img = "list-çek"
Img1 = "l1"
Img2 = "l2"
Img3 = "l3"
Img4 = "l4"
Img5 = "l5"
Img6 = "l6"

nPos = Image.GetPos(Img);
nPos1 = Image.GetPos(Img1);
nPos2 = Image.GetPos(Img2);
nPos3 = Image.GetPos(Img3);
nPos4 = Image.GetPos(Img4);
nPos5 = Image.GetPos(Img5);
nPos6 = Image.GetPos(Img6);
while nPos.X == 0 do
nCek = nPos.X-10;
Image.SetPos(Img, nCek, nPos.Y);
nCek1 = nPos1.X-10;
Image.SetPos(Img1, nCek1, nPos1.Y);
nCek2 = nPos2.X-10;
Image.SetPos(Img2, nCek2, nPos2.Y);
nCek3 = nPos3.X-10;
Image.SetPos(Img3, nCek3, nPos3.Y);
nCek4 = nPos4.X-10;
Image.SetPos(Img4, nCek4, nPos4.Y);
nCek5 = nPos5.X-10;
Image.SetPos(Img5, nCek5, nPos5.Y);
nCek6 = nPos6.X-10;
Image.SetPos(Img6, nCek6, nPos6.Y);
Application.Sleep(Hiz);
end
end[/code][/spoiler]
Resim On Enter
[code]liste()[/code]
Resim On Leave
[code]listee()[/code]

Burdaki hatayı düzeltirmisiniz.Sorun kodun işlememesi.

[DivaneTR]

[color="#8B0000"]While döngülerinde sıkıntı var, ilk işlemden itibaren tanımladığın nPos.X değeri artık 0 olmayacağından döngü durur. Bunun için ya for döngüsü kullan ya da < > (küçüktür,büyüktür) operatörlerini kullan.[/color]