- 1、本文档共7页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
查看更多
第一次作业 程序化线图处理
一.题目
线图的程序化处理:
线图的程序化处理:
上机:将下图编程实现(大作业)
二.解题思路
本线图为分区域线图,对功率和转速需要进行分段讨论,采用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 *
您可能关注的文档
- 笔记本xp系统做手机wifi热点超详细图文.doc
- 笔记本做手机wifi热点超详细图文之【XP教程】.doc
- 笔记本内存更换图解.doc
- 笔记本验机步骤.doc
- 第0079部~奋迅王问经二卷.doc
- 第13课 走进社区.doc
- 第14讲 共点力作用下物体的平衡.doc
- 第14讲 自然地理环境的差异性学生版.doc
- 第1课 中华人民共和国的成立导学案.doc
- 第22-24讲第八单元综合绘图.doc
- 2024年乌海职业技术学院高职单招(英语)历年高频考点试题含答案解析.docx
- 2024年广东水利电力职业技术学院高职单招职业适应性测试历年高频考点试题含答案解析.docx
- 2024年忻州职业技术学院高职单招职业适应性测试历年高频考点试题含答案解析.docx
- 2024年四川卫生康复职业学院高职单招数学历年高频考点试题含答案解析.docx
- 2024年七台河职业学院高职单招职业适应性测试历年高频考点试题含答案解析.docx
- 2024年广西中远职业学院高职单招教育类考试2018-2023年高频考点试题含答案解析.docx
- 2024年扬州中瑞酒店职业学院高职单招语文2018-2023年考试题摘选含答案解析.docx
- 2024年山东轻工职业学院高职单招职业适应性测试历年高频考点试题含答案解析.docx
- 2024年河南水利与环境职业学院高职单招职业适应性测试历年高频考点试题含答案解析.docx
- 2024年榆林能源科技职业学院高职单招教育类考试2018-2023年高频考点试题含答案解析.docx
文档评论(0)