Başlangıç > Kodlar > Visual Basic 6 ile 360 derecelik dönüş

Visual Basic 6 ile 360 derecelik dönüş


Bu mantık Vb ve C++ da oyunların 360 derecelik elipslerinde kullanılabilir.

Lisede iken yazdığım (geçen sene) bir program.
Umarım İşinize Yarar.


Öncelikle formunuza iki tane shape cizin. Bunların shape özelliğini circle yapın.
Bir timer oluşturun ve interval özelliğini 1 degerine getirin.

Bir modül oluşturun ve içine şu aşagıdaki veriyi girin.
'---------------------------
Global xx, yy, gw, r, aci
'---------------------------

Formunuzun kodunuda şöyle aşagıdaki gibi değiştirin.
'---------------------------

Private Sub Form_Load()
Form1.WindowState = 2
'fulscreen olmasını sağladık
Shape2.Height = 855
Shape2.Width = 855
Shape2.Left = 6500
Shape2.Top = 4900
'güneşi ayarladık
Shape1.Height = 495
Shape1.Width = 495
Shape1.Left = 9520
Shape1.Top = 5880
'dunyayı ayarladık
r = 3.14 / 180
aci = 90
xx = 0
yy = 0
End Sub

Private Sub Timer1_Timer()
aci = aci + 10
If aci = 360 Then aci = 0

If aci >= 180 And aci <= 360 Then
Shape1.Width = Shape1.Width - 20
Shape1.Height = Shape1.Height - 20
Else
Shape1.Width = Shape1.Width + 20
Shape1.Height = Shape1.Height + 20
End If

xx = 600 * Cos(aci * r)
yy = 300 * Sin(aci * r)
Shape1.Left = Shape1.Left + xx
Shape1.Top = Shape1.Top + yy

End Sub

'---------------------------

'Bu kod Vb ve C++ da oyunların 360 derecelik elipslerinde kullanılabilir.

Caner DALKIÇ


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: