包装074纸箱CAD系统计算说明书文档

1、满好狗及母院ZHF UAhKL UNIVTRSH ¥ QF SCONCE , TfCHNOlOGY包装CAD课程设计说明书题目包装CA课程设计学院轻工学院专业包装工程班级074 班学号 107141113学生姓名 陈 跃同组同学白贵福王国钢谭波指导教师金国斌 胡桂林完成日期2009 年9月17日瓦楞纸箱包装caDc件研制学生姓名：陈跃指导教师：金国斌胡桂林(浙江科技学院轻工学院)1绪论商品是人们生活中必不可少的东西，随着人们生活水平的不断提高，以及对各种事 物的要求也越来越高，随之对商品的包装也就有了越来越高的追求.在各种商品包装容器 中，瓦楞纸箱的应用占首位，设计精良的纸箱能帮助产

2、品的运输、流通发挥优势作用.随着科学技术的迅猛发展，产品造型日趋发杂，产品包装的设计也日益受到人们的重视， 然而利用传统的设计方法，设计周期长、人力消耗多、质量无法满足市场要求.因此，为了适应现代工业的发展，缩短产品包装的周期，提高产品在市场上的竞争力、满足自动 化包装等的要求，人们便将高速发展的计算机技术应用到了包装行业的纸箱设计中来， 各类包装纸箱CA欧件应运而生.瓦楞纸箱作为使用最为广泛的包装容器之一，有着许许多多的优点.首先它价格较低；具有一定的刚度和强度，又有良好的弹性和韧性，对内装物有良好保护作用.其次，相对于其它包装容器质量较轻，运输费用相对较少；最后，瓦楞纸箱可回收再利用，作

3、为废弃物，其处理方法也非常容易，不产生污染 .因此，我们设计了瓦楞纸箱CA廉统， 以便于瓦楞纸箱的自动化包装.由于水平所限，我们设计的系统还有一些缺陷 .因为是初 次使用VB,希望各位能指出更多缺陷或错误，或提出好的建议 .1.1 瓦楞纸包装在包装工业中的地位及现状在当今纸包装制品中，瓦楞纸包装应用最为广泛，它可以制成瓦楞纸箱、瓦楞纸盒、 瓦楞纸板缓冲结构、瓦楞纸板托盘、瓦楞纸板展示台架等等 .瓦楞纸具有一下特点：(l)重量轻，结构性能好(2)对商品保护性能好(3)运输费用低(4)易于变更箱型尺寸，包装适应性强(5)包装作业易实现自动化(6)原料成本低，废箱易于回收1.2 瓦楞纸箱产品设计现状

4、CAD(Computer Aided Design)即计算机辅助设计被广泛应用与制造业以及工程设计 等各个领域.将CA鼓术运用到纸箱包装行业会大大缩短瓦楞纸箱产品的设计周期，提高 设计质量.我国计算机技术在包装行业中起步较晚，和发达国家差距较大，国内部分纸盒 制造厂商人采用传统的手工设计和加工工艺，很难满足现代工业又t纸盒包装的要求.随着 生产水平的提高及对外贸易的发展，人们对纸盒的质量也提出了更高的要求.因此，在我国包装业，引入CAD/CAM术，以实现纸盒包装设计/制造现代化尤为重要.1.3 CAD系统软件的发展趋势近些年来，国内许多企业在进行“甩图板”工程中尝到了甜头，希望CA鼓术能在生产

5、中发挥更大的作用，而进一步的需求又促进了CA鼓术的发展.今后CA鼓术的发展将更加迅速，它将向以下几个方向发展 ：(1)规范化和标准化(2)集成化.(3)智能化.(4)可视化.(5)更广泛地使用多媒体技术.(6)网络化.Window就1.4 课题研究的内容和意义通过实践调查和理论分析本课题研究的瓦楞纸箱CA欧件系统具有实用和推广的应用价值，尤其是针对中小型生产型企业.本课题的研究，主要就是针对中小型瓦楞纸箱包装系统（单箱重量不超过20KG而言.通过对包括箱体的基本要素及尺寸、盒型、形状、箱体强度，材料成本及优化设计等问题的研究，期望能够把每个问题进行程序化实现来开发一套瓦楞纸箱CA原统，代替纯手

6、工设计步骤，实现从箱型结构选择设计、纸箱材料选择、纸箱尺寸设计、纸箱强度 计算等计算机辅助技术，以提高企业的经济效益，推进我国包装工业现代化、标准化、 国际化.2瓦楞纸箱设计我在这个小组里主要负责的是抗压强度 p&式的编程以及最后结果输出的 编程以及音乐播放和停止以及查看帮助链接的设计2.1制作系统界面5添加窗体，名称改为第五页.添加一个“预设计纸箱尺寸”标签，再在这个标签里面 竖直方向添加“长度（mm ” “宽度（mm ” “高度（mm ”三个标签，在水平方向上添 加“单瓦楞"、双瓦楞”标签.在添加6个空白文本框，使其组成表哥的形式.再添加一 个“计算”命令按钮.在下面添加

7、一个“预设计纸箱的堆码强度”标签，再在里面添加 “Ps （N） ”标签和2个空白文本框，再添加一个“计算”命令按钮.再添加一个“计算”命令 按钮.在下面添加一个“预设计纸箱的抗压强度”标签，再在里面添加“Pd （N） ”标签和2个空白文本框，再添加一个“计算”命令按钮.最后在添加“输出结果” “上一步” “退出"三个命令按钮.Ps=9.81 * K * M *（Nmax -1）Ps载荷，NK载荷系数，于选择安全系数中给出M 单件包装总重量为单件数*单件重Nmax 最大堆码层数.为int（堆码高度/瓦楞箱高）堆码高度为手动选择条件中给出计算预计纸箱抗压强度Pd Makee简易公式（详见

8、包装结构设计（中国轻工出版 社）P126）Pd =1.858 X 10-2 Pm （ t Z ）0.5Pd为纸箱设计抗压强度，N t为瓦楞纸板厚度，mm Z为纸箱周边长,cm 等于（2*（纸箱长+纸多|宽）P m为瓦楞纸板边压强度，N/m.因为我们的纸箱主要用于内销运输，内 装物最大重量小于20Kg,因此选择第二类纸板 单瓦楞S-2.3, Pm=980N/m双瓦楞 D-2.2,Pm=980N/m.（详见包装结构设计（中国轻工出版社 ）P135瓦楞纸板表 （GB6543-86）&瓦楞纸板技术指标（GB6544-86）计算完成，进入校核计算完成，进入校核.若Ps>Pd,则选择的楞型不

9、合理，或者堆码高度过高，就需要返 回重新选择；若Ps<=Pd,则设计合理，可以进入下一个输出结果阶段其中抗压强度编程如下Private Sub Command12_Click(Index As Integer)Label58.Caption = Int(1.858 * 10 A (-2) * 6370 * (Val(* 2 * (Val(Text57.Text + Text59.Text) / 10) a 0.5) ' Pd =1.858Z )0.5Label59.Caption = Int(1.858 * 10 a (-2) * 7350 * (Val(* 2 * (Val(T

10、ext58.Text + Text60.Text) / 10) ' 0.5)第四页.Text41.Text)x 10-2 Pm ( t第四页.Text42.Text)Text55.Text = Label58.CaptionEnd SubText56.Text = Label59.Caption2.2制作系统界面6添加窗体，名称改为第六页.添加一个“设计箱型示意图”标签，后面添加一个显示 按钮，下面添加一个空白文本框.在水平方向上添加“长度L” “宽度B” “高度H'三个标 签，竖直方向上添加“单瓦楞"、双瓦楞”标签.以及6个空白文本框，使他们排列成表 格的形式.然后

11、再添加“新方案” “上一步” “下一步” “退出"四个命令按钮.其中显示按钮的 编程代码如下Private Sub Command16_Click（Index As Integer）Picturel.Picture = LoadPicture（App.Path + "123.bmp"）If Val（ 第五页.Text55） > Val（ 第五页.Text53） ThenLabel60.Caption = 第五页.Text57.TextLabel61.Caption = 第五页.Text59.TextLabel62.Caption = 第五页.Text51.T

12、extEnd IfIf Val（ 第五页.Text56） > Val（ 第五页.Text54） ThenLabel63.Caption =Label64.Caption =Label65.Caption =End If第五页.Text58.Text第五页.Text60.Text第五页.Text52.Text保存方案到VB.doc的代码如下Private Sub Command2_Click（）If Label60.Caption <> " " ThenIf 第四页.Option1 = True Then L = "A" 'A楞型

13、的代号If 第四页.Option2 = True Then L = "B" 'B楞型的代号If 第四页.Option3 = True Then L = "C" 'C 楞型的代号Else: L =End IfIf Label63.Caption <> " " ThenIf 第四页.Option5 = True Then M = "AB" 'Ab楞型的代号If 第四页.Option6 = True Then M = "AC" 'Ac楞型的代号If 第四页.

14、Option? = True Then M = "BC" 'bc 楞型的代号Else: M =""End IfIf 第四页.Option8 = True Then X ="一级"If 第四页.Option9 = True Then X ="二级"If 第四页.OptionlO = True Then X =" 三级"If 第四页.Optionll = True Then X =" 四级"Open (app.Path&"VB.Doc") Fo

15、r Output As #1Print #1, 第三页.Label20.Caption & Chr(10) & "您选择的楞型是："& L & ""& M & Chr(10) & " 您选择安全系数："& X & Chr(10) & Chr(10);"堆码高度(cmj) " &第四页.Text7.Text & Chr(10) & Chr(10) & "结果单瓦楞纸箱长(mm)宽(mm)高(mm)

16、为："& Label60.Caption & " " & Label61.Caption & " " & Label62.Caption & ""& Chr(10) & Chr(10) & "结果双瓦楞纸箱长(mm)宽(mm)高(mm)为： "&Label63.Caption; " " & Label64.Caption; " " & Label65.CaptionClo

17、se#1EndSub2.3 制作系统界面7内销运输0201瓦楞纸箱(瓦楞纸添加窗体，名称改为第七页，添加“适用范围板材料含水量很小)”“参考文献：包装结构设计(第二版中国轻工出版社)” “Visual Basic程序设计教程(上海交通大学出版社)” “ Visual Basic 程序设计教程习题 及习题解答(第二版电子工业出版社)” “包装材料学(吉林大学出版社)”五个 标签.添加“返回继续使用” “上一步” “退出"三个命令按钮.添加“谢谢使用”标签.2.4 最后是查看保存到当前文件夹的vb.doc ,根据以上方案，那我们将得到是的一下的一些数据.J您输入的数据是：长宽-120mm

18、； -120mm；单件产品的重量是；2Kg,您的选择是；口2。1箱型二湎计装箱数量为：而计的排列方式为：5*1*2.您选择的楞型是：A AC您选择安全系数；一级堆码高度(cm) 240结果单瓦楞纸箱长(mm)宽(mm)高(mm)为：610.6130 6250.6结果双瓦楞纸箱长(mm)宽(mm)高(mm)为:61138,B 258.32.5 页面链接右键单击第一页的“进入”命令，选择查看代码，选择command 1输入第一页.Hide第二页.Show】三 工程1 ,第一页(Code)Conn anilPr i vat* Sub Comm Midi Click C)第一里，市de鸳二氮ShowE

19、nd Sub则单击第一页的“进入”按钮就会出现第二页的界面.同理，后面的页面也是这样链接的2.6 音乐播放这一段程序我们是网上找的是一个控件这是中明 Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFileAs String, ByVal lpParameters As String, ByVal lpDirectory As Str

20、ing, ByVal nShowCmd As Long) As Long播放程序 Private Sub BOFANG_Click()WindowsMediaPlayer1.URL = App.Path & "0.mp3”End Sub关闭程序 Private Sub tingzhi_Click(Index As Integer)WindowsMediaPlayer1.CloseEnd Sub2.7 查看帮助链接Private Sub CHAKANBANGZHU_Click()纸箱 CA印助.chm"), vbNullString, vbNullString, 1End Sub2.8 打印预览Private Sub dayinyulan_Click()If Dir(App.Path & "vb.doc") = "" ThenMsgBox "请先确定纸箱的设计方案"& Chr(10) & "是否已经保存",0,"请注意"Else: ShellExecute Me.hwnd, "open"