-
Visual
Studio2005
软件的
Visual
Basic
语言。
如图
-1
,
21
点游戏界面
p>
图
-1
21
点游戏界面
图片:需要在所创项目的
binDe
bugImages
下面有图片。一副牌的所有图片,包括大小王,
并加一张背景图片。每张牌的命名为
1
到
< br>52.
大小王命名为
a
和
b
,背景图片的名字是
back
图片的格式是
jpg
(注:图片可以自己在网上找
,文档是不能把图片给弄上来的,所以不能提供图片)
代码如下
:
Public
Class
GameInterface
Dim
p(10),
c(10)
As
Integer
Dim
t, i,
CScore, PScore, m
As
Integer
Private
Sub
GameInterface_Load(
ByVal
sender
As
,
ByVal
e
As
rgs)
Handles
MyBase
.Load
Me
.Top = 45
Me
.Left =
80
Randomize()
al = 1000
End
Sub
Private
Sub
btnPlay_Click
(
ByVal
sender
As
,
ByVal
e
As
rgs)
Handles
Try
DisplayReset()
m = 10
= m
If
m = 10
Then
d =
True
End
If
p(1) =
Int(Rnd() * 52 + 1)
Do
t =
Int(Rnd() * 52 + 1)
Loop
While
t = p(1)
c(1) = t
Do
t = Int(Rnd() * 52 + 1)
Loop
While
t = p(1)
Or
t = c(1)
p(2) = t
Do
t = Int(Rnd() * 52 + 1)
Loop
While
t = p(1)
Or
t = c(1)
Or
t = p(2)
c(2) = t
=
le(
& p(1) &
)
=
le(
& c(1) &
)
=
le(
& p(2) &
)
=
le(
)
Catch
ex
As
Exception
MsgBox(
)
End
Try
End
Sub
Private
Sub
Timer1_Tick(
ByVal
sender
As
,
ByVal
e
As
rgs)
Handles
= - 1
If
= 0
Then
DisplayData()
End
If
End
Sub
Private
Sub
btnCall_Click
(
ByVal
sender
As
,
ByVal
e
As
rgs)
Handles
Try
If
Is
Nothing
Then
Do
t =
Int(Rnd() * 52 + 1)
Loop
While
t = p(1)
Or
t = c(1)
Or
t = p(2)
Or
t = c(2)
p(3) = t
= le(
& p(3) &
)
Add()
If
PScore >= 22
Then
MsgBox(
)
DisplayData()
End
If
= 10
ElseIf
Is
Nothing
Then
Do
t = Int(Rnd() * 52
+ 1)
Loop
While
t = p(1)
Or
t = c(1)
Or
t = p(2)
Or
t = c(2)
Or
t = p(3)
p(4) = t
=
le(
& p(4) &
)
Add()
If
PScore >= 22
Then
MsgBox(
)
DisplayData()
End
If
= 10
ElseIf
Is
Nothing
Then
Do
t = Int(Rnd() * 52
+ 1)
Loop
While
t = p(1)
Or
t = c(1)
Or
t = p(2)
Or
t = c(2)
Or
t = p(3)
Or
t = p(4)
p(5) = t
=
le(
& p(5) &
)
= 10
Add()
If
PScore >= 22
Then
MsgBox(
)
DisplayData()
End
If
ElseIf
Is
Nothing
Then
Do
t = Int(Rnd() * 52
+ 1)
Loop
While
t = p(1)
Or
t = c(1)
Or
t = p(2)
Or
t = c(2)
Or
t = p(3)
Or
t = p(4)
Or
t = p(5)
p(6) = t
=
le(
& p(6) &
)
= 10
Add()
If
PScore >= 22
Then
MsgBox(
)
DisplayData()
End
If
End
If
Catch
ex
As
Exception
MsgBox(
)