如何使用VBScript计算已知大小的对象与我的相机之间的距离？

Question

我知道物体的尺寸和相机的一切。距离结果需要每秒至少更新4次。

相机送纸来自与wLAN连接到笔记本电脑的机器人。笔记本电脑运行一个应用程序，显示机器人操作员的各种仪表板。我必须使用这个特定的应用程序，它只支持自定义仪表板仪表的VBScript。

如何从相机输入中获取图像数据然后计算距离？我对VBScript了解不多。

Answer 1

d =（FL * RHO * IH）/（OH * SH）

d =物体距离（mm）
FL =焦距（mm）
RHO =物体的实际高度（mm）
IH =图像高度（像素）
OH =物体高度（像素）
SH =传感器高度（mm）