資源描述：
《超聲波測距儀源程序》由會員上傳分享，免費在線閱讀，更多相關內容在工程資料-天天文庫。
1、以下是ZY1420語音模塊的錄音源程序清單：/*******************************************************************ZY1420語音模塊的錄音程序錄音方法：開始工作后，按下K1鍵，根據設定的錄音地址和時間開始錄音。放下K1鍵，本次錄音結束。再按下K1鍵，開始下次錄音。錄音順序按預先設定的，用P1來送地址********************************************************************地址：0x
2、000x060x0c0x120x18ox24ox2a0x300x360x3c0x42ox48內容：123456789十點米時間：0.5s********************************************************************地址：0x4e0x660x7e0x96內容：危險距離保持距離安全距離本次測量的距離為時間：2s2s2s2s*******************************************************************/
3、#include#include#defineucharunsignedchar#defineuintunsignedintsbitREC=P2^4;//錄音控制sbitPLAYE=P3^0;//控制觸發(fā)錄音sbitPLAYE=P3^1;//控制電平放音sbitY=P2^3;//K1鍵externunsignedlongintdistance;ucharaddr;uintt;/**********************延時函數.延時為N*100ms*************
4、*********/voiddelay(uintn)reentrant{uintt1,i,j;for(t1=1;t1<=n;t1++){for(i=1;i<=235;i++)for(j=1;j<=60;j++);}}/********************播放函數1*****************************/voidpaly(){delay(1);PLAYL=1;P1=addr;//播放起始地址為addr的內容。PLAYL=0;//PLAYL低電平放音。delay(t);//延時t*100m
5、s。PLAYL=1;}/**************************查地址和時間函數***********************/voidfind(uintn){switch(n){case1:{addr=0x00;t=5;}break;//"1"case2:{addr=0x06;t=5;}break;//"2"case3:{addr=0x0c;t=5;}break;//"3"case4:{addr=0x12;t=5;}break;//"4"case5:{addr=0x18;t=5;}break;/
6、/"5"case6:{addr=0x1e;t=5;}break;//"6"case7:{addr=0x24;t=5;}break;//"7"case8:{addr=0x2a;t=5;}break;//"8"case9:{addr=0x30;t=5;}break;//"9"case0:{addr=0x36;t=5;}break;//"0"case11:{addr=0x3c;t=5;}break;//"十"case12:{addr=0x42;t=5;}break;//"點"case13:{addr=0x48;t=
7、5;}break;//"米"case14:{addr=0x4e;t=20;}break;//"危險距離"case15:{addr=0x66;t=20;}break;//"保持距離"case16:{addr=0x7e;t=20;}break;//"安全距離"case17:{addr=0x96;t=20;}break;//"測量結果為"default:{addr=0x00;t=00;};}}/****************************主函數***************************/vo
8、idspeaker(void)reentrant{uchara[5]={0,0,0,0,0};//設定待播放的數值。find(17);//放"測量結果為"play();a[0]=distance/1000;//將數據寫入。a[1]=(distance%1000)/100;a[2]=(distance%100)10;a[3]=distance%10;while(1)//放第一個數字。{if(a[0]=
