Kral__ Posted August 10, 2012 Share Posted August 10, 2012 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. Quote Link to comment Share on other sites More sharing options...
DivaneTR Posted August 10, 2012 Share Posted August 10, 2012 [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] Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.