>

根据雷电发生时产生的声光在大气中传播速度不同所产生的时间差，可精确快速计算出距雷电发生点的距离。电路如下图所示。

声速在０℃时为３３１．３６ｍ／ｓ，温度每升高１℃，声速增加０．６ｍ／ｓ。在２６℃时，声速为３４７ｍ／ｓ。假若从接收到光开始计时，到收到雷声信息的时间为Ｔ，那么与雷电发生处的距离为Ｓ＝３４７Ｔ（光的传播时间忽略）。

电路中ＬＥＤ１为光敏二极管，接收闪电光信号。通过调整Ｐ３改变接收灵敏度，并克服环境光的干扰。ＮＥ５５３２的⑦脚接与８０Ｃ２０５１的ＩＮＴ１端，当电平由高变为低时，产生中断，置记数标志位为１，开始脉冲记数。ＨＤ为接收雷声信号，Ｐ４是灵敏度调整，ＮＥ５５３２的①脚接入ＩＮＴ２脚，当电平由高变低时产生中断，置记数标志位为０，停止脉冲计数。定时中断设计为１ｍｓ，用作计时单位。依脉冲计数计算出与雷电相距的距离，并通过ＬＥＤ数码管显示出来。当距雷电发生点距离小于５００米时，从Ｐ３．０脚发出告警信号，引起人们注意。程序用Ｆｒａｎｋｌｉｎ Ｃ５１ Ｖｅｒ３．２编译，清单如下：

＃ｉｎｃｌｕｄｅ＜ｒｅｇ５１．Ｈ＞
＃ｉｎｃｌｕｄｅ＜ｓｔｄｉｏ．Ｈ＞
＃ｉｎｃｌｕｄｅ＜ｍａｔｈ．Ｈ＞
＃ｄｅｆｉｎｅ ＰＩ ３４７
ｂｉｔ ＳＴ；／＊计时启停控制位于＊／
ｓｂｉｔ ｐ３＿１＝Ｐ３ １；ｓｂｉｔ ｐ３＿４＝Ｐ＾３ ４；ｓｂｉｔ ｐ３＿５＝Ｐ ３ ５；ｓｂｉｔ ｐ３＿７＝Ｐ３ ７；／＊定义位＊／
ｕｎｓｉｇｎｅｄ ｉｎｔ ｔｅ，ｔｐ；ｓｂｉｔ ｐ３＿０＝Ｐ３ ０；
ｃｈ＿ａｒ［１０］＝{０ｘｃ０，０ｘｆ９，０ｘａ４，０ｘｂ０，０ｘ９９，０ｘ９２，０ｘ８２，０ｘｆ８，０ｘ８０，０ｘ９８}；／＊０－９＊／
ｖｏｉｄ ｔｉｍｅ＿ｓ（ｕｎｓｉｇｎｅｄ ｉｎｔ ｋ）／＊时间延时＊／
{ｕｎｓｉｇｎｅｄ ｉｎｔ ｋｙ；
ｆｏｒ（ｋｙ＝０；ｋｙ＜＝ｋ；ｋｙ＋＋）{；}
}
ｖｏｉｄ ｂｏｏｔ（ｖｏｉｄ） ／＊初始化子程序＊／
{
ｐ３＿０＝０；
ＥＡ＝１；／＊开所有中断＊／
ＴＬ０＝０ｘ０ｂ；／＊计数器初始值 １ＭＳｋ中断一次＊／
ＴＨ０＝０ｘｆｅ；
ＥＴ０＝１；／＊开定时器０中断＊／
ＥＸ１＝１；／＊开外部中断１＊／
ＥＸ０＝１；
ＩＴ１＝１；／＊设定为低电平触发＊／
ＩＴ０＝１；
ｖｏｉｄ ｚｄ（） ｉｎｔｅｒｒｕｐｔ １ｕｓｉｎｇ ３／＊定时中断，Ｔ０，１ｍｓ＊／
{ 
ｉｆ（ＳＴ＝＝１）{ｔｅ＋＋；}
ＴＬ０＝０ｘ０ｂ；／＊计数器初始值１ＭＳｋ中断一次＊／
ＴＨ０＝０ｘｆｅ；
ＥＴ０＝１；／＊开定时器０中断＊／
}
ｚｄ１（） ｉｎｔｅｒｒｕｐｔ ２ ｕｓｉｎｇ １／＊ＩＮＴ１，下降沿中断＊／
{
ＳＴ＝１；／＊计数标志位置１，开始计时＊／
ＥＸ０＝１；／＊开外部中断１＊／ ＩＴ０＝１；／＊设定为低电平触发＊／
}
ｖｏｉｄ ｚｄ２（） ｉｎｔｅｒｒｕｐｔ ０ ｕｓｉｎｇ ３ ／＊用于操作按键控制ＩＮＴ０，下降沿中断＊／
{
ＳＴ＝０；／＊计时标志位置０，停止计时＊／
ｔｐ＝ｔｅ；ｔｅ＝０；ＥＸ１＝１；／＊开外部中断１＊／ ＩＴ１＝１；／＊设定为低电平触发＊／}
ｖｏｉｄ ｄｉｓｐｌａｙ（ｕｎｓｉｇｎｅｄ ｉｎｔ ｉ）／＊显示驱动单元＊／
{
ｉｎｔ ｘ，ｉ１，ｉ２，ｉ３，ｉ４；
ｉ１＝ｉ％１０； ／＊个位数＊／
ｉ２＝（（ｉ－ｉ１）／１０）％１０；／＊十位数＊／
ｉ３＝（（ｉ－ｉ１－１０＊ｉ２）／１００）％１０；／＊百位数＊／
ｉ４＝（（ｉ－ｉ１－１０＊ｉ２－１００＊３）１０００）％１０；／＊千位数＊／
ｆｏｒ（ｘ＝０；ｘ＜＝３；ｘ＋＋）
{
ｓｗｉｔｃｈ（ｘ）{
ｃａｓｅ ０：Ｐ１＝ｃｈ＿ａｒ［ｉ４］；ｐ３＿７＝ｔｉｍｅ＿ｓ（１０００）；ｂｒｅａｋ；
ｃａｓｅ １：Ｐ１＝ｃｈ＿ａｒ［ｉ３］；ｐ３＿５＝ｔｉｍｅ＿ｓ（１０００）；ｂｒｅａｋ；
ｃａｓｅ ２：Ｐ１＝ｃｈ＿ａｒ［ｉ２］；ｐ３＿４＝ｔｉｍｅ＿ｓ（１０００）；ｂｒｅａｋ；
ｃａｓｅ ３：Ｐ１＝ｃｈ＿ａｒ［ｉ１］；ｐ３＿１＝ｔｉｍｅ＿ｓ（１０００）；ｂｒｅａｋ；
ｄｅｆａｕｌｔ：ｂｒｅａｋ；
}}}
ｖｏｉｄ ｍａｉｎ（）
{ ｕｎｓｉｇｎｅｄ ｌｏｎｇ ｉｎｔ ｚ１；
ｕｎｓｉｇｎｅｄ ｉｎｔ ｚ２；
ｂｏｏｔ（）；
ｓｔａｒ：ｉｆ（ＳＴ＝＝０）
{ｚ１＝ｔｐ＊ＰＩ；
ｚ１＝ｚ１／１０００；
ｚ２＝（ｕｎｓｉｇｎｅｄ ｉｎｔ）ｚ１；
ｉｆ（ｚ２＜＝５００）{ｐ３＿０＝１；／＊声音报警＊／ｔｉｍｅ＿ｓ（５００００）；／＊延时＊／ｐ３＿０＝０；／＊清除＊／}
ｄｉｓｐｌａｙ（ｚ２）；}
ｇｏｔｏ ｓｔａｒ；}