UC知道出租车计费器课程设计
来源：百度知道 编辑：UC知道 时间：2024/06/24 06:35:09
今天刚接到个课程设计，大家给个参考吧，越详细越好，最好有截图，或者给个有用的网址，谢谢，有更多的分给出。。。
1．设计目的：
① 掌握电子电路的一般设计方法和设计流程；
② 学习使用PROTEL软件绘制电路原理图及印刷板图；
③ 掌握应用EWB对所设计的电路进行仿真，通过仿真结果验证设计的正确性。
2，设计要求及技术指标
（1）设计一个自动计费器，具有行车里程计费，等候时间计费及起价等三部分，用4位数码管显示总的金额最大值为99.99
（2）行车里程单价，等候时间单价，起价均通过BCD码拨盘输入。
（3）在车辆启动和停止时发出音响信号，以提醒顾客注意
3，要求完成任务
（1）用可编程器件实现
（2）组装，调试电路，以满足设计要求
（3）画出完整电路图，写出设计实验报告
忘了说了，这是个数电课程设计。
1．设计目的：
① 掌握电子电路的一般设计方法和设计流程；
② 学习使用PROTEL软件绘制电路原理图及印刷板图；
③ 掌握应用EWB对所设计的电路进行仿真，通过仿真结果验证设计的正确性。
2，设计要求及技术指标
（1）设计一个自动计费器，具有行车里程计费，等候时间计费及起价等三部分，用4位数码管显示总的金额最大值为99.99
（2）行车里程单价，等候时间单价，起价均通过BCD码拨盘输入。
（3）在车辆启动和停止时发出音响信号，以提醒顾客注意
3，要求完成任务
（1）用可编程器件实现
（2）组装，调试电路，以满足设计要求
（3）画出完整电路图，写出设计实验报告
忘了说了，这是个数电课程设计。
................................
Private Sub Command1_Click()
Dim h%, l%, qz!, dj!, je!
h = Val(InputBox("请输入现在是几点! (0-23时)"))
l = Val(InputBox("请输入公里数!"))
If h < 0 Or h > 23 Then MsgBox "时间输入不正确!": Exit Sub
If l < 0 Then MsgBox "距离输入不正确!": Exit Sub
qz = IIf(h = 23 Or h < 5, 11 * 1.3, 11)
dj = IIf(h = 23 Or h < 5, 2.1 * 1.3, 2.1)
Select Case l
Case Is <= 3
je = qz
Case Is < 10
je = qz + (l - 3) * dj
Case Is >= 10
je = qz + 7 * dj + (l - 10) * dj * 1.5
End Select
je = Round(je, 2)
je = IIf(je * 100 Mod 100 >= 51, Fix(je) + 1, Fix(je))
MsgBox "这回要收您" & je & "元,欢迎你下次继续在上海打的.."
End Sub