//本程序使用Trubo51(3359Turbo51.com/)单片机PASCAL编译器//本程序控制蜂鸣器的发音,CPU电路图见实例1//蜂鸣器电路图见代码后//用户延迟; //请参阅延迟函数单元var FM:Boolean absolute P0.7 const BEEP_ON=FALSE; //在低水平下发出蜂鸣器的BEEP_OFF=TRUE; //高电平观测器begin FM:=BEEP_OFF; wiletruedoBeginDelayms(500; FM:=NOT FM; 结束; 结尾。