单片机光电门测速

从实验原理看的确只能得到60的倍数厅老。

建议将计数周期从1秒，调整到1.1秒，2.3秒等等，一来可以减少误凳搏差，二使得结果不能被整除，估计这样就能出现个位数了。但是单片机估计都不带浮点计算的，程序可能会复杂一点扮粗升。

光电门主要应用于计数，计时，测速等方面当光电门计数时，传感器将高低变化的信号传到计数器上，计数器进行计数。电压升高再恢复原值计数器计数一次。

当碰贺计数器计时时，计数器获得高电压时计时开始，获得低电压时计时停止。测得时间为物体完全通过光电门的时间。光电门测速也是根据计时的原理。

光电门原理应用很广泛，现已经不局限于门的形状，如点钞机，生产线计数器，光控路灯等。

扩展资料：行碧

光电门的原理：

当物体通过光电门时光被挡住，计时器开始计时，当物体离开时停止计时，这样就可以根据物体大小与运动时间计算物体运动的速度；若计时装笑带派置具备运算功能，使用随机配置的挡光片（宽度一定），可以直接测量物体的瞬时速度。

光电门是由一个小的聚光灯泡和一个光敏管组成的，聚光灯泡对准光敏管，光敏管前面有一个小孔可以接收光的照射。光敏门与计时仪是按以下方式连接的。

即当两个光电门的任一个被挡住时，计时仪开始计时；当两个光电门中任一个被再次挡光时，计时终止。计时仪显示的是两次挡光之间的时间间隔。

其工作原理是光照度改变使光敏电阻阻值的改变，而引起光敏电阻两端电压的改变。电压变化信号通过传感器传到计数器上计数计时。

光电门一端有个线性光源，另一端有个光敏电阻，门中无物体阻挡时光照射到光敏电阻上。有光照时光敏电阻阻值减小，光敏电阻两端为低电压。当门中有物体阻挡时，光敏电阻受到光照度减小，电阻增大，光敏电阻两端为高电压。

换而言之，当光电门传感器之间没有物体阻挡时，其内部电路断开；当光电门传感器之间有物体阻挡时，其内部电路接通。

参考资料来源：百度百科-光电门

演示用两个按钮取得开始时间和结束时间，点结薯胡束按钮，在文本框显示时间差，精确到毫秒后很多位，你可以取整到毫秒。

Private start_T As Double

Private end_T As Double

Private Sub Command1_Click()

start_T = GetCurrentTime

End Sub

Private Sub Command2_Click()

end_T = GetCurrentTime

Text1.Text = end_T - start_T

End Sub

使用的模块仔手数代码如下：

Public Declare Function GetTickCount Lib "kernel32" () As Long

Public Declare Function QueryPerformanceFrequency Lib "kernel32" (lpFrequency As Currency) As Long

Public Declare Function QueryPerformanceCounter Lib "kernel32" (lpPerformanceCount As Currency) As Long

Public Const ERRORINDEX                 As Long = -1

Private SystemFrequency     As Currency

Public Function GetCurrentTime() As Currency

    If SystemFrequency = 0 Then '未初始化

        If QueryPerformanceFrequency(SystemFrequency) = 0 Then

            SystemFrequency = ERRORINDEX '无高精度计数器

        End If

    End If

    If SystemFrequency <> ERRORINDEX 念首Then

        Dim CurCount As Currency

        QueryPerformanceCounter CurCount

        GetCurrentTime = CurCount * 1000@ / SystemFrequency

    Else

        GetCurrentTime = GetTickCount()

    End If

End Function

---