第一次作业-程序化线图处理.doc

第一次作业 程序化线图处理一题目线图的程序化处理：上机：将下图编程实现（大作业）二解题思路 本线图为分区域线图，对功率和转速需要进行分段讨论，采用Visual Basci软件可实现匹配类型的功能，使用用if语句实现各个区域分段，而各个区域的分界线为直线和斜线，它们都可以通过解线性方程而获得，以各个分界线列方程用And语句即可实现题目所要求的功能。 可将功率的范围分为0.81，12.6, 2.64, 46，612, 1223，2337220800等多个区域，然后分别列出各个区域相关的方程组，即可有Visual Basic编程实现功能。3 程序代码Private Sub Form_Load() Picture = LoadPicture(App.Path + 1.jpg)End SubPrivate Sub Command1_Click() Dim x As Double Dim y As DoubleIf Not IsNumeric(Text1.Text) ThenMsgBox 请在输入功率时输入数字, , 警告Text1.Text = Text1.SetFocusEnd IfIf Not IsNumeric(Text2.Text) ThenMsgBox 请输入转速时输入数字, , 警告Text2.Text = Text2.SetFocusEnd Ifx = Text1.Texty = Text2.TextIf x 0.8 Or y = 0.8 And x = 1 And y = 0.8 And x 1350 * (x - 4 / 9) And y = 1 And x = 2.6 And y = 1 And x = 200 * (x - 0.5) And y = 1 And x = 1350 * (x - 4 / 9) And y = 2.6 And x = 4 And y = 2.6 And x = (1000 / 18) * (x - 0.8) And y = 2.6 And x = 200 * (x - 0.5) And y = 2.6 And x = 1350 * (x - 4 / 9) And y = 4 And x = 4800 And y = 4 And x = 100 And y = 4 And x = (1000 / 18) * (x - 0.8) And y = 4 And x = 200 * (x - 0.5) And y = 6 And x = 100 And y = 6 And x = 12 And y = (250 / 7) * (x - 16 / 5) Then MsgBox 您选择的类型为C型! ElseIf x = 6 And x = (500 / 9) * (x - 0.8) And y = 6 And x = 200 * (x - 0.5) And y = 12 And x = 3500 And y = 12 And x = 100 And y = 12 And x = (250 / 7) * (x - 16 / 5) And y = 12 And x = (500 / 9) * (x - 0.8) Then MsgBox 您选择的类型为B型! ElseIf x = 23 And x = 2800 And y = 18 And x = 100 And y = 18 And x = 12.5 * (x - 10) And y = 18 And x = (250 / 7) * (x - 16 / 5) And y = 23 And x = (250 / 7) * (x - 16 / 5) And y = 23 And x = 37 And y = 12.5 * (x - 10) Then MsgBox 您选择的类型为D型! ElseIf x = 23 And x = 100 And y = 37 And x = 12.5 * (x - 10) And y = 37 And x = 1500 And y = 46 And x = 12.5 * (x - 10) And y = 46 And x = 100 And y = 46 And x = 85 And y = (25 / 6) * (x - 22) Then MsgBox 您选择的类型为E型! ElseIf x = 85 And x = 100 And y = 85 And x = (25 / 6) * (x - 22) And y = 85 And x = 1100 And y = 220 And x = 700 And y = 220 And x = 100 And y = 700 Then MsgBox 您选择的类型为F型! Else: MsgBox 您选择的点不在所规定的范围之内，请重新