0sk1 Posted November 20, 2008 Share Posted November 20, 2008 2 Image Objesi var şimdi 1.cinin adı canavar 2. nin sayi Top,left,with,height tek tek denedim olmadı tam üstüne gelmeden uyarı vermesi lazım PacMan gibi mesela objenin tam üstüne gelmesi değil biraz yaklaşması bunu şöyle yapabilirsin diyeceksiniz canavar.left="516" 'yani sayi'nin yaklasık left i gibi ama benim sayi nin left top vb. işlevleri *.ini'lerden okunacak onun için yapamıyorum başka türlü nasıL yaparıM? Link to comment Share on other sites More sharing options...
Administrator sk8er_boi Posted November 20, 2008 Administrator Share Posted November 20, 2008 şart koyabilirsin mesela if c1.left >=c2.left -10 and c1.left <= c2.left + 10 Link to comment Share on other sites More sharing options...
0sk1 Posted November 20, 2008 Author Share Posted November 20, 2008 Dim I As Long For I = 0 To 50 If canavar.Left = sayi.Left + (I) Then Label1.Caption = Val(Label1.Caption) + 10 sayi.Left = Val(sayi.Left) + (I) End If If canavar.Top = sayi.Top + (I) Then Label1.Caption = Val(Label1.Caption) + 10 sayi.Top = Val(sayi.Top) + (I) End If Next Böyle yaptım daha nasıl geliştirebilirim sence? abi flood diceksiniz ama yarına lazım onun için tekrar yazıyorum bak şimdi şunları uyguladım olmadı If canavar.left=val(sayi.left)+ (I) and canavar.top=val(sayi.top)+ (I) then ... end if bu olmadı nie dersen aynı aynı üst üste gelmiyor yani tek tek ayarlaman lazım ben oyun yapıyorum pacman gibi..oyunda da tek tek ayarlamak olmaz If canavar.left=sayi.left and canavar.top=sayi.top then buda olmadı şunu yapınca oluyor mesela If canavar.left=sayi.left then ama bunda left ler mesela en aşağıda yiyeceği şey Pacman en üste gelince Left 'ler eşitleniyor sonra yemiş olarak gösteriyor tam üstüne gelmesi değiş yaklaşık nasıl yaparım Lazım Acele Lütfen Link to comment Share on other sites More sharing options...
Recommended Posts
Archived
This topic is now archived and is closed to further replies.