پروژه بازی دوز ویژوال بیسیک باهوش مصنوعی ،بازی دوز 12 تایی اگه بتونین ازش ببرید یعنی خیلی باهوش هستید مطمعن هستم خوشتون میاد فقط بجنبید که تعداد دانلودش محدوده
یه بازی تفنگی باحال برا برنامه نویسای ویژوال بیسیک 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
سورس کدهای بازی با برنامه ویژوال بیسیک 6 Ball-N-Padlle یه بازی باحال برای برنامه نویسانی که با ویژوال بیسیک 6 کارمیکنن قسمتی از سورس کدهای برنا مه رو براتون میزارم
Private Sub Timer1_Timer()
If Ball.Top >= Frame1.Height - Ball.Height Then
ComputerScore = ComputerScore + 1
Label3.Caption = Str(ComputerScore)
Beep
yFlag = 1
End If
If Ball.Top <= Frame1.Top - (Ball.Height - 30) Then
PlayerScore = PlayerScore + 1
Label2.Caption = Str(PlayerScore)
پروژه بازی دوز ویژوال بیسیک باهوش مصنوعی ،بازی دوز 12 تایی اگه بتونین ازش ببرید یعنی خیلی باهوش هستید مطمعن هستم خوشتون میاد فقط بجنبید که تعداد دانلودش محدوده
سورس نرم افزار نوت پد به زبان ویژوال بیسیک
برنامه نویس : C0r3