İşlemci arıza çıkartıyo

[symbolic82]

Herkese merhaba....

Elimde mainx(3),mainy(3),degerx(400,3),degery(400,3) olmak üzere 4 tane değişkenim var...

Timer1.Invertal=20

ve timer_elapsed olayında şunlar gerçekleşiyo.....

Select Case tuş
Case "d"
Label1.Location = New Point(Label1.Location.X + x, Label1.Location.Y)
zmn1 = 0
zmn2 = 0
zmn3 = zmn3 + 1
zmn4 = zmn3 + 1
Case "a"
Label1.Location = New Point(Label1.Location.X - x, Label1.Location.Y)
zmn1 = 0
zmn2 = 0
zmn3 = zmn3 + 1
zmn4 = zmn3 + 1
Case "w"
Label1.Location = New Point(Label1.Location.X, Label1.Location.Y - y)
zmn1 = zmn1 + 1
zmn2 = zmn2 + 1
zmn3 = 0
zmn4 = 0
Case "s"
Label1.Location = New Point(Label1.Location.X, Label1.Location.Y + y)
zmn1 = zmn1 + 1
zmn2 = zmn2 + 1
zmn3 = 0
zmn4 = 0
End Select

If i > 0 Then
If i > 1 Then
For j = 1 To i - 1
degerx(j, 0) = degerx(j, 1)
degerx(j, 1) = degerx(j, 2)
degerx(j, 2) = degerx(j, 3)
degerx(j, 3) = kuyruk(j).Location.X

degery(j, 0) = degery(j, 1)
degery(j, 1) = degery(j, 2)
degery(j, 2) = degery(j, 3)
degery(j, 3) = kuyruk(j).Location.Y

kuyruk(j).Location = New Point(degerx(j - 1, 0), degery(j - 1, 0))
Next j
End If
kuyruk(0).Location = New Point(mainx(0), mainy(0))
degerx(0, 0) = degerx(0, 1)
degerx(0, 1) = degerx(0, 2)
degerx(0, 2) = degerx(0, 3)
degerx(0, 3) = kuyruk(0).Location.X

degery(0, 0) = degery(0, 1)
degery(0, 1) = degery(0, 2)
degery(0, 2) = degery(0, 3)
degery(0, 3) = kuyruk(0).Location.Y
End If


mainx(0) = mainx(1)
mainx(1) = mainx(2)
mainx(2) = mainx(3)
mainx(3) = Label1.Location.X

mainy(0) = mainy(1)
mainy(1) = mainy(2)
mainy(2) = mainy(3)
mainy(3) = Label1.Location.Y


evet tahmin ettiğiniz gibi bildiğiniz yılan oyunu... Burdaki herşey tanımlıdır ve program eksiksiz çalışmaktadır.. bu olayda bide yemi yiyip yemediğini kontrol ediyorum ama onu yazmadım...

Elimde P3 733 işlemci var.. oyunu çalıştırıyorum bir yandanda CPU(işlemci) nun hızını kontrol ediyorum.. 15-20 tane yem yediğim zaman CPU %100 ile çalışmaya başlıyo ve birz daha sonra makine kafayı yiyo.. yılanın hakimiyetini kaybediyorum ve gidip duvara çarpıyo, sonrada çarptınız mesajı geliyo.. yani program doğru çalışıyo...

Bu sorunu nasıl giderebilirim.. P4 3GHz almak dışında tabi

daha önce sizin başınıza böyle sorunlar geldimi???

Bu arada VB.NET kullanıyorum..

[symbolic82]

Arkadaşlar bi cevap yokmu yaa....

benim aklım da sonsuz düngü oluşuyo gibi geliyo ama programı kontrol ettim bi kaç defa sonsuz döngü falan yok...

yardım bekliyorum sizden...

[Revlis]

tüm kod yok ve çalışma anında denetlemeden bir şey söylenir mi bilmiyorum. Şunlara bakabilirsin :
Değişkenlerin tiplerini o işi sağlayacak minimum değişken olarak seçmeye çalış.
Array kullanmışsan şişmeye sebep olabilirler.
Döngülerin içerisindeki işlemler artıyor olabilir.
Ve sanırım bu iş için direct draw kullanmıyorsun o yüzden işlemci ye yük bindiğinde
bir an önce halledip sunuyor o yüzden refresh leri kullan.
Ama en iyisi direct draw kullan