VB坦克大战设计报告.docVIP

坦克大战设计报告 一、设计思路 1.要达到的目的 培养学生综合利用语言进行程序设计的能力，主要是培养学生要求 三、部分程序关键源代码及注释 1 If La.Top - Lb.Top = 900 And Lb.Left - La.Left = 300 Then Lc.Top = La.Top - 900 Lc.Left = La.Left + 300 Lc.Visible = True Timer1.Enabled = True （向某一方向发炮时只运行一个时钟） Timer2.Enabled = False Timer3.Enabled = False Timer4.Enabled = False 2 ElseIf keyascii = 97 Then La.Enabled = True Lb.Enabled = True Lb.Left = La.Left - 900 Lb.Top = La.Top + 300 （方向键控制转向和移动） La.Height = 800 La.Width = 900 （转向时Lable重新定位） Lb.Width = 900 Lb.Height = 200 If Lb.Left = 0 Then Lb.Enabled = False La.Enabled = False Else La.Left = La.Left – 100 （炮筒和炮身相对位置不变的移动） Lb.Left = Lb.Left - 100 End If 3 Private Sub Timer2_Timer() Do While Lc.Left 0 Lc.Left = Lc.Left - 2 Lc.Top = Lc.Top If Lc.Left Ld.Left And Lc.Left Ld.Left + Ld.Width And Lc.Top Ld.Top And Lc.Top Ld.Top + Ld.Height Then Ld.Visible = False Lc.Visible = False End If Loop Lc.Visible = False （当炮弹到达边界时时钟停止运行，炮弹消失） Timer2.Enabled = False End Sub 四、设计方案的完善及目前存在的问题 1．设计方案要完善的地方 ①××××× ②××××× ③××××× 。。。。 2. 目前存在的问题 正文（宋体5号字，单倍行距） ①××××× ②××××× ③××××× 。。。 五、本次设计的收获及心得体会 通过本次设计，我感到加深了对VB算法和基本控件及其属性的理解，积累了书写代码的经验，培养了逻辑思维能力。 VB中一些看似复杂的程序其实可以归结为简单的方法，如此项问题中坦克各动作的执行都可归结为简单的属性变化或其他的指令执行。 六、对该题目和VB设计的意见和建议 1. 对该题目的意见和建议 该题目出的很好，是游戏，很有意思。 2．对本次设计的意见和建议 设计难度不大，控件用的不多，但涉及到逻辑顺序问题，培养了这方面的思维能力。 坦克大战课程设计报告（VB） 编号： Form_KeyPress 分别控制坦克向上左下右移动 激活Timer 向坦克运行方向开炮 W.A.S.D J