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

第一次作业 程序化线图处理 一．题目 线图的程序化处理： 线图的程序化处理： 上机：将下图编程实现（大作业） 二．解题思路 本线图为分区域线图，对功率和转速需要进行分段讨论，采用Visual Basci软件可实现匹配类型的功能，使用用if语句实现各个区域分段，而各个区域的分界线为直线和斜线，它们都可以通过解线性方程而获得，以各个分界线列方程用And语句即可实现题目所要求的功能。 可将功率的范围分为0.8~1，1~2.6, 2.6~4, 4~6，6~12, 12~23，23~37……220~800等多个区域，然后分别列出各个区域相关的方程组，即可有Visual Basic编程实现功能。 程序代码 Private Sub Form_Load() Picture = LoadPicture(App.Path + \1.jpg) End Sub Private Sub Command1_Click() Dim x As Double Dim y As Double If Not IsNumeric(Text1.Text) Then MsgBox 请在输入功率时输入数字, , 警告 Text1.Text = Text1.SetFocus End If If Not IsNumeric(Text2.Text) Then MsgBox 请输入转速时输入数字, , 警告 Text2.Text = Text2.SetFocus End If x = Text1.Text y = Text2.Text If x 0.8 Or y 100 Then MsgBox 数据输入有误，请重新输入! ElseIf x = 0.8 And x = 1 And y = 1350 * (x - 4 / 9) Then MsgBox 您选择的类型为A型! ElseIf x = 0.8 And x = 1 And y 1350 * (x - 4 / 9) And y = 7000 Then MsgBox 您选择的类型为O型! ElseIf x = 1 And x = 2.6 And y = 200 * (x - 0.5) Then MsgBox 您选择的类型为B型! ElseIf x = 1 And x = 2.6 And y = 200 * (x - 0.5) And y = 1350 * (x - 4 / 9) Then MsgBox 您选择的类型为A型! ElseIf x = 1 And x = 2.6 And y = 1350 * (x - 4 / 9) And y = 7000 Then MsgBox 您选择的类型为O型! ElseIf x = 2.6 And x = 4 And y = (1000 / 18) * (x - 0.8) Then MsgBox 您选择的类型为C型! ElseIf x = 2.6 And x = 4 And y = (1000 / 18) * (x - 0.8) And y = 200 * (x - 0.5) Then MsgBox 您选择的类型为B型! ElseIf x = 2.6 And x = 4 And y = 200 * (x - 0.5) And y = 1350 * (x - 4 / 9) Then MsgBox 您选择的类型为A型! ElseIf x = 2.6 And x = 4 And y = 1350 * (x - 4 / 9) And y = 7000 Then MsgBox 您选择的类型为O型! ElseIf x = 4 And x = 7.6 And y = 4800 And y = 7000 Then MsgBox 您选择的类型为O型! ElseIf x = 4 And x = 6 And y = 100 And y = (1000 / 18) * (x - 0.8) Then MsgBox 您选择的类型为C型! ElseIf x = 4 And x = 6 And y = (1000 / 18) * (x - 0.8) And y = 200 *