自动售货机 VB

自动售货机设计报告

学院 机械学院 班级 机设054 学号 050373 姓名 郭强 成绩

一、设计思路
1.要达到的目的
培养学生综合利用VB语言进行程序设计的能力，主要是培养学生利用系统提供的基本控件、数组和循环等进行创新性设计。
2.关键问题的解决
①自动售货机中有4*4中商品，每种商品一次最多可放置6个，若缺货则不能购买，可选择直接退币或购买其他货品
②用户在文本框中输入商品号，确定判断是否有该商品，然后投币。若未选择商品号则不能接受投币。
③若输入商品号有错或该商品缺货则弹出提示窗口。
④投币口只能接受五元和十元纸币，确定投币后在出货口送出购买商品并在找零口弹出应找零钱。
⑤若投入纸币不足以所需购买商品，则可继续选择其他商品或退币。
二、部分程序关键源代码及注释
Private Sub Command1_Click()
Command3.Enabled = True
If Not IsNumeric(Text1.Text) Then
MsgBox "你输入的商品号有误，请重新输入"
Text1.Text = ""
Text1.SetFocus
Else
Command2.Enabled = True
End If
End Sub
Private Sub Command2_Click()
If Val(Text2.Text) = 10 Or Val(Text2.Text) = 5 Then
If Text1.Text = 11 Then
Text4 = "红塔山"
Text5 = Val(Text2.Text) - 9
If Val(Text5) < 0 Then
MsgBox "投入金额不足，请重新投币"

Text2 = ""
Text2.SetFocus
Command3.Enabled = True
End If
ElseIf Text1.Text = 12 Then
Text4 = "云烟"
Text5 = Val(Text2.Text) - 10
If Val(Text5) < 0 Then
MsgBox "投入金额不足，请重新投币"
Text2 = ""
Text2.SetFocus
End If
四、设计方案的完善及目前存在的问题
1．设计方案要完善的地方
①未能设计缺货状况
2. 目前存在的问题
①不能提供缺货模式
五、本次设计的收获及心得体会
初步了解、熟悉、学会使用VB，能使用VB完成一些基本的任务，巩固了上学期学的VB的知识，而且进一步加深了理解。从中发现学习vb并运用其编程设计一些简单游戏的乐趣，不仅丰富了同学们的业余生活，而且学到了vb的不少知识
六、对该题目和VB设计的意见和建议
1. 对该题目的意见和建议
本程序入门简单，容易下手做，但要完善他还是有一定的难度， 我们有很大的创新空间，能发挥每个同学的潜能，而且它是一个非常常见的程序，所以，容易使人理解，编写目的明确。综上所述，本题目是个很不错的课题
2．对本次设计的意见和建议
本次活动培养我们综合利用VB语言进行程序设计的能力，培养了我们利用系统提供的标准函数和标准控件进行创新设计。
现在虽然要求素质教育，但我们实践的机会

还是很少，像这样好的火动更少，所以，搞这种实践活动是非常有必要的。
希望学校常搞这种活动。
自动售货机课程设计报告（VB） 编号：45