算法与程序设计打SAS攻略.doc

1．程序初步状态以下列图，此时窗体中只有“开始”按钮是无效的。单击“初级”、“中级”、或“高级”按钮后，即可设定SAS按钮地址与颜色变换的速度，同时“开始”按钮变成 有效。而后，单击“开始”按钮，窗体中会出现一个有背景色、有数字的小按钮，此时各个按钮均变成无效。 小按钮就是SAS，单击它，假如击中了，则SAS上的数字会自动加1，同时窗体右 边白色背景的文本框中的数据也自动加1，表示击中SAS的个数。窗体右侧灰色背景的 标签中的数据是游戏的节余时间。在必定的时间间隔中，SAS按钮的地址与颜色不停变化。游戏中的一个画面以下列图： 2.设置对象属性 控件： 1个窗体、1个Label(标签)、1个文本框、5个按钮和2个时钟，以下列图，这些对象的主要属性设置以下表所示。 种类 名称 caption 文字特色或interval enabled 窗体 Form1 打SAS游戏 12号黑色 True 标签 Label1 30 自己设定 True 文本框 Text1 0 自己设定 False 按钮 SAS 我是SARS,打我呀！ 自己设定 False 按钮 cmdCj 初级 自己设定 True 按钮 cmdZj 中级 自己设定 True 按钮 cmdGj 高级 自己设定 True 按钮 cmdBegin 开始 自己设定 false 时钟 Timer1 无 Interval=500 False 时钟 Timer2 无 Interval=1000 False 3.输入代码程序 1．Timer1的作用：使SARS的背景色随机变化，在窗体上的地址也随机变化。 代码以下： Randomize r=Int(Rnd*256) g=Int(Rnd*256) b=Int(Rnd*256) l=Int(Rnd*4000)水平川址 t=Int(Rnd*3000)垂直地址 SARS.BackColor=RGB(r,g,b) SARS.Left=l SARS.Top=t 2．初级、中级、高级三个按钮的代码： PrivateSubcmdCj_Click() timer1.Interval=1000 cmdBegin.Enabled=True EndSub PrivateSubcmdZj_Click() timer1.Interval=800 cmdBegin.Enabled=True EndSub PrivateSubcmdGj_Click() timer1.Interval=700 cmdBegin.Enabled=True EndSub 3．开始按钮代码： SARS.Left=2600 SARS.Top=2000 cmdBegin.Enabled=False cmdCj.Enabled=fasle cmdZj.Enabled=False cmdGj.Enabled=False Timer1.Enabled=True Timer2.Enabled=True 4．Timer2控件的作用，使labJs中的数字以秒为单位递减，直到减到为0时，出现提 示。 labJs.Caption=labJs.Caption-1 IflabJs.Caption=0Then Timer1.Enabled=False MsgBox(时间到！) cmdCj.Enabled=True cmdZj.Enabled=True cmdGj.Enabled=True cmdBegin.Enabled=False Timer2.Enabled=False labJs.Caption=30 EndIf 5．SRS按钮的mousedown事件代码： TxtNumber.Text=TxtNumber.Text+1