包装纸箱CAD系统设计说明书 .docx

潟演村技修忱IlfEJIAN& UFHVat5*TT OF SCJENCf 4； TEOIFfOLCKY包装。课程设计说明书-0201型瓦楞纸箱包装AD学院轻工学院专业包装工程班级111班学生姓名沈姚佳方聪聪指导教师胡桂林完成日期2013年8月31日目录1. 绪论21.1瓦楞纸包装在包装工业中的地位及现状1.2瓦楞纸箱产品设计现状1.3课题研究的内容和意义2. 主要任务43. 瓦楞纸箱包装基本理论43.1瓦楞纸板的结构和原料3.2瓦楞纸箱的基本箱型3.3瓦楞纸板瓦楞层数楞型瓦楞的形状4. 设计思想设计框图45. 设计举例说明75.1开始界面5.2菜单界面 5.3输入商品信息界面5.4确定包装要素界面5.5输出设计结果界面5.6版本信息和使用指南6. 小结197. 课程设计分工19参考文献21附录：VB源程序22商品是人们生活中必不可少的东西，随着人们生活水平的不断提高，以及对各 种事物的要求也越来越高，随之对商品的包装也就有了越来越高的追求.在各种商品 包装容器中，瓦楞纸箱的应用占首位，设计精良的纸箱能帮助产品的运输、流通发 挥优势作用.随着科学技术的迅猛发展，产品造型日趋发杂，产品包装的设计也日益 受到人们的重视，然而利用传统的设计方法，设计周期长、人力消耗多、质量无法 满足市场要求.因此，为了适应现代工业的发展，缩短产品包装的周期，提高产品在 市场上的竞争力、满足自动化包装等的要求，人们便将高速发展的计算机技术应用 到了包装行业的纸箱设计中来，各类包装纸箱CAD软件应运而生.瓦楞纸箱作为使用最为广泛的包装容器之一，有着许许多多的优点.首先它价格 较低；具有一定的刚度和强度，又有良好的弹性和韧性，对内装物有良好保护作用. 其次，相对于其它包装容器质量较轻，运输费用相对较少；最后，瓦楞纸箱可回收 再利用，作为废弃物，其处理方法也非常容易，不产生污染.因此，我们设计了瓦楞 纸箱CAD系统，以便于瓦楞纸箱的自动化包装.由于水平所限，我们设计的系统还有 一些缺陷.因为是初次使用VB，希望各位能指出更多缺陷或错误，或提出好的建议.1.1瓦楞纸包装在包装工业中的地位及现状在当今纸包装制品中，瓦楞纸包装应用最为广泛，它可以制成瓦楞纸箱、瓦楞 纸盒、瓦楞纸板缓冲结构、瓦楞纸板托盘、瓦楞纸板展示台架等等.瓦楞纸具有一下 特点：(1) 重量轻，结构性能好(2) 对商品保护性能好(3) 运输费用低(4) 易于变更箱型尺寸，包装适应性强(5) 包装作业易实现自动化(6) 原料成本低，废箱易于回收1.2瓦楞纸箱产品设计现状CAD(Computer Aided Design)即计算机辅助设计被广泛应用与制造业以及工程 设计等各个领域.将CAD技术运用到纸箱包装行业会大大缩短瓦楞纸箱产品的设计周 期，提高设计质量.我国计算机技术在包装行业中起步较晚，和发达国家差距较大， 国内部分纸盒制造厂商人采用传统的手工设计和加工工艺，很难满足现代工业对纸 盒包装的要求.随着生产水平的提高及对外贸易的发展，人们对纸盒的质量也提出了 更高的要求.因此，在我国包装业，引入CAD/CAM技术，以实现纸盒包装设计/制造现 代化尤为重要。1.3课题研究的内容和意义通过实践调查和理论分析本课题研究的瓦楞纸箱CAD软件系统具有实用和推广 的应用价值，尤其是针对中小型生产型企业.本课题的研究，主要就是针对中小型瓦楞纸箱包装系统(单箱重量不超过20KG) 而言。通过对包括箱体的基本要素及尺寸、盒型、形状、箱体强度，材料成本及优 化设计等问题的研究，期望能够把每个问题进行程序化实现来开发一套瓦楞纸箱CAD 系统，代替纯手工设计步骤，实现从箱型结构选择设计、纸箱材料选择、纸箱尺寸 设计、纸箱强度计算等计算机辅助技术，以提高企业的经济效益，推进我国包装工 业现代化、标准化、国际化。2主要任务采用VB制作针对0201型瓦楞纸箱设计的软件。通过制作瓦楞纸箱的CAD软件，将所学的包装计算机辅助设计的理论知识运用于 实践，学习巩固包装结构设计知识，并且锻炼熟练运用编程软件的能力。通过VB设 计合理方便的软件，能够针对性的解决一些问题，起到计算，设计，估算各项性能 的功能。同时，更为了解CAD在纸箱包装的设计，运输，堆码等方面的应用。3瓦楞纸箱包装基本理论3.1瓦楞纸板的结构和原料瓦楞纸板是制造各种瓦楞纸板箱的基材，它是由箱板纸和瓦楞芯纸粘合而成的 板状物。箱板纸用于瓦楞纸板的内、外两面，称为里纸或面纸。瓦楞芯纸是一种有 规则的波纹形纸。3.2瓦楞纸箱的基本箱型： 02型瓦楞纸箱（开槽箱） 03型瓦楞纸箱（复合箱） 05型瓦楞纸箱（折叠箱） 06型瓦楞纸箱（滑盖箱） 07型瓦楞纸箱（固定箱） 08型瓦楞纸箱（自动箱） 09内附件3.3瓦楞纸板:瓦楞层数:楞型:层数应用单瓦楞（三层板）包装较轻的产品双瓦楞（五层板）包装重量较大的易损产品三瓦楞（七层板）包装超重型产品楞型特点应用A型（大瓦楞）高度和间距最大，柔软富有弹性，缓冲性能好多 用 于 运 输 包 装装较轻物品。如：塑料、玩具B型（小瓦楞）平压强度高，瓦楞较密，印刷效果好，易裁切加工适合包装较硬的产品C型（中瓦楞）有较好的堆码高度和适中的挺度实际应用较少E型（微瓦楞）多用于销售包装瓦楞的形状:瓦楞的形状优点缺点U型柔软富有弹性，适合长期负载粘合剂用量较大V型瓦楞比较坚硬，强度较高，粘合剂用量较少超出弹性范围即被压 溃，适合短期负载UV型我国规定的瓦楞形状，弹性和加工性能优于V形，平压强 度和用料由于U型4设计思想设计框图i ri r5设计举例说明5.1开始界面点击开始进入菜单界面，运行程序，点击退出将退出此程序Private Sub Image1_Click()Form5.Hideform0.ShowEnd SubPrivate Sub Image2_Click()Unload MeEnd Sub5.2菜单界面白工程1文件旧.藉E）替或HJ盘由设计结果菜单界面主要包含 1）文件 新建f将数据清零生成新的文件 保存为word文档f将程序里的数据导入到一个word文档中并保存 退出f退出程序2）编辑 输入商品信息 确定包装要素3）帮助 版本信息 使用指南4）设计结果输出 输出计算结果 输出设计图样5.3输入商品信息界面Public L0 As DoublePublic B0 As DoublePublic H0 As DoublePublic G0 As DoublePrivate Sub Command1_Click()If Text1.Text <> And Text2.Text <> And Text3.Text <> And Text4.Text<> ""Thenform00.Hideform0.ShowElseForm7.ShowEnd IfForm6.ShowEnd IfEnd SubPrivate Sub Command2_Click()form00.Hideform0.ShowEnd SubPrivate Sub Image1_Click()form00.Hideform0.ShowEnd SubPrivate Sub Image2_Click()If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text<> ""Thenform00.Hideform0.ShowElseForm7.ShowEnd IfForm6.ShowEnd IfEnd SubPrivate Sub Text1_Change()L0 = Val(Text1.Text)End SubPrivate Sub Text2_Change()B0 = Val(Text2.Text)End SubPrivate Sub Text3_Change()H0 = Val(Text3.Text)End SubPrivate Sub Text4_Change()G0 = Val(Text4.Text)End Sub5.4确定包装要素界面Public H As DoublePrivate Sub Image1_Click()Form2.Hideform0.ShowEnd SubPrivate Sub Image2_Click()If Text1.Text <> "" And (Optionl = True Or Option2 = True Or Option3 = TrueOr Option4 = True Or Option5 = True Or Option6 = True) And (Option? = TrueOr Option8 = True Or Option9 = True) ThenForm2.Hideform0.ShowElseForm9.ShowEnd IfEnd SubPrivate Sub Image3_Click()Form2.HideForml.ShowEnd SubPrivate Sub Text1_Change()H = Val(Textl.Text)End Sub5.5输出设计结果界面计算结果纸箱内尺寸计算L = L0+5mm； B，= B0+5mm； H = *+ X0； 当Lo +B0 +H0 <1500mm时， X。取3mm 当Lo +B0 +H0 >=1500mm时， X。取5mm 参见运输包装P151纸箱制造尺寸纸箱外尺寸L1= L，+X ;L2=Lz+ X;B1=Bz+ X ;B2=Bz+ X ;Hj H + X根据包装结构设计P166表5-6查出 X外摇盖制造尺寸（参见运输包装P152）F=B/2+A X（ X 单瓦楞=3mm ；双瓦楞=5mm）接头尺寸J单瓦楞=40mm，双瓦楞=50mmL”=L+A X； B”=B+A X； H”=H+A X；单瓦楞 X=5mm ；双瓦楞 X=10mm堆码强度PsPs=9.81 * K * M *(Nmax -1)Ps载荷，NK 一 载荷系数，于选择安全系数中给出M 一 单件包装总重量为单件数*单件重Nmax 最大堆码层数.为int（堆码高度/瓦楞箱高）堆码高度为手动选择条件中给出堆码强度PdPd =1.858 X10-2 Pm （ t Z ）0.5Pd为纸箱设计抗压强度，Nt为瓦楞纸板厚度，mmZ为纸箱周边长，cm ，等于（2*（纸箱长+纸箱宽）（Makee简易公式（详见包装结构设计（中国轻工出版社）P126）Pm为瓦楞纸板边压强度，N/m.因为我们的纸箱主要用于内销运输，内装物最大重量 小于20Kg,因此选择第二类纸板 单瓦楞S-2.3 Pm=980N/m;双瓦楞D-2.2,Pm=980N/m. （详见包装结构设计（中国轻工出版社）设计图样5.6版本信息与使用指南6 .小结:“包装计算机辅助设计就是研究运用计算机技术进行工程和产品包装设计与分析 的理论和方法。”对于这一段关于包装CAD概念的定义在这次的课程设计中得到了充 分的诠释。在学习了包装计算机辅助设计之后，我对于计算机在包装设计中应用的理论 知识有了一定的了解，然而正是通过本次包装计算机辅助设计课程设计，才让我作到 理论联系实际，将学到的理论知识应用到包装专业的设计中来。这次软件设计使用的平台是Visual Basic 6.0相对于Visual C+来说，这是一 个比较容易上手的可视化编程软件。在这次软件的制作过程中，我自学了的使用方 法，掌握了它的基本操作，并且在老师的指导下，独立完成了软件的设计工作。正是 通过制作瓦楞纸箱的CAD软件设计与制作，我将在学校、课堂中所学的包装计算机辅 助设计的原理及其理论知识运用到实际的操作与运用中去。与此同时，在实际设计制 作过程中，加深了我对瓦楞纸箱的基本结构和基本设计基本方法的理解，巩固并且衍 生了所学计算机辅助设计（CAD）的基础知识，内容包括CAD的基本概念、计算机图形 学的基础理论及Auto CAD绘图软件的使用，此外还有几何造型、数据结构与数据库、 常用的优化设计方法、CAD技术在包装领域的应用等。在这次设计过程中，并没有用到VB的数据库功能。这是基于两方面原因：首先， 由于时间的限制，我并没有在自学过程中完全掌握数据库的建立、调用、应用、修改 与维护，所以不敢贸然使用；其次，这次设计的课题，牵涉的数据表格并不庞大，只 须用结构体类型的数据，就可以快速完成这项工作，调用也很方便。这也许是这次设 计中的不足吧。还有就是将图样导入到word文档保存这一功能的实现存在较大问题。 并且我们的软件仅仅只是一个雏形还有许多不完善的地方。虽然在那些专业人士看来，我们这次的设计显得有些拙劣，有些程序缺乏对细节 的仔细推敲和对在流通过程中可能遇到的情况的周密考虑，但是我们更应该看到这次 课程设计所给于我们的很多东西，不仅仅是实践中点点滴滴的经验，还有面对那些看 似不可逾越困难时内心所激发起的斗志，还有在现代社会企业中十分讲求的团队精 神，当然同时还有在未来的工作中不可或缺的独立思考和研究的能力。时代在不断发 展，社会在不断进步，我不想说我们肩负着振兴中国包装业的重大使命，毕竟一个行 业的进步，繁荣需要靠一代人甚至几代人的共同努力，同时也不仅仅局限于一个行 业，更重要的是社会的重视和支持，我只想通过这次的课程设计更加明确自己的前进 的方向和奋斗的目标。从而能对今后的学习起到积极作用，我想应该这就足够了！7 .课程设计分工：方聪聪主要程序代码编写部分窗体外观设计沈姚佳部分程序代码编写主要窗体外观设计 说明书编写参考文献:书名出版社运输包装印刷工业出版社包装计算机辅助设计印刷工业出版社Visual Basic 6.0中文版提高与应用电子工业出版社Visual Basic 6.0面向对象与可视化程序设计清华大学出版社包装结构设计中国轻工业出版社附录：VB源程序开始界面Private Sub Image1_Click()Form5.Hideform0.ShowEnd SubPrivate Sub Image2_Click()Unload MeEnd Sub菜单界面Private Sub Form_Load()Me.Left = GetSetting(App.Title, "Settings", "MainLeft”, 1000)Me.Top = GetSetting(App.Title, "Settings", "MainTop”, 1000)Me.Width = GetSetting(App.Title, "Settings", "MainWidth", 6500)Me.Height = GetSetting(App.Title, "Settings", "MainHeight", 6500) End Sub Private Sub Form_Unload(Cancel As Integer)Dim i As Integer,close all sub formsFor i = Forms.Count - 1 To 1 Step -1Unload Forms(i)NextIf Me.WindowState <> vbMinimized ThenSaveSetting App.Title, "Settings", "MainLeft", Me.LeftSaveSetting App.Title, "Settings", "MainTop", Me.TopSaveSetting App.Title, "Settings", "MainWidth", Me.WidthSaveSetting App.Title, "Settings", "MainHeight", Me.HeightEnd If End Sub Private Sub tbToolBar_ButtonClick(ByVal Button As MSComCtlLib.Button)On Error Resume NextSelect Case Button.KeyCase 新建'应做:添加新建按钮代码。MsgBox 添加新建按钮代码。"Case "打开”'应做:添加打开按钮代码。MsgBox 添加'打开'按钮代码。"Case 保存'应做:添加保存按钮代码。MsgBox 添加保存按钮代码。"Case "打印”'应做:添加打印按钮代码。MsgBox 添加打印按钮代码。"Case 剪切'应做:添加剪切按钮代码。MsgBox 添加剪切按钮代码。"Case "复制”'应做:添加复制按钮代码。MsgBox 添加复制按钮代码。"Case 粘贴'应做:添加粘贴按钮代码。MsgBox 添加粘贴按钮代码。"Case "粗体”'应做:添加粗体按钮代码。MsgBox 添加粗体按钮代码。"Case 斜体'应做:添加斜体按钮代码。MsgBox 添加斜体按钮代码。"Case 下划线'应做:添加下划线按钮代码。MsgBox 添加下划线按钮代码。"Case 左对齐'应做:添加左对齐按钮代码。MsgBox 添加左对齐按钮代码。"Case 置中'应做:添加置中按钮代码。MsgBox 添加置中按钮代码。"Case 右对齐'应做:添加右对齐按钮代码。MsgBox 添加右对齐按钮代码。"End SelectEnd SubPrivate Sub mnu输出设计结果输出设计图样_Click()form0.HideForm4.ShowEnd SubPrivate Sub mnu输出设计结果输出计算结果Click。 form0.HideForm3.ShowEnd SubPrivate Sub mnuHelp 使用指南 _Click()Form15.Showform0.HideEnd SubPrivate Sub mnuHelp 版本信息 _Click()Form14.Showform0.HideEnd SubPrivate Sub mnuEdit 确定包装要素 _Click()form0.HideForm1.ShowEnd SubPrivate Sub mnuEdit 输入产品信息 _Click() form0.Hideform00.ShowEnd SubPrivate Sub mnuFile 保存为 word 文档 _Click()Dim myDoc, WordApp As ObjectSet WordApp = CreateObject("Word.Application")Set myDoc = WordApp.Documents.Add() myDoc.SaveAs "E: 瓦楞纸箱CAD 设计.doc” myDoc.CloseSet ap = NothingDim L As StringDim m As StringDim X As StringL =-m =-X =-If Form2.Option1 = True ThenL = "A" 'A楞型的代号End IfIf Form2.Option2 = True ThenL = "B" 'B楞型的代号End IfIf Form2.Option3 = True ThenL = "C" 'C楞型的代号End IfIf Form2.Option4 = True Thenm = "AB" 'Ab楞型的代号End IfIf Form2.Option5 = True Thenm = "AC" 'Ac楞型的代号End IfIf Form2.Option6 = True Thenm = "BC" 'bc楞型的代号End IfIf Form2.Option7 = True ThenX ="好"End IfIf Form2.Option8 = True ThenX ="一般"End IfIf Form2.Option9 = True ThenX ="差"End IfOpen "E: 瓦楞纸箱 CAD 设计.doc" For Output As #1Print #1,"您输入的单件产品尺寸长(mm) 宽(mm)高(mm)为："& form00.Text1.Text & ""& form00.Text2.Text & " " & form00.Text3.Text & " " & Chr(10) & Chr(10) & 您输 入的单件产品重量(N)为："& form00.Text4.Text & Chr(10) & Chr(10) & "纸箱型号为： 0201" & Chr(10) & Chr(10) & 您选择的楞型是："& L & " " & m & Chr(10) & Chr(10);" 您选择安全系数："& X & Chr(10) & Chr(10);"堆码高度(mm): " & Form2.Text1.Text & Chr(10) & Chr(10) & "结果单瓦楞纸箱设计外尺寸长(mm)宽(mm)高(mm)为："& Form3.Text1.Text & "" & Form3.Text2.Text & "" & Form3.Text3.Text & " " & Chr(10) & Chr(10) & "结果双瓦楞纸箱设计外尺寸长(mm)宽(mm)高(mm)为："& Form3.Text14.Text & "" &Form3.Text15.Text & "" & Form3.Text15.Text & ""Print #1, Chr(10) & "结果单瓦楞纸箱设计制造尺寸长(mm)宽(mm)高(mm)为："& Form3.Text4.Text & " " & Form3.Text5.Text & " " & Form3.Text6.Text & "" & Chr(10) & Chr(10);"结果双瓦楞纸箱设计制外尺寸长(mm)宽(mm)高(mm)为："& Form3.Text17.Text & "" & Form3.Text18.Text & "" & Form3.Text19.Text & " " & Chr(10) & Chr(10);"结果单瓦楞纸箱设计内尺寸长(mm)宽(mm)高(mm)为："& Form3.Text7.Text & "" &Form3.Text8.Text & "" & Form3.Text9.Text & " " & Chr(10) & Chr(10);"结果双瓦楞纸箱设计内尺寸长(mm)宽(mm)高(mm)为： "& Form3.Text10.Text & "" &Form3.Text11.Text & "" & Form3.Text12.Text & """单瓦楞纸箱堆码强度:"&Form3.Text10.Text & "" & Chr(10) & Chr(10);双瓦楞纸箱堆码强度”& Form3.Text11.Text & "" &Chr(10) &Chr(10);"单瓦楞纸箱强度”& Form3.Text12.Text & "" & Chr(10) &Chr(10); "双瓦楞纸箱强度”& Form3.Text13.Text & "" & Chr(10) & Chr(10) Close #1End SubPrivate Sub mnuFileExit_Click()'卸载窗体一Unload MeEnd SubPrivate Sub mnuFileNew_Click()form00.Text1.Text =""form00.Text2.Text =""form00.Text3.Text =""form00.Text4.Text =""Form1.Text1.Text =""Form1.Text2.Text =""Form1.Text3.Text =Form1.Text4.Text =Form2.Text1.Text =Form3.Text1.Text =Form3.Text2.Text =Form3.Text3.Text =Form3.Text4.Text =Form3.Text5.Text =Form3.Text6.Text =Form3.Text7.Text =Form3.Text8.Text =Form3.Text9.Text =Form3.Text10.Text =Form3.Text11.Text =Form3.Text12.Text =Form3.Text13.Text =Form3.Text14.Text =Form3.Text15.Text =Form3.Text16.Text =Form3.Text17.Text =Form3.Text18.Text =Form3.Text19.Text =Form3.Text20.Text =Form3.Text21.Text =Form3.Text22.Text =Form2.Option1 = FalseForm2.Option2 = FalseForm2.Option3 = FalseForm2.Option4 = FalseForm2.Option5 = FalseForm2.Option6 = FalseForm2.Option7 = FalseForm2.Option8 = FalseForm2.Option9 = Falseform0.Text1.Visible = Trueform0.Text1 = 请点击编辑，输入商品信息，确定包装要素,即可输出设计结果End Sub输入商品信息界面Public L0 As DoublePublic B0 As DoublePublic H0 As DoublePublic G0 As DoublePrivate Sub Command1_Click()If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" Then form00.Hide form0.ShowElseForm7.ShowEnd IfIf L0 + H0 + B0 > 2500 ThenForm6.ShowEnd IfEnd SubPrivate Sub Command2_Click()form00.Hideform0.ShowEnd SubPrivate Sub Image1_Click()form00.Hideform0.ShowEnd SubPrivate Sub Image2_Click()If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" Then form00.Hideform0.ShowElseForm7.ShowEnd IfIf L0 + H0 + B0 > 2500 ThenForm6.ShowEnd IfEnd SubPrivate Sub Text1_Change()L0 = Val(Text1.Text)End SubPrivate Sub Text2_Change()B0 = Val(Text2.Text)End SubPrivate Sub Text3_Change()H0 = Val(Text3.Text)End SubPrivate Sub Text4_Change()G0 = Val(Text4.Text)End Sub确定包装要素stepl界面Public MUN As DoublePrivate Sub Combo1_Change()Dim K As IntegerEnd SubPrivate Sub Command1_Click()If Text1.Text <> "" And Text2.Text <> "" And Text3.Text <> "" And Text4.Text <> "" ThenForm1.HideForm2.ShowElseForm8.ShowEnd IfStep2界面Public H As DoublePrivate Sub Image1_Click()Form2.Hideform0.ShowEnd SubPrivate Sub Image2_Click()If Text1.Text <> "" And(Option1 = True Or Option2 = True Or Option3 = True Or Option4 =True Or Option5 = True Or Option6 = True) And (Option? = True Or Option8 = True Or Option9 = True) ThenForm2.Hideform0.ShowElseForm9.ShowEnd IfEnd SubPrivate Sub Image3_Click()Form2.HideForml.ShowEnd SubPrivate Sub Text1_Change()H = Val(Text1.Text)End Sub计算结果输入界面Private Sub Command1_Click()Dim B1 As DoubleDim H1 As DoubleDim L2 As DoubleDim B2 As DoubleDim H2 As DoubleDim L3 As DoubleDim B3 As DoubleDim H3 As DoubleDim L21 As DoubleDim B21 As DoubleDim H21 As DoubleDim L31 As DoubleDim B31 As DoubleDim H31 As DoubleDim X As DoubleDim Pd1 As DoubleDim Pd2 As DoubleDim T As DoubleDim T1 As DoubleDim m As DoubleDim PW1 As DoubleDim PW2 As DoubleDim A As DoubleDim B As DoubleL1 = form00.L0 + 5B1 = form00.B0 + 5If form00.L0 + form00.B0 + form00.H0 < 1500 ThenH1 = form00.H0 + 3ElseH1 = form00.H0 + 5End IfL2 = L1 + 3B2 = B1 + 3H2 = B1 + 3L3 = L2 + 5H3 = H2 + 5B3 = B2 + 5L21 = L1 + 5B21 = B1 + 5H21 = B1 + 5L31 = L21 + 10H31 = H21 + 10B31 = B21 + 10T = 0T1 = 0If Form2.Option1 = True ThenT = 4.5End IfIf Form2.Option2 = True ThenT = 3End IfIf Form2.Option3 = True ThenT = 4End IfIf Form2.Option4 = True ThenT1 = 7End IfIf Form2.Option5 = True ThenT1 = 8 'Ac楞型的代号End IfIf Form2.Option6 = True ThenT1 = 6 'bc楞型的代号End IfPd1 = Format(1.858 * 10 " (-2) * 6370 * (T * 2 * (L3 + B3) / 10) " 0.5), 0#)Pd2 = Format(1.858 * 10 " (-2) * 7350 * (T1 * 2 * (L31 + B31) / 10) " 0.5), 0#)A = 1B = 1If Pd1 = 0 ThenA = 0End IfIf Pd2 = 0 ThenB = 0End IfPW1 = Format(A * (Form2.H - H3) / Form2.H) * form00.G0 * Forml.MUN * 1.65), 0#) PW2 = Format(B * (Form2.H - H31) / Form2.H) * form00.G0 * Form1.MUN * 1.65), 0#) If Pd1 < PW1 Then Form10.ShowEnd IfIf Pd2 < PW2 ThenForm10.ShowEnd IfText1.Text = L3Text2.Text = B3Text3.Text = H3Text4.Text = L2Tex