2016年《厚板生产压下规程VB程序设计》指导教程资料

1、作业2题目：中厚板生产压下规程 VB 程序设计已知条件：鞍钢中厚板厂（4300mm?板线）实际参数1、 坯料种类及规格范围：连铸坯：厚X宽X长，130320mm 11502000mm 25004000mm（常用厚度和宽度规格：厚度 mm： 170、230、300;宽度 mm: 1280 1650、1950）2、 坯料出炉温度：10501200C3、 轧机主要参数：最大轧制压力：8000t;轧辊辊身长度 4300mm；工作辊直径：10201120mm；支持辊直径： 20002150mm；主电机功率 6000kW;转速：40100rpm/min；综合成材率 90%;4、 合格成品（轧制的最大长度

2、38000mm）附件：厚板生产压下规程VB程序设计（仅供参考）1. 概述以鞍钢厚板厂为例，采用 Visual basic 语言对单机架厚板轧机所做的压下规 程的辅助设计。程序是计算机的灵魂，正是在各种类型程序的功能实现下，计算 机才能像今天这样被广泛的应用19。本设计采用界面形式，使压下规程的设计 更加简单化，增强了操作性，对实际生产有一定的实用意义。2. 本设计压下规程的设计方法与步骤（1）在咬入能力允许的条件下，按经验分配各道次压下量，这包括直接分2各个道次绝对压下量或压下率、确定各道次压下量分配率及确定个道次能耗分配比等各种方法；（2）制定速度制度，计算轧制时间并确定逐道次轧制温度；（3

3、）计算轧制压力、轧制力矩及总传动力矩；（4）校核轧辊等部件的强度和电机功率；（5）按前述制定轧制规程的原则和要求进行必要的修正和改进。3.设计内容（1） 轧制方法：在本程序中采用横-纵轧法，纵-横轧制法都可行。（2） 参数选择：坯料的厚度、宽度、长度、化学成分，轧辊长度、直径、弯曲 应力系数、接触应力，轧制速度等。（3） 道次压下量的分配：四辊可逆式宽厚板轧机轧制中厚板时，由于不受咬入条件的限制，在采用连铸坯为原料时，除鳞道次之后可以采用大压下量轧制， 然 后随着钢坯温度降低，压下量逐渐变小，最后12 道次为了保证板形和厚度精度要采用较小的压下量。在确定压下量分配之后，即可根据C.H.古布金公

4、式求得各道次的宽展量和轧后钢板尺寸。公式为：血=+辿丫fI H人2丿H、h- -压下率；R-工作辊平均半径，mm; 压下量，mm;fH摩擦系数（4）轧制速度的确定在轧制中，由于在横轧道次轧件短，可适当采用匀速稳定轧制， 而对于纵轧道次，视情况采用梯形速度制度，如图。根据经验资料，可逆式中厚板轧机的粗轧机上咬入和抛出速度分别在1020r/min 和 1525r/mi n 的范围内， 精轧机上，咬入速度可取 2040r/min ，甚至取 60r/min 等速咬入，而 np取 2030r/min3to为间隙时间。(5) 轧制时间分配to=2.5s,当I3.5m 时取 t=4s。(6) 温降计算t3t

5、4t3602ny2a(a + b)n2d I2b2 abnd间隙时间的确定:根据经验资料，在四辊轧机上可逆轧制时,lv3.5m,取At=12.9Zih 11000丿定轧制时间，计算公式如下:4式中 氏一上一道轧制到下一道轧制时的温降C)Z辐射时间，即上一道轧制至下一道轧制的延续时间，为上5道的纯扎时间与轧后间隙时间之和（S）h上一道轧后的厚度（mm）Ti前一道轧制的轧件绝对温度（K（7）轧制力和力矩的计算Rh 116仁酥一12J K丄酉2H +hH +h式中 BH、Bh分别为轧制前、后轧件的宽度（mm）R轧辊平均半径（mm）n钢的粘性系数V轧制线速度（m/s）f摩擦系数K平面变形抗力系数M=M

6、z+Mm1+Mm2+Mk+Md;式中 Mz 轧制力矩（t m）Mm1+ Mm2 附加摩擦力矩（t m）Mk 轧机的空转力矩（t m）Md 作用在电机轴上的动力矩（t m）（8）轧辊强度强度校核工作辊强度校核计算式W, Y.沁 b3Td=Mn/Wn支撑辊身中央处弯矩计算：MPMax8）弯曲应力公式:支承辊辊颈危险断面弯矩值为：Mdz=P/2X（a- L）/2zh6接触应力的计算因为两辊的材质不同，接触应力的计算公式为其弯曲应力为:0.1 d7各与其对应的应力比较，小于许用应力值者为合格(9)电机校核电机传动轧辊所需力矩的计算一般电机轴所需的力矩有以下四个部分组成：M 扛=M jMfMoMd式中：

7、M轧制力矩，即为使轧件发生塑性变形所需力矩;Mf传至电机轴上的附加摩擦力矩;Mo空转力矩，即在空转时传动轧机所需的力矩;Md动力矩，即为了克服速度变化时的惯性所需的力矩;i电机到轧辊的传动比。轧制力矩公式M =2P -、R：h式中：P各道次轧制压力，MN ;R工作辊半径，m;h- 各道次压下量，m；-力臂系数，中板厂一般取 0.40.5。 摩擦力矩公式Mf=Mf 1Mf 2式中：Mf1轧辊轴承中的摩擦力矩；Mf2传动机构中的摩擦力矩。M 门=Pdbf DWDb式中：f支撑辊轴承的摩擦系数，其轴承为滚动摩擦轴承取f=0.003 ;P各道次轧制压力，MNdb支撑辊辊颈直径；DW工作辊辊身直径；Db

8、支撑辊辊身直径。IXq(r2)2n(2 +K2)rir281Mf2=(1) M Mf1n式中： 主电机到轧辊的传动效率。空转力矩公式Mk=(0.03-0.06 皿M=29.55 PHnH式中：Me主电机额定力矩；PH-主电机额定功率，nH- 主电机额定转速。动力矩公式Md=GD2/375(d n/dt)式中：GD2总飞轮矩；dn /dt-加减速度，(10)本次设计一些数据提示1. 程序计算中的轧辊直径值取用的是轧辊的平均直径。2. 工作辊强度校核计算式中取 0.208。3. 根据国内 4300 轧机的资料以及同类轧机的资料， 结合本设计的实际情况,取GD2=2470.8 t.tfo4. 本程序

9、最大轧制道次为 19 道次。4 界面操作第一步：程序运行之后，屏幕上提示输入坯料尺寸，轧辊尺寸，轧制速 度，总轧道次，横轧道次，纵轧道次，等，如图示，先点击刷新按钮后，进 行数据输入，及确定开轧为横轧或者纵轧被输入的数据是随着具体情况而变 的数据值，是根据生产状况和生产经验确定的有效值。数据的灵活性使它能9方便地应用于多种生产情况和多种坯料的生产领域。图 4.1 操作界面 1第二步：输入力臂系数后，点击刷新按钮进行轧制压下量的输入，轧制道次每输入一道，按一次输入，按一次显示键，也可以输入结束后显示键，显示键最好多按几次。查看各道次钢板尺寸以及轧制时间、 压下量、压下率、纯轧制时间, 间隙时间分

10、配，轧制力轧制力矩等。看完后，单击下一步，进行电机与轧辊校核L5S0KanfSX牺艷血）R102000IDCO0ionRXfflR020円：U 醍 M0r/nm):回亠I压薩|SET1ttHimlSCpiDEJ,7提示：总轧制道次最好为16道次或者在16道次附近.且根据上述条件最好先橫 轧至板宽等于成品板宽之C(l)ft（）Cr(l)AW10图 4.2 操作界面 2第三步 输入表格上方的各个校核参数后，按确定，程序将会对每道次的轧 制力及力矩进行校核，如果合格，在相应位置会显示合格，若不合格，显示不合 格。程序运行结束。*刚-啊11tI直兹黠開體葩t浪删餡議誓蚯塢TX舗二稲独鷄宀當接如越戡抄拥

11、莒龍獰七毗抚思 住时绘爛彰汕!塢删歸川郃IE iEEt世期餡瞎呂眩世月m邹邛耕舟镀勇光合鶴証;*程斟認台魅H那助劉勺餡帆?曲肌諜D:瓯舟聊揶7G餡电彼叢:即罪 貫胃鼓秣罪器田独站朋湍翳耳匪口I船詳邛鼎芻镀15 M合鶴粧勺耀駅贰咅需他瓢叨厲嘟濡輒i滋出御涵脈盼撇氓浪i盘渊电脱当：怖绽Iq倉谡厭隔輕由就令册蹄鬣号砸七卫朋刚ImK眾宫瞇竝屯腰邂疋合餓憫卫助巴应端电狀園越辅Q血冊撷13;=i湍电瞇吏：咼解IE岂啓球隔昶的t收血渊酒目SZtl翩缔M蛊舟體阍菖龍輕耶逼返睡乌裡H卵曲创空渊射感医蝶D煎也谏徘：闵餡电睚我-T蜡智 帛6議繃聽脱皿喘I牆血曲闖帥:鬧艦1待L鮒毬站姑詆咅齡牺勵曙IM制姗陽虑掷:瓯啦

12、牌揶：5由制电煽1當T鳄稱阳脱彌端騒蛾：册詐1皿繼臓世瓢验諭線励口刪湍帆川齣:砌?冊徘:&瞬訓电惕：T喘I?直技離隔黑竝力收:占削淞号砸鳥:mW人加菖睦亚*腰班皈专餓般U助担E刃削电昶瞰扛拯0理也.即諦弔哽I已訓: 1席9肖肢稠制勵田加篩豔耳甌加0邹醐:鬧艦儿细合雒槛罐戛瓶叫纟酬輕罚理篩關16曲肌御】 暗號舊I并處蛊體曲曲K月啟定胡助血翻誰I自餵或1询舗删射腳捋湍雀切1揃烈雜雌博I笑亂1昭肚罔那币虜下無馴忌I 9訓S I：直處獄身韶助址男谊薩駁 fi 砂庇江匏僭龈醺1讎撫I勧靈删也期耳咅龍惬悽I唱剧朋汕2洶昨凤溝浪飾馴剋I骂湍I亡直愦戏毬身驻砂泮桃电詡肋啲维111!圧曲纟爛柚顒址齿舖隸

13、砸二皺迅合龍竝邑I怛孰菸貓?E田临珏谯侦邹肌惑I啡舗 貫I；獻爲褫聽fe*J瓷証普雒潍也曲如堆违I鬥觀號I油诣翳（曽百歆汴T爵薙烈嵐撤期合龍狼悽IE总軌胚訓T攻龍超谗詳旺I駆IF 渊IH直駆倉開蚤柚屯阳啥猛槿由血顶莊通制羯醺I：用錐能枷靈1汙訓隸馭15喷花咅龍雌戡I电剧恥汕?呱陀圧澎血刚馴蹙I冯端 乍匕总；密棘导驟皿迪諮囉蟹由励出狂難I将觀鏗I：上冷离的顒贬間沛錠期15史JBi.561泅也貂Mm邹酬貳I渊图 4.3 操作界面 35、程序模块程序：原料情况Public K As Single,G As Single,c As Single, content_C As Single,content

14、_Mn As Single, content_Gr As Single, K1 As Single, G1 As Single,C1 As Si nglesix綁?ET 劉孤爼I備隧弗F魅 初 雷 池力I5：j阿一煙魁Mfln蒔*刚-啊12延伸系数Public total_ya nshe n As Sin gle, average_ya nshe n As Si ngle轧制道次Public total_way As In teger, hen _way As In teger, sec on d_way As In teger13轧机速度Public v_wenAs Single, v_ya

15、o As Single, v_pao As Single, v_jia As Single, v_jia n As Single, v_e As Si ngle轧制温度Public t_kai As Sin gle, t_sec ond As Si ngle轧辊尺寸Public max_zAs Single, min_z As Single, ave_z As Single, max_gAs Single, min_g As Single, ave_g As Si ngle, zhiji ng_g As Si ngle, zhiji ng_z As Si ngle 标记Public flag

16、As Sin gle结果Public out(0 To 200, 0 To 11) As Double, i As Si ngle, A(0 To 200, 0 To11)压下Public z_yaxia As Si ngle, ave_yaxia As Si ngle校核Public allow_w As Single, allow_z As Single, allow_g As Single, jianju_z As Single,jianju_g As Single, allow_touch As Single, tanxing As Single, tanxing_z As Sin g

17、le,tanxing_g As Sin gle, bos ong_g As Sin gle, bos ong_zAs Si ngle力臂系数Public libi As Si ngle过载系数Public guozai As Sin gle纵横轧制区别Public q As Sin gle传动效率14Public xiaolv As Sin gle窗体程序一：Private Sub Check1_Click()q = 1End SubPrivate Sub Check2_Click()q = 2End SubPrivate Sub Comma nd1_Click()清屏Text1.Text =

18、Text2.Text =Text3.Text =Text4.Text =Text5.Text =Text6.Text =Text7.Text =Text8.Text =Text9.Text = 0Text10.Text = 00Text11.Text = 0Text12.Text = 0Text13.Text = 0Text14.Text = 0Text15.Text =Text16.Text = 0Text17.Text = 0Text18.Text = 0Text19.Text =Text20.Text = 0Text21.Text = 015Text22.Text = 0Text24.T

19、ext = 0Text25.Text = 1Text26.Text = 0Text27.Text = 0Text28.Text = 0Text29.Text = 0Text30.Text = 0Text32.Text = 0End SubPrivate Sub Text10_Click()z_yaxia = Val(Text24.Text)ave_yaxia = Val(Text25.Text)total_way = z_yaxia / ave_yaxiaText12.Text =提示：总轧制道次最好为& total_way & 或者在其附近如何从别的地方引用其他值If c K

20、 And c K1 The nText12.Text =提示：总轧制道次最好为 & total_way & 道次或者在& total_way & 道次附近且根据上述条件最好先纵轧至板长等于成品板宽之后在 横轧到底Else: Text12.Text =提示：总轧制道次最好为 & total_way & 道次 或者在& total_way& 道次附近且根据上述条件最好先横轧至板宽等于成品板宽之后在 纵轧到底End IfEnd SubPrivate Sub Text24_Click()Text24.Text = Val(Text2.Te

21、xt) - Val(Text8.Text)End SubPrivate Sub Text9_Click()K = Val(Text1.Text)G = Val(Text2.Text)c = Val(Text3.Text)16K1 = Val(Text7.Text)G1 = Val(Text8.Text)C1 = K * G * c / (K1 * G1)Text9.Text = C1End SubPrivate Sub Text21_Click()Text21.Text = Val(Text10.Text) - Val(Text11.Text)End SubPrivate Sub Text15

22、_Click()Text15.Text = (Val(Text13.Text) + Val(Text14.Text) / 2End SubPrivate Sub Text19_Click()Text19.Text = (Val(Text17.Text) + Val(Text18.Text) / 2End SubPrivate Sub Comma nd2_Click()原料情况K = Val(Text1.Text)G = Val(Text2.Text)c = Val(Text3.Text)content_C = Val(Text4.Text)content_Mn = Val(Text5.Text

23、)con te nt_Cr = Val(Text6.Text)轧制道次total_way = Val(Text10.Text)hen_way = Val(Text11.Text)seco nd_way = Val(Text21.Text)辊径尺寸max_z = Val(Text13.Text)min_z = Val(Text14.Text)ave_z = Val(Text15.Text)zhiji ng_z = Val(Text16.Text) max_g = Val(Text17.Text) min_g = Val(Text18.Text) ave_g17= Val(Text19.Text)

24、zhiji ng_g = Val(Text20.Text) 开轧温度t_kai = Val(Text22.Text)速度制度v_wen = Val(Text30.Text) v_yao = Val(Text29.Text) v_pao = Val(Text28.Text) v_jia =Val(Text27.Text) v_jia n = Val(Text26.Text) v_e = Val(Text32.Text) Form1.HideForm2.ShowEnd Sub窗体二程序Private Sub Comma nd1_Click()EndEnd SubPrivate Sub Comma

25、nd2_Click()Form2.HideForm3.ShowEnd SubPrivate Sub Comma nd4_Click()计算给道次赋值For i = 0 To total_wayout(i, 0) = i18Next i算板高out(0, 1) = GFor i = 1 To total_wayout(i, 1) = out(i -1,1) - out(i, 4)Next i算轧制时间Dim v0 As Si ngle, v1 As Sin gle, v2 As Sin gle, tp As Si nglev0 = (v_we n - v_yao) / v_jiav1 = (v_

26、we n - v_pao) / v_jia nFor i = 1 To total_wayIf out(i, 0) = hen _way Thenv2 = (60 * out(i - 1,2) / 3.14 / ave_g + v_yao * v_yao / 2 / v_jia + v_pao v_pao / 2 /v_jia n - (v_jia + v_jia n) * v_we n * v_we n / 2 / v_jia / v_jia n) / v_we nout(i, 6) = v0 + v1 + v2Elsev2 = (60 * out(i - 1, 3) / 3.14 / av

27、e_g + v_yao * v_yao / 2 / v_jia + v_pao v_pao / 2 /v_jia n - (v_jia + v_jia n) * v_we n * v_we n / 2 / v_jia / v_jia n) / v_we nout(i, 6) = v0 + v1 + v2End IfNext i算轧制时间间隔out(1,7) = 0For i = 2 To total_wayIf out(i, 0) hen _way Thenout(i, 7) = 2.5ElseIf out(i, 3) 3500 Thenout(i, 0) = i19out(i, 7) = 2

28、.5out(i, 7) = 420ElseEnd IfEnd IfNext i算温度out(0, 8) = t_kaiFor i = 1 To total_wayout(i, 8) = out(i - 1, 8) - 12.9 * (out(i, 6) + out(i, 7) * (out(i - 1,8) + 273) / 1000)A4) / out(i, 1) -14Next i算压下率For i = 1 To total_wayout(i, 5) = out(i, 4) / out(i - 1, 1) * 100Next i算板宽+长out(0, 2) = Kout(0, 3) = c

29、Dim f As Si ngleFor i = 1 To total_wayf = 0.8 * (1.05 - 0.0005 * out(i - 1,8)该轧制道次温度If out(i, 0) = hen _way Thenout(i, 3) = out(i - 1, 3) + (1 + out(i, 4) / out(i - 1, 1) * (f * Sqr(ave_g / 2 * out(i, 4)-out(i, 4) / 2) * out(i, 4) / out(i - 1, 1)out(i, 2) = K * G * c / out(i, 1) / out(i, 3)Elseout(i

30、, 2) = out(i - 1,2) + (1 + out(i, 4) / out(i - 1, 1) * (f * Sqr(ave_g / 2 *out(i, 4) - out(i, 4) / 2) * out(i, 4) / out(i - 1, 1)out(i, 3) = K * G * c / out(i, 1) / out(i, 2)End If21Next i算板长For i = 1 To total_wayIf out(i, 0) = hen _way Thenout(i, 3) = cElseout(i, 3) = c * out(hen_way, 1) / out(i, 1

31、)End IfNext i轧制力Dim Y As Sin gle, u As Sin gle, m As Sin gle, u1 As Sin gle, fl As Si ngleFor i = 1 To total_wayfl = 0.8 * (1.05 - 0.0005 * out(i - 1,8)该轧制道次温度Y = (140 - 0.1 * out(i - 1, 8) * (1.4 + con te nt_C + con te nt_Mn + 0.3 * con te nt_Cr)该轧制道次温度u = 0.1 * (14 - 0.01 * out(i - 1, 8)该轧制道次温度u1

32、= 2 * Sqr(out(i, 4) / ave_g * 2) * 40 * ave_g * 3.14 / 60 / (out(i, 1) + out(i - 1,1)m = (1.6 * f1 * Sqr(ave_g / 2 * out(i, 4) - 1.2 * out(i, 4) / (out(i - 1, 1) + out(i,1)If out(i, 0) = hen _way Thenout(i, 9) = (0.5 * (out(i, 3) + out(i - 1, 3) * Sqr(ave_g / 2 * out(i, 4) * (1 + m) *(Y + u * u1) /

33、10A6Elseout(i, 9) = (0.5 * (out(i, 2) + out(i - 1,2) * Sqr(ave_g / 2 * out(i, 4) * (1 + m) *(Y + u * u1) / 10A6End IfNext i轧制力矩libi = Val(Text2.Text)22For i = 1 To total_wayout(i, 10) = 2 * out(i, 9) * libi * Sqr(ave_g / 2 / 1000 * out(i, 4) / 1000)Next iFor i = 0 To total_wayLabel1(i + 1).C aptio n

34、 = Str(Format(out(i, 0), .00)Next iFor i = 0 To total_wayLabel2(i + 1).C apti on = Str(Format(out(i, 1), .00)Next iFor i = 0 To total_wayLabel3(i + 1).C aptio n = Str(Format(out(i, 2), .00)Next iFor i = 0 To total_wayLabel4(i + 1).C aptio n = Str(Format(out(i, 3), .00)Next iFor i = 0 To total_wayLab

35、el5(i + 1).C aptio n = Str(Format(out(i, 4), .00)Next iFor i = 0 To total_wayLabel6(i + 1).C aptio n = Str(Format(out(i, 5), .00)Next iFor i = 0 To total_wayLabel7(i + 1).C aptio n = Str(Format(out(i, 6), .00)Next iFor i = 0 To total_wayLabel8(i + 1).C aptio n = Str(Format(out(i, 7), .00)Next iFor i

36、 = 0 To total_wayLabel9(i + 1).C aptio n = Str(Format(out(i, 8), .00)Next i23For i = 0 To total_wayLabel10(i + 1).Captio n = Str(Format(out(i, 9), .000)Next iFor i = 0 To total_wayLabel11(i + 1).Captio n = Str(Format(out(i, 10), .000)Next iEnd SubPrivate Sub Comma nd3_Click()flag = 1Label12.Caption

37、=请输入第& Str(flag) & 道次压下量Text1.Text =For j = 1 To 10For i = 1 To total_wayout(i, j) = 0Next iNext jEnd SubPrivate Sub Comma nd5_Click()out(flag, 4) = Val(Text1.Text)flag = flag + 1Text1.Text =Label12.Caption =请输入第& Str(flag) & 道次压下量End SubPrivate Sub Comma nd6_Click()Form1.ShowForm2.H

38、ideEnd Sub窗体三程序Private Sub Comma nd2_Click()allow_w = Val(Text1.Text)allow_z = Val(Text2.Text) allow_g = Val(Text3.Text) guozai = Val(Text4.Text) moca =24Val(Text5.Text) jianju_z = Val(Text6.Text) jia nju_g = Val(Text7.Text) allow_touch =Val(Text8.Text) tan xi ng = Val(Text9.Text) * 10A9 tanxing_z =

39、 Val(TextlO.Text) * 10A9tan xi ng_g = Val(Textll.Text) * 10A9 boso ng_g = Val(Text12.Text) boso ng_z =Val(Text13.Text) xiaolv = Val(Text14.Text)Dim s(100, 50) As Stri ng, w(100, 100) As Strin g, j As Si ngle 检查支承辊弯曲应力For i = 1 To hen _wayw(i, 0) = out(i, 9) * (jianju_z / 4 - out(i, 3) / 8) / 0.1 / a

40、ve_z / ave_z / ave_z * 10A6 If w(i, 0) allow_z The ns(i, 0)=合格Elses(i, 0)=不合格End IfNext iFor i = hen _way To total_wayw(i, 0) = out(i, 9) * (jianju_z / 4 - out(i, 2) / 8) / 0.1 / ave_z / ave_z / ave_z * 10A6 If w(i, 0) allow_z The ns(i, 0)=合格Elses(i, 0)=不合格End IfNext i支承辊辊径弯曲校核For i = 1 To total_way

41、w(i, 5) = out(i, 9) * (jianju_z - 4300) / 4 / 1000 / 0.1 / (zhiji ng_z / 1000)A3If w(i, 5) allow_z Thens(i, 5)=合格Elses(i, 5)=不合格End IfNext i检查工作辊滚头扭转强度摩擦力矩For i = 1 To total_wayA(i, 0) = out(i, 9) * moca * zhiji ng_z / 1000 * ave_g / ave_z + (1 / xiaolv - 1) (out(i, 10) +out(i, 9) * moca * zhiji ng_

42、z / 1000 * ave_g / ave_z)空转力矩A(i, 1) = (0.03 * 2 * 0.955 * allow_w / v_e + 0.06 * 2 * 0.955 * allow_w / v_e) / 2 / 10025动力矩A(i, 2) = 2470.5 / 375 * v_jia / 100A(i, 3) = A(i, 0) + A(i, 1) + A(i, 2) + out(i, 10)辊头设计w(i, 1) = A(i, 3) / 2 / 0.208 / (ave_g - 10) / (ave_g - 10) / (ave_g - 10) * 10A9If w(i

43、, 1) allow_g The ns(i, 1)=合格Elses(i, 1)=不合格End IfNext i检查接触应力For i = 1 To total_wayw(i, 2) = Sqr(out(i, 9) / 4.3 * 10A6) * (ave_z + ave_g) * 10A3 / 3.14 / 3.14 / ave_z/ ave_g / (1 - bos ong_z * bos on g_z) / 3.14 / tanxing_z + (1 - bos ong_g boso ng_g) /3.14 / tanxin g_g) / 10A6If w(i, 2) allow_touc

44、h The ns(i, 2)=合格Elses(i, 2)=不合格End If接触应力中许用剪应力校核w(i, 6) = 0.304 * w(i, 2)If w(i, 6) 0.5 * allow_touch The ns(i, 6)=合格Elses(i, 6)=不合格End If电机过载校核If A(i, 3) 0.955 * 2 * allow_w / 100 / v_e * guozai Then s(i, 3)=合格Elses(i, 3)=不合格End IfNext i电机发热校核A(1, 10) = 0A(1, 11) = 0A(1,9) = 0For i = 1 To total_w

45、ayA(1, 10) = A(1, 10) + out(i, 10) * out(i, 10) * out(i, 6)A(1, 11) = A(1, 11) + A(i, 1) * A(i, 1) * out(i, 7)26A(1,9) = A(1,9) + out(i, 6) + out(i, 7)Next iFor i = 1 To total_wayw(i, 3) = Sqr(A(1, 10) + A(1, 11) / A(1,9)If w(i, 3) 0.955 * 2 * allow_w / v_e / 100 The ns(i, 4)=合格Elses(i, 4)=不合格End If

46、Next i显示For i = 1 To total_wayLabel17(i - 1).Caption =第 & Str(i) & 道次支承辊辊身弯曲应力&Format(w(i, 0), 0.000) & & s(i, 0) & 辊径弯曲应力& Format(w(i, 5), 0.000) & & s(i,5) & 工作辊辊头强度 & Format(w(i, 1), 0.000) & & s(i, 1) & 接触应力强度& Format(w(i, 2), 0.000) &a

47、mp; & s(i, 2) & 接触剪切应力 & Format(w(i, 6),0.000) & & s(i, 6) & 电机摩擦& Format(A(i, 0), 0.000) & 空转& Format(A(i, 1),0.000) & 动力& Format(A(i, 2), 0.00) & 轧制& Format(out(i, 10), 0.000) & 过载&Format(A(i, 3), 0.000) & & s(i, 3) & 电机发热&

48、; Format(w(i, 3), 0.000) & & s(i, 4)&.& A(1, 10) & & A(1, 11) & & A(1,9) & Next iEnd SubPrivate Sub Comma nd3_Click()清屏Text1.Text =Text2.Text =Text3.Text =Text4.Text =Text5.Text =Text6.Text = 0Text7.Text =Text8.Text =Text9.Text = 0TextIO.Text = 00Textll.Text = 0Te

49、xt12.Text = 0Text13.Text =Text14.Text =End SubPrivate Sub Comma nd1_Click() allow_w = Val(Text1.Text) allow_z = Val(Text2.Text)allow_g = Val(Text3.Text) guozai = Val(Text4.Text) moca = Val(Text5.Text) jianju_z =27Val(Text6.Text) jia nju_g = Val(Text7.Text) allow_touch = Val(Text8.Text) tan xi ng =Va

50、l(Text9.Text) * 10A9 tanxing_z = Val(Text10.Text) * 10A9 tan xi ng_g = Val(Textll.Text)* 10A9 boso ng_g = Val(Text12.Text) boso ng_z = Val(Text13.Text) xiaolv =Val(Text14.Text)Dim s(100, 50) As Stri ng, w(100, 100) As Strin g, j As Si ngle 检查支承辊弯曲应力For i = 1 To hen _wayw(i, 0) = out(i, 9) * (jianju_

51、z / 4 - out(i, 3) / 8) / 0.1 / ave_z / ave_z / ave_z * 10A6 If w(i, 0) allow_z The ns(i, 0)=合格Elses(i, 0)=不合格End IfNext iFor i = hen _way To total_wayw(i, 0) = out(i, 9) * (jianju_z / 4 - out(i, 2) / 8) / 0.1 / ave_z / ave_z / ave_z * 10A6If w(i, 0) allow_z Then s(i, 0)=合格 Elses(i, 0)=不合格End IfNext

52、i支承辊辊径弯曲校核For i = 1 To total_wayw(i, 5) = out(i, 9) * (jianju_z -4300)/4 / 1000 / 0.1 / (zhiji ng_z / 1000)A3If w(i, 5) allow_z Thens(i, 5)=合格Elses(i, 5)=不合格End IfNext i检查工作辊滚头扭转强度摩擦力矩For i = 1 To total_wayA(i, 0) = out(i, 9) * moca * zhijing_z / 1000 * ave_g / ave_z + (1 / xiaolv - 1) * (out(i, 10)+ out(i, 9) * moca * zhiji ng_z / 1000 * ave_g / ave_z)28空转力矩A(i, 1) = (0.03 * 2 * 0.955 * allow_w / v_e + 0.06 * 2 * 0.955 * allow_w / v_e) / 2 / 100动力矩A(i, 2) = 2470.5 / 375 * v_jia / 100A(i, 3) = A(i, 0) + A(i,