VB和单片机串口通信实训报告(2)

If bk(G).Visible = True And bk(G).Top > dangb.Top - bk(G).Height And bk(G).Left > dangb.Left - bk(G).Width And bk(G).Left < dangb.Left + dangb.Width Then bk(G).Visible = False score = score + 10

Label2.Caption = score End If

If bk(G).Visible = False Then k = True '检查是否还有砖块 flag = 0 For d = 0 To 30

If bk(d).Visible = True Then flag = 1 Exit For End If Next d

If flag = 0 Then c = MsgBox("你输了！", vbInformation, "结果") If i = 1 Then End End Sub

Private Sub Timer4_Timer() '单片机左移 If p_status = 1 Then

dangb.Left = dangb.Left - 100

If dangb.Left <= 0 Then dangb.Left = 0 End If End Sub

Private Sub Timer5_Timer() '单片机右移 If p_status = 1 Then

dangb.Left = dangb.Left + 100

If dangb.Left >= 7935 - dangb.Width Then dangb.Left = 7935 - dangb.Width End If End Sub

2、单片机程序代码

ORG 0000H LJMP MAIN ORG 0030H

MAIN: MOV SP,#60H

MOV SCON,#50H ;8位异步通信 MOV PCON,#80H ;SMOD为1

MOV TMOD,#20H ;定时器1为模式2 3、 MOV TH1,#0F4H ;装初始值 MOV TL1,#0F4H

VB+单片机联合实训,制作弹球游戏

SETB TR1

SCANING:MOV P0 ,#00H MOV P2 ,#0FFH

CLR P2.2 ;扫描键盘 JNB P2.4,AN1 JNB P2.7,AN2 JNB P3.2,AN3 JNB P3.3,AN4 JNB P3.4,AN5 JNB P2.5,AN6 JNB P2.6,AN7 SJMP SCANING

AN1: LCALL DELAY1

MOV SBUF,#041H ;发送A PAN0: JBC TI,GOON0 SJMP PAN0 GOON0: JNB P2.4,AN1 LCALL DELAY1

MOV SBUF,#042H ;发送B PAN1: JBC TI,XWAIT SJMP PAN1 AN2: LCALL DELAY1

MOV SBUF,#043H ;发送C PAN2: JBC TI,GOON1 SJMP PAN2 GOON1: JNB P2.7, AN2 LCALL DELAY1

MOV SBUF,#044H ;发送D PAN3: JBC TI,XWAIT SJMP PAN3 AN3: LCALL DELAY

MOV SBUF,#045H ;发送E PAN4: JNB TI,XWAIT CLR TI SJMP PAN4 AN4: LCALL DELAY

MOV SBUF,#046H ;发送F PAN5: JNB TI,XWAIT SJMP PAN5 CLR TI

AN5: LCALL DELAY

VB+单片机联合实训,制作弹球游戏

MOV SBUF,#047H ;发送G PAN6: JNB TI,XWAIT SJMP PAN6 CLR TI

AN6: LCALL DELAY

MOV SBUF,#048H ;发送H PAN7: JNB TI,XWAIT CLR TI SJMP PAN7 AN7: LCALL DELAY

MOV SBUF,#049H ;PAN8: JNB TI,XWAIT CLR TI SJMP PAN8 XWAIT: LCALL DELAY1

DELAY: MOV R0,#20 LAY1: MOV R1,#20 LAY2: MOV R2,#200 DJNZ R2,$ DJNZ R1,LAY2 DJNZ R0,LAY1 RET

DELAY1: MOV R5 ,#20 D1: MOV R6 ,#40 D2: MOV R7 ,#10 DJNZ R7 ,$ DJNZ R6 ,D2 DJNZ R5 ,D1 RET END

三、系统运行界面

发送I

VB+单片机联合实训,制作弹球游戏

VB+单片机联合实训,制作弹球游戏

四、小组自评

这次的弹球游戏设计的结果小组排名第四，自我感觉也比较满意。在游戏刚设计好的初段，我们发现游戏运行出现混乱，查到的结果是vb代码发生错误，经过我们的精心研究和查阅相关的资料，错误被改了过来。所以说这次的团体合作设计还是比较成功的，给我们自己打个85分。

五、设计心得

经过两周的实训，我们获益匪浅！我们懂得了团队合作的重要性，

懂得分工合作是尤为重要的，我们三个人，一人负责上网找资料，一人负责与同项目的小组交流，一人负责编程。运行游戏时，游戏出现一点小小的问题，就是弹球弹的位置和单片机的按键不行！弹球弹的位置我们估计是数组的问题，我们首先修改VB代码的数组，效果明显好了。至于单片机的通信，我们试过，原来是单片机的问题，换了一个就可以通信了。弹球的问题查了资料修改了还是不够完善，但至少还能运行 ，对初学者应该差不多了。老师给了的要求都能达到，我们已经很兴奋了，之后给游戏加点修饰，弄好看一点，完成！

这次实训让我们对VB和单片机的基础知识得到了巩固，让我们学习到了新的知识。我们在理论的基础上更深刻的掌握了单片机和VB的深层内容及实际生活中的应用，实训锻炼了自己动手能力和思维能力，还有在软件方面的编程能力，同时也暴露出一些平时学习上的问题，让我们深刻反思。这些问题的发现将为我们以后的学习和工

VB+单片机联合实训,制作弹球游戏

作找明道路，查漏补缺为进一步学习作好准备。

我们感谢这次实训！

附：指导教师评语： 实习单位意见：

实习成绩： 指导老师签名：

年 月 日