第一次作业-程序化线图处理VIP免费

第一次作业程序化线图处理一．题目二．解题思路本线图为分区域线图，对功率和转速需要进行分段讨论，采用VisualBasci软件可实现匹配类型的功能，使用用if语句实现各个区域分段，而各个区域的分界线为直线和斜线，它们都可以通过解线性方程而获得，以各个分界线列方程用And语句即可实现题目所要求的功能。可将功率的范围分为0.8~1，1~2.6,2.6~4,4~6，6~12,12~23，23~37……220~800等多个区域，然后分别列出各个区域相关的方程组，即可有VisualBasic编程实现功能。线图的程序化处理：上机：将下图编程实现（大作业）三．程序代码PrivateSubForm_Load()Picture=LoadPicture(App.Path+"\1.jpg")EndSubPrivateSubCommand1_Click()DimxAsDoubleDimyAsDoubleIfNotIsNumeric(Text1.Text)ThenMsgBox"请在输入功率时输入数字",,"警告"Text1.Text=""Text1.SetFocusEndIfIfNotIsNumeric(Text2.Text)ThenMsgBox"请输入转速时输入数字",,"警告"Text2.Text=""Text2.SetFocusEndIfx=Text1.Texty=Text2.TextIfx<0.8Ory<100ThenMsgBox"数据输入有误，请重新输入!"ElseIfx>=0.8Andx<=1Andy<=1350*(x-4/9)ThenMsgBox"您选择的类型为A型!"ElseIfx>=0.8Andx<=1Andy>1350*(x-4/9)Andy<=7000ThenMsgBox"您选择的类型为O型!"ElseIfx>=1Andx<=2.6Andy<=200*(x-0.5)ThenMsgBox"您选择的类型为B型!"ElseIfx>=1Andx<=2.6Andy>=200*(x-0.5)Andy<=1350*(x-4/9)ThenMsgBox"您选择的类型为A型!"ElseIfx>=1Andx<=2.6Andy>=1350*(x-4/9)Andy<=7000ThenMsgBox"您选择的类型为O型!"ElseIfx>=2.6Andx<=4Andy<=(1000/18)*(x-0.8)ThenMsgBox"您选择的类型为C型!"ElseIfx>=2.6Andx<=4Andy>=(1000/18)*(x-0.8)Andy<=200*(x-0.5)ThenMsgBox"您选择的类型为B型!"ElseIfx>=2.6Andx<=4Andy>=200*(x-0.5)Andy<=1350*(x-4/9)ThenMsgBox"您选择的类型为A型!"ElseIfx>=2.6Andx<=4Andy>=1350*(x-4/9)Andy<=7000ThenMsgBox"您选择的类型为O型!"ElseIfx>=4Andx<=7.6Andy>=4800Andy<=7000ThenMsgBox"您选择的类型为O型!"ElseIfx>=4Andx<=6Andy>=100Andy<=(1000/18)*(x-0.8)ThenMsgBox"您选择的类型为C型!"ElseIfx>=4Andx<=6Andy>=(1000/18)*(x-0.8)Andy<=200*(x-0.5)ThenMsgBox"您选择的类型为B型!"ElseIfx>=4Andx<=6Andy>=200*(x-0.5)Andy<=4800ThenMsgBox"您选择的类型为A型!"ElseIfx>=6Andx<=12Andy>=100Andy<=(250/7)*(x-16/5)ThenMsgBox"您选择的类型为D型!"ElseIfx>=6Andx<=12Andy<=(500/9)*(x-0.8)Andy>=(250/7)*(x-16/5)ThenMsgBox"您选择的类型为C型!"ElseIfx>=6Andx<=12Andy>=(500/9)*(x-0.8)Andy<=200*(x-0.5)ThenMsgBox"您选择的类型为B型!"ElseIfx>=6Andx<=12Andy>=200*(x-0.5)Andy<=4800ThenMsgBox"您选择的类型为A型!"ElseIfx>=12Andx<=22Andy>=3500Andy<=4800ThenMsgBox"您选择的类型为A型!"ElseIfx>=12Andx<=18Andy>=100Andy<=(250/7)*(x-16/5)ThenMsgBox"您选择的类型为D型!"ElseIfx>=12Andx<=18Andy>=(250/7)*(x-16/5)Andy<=(500/9)*(x-0.8)ThenMsgBox"您选择的类型为C型!"ElseIfx>=12Andx<=23Andy>=(500/9)*(x-0.8)ThenMsgBox"您选择的类型为B型!"ElseIfx>=23Andx<=45Andy>=2800Andy<=3500ThenMsgBox"您选择的类型为B型!"ElseIfx>=18Andx<=23Andy>=100Andy<=12.5*(x-10)ThenMsgBox"您选择的类型为E型!"ElseIfx>=18Andx<=23Andy>=12.5*(x-10)Andy<=(250/7)*(x-16/5)ThenMsgBox"您选择的类型为D型!"ElseIfx>=18Andx<=23Andy>=(250/7)*(x-16/5)Andy<=(500/9)*(x-0.8)ThenMsgBox"您选择的类型为C型!"ElseIfx>=23Andx<=37Andy>=(250/7)*(x-16/5)Andy<=2450ThenMsgBox"您选择的类型为C型!"ElseIfx>=23Andx<=37Andy<=(250/7)*(x-16/5)Andy>=12.5*(x-10)ThenMsgBox"您选择的类型为D型!"ElseIfx>=23Andx<=46Andy>=100Andy<=12.5*(x-10)ThenMsgBox"您选择的类型为E型!"ElseIfx>=37Andx<=46Andy>=12.5*(x-10)Andy<=1500ThenMsgBox"您选择的类型为D型!"ElseIfx>=37Andx<=70Andy>=1500Andy<=2450ThenMsgBox"您选择的类型为C型!"ElseIfx>=46Andx<=85Andy>=12.5*(x-10)Andy<=1500ThenMsgBox"您选择的类型为D型!"ElseIfx>=46Andx<=85Andy>=100Andy<=(25/6)*(x-22)ThenMsgBox"您选择的类型为F型!"ElseIfx>=46Andx<=85Andy<=12.5*(x-10)Andy>=(25/6)*(x-22)ThenMsgBox"您选择的类型为E型!"ElseIfx>=85Andx<=210Andy>=100Andy<=(25/6)*(x-22)ThenMsgBox"您选择的类型为F型!"ElseIfx>=85Andx<=210Andy>=(25/6)*(x-22)Andy<=1100ThenMsgBox"您选择的类型为E型!"ElseIfx>=85Andx<=220Andy>=1100Andy<=1500ThenMsgBox"您选择的类型为D型!"ElseIfx>=220Andx<=380Andy>=700Andy<=1100ThenMsgBox"您选择的类型为E型!"ElseIfx>=220Andx<=800Andy>=100Andy<=700ThenMsgBox"您选择的类型为F型!"Else:MsgBox"您选择的点不在所规定的范围之内，请重新输入!"EndIfEndSub四．运行结果截图五．小结通过此次作业我学会了如使用VisualBasic编程实现一些简单的数据查找功能，同时，因为图表中的分段很多，做题的时候也使我体会到了耐心和细心的重要性。