آناتومی ویژوال
عنوان صفحه
فصل اول : سیستم های اطلاعاتی
فصل دوم : معرفی نرم افزارهای مورد استفاده
الف - معرفی نرم افزار Access..............................................................................24
ب – معرفی ویژوال بیسیک (VB)
فصل سوم : توضیحات پروژه
ضمیمه 1 : نحوه ساخت و اتصال دیتا بیس در ویژوال بیسیک...........84
ضمیمه 2 : نحوه ساخت گزارشگیری (DataReporter)..................91
یه بازی تفنگی باحال برا برنامه نویسای ویژوال بیسیک 6 حتما خوشتون میاد اگه مشکلی داشتید این ایمیل منه tiptope.roz@gmail.com این هم قسمتی از سورس کدهای برنامه
Private Sub Shoot()
On Error Resume Next
Bullits = Bullits - 1
Tmp = PlaySound("Fire.wav", 1, 1)
Select Case Dir
Case 1
For Cnt = 0 To 9
Tmp = Right$(Left$(Rows(R - Cnt), C), 1)
If Val(Tmp) >= 5 And Val(Tmp) <= 7 Then
Rows(R - Cnt) = Left$(Rows(R - Cnt), C - 1) & "0" & Right$(Rows(R - Cnt), 12 - C)
Tmp = PlaySound("Kill.wav", 1, 1)
End If
Next Cnt
Case 2