یه بازی تفنگی باحال برا برنامه نویسای ویژوال بیسیک 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)&nb ...
یه بازی تفنگی باحال برا برنامه نویسای ویژوال بیسیک 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)&nb ...
پروژه بررسي نيروگاههاي موجي و جزر ومدي