




版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
1、-. z.Report of Processing for Line Graph or TableName:曾小贤 NO.:123456 E*pected Score:85Introduction of Line Graph or Table:Helical gear heli* tolerance valuesU:umReference Diameter d/mm 20d=50 50d=125 125d=280Tooth Breadth b/mm204040808016020404080801602040408080160AccuracyClass6111316121417131517716
2、192317202418212582327322428332529359323846343947364149Microsoft Visual Basic 6.0.Builting a new project.Changing each framePut on the programProgram codes:Private Sub Form_Load() bo1.AddItem (20d=50)bo1.AddItem (50d=125)bo1.AddItem (125d=280)bo2.AddItem (20b=40)bo2.AddItem (40b=80)bo2.AddItem (80b=1
3、60)bo3.AddItem (6)bo3.AddItem (7)bo3.AddItem (8)bo3.AddItem (9)End SubPrivate Sub mand1_Click()Dim a As DoubleDim *iala1(0 To 2) As String Dim *iala2(0 To 2) As StringDim *iala3(0 To 3) As StringDim indata(9, 4) As Double*iala1(0) = 20d=50 *iala1(1) = 50d=125*iala1(2) = 125d=280*iala2(0) = 20b=40 *i
4、ala2(1) = 50b=125*iala2(2) = 80b=160*iala3(0) = 6 *iala3(1) = 7*iala3(2) = 8*iala3(3) = 9Dim FileNo As IntegerFileNo = FreeFile() Dim str As String Open C:Documents and SettingsAdministrator桌面螺旋线公差值.t*t For Input As #FileNoFor i = 0 To 4For j = 0 To 9Input #FileNo, indata(i, j)Ne*t jNe*t iClose #Fil
5、eNoDim bl1 As String Dim bl2 As StringDim bl3 As Stringbl1 = bo1.Te*tbl2 = bo2.Te*tbl3 = bo3.Te*tIf (bl1 = *iala1(0) Then 20d=50If (bl2 = *iala2(0) ThenIf (bl3 = *iala3(0) Thena = indata(0, 0)End IfIf (bl3 = *iala3(1) Thena = indata(0, 1)End IfIf (bl3 = *iala3(2) Thena = indata(0, 2)End IfIf (bl3 =
6、*iala3(3) Thena = indata(0, 3)End IfEnd IfIf (bl2 = *iala2(1) ThenIf (bl3 = *iala3(0) Thena = indata(1, 0)End IfIf (bl3 = *iala3(1) Thena = indata(1, 1)End IfIf (bl3 = *iala3(2) Thena = indata(1, 2)End IfIf (bl3 = *iala3(3) Thena = indata(1, 3)End IfEnd IfIf (bl2 = *iala2(2) ThenIf (bl3 = *iala3(0)
7、Thena = indata(2, 0)End IfIf (bl3 = *iala3(1) Thena = indata(2, 1)End IfIf (bl3 = *iala3(2) Thena = indata(2, 2)End IfIf (bl3 = *iala3(3) Thena = indata(2, 3)End IfEnd IfIf (bl2 = *iala2(3) ThenIf (bl3 = *iala3(0) Thena = indata(3, 0)End IfIf (bl3 = *iala3(1) Thena = indata(3, 1)End IfIf (bl3 = *ial
8、a3(2) Thena = indata(3, 2)End IfIf (bl3 = *iala3(3) Thena = indata(3, 3)End IfEnd IfEnd IfIf (bl1 = *iala1(1) Then 50d=125If (bl2 = *iala2(0) ThenIf (bl3 = *iala3(0) Thena = indata(4, 0)End IfIf (bl3 = *iala3(1) Thena = indata(4, 1)End IfIf (bl3 = *iala3(2) Thena = indata(4, 2)End IfIf (bl3 = *iala3
9、(3) Thena = indata(4, 3)End IfEnd IfIf (bl2 = *iala2(1) ThenIf (bl3 = *iala3(0) Thena = indata(5, 0)End IfIf (bl3 = *iala3(1) Thena = indata(5, 1)End IfIf (bl3 = *iala3(2) Thena = indata(5, 2)End IfIf (bl3 = *iala3(3) Thena = indata(5, 3)End IfEnd IfIf (bl2 = *iala2(2) ThenIf (bl3 = *iala3(0) Thena
10、= indata(6, 0)End IfIf (bl3 = *iala3(1) Thena = indata(6, 1)End IfIf (bl3 = *iala3(2) Thena = indata(6, 2)End IfIf (bl3 = *iala3(3) Thena = indata(6, 3)End IfEnd IfIf (bl2 = *iala2(3) ThenIf (bl3 = *iala3(0) Thena = indata(7, 0)End IfIf (bl3 = *iala3(1) Thena = indata(7, 1)End IfIf (bl3 = *iala3(2)
11、Thena = indata(7, 2)End IfIf (bl3 = *iala3(3) Thena = indata(7, 3)End IfEnd IfEnd IfIf (bl1 = *iala1(2) Then 125d=280If (bl2 = *iala2(0) ThenIf (bl3 = *iala3(0) Thena = indata(8, 0)End IfIf (bl3 = *iala3(1) Thena = indata(8, 1)End IfIf (bl3 = *iala3(2) Thena = indata(8, 2)End IfIf (bl3 = *iala3(3) T
12、hena = indata(8, 3)End IfEnd IfTe*t1.Te*t = aEnd SubPrivate Sub mand2_Click() Unload MeEnd SubRunning results:Open up the file 螺旋线公差值Chose the range and the classPress the button 确定Thought and suggestion(optional):This is the final report for CAD/CAM. For the forth work, I dont know how to say, but it makes me feel some confuse. I have learned VB five years ago, but this I dont know how to start. Finally, I write the report with the help of othe
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- GB/T 45190-2025道地药材生产技术规程岷当归
- 文化创意产业项目研发投资合同
- 农产品收购书合同
- 医院装修法律协议合同材料
- 外包项目劳动合同
- 全款二手房屋买卖合同书
- 焊接钢管买卖合同
- 公司财务保密协议
- 三农产品电子商务推广应用方案
- 电子支付系统服务协议
- 新疆维吾尔自治区2024年中考英语真题【附真题答案】
- 继续医学教育项目申报表
- 《工程地质学》孔宪立-石振明第五章(部编)课件
- 个人股份转让合同协议
- 供应商对比方案报告
- 儿童支气管哮喘规范化诊治建议(2020年版)
- ISO28000:2022供应链安全管理体系
- 临床营养技术操作规范(2010版)
- 我国新零售业上市公司财务质量分析-以苏宁易购为例
- 华为中基层管理者任职资格评价标准样本
- 富氢水完整课件
评论
0/150
提交评论