今天給各位分享3600小游戲的知識，其中也會對3366小游戲大全游戲進行解釋，如果能碰巧解決你現(xiàn)在面臨的問題，別忘了關(guān)注本站，現(xiàn)在開始吧！
怎樣用vb編寫小游戲
我2年前寫的，有點幼稚。別見笑
VERSION
5.00
Begin
VB.Form
Form1
AutoRedraw
=
-1
'True
Caption
=
"打字游戲
小游戲而已"
ClientHeight
=
4800
ClientLeft
=
60
ClientTop
=
750
ClientWidth
=
5610
LinkTopic
=
"Form1"
ScaleHeight
=
4800
ScaleWidth
=
5610
StartUpPosition
=
1
'所有者中心
Begin
VB.Timer
Timer1
Left
=
Top
=
3600
End
Begin
VB.Label
Label1
Caption
=
"Label1"
Height
=
735
Index
=
Left
=
1320
TabIndex
=
Top
=
600
Width
=
855
End
Begin
VB.Menu
MenuGame
Caption
=
"數(shù)量
(N)"
Index
=
End
Begin
VB.Menu
MenuGame
Caption
=
"速度
(P)"
Index
=
1
End
Begin
VB.Menu
MenuGame
Caption
=
"重置
(R)"
Index
=
2
End
Begin
VB.Menu
MenuGame
Caption
=
"開始
(S)"
Index
=
3
End
Begin
VB.Menu
MenuGame
Caption
=
"輸贏
(W)"
Index
=
4
End
Begin
VB.Menu
MenuGame
Caption
=
"幫助
(H)"
Index
=
5
End
End
Attribute
VB_Name
=
"Form1"
Attribute
VB_GlobalNameSpace
=
False
Attribute
VB_Creatable
=
False
Attribute
VB_PredeclaredId
=
True
Attribute
VB_Exposed
=
False
Dim
StartPause
As
Boolean
Dim
n
As
Integer
Dim
Speed
As
Integer
Dim
Down
As
Integer,
Hit
As
Integer
Dim
DownLost
As
Integer,
HitWin
As
Integer
Rem
自定義函數(shù)效率不高啊。。。
Private
Sub
Form_Initialize()
Speed
=
10
DownLost
=
100
HitWin
=
100
End
Sub
Private
Sub
Form_KeyDown(KeyCode
As
Integer,
Shift
As
Integer)
Randomize
For
Index
=
To
n
If
Chr(KeyCode)
=
Label1(Index).Caption
Then
With
Label1(Index)
.Top
=
Me.ScaleTop
.Caption
=
Chr(Int(Rnd
*
26)
+
65)
.Left
=
Rnd
*
(Me.ScaleWidth
-
Label1(Index).Width)
.ForeColor
=
RGB(Rnd
*
255,
Rnd
*
255,
Rnd
*
255)
End
With
Hit
=
Hit
+
1
Me.Caption
=
"打字游戲
"
"掉落:
"
Down
"
命中:
"
Hit
End
If
Next
Index
End
Sub
Private
Sub
Form_Load()
On
Error
Resume
Next
Timer1.Interval
=
10
Timer1.Enabled
=
False
Randomize
With
Label1(0)
.Top
=
Me.ScaleTop
.Caption
=
Chr(Int(Rnd
*
26)
+
65)
.ForeColor
=
RGB(Rnd
*
255,
Rnd
*
255,
Rnd
*
255)
.Left
=
Rnd
*
(Me.ScaleWidth
-
Label1(0).Width)
.FontSize
=
30
.BackStyle
=
End
With
For
Index
=
1
To
n
Load
Label1(Index)
With
Label1(Index)
.Visible
=
True
.FontSize
=
30
.BackStyle
=
.Top
=
Me.ScaleTop
.Caption
=
Chr(Int(Rnd
*
26)
+
65)
.Left
=
Rnd
*
(Me.ScaleWidth
-
Label1(Index).Width)
.ForeColor
=
RGB(Rnd
*
255,
Rnd
*
255,
Rnd
*
255)
End
With
Next
Index
End
Sub
Private
Sub
MenuGame_Click(Index
As
Integer)
On
Error
Resume
Next
Select
Case
Index
Case
n
=
Int(InputBox("輸入數(shù)量,建議輸入1至5,如果輸入0或者按取消，將會去缺省值1",
"輸入數(shù)量")
-
1)
Form_Load
StartPause
=
False:
MenuGame(3).Caption
=
"開始
(S)"
Case
1
Speed
=
Int(Val(InputBox("輸入速度參數(shù)，建議5-20，如果輸入0或按取消，將會取缺省值0，就是不會移動",
"輸入速度參數(shù)")))
Timer1.Enabled
=
False
StartPause
=
False:
MenuGame(3).Caption
=
"開始
(S)"
Case
2
Hit
=
Down
=
Form_Load
StartPause
=
False:
MenuGame(3).Caption
=
"開始
(S)"
Case
3
StartPause
=
Not
StartPause
If
StartPause
=
True
Then
MenuGame(3).Caption
=
"暫停
(P)"
Timer1.Enabled
=
True
ElseIf
StartPause
=
False
Then
MenuGame(3).Caption
=
"開始
(S)"
Timer1.Enabled
=
False
End
If
Case
4
HitWin
=
Int(InputBox("輸入數(shù)字，當(dāng)命中數(shù)等于該數(shù)時即為勝利。",
"輸入數(shù)字"))
DownLost
=
Int(InputBox("輸入數(shù)字，當(dāng)?shù)袈鋽?shù)等于該數(shù)時即為勝利。",
"輸入數(shù)字"))
Case
5
MsgBox
"目前沒有編輯幫助"
End
Select
End
Sub
Private
Sub
Timer1_Timer()
Randomize
For
Index
=
To
n
Label1(Index).Top
=
Label1(Index).Top
+
Speed
If
Label1(Index).Top
=
Me.ScaleHeight
Then
With
Label1(Index)
.Top
=
Me.ScaleTop
.Caption
=
Chr(Int(Rnd
*
26)
+
65)
.Left
=
Rnd
*
(Me.ScaleWidth
-
Label1(Index).Width)
.ForeColor
=
RGB(Rnd
*
255,
Rnd
*
255,
Rnd
*
255)
End
With
Down
=
Down
+
1
Me.Caption
=
"打字游戲
"
"掉落
"
Down
"
命中
"
Hit
End
If
Next
Index
If
Down
=
DownLost
Then
MsgBox
"你輸啦！",
vbOKOnly,
"You
lost":
End
If
Hit
=
HitWin
Then
MsgBox
"你贏啦！",
vbOKOnly,
"You
Win":
End
End
Sub
a63600能玩什么游戲
如果樓主說的AMD3600是A6 3600處理器,玩孤島驚魂4可以低畫質(zhì)試試,估計流暢度不會很好,最多勉強玩,FPS不理想。 (處理器低于最低配置要求,顯卡基本上滿足低配要求,內(nèi)存滿足要求); 玩古墓麗影10是完全不夠用的(處理器、顯卡、內(nèi)存均不能滿足游戲最低配置要求)。 如果是X2 3600+,那單機游戲都玩不了。 總的來說這個電腦的配置的性能低了,不太適合玩上述單機游戲。
這配置3600 主要玩單機游戲 好不好？有哪些需要更換的嗎？多給點意見，什么意見都行，謝謝
配置很可以，固態(tài)硬盤?機械硬盤比較好，顯卡960其實性能比前一型號沒多大提升，感覺很雞肋，估計大型游戲也可以了
