VB程式小遊戲,(打地鼠)

Question

我需要VB程式小遊戲程式,因為我剛學,想寫看看,可以寫給我參考一下嗎?
(需要啥按鍵,方塊請註明,thanks)

因為我家沒VB,要到學校用,所以可以把原始碼複製給我嗎?

Answer 1

第一個 From
Private Sub Animation_Start_Timer() '指定地鼠動畫的速度及格子
Animation_Time.Interval = 1 '播放速度 1/1000 Sec
Randomize '亂數
Pics = Fix(9 * Rnd)
Medule_Form.Fool_Text.Text = Pics '設定完成
End Sub

Private Sub Animation_Time_Timer() '計時動畫播放引擎 Animation
Pics = Medule_Form.Fool_Text.Text
'播放動畫
Static Index As Integer
Fool_Form1.Fool(Pics).Picture = Medule_Form.Fool02(Index).Picture
'測定狀態
If Index = 6 Then
Animation_Time.Interval = 0
Index = 0
End If
'繼續
Index = Index + 1
End Sub
Private Sub Timer_Conceal_Timer() '地鼠隱藏

Randomize '亂數
Pics = Fix(9 * Rnd)
Medule_Form.Conceal_Text.Text = Pics

X = Medule_Form.Conceal_Text.Text
Fool_Form1.Fool(X).Picture = Medule_Form.Fool01.Picture

End Sub

2006-06-07 09:45:02 補充：
第2個 From'一堆宣告Dim I As Integer Dim Red As Integer Dim Green As Integer Dim Blue As Integer Sub Hit(Index As Integer) '打擊 If Fool_Form1.Fool(Index).Picture = Medule_Form.Fool02(6).Picture Then Fool(Index).Picture = Medule_Form.FoolHit.Picture End IfEnd Sub

2006-06-07 09:46:04 補充：
Sub Start1() '表單高度 H = 5000 W = 4500 Fool_Form1.Height = H Fool_Form1.Width = WEnd SubSub Start2() '分配位置 J = 350 I = 1200

2006-06-07 09:46:47 補充：
這是我從上面那一位回答者所給的網止貼過來的我是覺得妳剛學而已這一個程式對妳來說應該是太難了吧@@換點簡單的例如井字遊戲呀 等等的

Answer 2

http://vb.infoserv.com.tw/sam/Foolgame.zip
是打地鼠的原始碼
出自小雄資訊中心