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

1、包装 CAD课程设计说明书题目 包装 CAD课程设计学院轻工学院专业包装工程班级074班学号107141113学生跃同组同学白贵福王国钢谭波指导教师金国斌胡完成日期2009年9月17日.瓦楞纸箱包装 CAD软件研制学生：跃指导教师：金国斌胡（科技学院轻工学院）1绪论商品是人们生活中必不可少的东西，随着人们生活水平的不断提高，以及对各种事物的要求也越来越高 ，随之对商品的包装也就有了越来越高的追求. 在各种商品包装容器中，瓦楞纸箱的应用占首位，设计精良的纸箱能帮助产品的运输、流通发挥优势作用. 随着科学技术的迅猛发展，产品造型日趋发杂，产品包装的设计也日益受到人们的重视，然而利用传统的设计方法，

2、设计周期长、人力消耗多、质量无法满足市场要求. 因此，为了适应现代工业的发展，缩短产品包装的周期，提高产品在市场上的竞争力、满足自动化包装等的要求，人们便将高速发展的计算机技术应用到了包装行业的纸箱设计中来，各类包装纸箱 CAD软件应运而生 .瓦楞纸箱作为使用最为广泛的包装容器之一，有着许许多多的优点. 首先它价格较低；具有一定的刚度和强度，又有良好的弹性和韧性，对装物有良好保护作用. 其次，相对于其它包装容器质量较轻，运输费用相对较少；最后，瓦楞纸箱可回收再利用，作为废弃物，其处理方法也非常容易，不产生污染. 因此，我们设计了瓦楞纸箱CAD系统，以便于瓦楞纸箱的自动化包装. 由于水平所限，我

3、们设计的系统还有一些缺陷. 因为是初次使用 VB，希望各位能指出更多缺陷或错误，或提出好的建议.1.1瓦楞纸包装在包装工业中的地位及现状在当今纸包装制品中，瓦楞纸包装应用最为广泛，它可以制成瓦楞纸箱、瓦楞纸盒、瓦楞纸板缓冲结构、瓦楞纸板托盘、瓦楞纸板展示台架等等. 瓦楞纸具有一下特点：(l) 重量轻，结构性能好(2) 对商品保护性能好(3) 运输费用低(4) 易于变更箱型尺寸，包装适应性强(5) 包装作业易实现自动化(6) 原料成本低，废箱易于回收1.2瓦楞纸箱产品设计现状CAD(Computer Aided Design) 即计算机辅助设计被广泛应用与制造业以及工程设计等各个领域 . 将 C

4、AD技术运用到纸箱包装行业会大大缩短瓦楞纸箱产品的设计周期，提高设计质量 . 我国计算机技术在包装行业中起步较晚，和发达国家差距较大，国部分纸盒制造厂商人采用传统的手工设计和加工工艺，很难满足现代工业对纸盒包装的要求. 随着生产水平的提高及对外贸易的发展，人们对纸盒的质量也提出了更高的要求. 因此，在我国包装业，引入 CAD/CAM技术，以实现纸盒包装设计/ 制造现代化尤为重要 .1.3 CAD系统软件的发展趋势近些年来，国许多企业在进行“甩图板”工程中尝到了甜头，希望CAD技术能在生产中发挥更大的作用，而进一步的需求又促进了CAD技术的发展 .今后 CAD技术的发展将更加迅速，它将向以下几个

5、方向发展:（1）规化和标准化（2）集成化 .（3）智能化 .（4）可视化 .（5）更广泛地使用多媒体技术.（6）网络化 .（7）Windows化1.4课题研究的容和意义通过实践调查和理论分析本课题研究的瓦楞纸箱CAD软件系统具有实用和推广的应用价值，尤其是针对中小型生产型企业.本课题的研究，主要就是针对中小型瓦楞纸箱包装系统（单箱重量不超过20KG）而言 . 通过对包括箱体的基本要素及尺寸、盒型、形状、箱体强度，材料成本及优化设计等问题的研究，期望能够把每个问题进行程序化实现来开发一套瓦楞纸箱 CAD系统，代替纯手工设计步骤，实现从箱型结构选择设计、纸箱材料选择、纸箱尺寸设计、纸箱强度计算等计

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

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

8、15;10P m ( t Z ).Pd为纸箱设计抗压强度, N t为瓦楞纸板厚度 , mmZ为纸箱周边长 , 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 (-2)* 6370* (Val(第四页 .Text41.Text)* 2 * (Val(Text57.Text + Text59.Text) / 10) 0.5) ' Pd =1.858×10-2 Pm ( tZ )0.5Label59.Caption = Int(1.858 * 10 (-2)* 7350* (Val(第四页 .Text4

10、2.Text)* 2 * (Val(Text58.Text + Text60.Text) / 10) 0.5) Text55.Text = Label58.Caption Text56.Text = Label59.CaptionEnd Sub.2.2制作系统界面 6添加窗体，名称改为第六页. 添加一个“设计箱型示意图”标签，后面添加一个显示按钮，下面添加一个空白文本框. 在水平方向上添加“长度L”“宽度 B”“高度 H”三个标签，竖直方向上添加“单瓦楞”、双瓦楞”标签. 以及 6个空白文本框，使他们排列成表格的形式 . 然后再添加“新方案”“上一步”“下一步”“退出”四个命令按钮.其中显示按

11、钮的 编程代码如下Private Sub Command16_Click(Index As Integer)Picture1.Picture = LoadPicture(App.Path + "123.bmp")If Val(第五页 .Text55) > Val(第五页 .Text53) Then.Label60.Caption =第五页 .Text57.TextLabel61.Caption =第五页 .Text59.TextLabel62.Caption =第五页 .Text51.TextEnd IfIf Val(第五页 .Text56) > Val(第五页

12、 .Text54) ThenLabel63.Caption =第五页 .Text58.TextLabel64.Caption =第五页 .Text60.TextLabel65.Caption =第五页 .Text52.TextEnd If保存方案到 VB.doc的代码如下Private Sub Command2_Click()If Label60.Caption <> " " ThenIf第四页 .Option1 = True Then L = "A" 'A楞型的代号If第四页 .Option2 = True Then L = &qu

13、ot;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第四页 .Option7 = True Then M =

14、"BC" 'bc楞型的代号Else: M = " ".End IfIf第四页 .Option8 = True Then X = "一级 "If第四页 .Option9 = True Then X = "二级 "If第四页 .Option10 = True Then X = "三级 "If第四页 .Option11 = True Then X = "四级 "Open (app.Path&"VB.Doc") For Output As #1Pr

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

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

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

18、 .Hide第二页 .Show即.则单击第一页的“进入”按钮就会出现第二页的界面. 同理，后面的页面也是这样的.2.6音乐播放这一段程序我们是网上找的是一个控件这是申明PrivateDeclareFunctionShellExecuteLib"shell32.dll"Alias"ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFileAs String,ByVallpParametersAs String,ByVallpDirectoryAs String,

19、ByValnShowCmd 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()纸箱 CAD帮助 .chm"),vbNullString,vbNullString, 1End Sub2.8打印预览Private Sub dayinyulan_Click()If Dir(App.Path & "vb.doc") = "" Then.MsgBox " 请先确定纸箱的设计方案" & Chr(10) & "是否已经保存 ", 0, "请注意 "Else: ShellExecute Me.hwnd, "open", (App.Path & "