آموزش ساخت بازی با VB

[Z.3.R.0]

این یک آموزش خفن هست،برای کسایی که http://ashiyane.org/forums/images/smilies/69.gif می خوان.

آموزش شروع شد:
یک Standard EXE بسازید و عرض و ارتفاع آن را به ترتیب روی 4785 , 3570 تنظیم کنید.یک توپ (Shape) بسازید.و اسمش رو shpball , تنظمات آن را به شکل زیر اعمال کنید.
Height:345
Left:2175
Top:1373
Width:345
BackStyle:1-Opaque
خوب یک تایمر هم بسازید و خواصیت رو False و اینتروال رو روی 20 تنظیم کنید،در بخش تعاریف رویداد Load را به این شکل تنظیم کنید.

Dim intdir as byte
intdir=1

بعد در بخش KeyDown به این شکل.

Select Case KeyCode
Case 13:Timer1.Enabled =True
Case 37:intdir = 1
Case 38:intdir = 2
Case 39:intdir = 3
Case 40:intdir = 4
Select Case Shift
Case vbcrtrlMask:If KeyCode=81 Then Unload ME
Case vbaltMask:if KeyCode=80 Then Timer1.Enabled=False
Case vbShiftMask:If KeyCode=51 Then Timer1.Enabled=True
End Select
End Select
End Sub

حالا تایمر رو به این شکل تنظیم کنید.

Select Case intdir
Case 1: shpball.left = shpball.left -50
Case 2:shpball.top = shpball.top -50
Case 3:shpball.left = shpball.left +50
Case 4:shpball.top = shpball.top +50
End Select
If shpball.left <= 18 Or shpball.left >= 4319 Or shpball.top <= 22 or shpball.top >= 2724 Then Timer1.Enabled = False
End If
End Sub

کپی نکنید لطفا.

موفق باشید http://ashiyane.org/forums/images/smilies/26.gif

شاید مشکلاتی داشته با شه بگین تا درست کنم