【正文】 項給叫出來，你只要按下Ctrl+T後選取Winsock Control 的就選Winsock Control ，這樣就可以使用Winsock元件。HCC0020 PUTamp。用法：改變這兩個屬性就可以改變圖形的位置。用法： = False 39。本文來自編程入門網(wǎng)()：VB游戲?qū)懽骷记桑?）秀圖篇文章來源： 互聯(lián)網(wǎng) 文章作者： 未知 一開始，我想先從游戲的圖形先講起好了，畢竟游戲最重要的就是畫面，一個沒有漂亮圖形的游戲，我連碰都不想去碰。　　最后分別把表a—表c打亂后顯示出來即可。 　　如上例所示，經(jīng)過打亂，b[27]數(shù)組將不再是舊時容顏。}//輸出ListBox1Clear()。temp2=random(27)+1。randomize()?！　∵@里要實現(xiàn)的方法是比較簡單的，也就是多次把數(shù)組的不同位置的值互換，就像讀小學時老師讓兩個同學互換位置一樣，老師不斷隨機抽兩個同學互換位置，最后同學們的座位就都重新排了一遍。用表1來說明：點擊按鈕的次數(shù) 選項卡1 選項卡2 選項卡3 1 3 3 3 2 1 1 1 3 0 0 0 　　具體講，當?shù)谝淮伟聪掳粹o時，表示你相中的圖片在其中一個選項卡的9張圖片內(nèi)。如果你最喜歡其中的一個（比如史進），他在第一組出現(xiàn)了，那么就按下按鈕“第一組”。這里生成新一層跑道，39。每層跑道右邊有幾個方塊Dim cx As Single 39。當然，我們往往還是根據(jù)具體的設(shè)計作一些變通，發(fā)揮一些技巧……比如這里設(shè)計的跑道是隨機產(chǎn)生的的，這就要通過一點技巧以便既讓玩家感到挑戰(zhàn)，又不至于出現(xiàn)不可逾越的難關(guān)……　　下面是全部源代碼，窗體上只需放個按鈕Command1就行了！Const D = 100 39?！　〉诙?，接受控制：Form的KeyPreview屬性要設(shè)為true，在Form_KeyPress函數(shù)中通過改變?nèi)肿兞縞x來控制賽車的位置。接下來要做的全部工作就是填入程序代碼了。　　現(xiàn)在，在控件面板上選取CommandButton（命令按鈕）控件，為Form1添加Command1和Command2兩個按鈕控件，把它們的大小設(shè)為12125，再在屬性框中把Command1的Caption填為“＆GO”，把Command2的Caption填為“＆QUIT”，并把Command1放到框體的右上角，把Command2放到框體的右下角。　　首先啟動VB5，新建一個標準的EXE工程。VB 貪吃蛇 單人版游戲(二) Visual Basic小游戲：猜英雄 這些游戲以前玩過吧，快下載看它們是怎么編寫的！目錄：VB游戲?qū)懽骷记桑?）秀圖篇 VB 貪吃蛇 單人版游戲(三) 此時可以看到，工程包括一個Form1框體。　　然后，在控件面板上選取Timer（時鐘）控件，為Form1添加一個Timer1時鐘控件。 Dim BallX As IntegerDim BallY As IntegerDim AddX As IntegerDim AddY As IntegerDim HitX As IntegerDim W As IntegerDim H As IntegerPrivate Sub Command1_Click()BallX=Int(Rnd(1)＊)＊5＋25BallY=Int(()/10)＊5AddX=－5AddY=－5Form_Paint=TrueEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub Form_MouseMove(Button As Integer,Shift As Integer,X As Single,Y As Single)X=X－50If X15 Then X=15If XW－105 Then X=W－105HitX=XIf =True ThenLine(16,H－5)－(W－6,H),＆HC0C0C0,BFLine(HitX,H)－(HitX＋100,H－5),0,BFEnd IfEnd SubPrivate Sub Form_Paint()ClsW=Int((ScaleWidth－140)/5)＊5H=Int((ScaleHeight－10)/5)＊5BackColor=＆HC0C0C0Line(10,10)－(15,H),0,BFLine(W－5,10)－(W,H),0,BFLine(10,10)－(W,15),0,BFEnd SubPrivate Sub Timer1_Timer()(BallX,BallY),4,＆HC0C0C0BallX=BallX＋AddXBallY=BallY＋AddY(BallX,BallY),4,0If BallX=20 Then AddX=－AddXIf BallY=20 Then AddY=－AddYIf BallX=W－10 Then AddX=－AddXIf BallY=H－10 ThenIf BallXHitX＋100 Then=FalseForm_PaintEnd IfAddY=－AddYEnd IfEnd Sub 一旦程序代碼輸入完畢，你就可以按F5開始執(zhí)行它，或是在File菜單里選取Make來生成EXE執(zhí)行文件了，瞧，小球已經(jīng)在你的屏幕上蹦來蹦去了?！　〉谌?，游戲循環(huán)：作為即時游戲，必須要有一個Timer，并在其事件Timer1_Timer()中繪制所有對象和進行碰撞檢測。方格的寬度Const BT = 3000 39。賽車的在x軸的位置Private Sub Command1_Click()　cx = Width / 2 3 * D / 2　cy = Height D　drawcar　For i = 1 To 20　　l1(i) = 0　　l2(i) = 0　　drawway (i)　Next i　 = TrueEnd SubPrivate Sub drawcar()　Line (cx, BT 100)Step(3 * D, D), BackColor, BF　Line (cx + D, BT 200)Step(D, D), BackColor, BF 39。注意要篩去玩家不可能通過的情況！drawway (20)39。然后這27將會重新排列順序，你再找史進在哪一組，比如發(fā)現(xiàn)他在第二組，就按下按鈕“第二組”，畫面中的人物次序會再次打亂，再找史進所在組別……最多3次，電腦將會猜出你心中的英雄！　　知道了玩法，下面我將介紹程序是如何實現(xiàn)的：　　一、猜測的奧妙——推算原理　　猜測的原理其實也不復雜，我們來模擬一下猜測的過程大家就清楚了。于是把這9張圖片均分成3份，每份3張，分別送入3個選項卡，其余的圖片就不做考慮了?！　∨e個例子：int I,temp1,temp2,a[2],b[27]for(i=1。for(i=1。a[1]=b[temp1]。for(i=1?！　《崿F(xiàn)的關(guān)鍵——篩選算法的介紹　　在整個實現(xiàn)的過程中，如何在每一次打亂后對人物進行篩選是程序的關(guān)鍵所在，處理不好，程序就不會有結(jié)果。 進行二次、多次篩選的方法都一樣，只是要注意相中的好漢在哪個數(shù)組里面，千萬別搞錯就行了。那該怎么處理游戲的圖形呢？VB提供了一個非常好用的控制項PictureBox，有了這個控制項我們才能輕松的在程式中秀出圖形，現(xiàn)在就來看看PictureBox有那些特性可以讓我們在游戲中使用。消失 = True 39。ScaleMode 屬性：設(shè)定PictureBox所使用的座標單位，一般都設(shè)為3像素知道了PictureBox的特性後，要怎么樣把它應用到游戲中呢？舉個例子好了，我現(xiàn)在要做一個打磚塊的游戲，需要用到那些圖片呢？磚塊、球、擊球的板子，一共有三張圖，所以我們就使用三個PictureBox，將圖片載入到PictureBox里面，如下面所示：Picture1 磚塊的圖片Picture2 球的圖片Picture3 板子的圖片接著我就可以寫，當我按下方向鍵的右鍵時，Picture3的left屬性+1，按下左鍵則1，這樣一來不就可以控制板子的左右移動了嗎？球也是一樣，只要每隔一段時間更改一次Picture2的left和top 屬性，就可以做出球移動的效果了。H8800C6 ANDamp。步驟二：再來我們必須先確定程式是作Server端還是Client端的，要先設(shè)定一些屬性：Server寫法： = 5400 (數(shù)字可以隨便設(shè)) (等待連線)Client寫法： = 對方IP = 5400 (必須要和Server端相同) = 0 (連線)連線之前Client端要先知道Server端的IP，接著等到Server端等待連線時，Client端就可以呼叫Connect方法，雙方連線成功後就可以傳輸資料。 本文來自編程入門網(wǎng)()：本文介紹編制貪吃蛇游戲的一般方法， 其中不含什么高深的算法，只使用了初級的VB編程方法，通俗易懂。 清除地圖上的所有物品，各個統(tǒng)計數(shù)值置零。 控制方向（根據(jù)Nokia貪吃蛇的操作方式）——由于蛇頭只能朝上下左右4個方向移動，但是方向鍵有8個，所以“斜線方向”的控制鍵和水平，垂直方向的控制鍵編碼上有點不同 斜線方向鍵（以“右上”方向鍵為例）——如果當前蛇頭朝著左邊（水平方向）運動，則將水平方向的分量變?yōu)?，再將垂直方向的分量變?yōu)?（向上運動）；如果當前蛇頭朝著上方（垂直方向）運動，則將垂直方向的分量變?yōu)?，再將水平方向的分量變?yōu)?1（向右運動）。（2）如果當前蛇頭位置的地圖屬性是“食物”——增加蛇身長度，統(tǒng)計玩家吃進的食物數(shù)量，增加分數(shù)，補充地圖上的食物，記錄（累加）當前吃進的物品，如果吃進的物品（curEatCount） 達到一定數(shù)量（EatCountPerShowPrize）就在地圖上顯示獎品。地圖屬性MAP_EMPTY = 0 39。加分獎品MAP_SNAKE 39。蛇身初始長度Public Const SPEED_LV1 As Integer = 200 39。定義填充色Public Const HEAD_COLOR As Long = amp。HE0E0E0 39。記錄得分榜的 文件名Public Const MAX_PRIZE As Integer = 50 39。記錄玩家的相關(guān)信息和設(shè)置值：Public Type thePlayerInfoScore As Integer 39。記錄吃進的 食物數(shù)量Bomb As Integer 39。繪畫蛇身使用的填充色……暫時省略……SnakeLength As Integer 39。記錄 玩家的得分和名字Type theRecordName As String * 15Score As IntegerEnd Type39。當前剩余的 獎勵分數(shù)Public EatCountPerShowPrize 39。第一次運行時先顯示得分榜End Sub本文來自編程入門網(wǎng)()：VB 貪吃蛇 單人版游戲(二)文章來源： CSDN 文章作者： Bugs1984 《主窗體 FrmPlay 代碼》——Private blnStartGame As Boolean 39。標記是否能夠 接收鍵盤事件（T＝可以接收），此變量可防止 Form_KeyDown()事件重復執(zhí)行Private Map_Width As Integer 39。地圖－炸彈顏色Private Map_Food_Color 39。當前級別Private P1 As thePlayerInfo 39。存放前十名的 得分記錄信息Option ExplicitPrivate Sub cmdHelp_Click() If blnPause = False Then Call Form_KeyDown(KEY_PAUSE, 0) 39。中止游戲 If blnStartGame = False Then 39。暫時使用默認填充色 Map_Bomb_Color = BOMB_COLOR Map_Empty_Color = EMPTY_COLOR Map_Food_Color = FOOD_COLOR = BODY_COLOR = HEAD_COLOR 39。設(shè)置 蛇每吃進多少物品（包括食物和炸彈，獎品不計）才顯示一次獎品 curLevel = AddScorePerFood = curLevel 39。每吃進一個 炸彈，所扣掉的分數(shù)＋1 = 0 = 0 PrizeRemain = 0 = False = = = 39。使用蛇頭顏色 重新繪畫蛇頭 (Snake_P1(0).X * MAP_SCALE, Snake_P1(0).Y * MAP_SCALE)Step(MAP_SCALE, MAP_SCALE), HEAD_COLOR, BF 39。顯示得分榜Private Sub cmdShowScoreList_Click() If blnPause = False Then Call Form_KeyDown(KEY_PAUSE, 0) 39。按“Numpad 5”鍵－－暫停/