【编程设计】《过河小游戏》软件设计文档附件1 《过河小游戏》软件设计文档 第一阶段_控件设置 （一）何设计界面 1、【初始界面】
2、游戏规则界面
3、游戏信息
（二）美化界面 设计窗体相关属性如表
第二阶段_编写程序 1、 全局变量 取值含义
Dim Cat, Sheep, Wolf, Cai As Integer Dim Game As Boolean ‘True:游戏开始 False:游戏停止
2、系统初始化设置 Private SubForm_Load() Form1.Height = 8865 Form1.Width = 13935 Cat = 0 Sheep = 0 Wolf = 0 Cai = 0 'Picture1设置(作为容器) Pic1.Height = 7695 Pic1.Left = 360 Pic1.Top = 240 Pic1.Width = 12975
'甲岸设置(用shape1作为甲岸) Shape1.Height = 975 Shape1.Left = 0 Shape1.Top = 6720 Shape1.Width = 3015 Shape1.BorderStyle = 0 Shape1.FillColor = &H40& Shape1.FillStyle = 0
'乙岸设置(用shape2作为乙岸) Shape2.Height = 975 Shape2.Left = 9840 Shape2.Top = 6720 Shape2.Width = 3015 Shape2.BorderStyle = 0 Shape2.FillColor = &H40& Shape2.FillStyle = 0
'河水设置(用shape3作为河水) Shape3.Height = 375 Shape3.Left = 3000 Shape3.Top = 7320 Shape3.Width = 6855 Shape3.BorderStyle = 0 Shape3.FillColor = &HC00000 Shape3.FillStyle = 0
'小船设置(用shape4作为小船) Shape4.Height = 255 Shape4.Left = 3000 Shape4.Top = 7080 Shape4.Width = 2175 Shape4.BorderStyle = 0 Shape4.FillColor = &HFFFF& Shape4.FillStyle = 0
'狼的初始化设置 Img_Wolf.Top = 5700 Img_Wolf.Left = 120 Img_Wolf.Height = 1000 Img_Wolf.Width = 660
'羊的初始化设置 Img_sheep.Top = 5700 Img_sheep.Left = 960 Img_sheep.Height = 1000 Img_sheep.Width = 660
'菜的初始化设置 Img_cai.Top = 5700 Img_cai.Left = 1920 Img_cai.Height = 1005 Img_cai.Width = 1005
'猫的初始化设置 Img_cat.Top = 5760 Img_cat.Left = 3000 Img_cat.Height = 1335 Img_cat.Width = 975
'游戏规则内容的设置 Label1.Caption = " 黑猫警长护送灰太狼、喜羊羊、菜白白过河。可惜船小，除了警长外，仅能再搭乘一个客人。客人之间的关系很微妙。在警长不在场的情况下，灰太狼会欺负喜羊羊，不会欺负菜白白；喜羊羊会捉弄菜白白；菜白白不欺负任何人。帮警长想个方法，让所有的人都能够安全过河，并不发生欺凌事件。若发生，则方法失败。" Label1.AutoSize = False Label1.Height = 2055 Label1.Left = 2040 Label1.Top = 240 Label1.Width = 7935 Label1.Visible = False
'[游戏规则]按钮的初始设置 Command1.Height = 495 Command1.Left = 11280 Command1.Top = 120 Command1.Width = 1455
'[开始游戏]按钮的初始设置 Command2.Height = 495 Command2.Left = 11280 Command2.Top = 720 Command2.Width = 1455
'[游戏信息]按钮的初始设置 Command3.Height = 495 Command3.Left = 11280 Command3.Top = 1320 Command3.Width = 1455
Img_light.Visible = False Img_light.Height = 735 Img_light.Left = 2160 Img_light.Top = 2640 Img_light.Width = 855
Label2.Visible = False Game = False
'*******************【版本信息】界面初始化************ Pic2.Top = 200 Pic2.Left = 2000 Pic2.Height = 2500 Pic2.Width = 6600 Pic2.Visible = False 'Logo图标初始化设置 Image1.Height = 1125 Image1.Left = 2400 Image1.Top = 240 Image1.Width = 1125 '软件标题设置 Label3.AutoSize = True Label3.Height = 300 Label3.Left = 1920 Label3.Top = 1440 Label3.Width = 1890 '版本及作者信息设置 Label4.Caption = "程序员：福州华侨中学初一6 林希媛" Label4.AutoSize = True Label4.Height = 180 Label4.Left = 1840 Label4.Top = 1920 Label4.Width = 4410
End Sub
3、狼的操作 Private SubImg_wolf_Click() If Game Then Select Case Wolf Case 0: If Cat = 0 Then‘狼在甲岸，船也在甲岸，则狼上船 Img_Wolf.Top =6050 Img_Wolf.Left =4080 Wolf = 1 If Cai = 1 Then ‘狼上船，若菜在船上，菜下船 Img_cai.Top =5700 Img_cai.Left =1920 Cai = 0 End If If Sheep = 1 Then ‘狼上船，若羊在船上，羊下船 Img_sheep.Top= 5700 Img_sheep.Left= 960 Sheep = 0 End If End If Case 1: ‘狼在船上，则狼上甲岸 If Cat = 0 Then Img_Wolf.Top = 5700 Img_Wolf.Left = 120 Wolf = 0 End If Case 2: ‘狼在乙岸的船上，则狼上乙岸 If Cat = 1 Then Img_Wolf.Top = 5700 Img_Wolf.Left =12095 Wolf = 3 ‘若三位乘客都在乙岸，任务成功 If Wolf = 3 AndSheep = 3 And Cai = 3 Then Label2.Caption =" 恭喜警长胜利完成任务！游戏结束！" Label2.Visible =True Game = False End If End If Case 3: ‘狼在乙岸，船也在乙岸，则狼上船 If Cat = 1 Then Img_Wolf.Top = 6050 Img_Wolf.Left = 8780 Wolf = 2 If Cai = 2 Then‘狼上船，若菜在船上，菜下船 Img_cai.Top =5700 Img_cai.Left =9975 Cai = 3 End If If Sheep = 2 Then‘狼上船，若羊在船上，羊下船 Img_sheep.Top = 5700 Img_sheep.Left= 11095 Sheep = 3 End If End If
End Select End If End Sub 4、羊的操作 Private SubImg_sheep_Click() If Game Then Select Case Sheep Case 0: If Cat = 0 Then‘羊在甲岸，船也在甲岸，则羊上船 Img_sheep.Top =6050 Img_sheep.Left =4080 Sheep = 1 If Cai = 1 Then‘羊上船，若菜在船上，菜下船 Img_cai.Top =5700 Img_cai.Left =1920 Cai = 0 End If If Wolf = 1 Then‘羊上船，若狼在船上，狼下船 Img_Wolf.Top =5700 Img_Wolf.Left= 120 Wolf = 0 End If End If Case 1: ‘羊在船上，则羊上甲岸 If Cat = 0 Then Img_sheep.Top =5700 Img_sheep.Left =960 Sheep = 0 End If Case 2: ‘羊在乙岸的船上，则羊上乙岸 If Cat = 1 Then Img_sheep.Top = 5700 Img_sheep.Left =11095 Sheep = 3 ‘若三位乘客都在乙岸，任务成功 If Wolf = 3 AndSheep = 3 And Cai = 3 Then Label2.Caption =" 恭喜警长胜利完成任务！游戏结束！" Label2.Visible = True Game = False End If
End If Case 3: ‘羊在乙岸，船也在乙岸，则羊上船 If Cat = 1 Then Img_sheep.Top = 6050 Img_sheep.Left = 8780 Sheep = 2 If Wolf = 2 Then‘羊上船，若狼在船上，狼下船 Img_Wolf.Top =5700 Img_Wolf.Left= 12095 Wolf = 3 End If If Cai = 2 Then‘羊上船，若菜在船上，菜下船 Img_cai.Top =5700 Img_cai.Left =9975 Cai = 3 End If End If End Select End If End Sub
5、菜的操作 Private SubImg_cai_Click() If Game Then Select Case Cai Case 0: If Cat = 0 Then‘菜在甲岸，船也在甲岸，则菜上船 Img_cai.Top = 6050 Img_cai.Left =4080 Cai = 1 If Sheep = 1 Then‘菜上船，若羊在船上，羊下船 Img_sheep.Top =5700 Img_sheep.Left = 960 Sheep = 0 End If If Wolf = 1 Then‘菜上船，若狼在船上，狼下船 Img_Wolf.Top =5700 Img_Wolf.Left= 120 Wolf = 0 End If End If
Case 1: ‘菜在船上，则菜上甲岸 If Cat = 0 Then Img_cai.Top = 5700 Img_cai.Left = 1920 Cai = 0 End If Case 2: ‘菜在船上，则菜上乙岸 If Cat = 1 Then Img_cai.Top = 5700 Img_cai.Left = 9975 Cai = 3 ‘若三位乘客都在乙岸，任务成功 If Wolf = 3 AndSheep = 3 And Cai = 3 Then Label2.Caption =" 恭喜警长胜利完成任务！游戏结束！" Label2.Visible =True Game = False End If End If Case 3: ‘菜在乙岸，船也在乙岸，则菜上船 If Cat = 1 Then Img_cai.Top = 6050 Img_cai.Left = 8780 Cai = 2 If Sheep = 2 Then‘菜上船，若羊在船上，羊下船 Img_sheep.Top =5700 Img_sheep.Left= 11095 Sheep = 3 End If If Wolf = 2 Then‘菜上船，若狼在船上，狼下船 Img_Wolf.Top =5700 Img_Wolf.Left= 12095 Wolf = 3 End If End If
End Select End If
End Sub
6、猫的操作 ’开船动画产生 If Game Then Timer1.Enabled = True End If
Private SubTimer1_Timer() Select Case Cat Case 0, -1: If Img_cat.Left <=7680 Then Img_cat.Left =Img_cat.Left + 100 ‘猫走 Shape4.Left =Shape4.Left + 100 ‘船走 ‘哪个乘客在船上，则带乘客一同走 If Wolf = 1 Then Img_Wolf.Left= Img_Wolf.Left + 100 If Sheep = 1 ThenImg_sheep.Left = Img_sheep.Left + 100 If Cai = 1 ThenImg_cai.Left = Img_cai.Left + 100 Cat = -1 End If ‘动画停止条件，警长到了乙地，判断甲地情况 If Img_cat.Left >7680 Then Timer1.Enabled =False Cat = 1 ‘乘客的新状态 If Wolf = 1 ThenWolf = 2 If Sheep = 1 ThenSheep = 2 If Cai = 1 ThenCai = 2 ‘警长在乙地，若甲地出现羊与狼共存，羊与菜共存，羊狼菜共存这三种状态之一，任务失败 If Wolf = 0 AndSheep = 0 Then Label2.Caption= " 警长: 灰太狼欺负喜羊羊了。您任务失败了!请重新点击开始游戏" Label2.Visible= True Img_light.Visible= True Game = False End If If Cai = 0 AndSheep = 0 Then Label2.Caption= " 警长: 喜羊羊欺负菜白白了。您任务失败了!请重新点击开始游戏" Label2.Visible= True Img_light.Visible= True Game = False End If
End If Case 1, -2: If Img_cat.Left >3000 Then Img_cat.Left =Img_cat.Left - 100 Shape4.Left =Shape4.Left - 100 If Wolf = 2 ThenImg_Wolf.Left = Img_Wolf.Left - 100 If Sheep = 2 ThenImg_sheep.Left = Img_sheep.Left - 100 If Cai = 2 ThenImg_cai.Left = Img_cai.Left - 100 Cat = -2 End If If Img_cat.Left <=3000 Then Cat = 0 If Wolf = 2 ThenWolf = 1 If Sheep = 2 ThenSheep = 1 If Cai = 2 ThenCai = 1 Timer1.Enabled =False ‘警长在甲地，若乙地出现羊与狼共存，羊与菜共存，羊狼菜共存这三种状态之一，任务失败 If Wolf = 3 AndSheep = 3 Then Label2.Caption= " 警长: 灰太狼欺负喜羊羊了。您任务失败了!请重新点击开始游戏" Label2.Visible= True Img_light.Visible = True Game = False End If If Cai = 3 AndSheep = 3 Then Label2.Caption= " 警长:喜羊羊欺负菜白白了。您任务失败了!请重新点击开始游戏" Label2.Visible= True Img_light.Visible = True Game = False End If
End If End Select End Sub
|
