西华大学汽车理论课内实验报告.docVIP

交通与汽车工程学院 实 验 报 告 课 程 名 称: 汽车理论 课 程 代 码: 学院(直属系): 年级/专业/班: 学 生 姓 名: 学 号: 实验总成绩: 任 课 教 师: 开 课 学 院: 实验中心名称: 西华大学实验报告 开课实验室：汽车与交通学院计算机机房5D-215 实验时间： 年 月 日 学 生 姓 名 学 号 实 验 成 绩 课 程 名 称 汽车理论 课 程 代 码 实验项目名称 项 目 代 码 指 导 教 师 项 目 学 分 现场考评成绩（40分） 实验报告成绩（60分） 1、实验目的 2、实验设备、仪器及材料 3、实验内容 3.1 一般实验（非上机实验）： 3.1.1实验方案设计与选择（设计性、创新性实验需写该项内容） 3.1.2实验原理及实验步骤（实验工作原理或实验的主要操作过程） 3.1.3实验记录（核心代码及调试过程） 3.2 上机实验： 3.2.1上机内容程序过程中出现的问题及解决方法 程序的结果实验一 1.实验目的 2.实验设备、仪器及材料 3.实验内容 3.1窗体界面 3.2程序核心代码 Private Sub Command1_Click() 汽车驱动力与行驶阻力平衡 Picture1.Cls Dim i, j, n As Integer Dim Ft, Ff, Fw, Umax, Ua As Single Dim ig(1 To 5) As Double 变速器传动比赋值 ig(1) = 5.56: ig(2) = 2.769 ig(3) = 1.644: ig(4) = 1# ig(5) = 0.793 Picture1.Scale (-10, 16000)-(140, -1000) Picture1.Line (0, 0)-(130, 0): Picture1.Line (0, 15000)-(0, 0) Picture1.Line (127, -150)-(130, 0) Picture1.Line (127, 150)-(130, 0) Picture1.Line (-0.5, 14300)-(0, 15000) Picture1.Line (0.5, 14300)-(0, 15000) For i = 1 To 12 Picture1.Line (10 * i, 0)-(10 * i, 200) Picture1.CurrentX = 10 * i - 4 Picture1.CurrentY = -50 Picture1.Print 10 * i Next i For i = 1 To 14 Picture1.Line (0, 1000 * i)-(2, 1000 * i) Picture1.CurrentX = -5: Picture1.CurrentY = 1000 * i: Picture1.Print 1 * i Next i Picture1.CurrentX = -5: Picture1.CurrentY = -50: Picture1.Print 0 Picture1.CurrentX = 125: Picture1.CurrentY = -200: Picture1.Print Ua(km/h) Picture1.CurrentX = 3: Picture1.CurrentY = 15000: Picture1.Print F(kN) Picture1.CurrentX = 110: Picture1.CurrentY = 3000: Picture1.Print Fw+Ff Picture1.CurrentX = 120: Picture1.CurrentY = 1000: Picture1.Pri