快捷搜索:  as  test  1111  test aNd 8=8  test++aNd+8=8  as++aNd+8=8  as aNd 8=8

希尔顿娱乐官网就选75775:用VB6.0开发猜数字小游戏



跟着Windows95 and 98的盛行,越来越多的人加入Windows法度榜样设计的步队之中。曩昔,Windows法度榜样设计是那些练习有素的专业法度榜样设计者才会涉足的神秘领域,险些所有的Windows法度榜样都是用C/C++说话编写的,这对大年夜部分通俗法度榜样设计者来说,要想高效迅速地编写出具有必然功能的Windows法度榜样就不是一件轻易的工作了。

1991年,Microsoft公司首次推出了Visual Basic for Windows,从此,人们不用C/C++或汇编就可以编写Windows法度榜样了。到今朝为止,我觉得在所有的Windows法度榜样设计对象中,Visual Basic 是最方便的,它以一种全新的思惟让法度榜样员快捷和高效地设计出Windows法度榜样。今朝,Visual Basic 的最高版本为6.0,本文讲述用运行于Win95/98 上的VB6.0来开拓一个猜数字的小游戏。

首先说一说猜数字这个游戏的弄法,一开始谋略时机随机孕育发生一个不重复的四位数,你要输入四位不重复的数与谋略机给出的数作比较,假如与谋略机给出的数的位置相同数字相同,那么将会是1A,假如数字相同而位置相不合,将会显示1B。例如:谋略机的随机数字为:1234 ,我猜的数字为:1356 ,那么这时谋略时机给你提示为:1A1B,也便是说,你猜的数字中,有一位数字是猜对的,而且数字位置都对,以是显示为1A;还有一个数字也猜对了,然则位置纰谬,以是显示为1B。就这些了,看谁猜的次数少。

首先在Form中加入一个CommandButtion控件,在Command1上点击鼠标右键,选择复制,在窗体上点击鼠标右键,选择粘贴在窗体上粘贴出九个Command1,此时呈现对话框问你要不要创建控件数组,在此选择是。然后再加入两个CommandButtion控件,一个ListBox、一个Frame、一个Label 。设置窗体的Caption属性为“猜一猜”、BorderStyle为1-Fixed Single、控件数组的Captin分手为0、1、2、3、4、5、6、7、8、9,Command2的Caption为“确定",Command3的Caption为“取消",Frame1的Caption为“提示:",Label1的Cpation为“0A0B"。然后选择菜单编辑器编辑菜单为:游戏、新游戏、显示谜底、停止游戏,她们的Name属性分手为:Game、New、View、End。好了,另外属性应用缺省的即可,着末的界面应跟下图一样:

以下是法度榜样清单:

Dim PcA, PcB, PcC, PcD As Integer 注释:电脑给出的每一位数

Dim UserA, UserB, UserC, UserD As Integer 注释:用户输入的每一位数

Dim Degree As Integer 注释:用户猜了几回

Dim Num As Integer 注释:判断用户输入次数的变量

Private Sub Form_Load()

注释:法度榜样运行行时

注释:初始化

For i = 0 To 9

Command1(i).Enabled = False

Next i

Command2.Enabled = False

Command3.Enabled = False

View.Enabled = False

End Sub

Private Sub New_Click()

注释:开始一个新游戏时

View.Enabled = True 注释:可以看谜底

List1.Clear 注释:清空列表框

Degree = 0

注释: 对随机数天生器做初始化

Rando希尔顿娱乐官网就选75775mize

Num = 1

Label1.Caption = 0 & “A" & 0 & “B"

注释:电脑给出的每一位数

PcA = Int(9 * Rnd)

Do

PcB = Int(9 * Rnd)

Loop While PcB = PcA

Do

PcC = Int(9 * Rnd)

Loop While PcC = PcA Or PcC = PcB

Do

PcD = Int(9 * Rnd)

Loop While PcD = PcA Or PcD = PcB Or PcD = PcC

For i = 0 To 9

Command1(i).Enabled = True

Next i

Command2.Enabled = False

Command3.Enabled = True

End Sub

Private Sub Command1_Click(Index As Integer)

注释:用户输入时

注释:使得输入过的按钮无效

If Num <= 4 Then

Command1(Index).Enabled = False

End If

注释:判断用户输入了几位,假如输入了四位则确认按钮有效

If Num = 4 Then

Command2.Enabled = True

End If

注释:取得用户输入

Select Case Index

Case 0

UserEnter (0) 注释:调用UserEnter历程

Case 1 UserEnter (1)

Case 2 UserEnter (2)

Case 3 UserEnter (3)

Case 4 UserEnter (4)

Case 5 User希尔顿娱乐官网就选75775Enter (5)

Case 6 UserEnter (6)

Case 7 UserEnter (7)

Case 8 UserEnter (8)

Case 9 UserEnter (9)

End Select

End Sub

Private Sub Command2_Click()

注释:单击确定按钮时

注释:判断用户输入是否精确

Dim A, B As Integer

A = 0

B = 0

Degree = Degree + 1

If UserA = PcA Then

A = A + 1

ElseIf UserA = PcB Or UserA = PcC Or UserA = PcD Then

B = B + 1

用Visual BASIC 6.0 开拓猜数字小游戏 End If

If UserB = PcB Then

A = A + 1

ElseIf UserB = PcA Or UserB = PcC Or UserD = PcD Then

B = B + 1

End If

If UserC = PcC Then

A = A + 1

ElseIf UserC = PcA Or UserC = PcB Or UserC = PcD Then

B = B + 1

End If

If UserD = PcD Then

A = A + 1

ElseIf UserD = PcA Or UserD = PcB Or UserC = PcC Then

B = B + 1

End If

注释:显示希尔顿娱乐官网就选75775提示

Label1.Caption = A & “A" & B & “B"

List1.AddItem UserA & UserB & UserC & UserD & “ " & Label1.Caption

注释:初始化输入按钮

Command2.Enabled = False

For i = 0 To 9

Command1(i).Enabled = True

Next i

Num = 1

注释:判断输赢

If A = 4 Then

MsgBox “你猜对希尔顿娱乐官网就选75775了!" & “你一共猜了" & Degree & “希尔顿娱乐官网就选75775次"

For i = 0 To 9

Command1(i).Enabled = False

Next i

Command2.Enabled = False

End If

End Sub

Private Sub Command3_Click()

注释:单击取消按钮时

Num = 1

For i = 0 To 9

Command1(i).Enabled = True

Next i

Command2.Enabled = False

End Sub

Private Sub View_Click()

注释:显示谜底时

MsgBox “谜底是:" & PcA & PcB & PcC & PcD &“你答对了吗?"

End Sub

Private Sub End_Click()

注释:游戏停止时

End

End Sub

Sub UserEnter(i) 注释:取得用户输入

If Num = 1 Then

UserA = i

Num = Num + 1

ElseIf Num = 2 Then

UserB = i

Num = Num + 1

ElseIf Num = 3 Then

UserC = i

Num = Num + 1

ElseIf Num = 4 Then

UserD = i

Num = Num + 1

Else: MsgBox “四位数够了!"

End If

End Sub

运行法度榜样,选择新游戏,就可以开始玩你自己开拓的游戏了。

上面法度榜样在Win95,VB6下运行经由过程。

免责声明:以上内容源自网络,版权归原作者所有,如有侵犯您的原创版权请告知,我们将尽快删除相关内容。

您可能还会对下面的文章感兴趣: