/*---------------------------------------------------------------------*/
/* --- STC MCU International Limited ----------------------------------*/
/* --- STC 1T Series MCU Demo Programme -------------------------------*/
/* --- Mobile: (86)13922805190 ----------------------------------------*/
/* --- Fax: 86-0513-55012956,55012947,55012969 ------------------------*/
/* --- Tel: 86-0513-55012928,55012929,55012966 ------------------------*/
/* --- Web: www.GXWMCU.com --------------------------------------------*/
/* 如果要在程序中使用此代码,请在程序中注明使用了宏晶科技的资料及程序 */
/*---------------------------------------------------------------------*/
/************* 功能说明 **************
本文件为STC15xxx系列的延时程序,用户几乎可以不修改这个程序.
******************************************/
#include "delay.h"
//========================================================================
// 函数: void delay_ms(unsigned char ms)
// 描述: 延时函数。
// 参数: ms,要延时的ms数, 这里只支持1~255ms. 自动适应主时钟.
// 返回: none.
// 版本: VER1.0
// 日期: 2013-4-1
// 备注:
//========================================================================
void delay_ms(unsigned char ms)
{
unsigned int i;
do{
i = MAIN_Fosc / 13000;
while(--i) ; //14T per loop
}while(--ms);
}
2021-04-10 14:46:52
1KB
1
STC15系列万能delay延时。为了方便51单片机在不同晶振频率下，延时函数能正常使用而打包的延时函数。改变频率后只需改变一下宏定义即可。
delay.h
#ifndef _DELAY_H
#define _DELAY_H
//注意时钟频率设置正确
//------------------------------------------
//晶振
#define xtal_0 5529600L //05.5290MHz
#define xtal_1 6000000L //06.0000MHz
#define xtal_2 8000000L //08.0000MHz
#define xtal_3 11059200L //11.0592MHz
#define xtal_4 12000000L //12.0000MHz
#define xtal_5 18432000L //18.4320MHz
#define xtal_6 22118400L //22.1184MHz
#define xtal_7 24000000L //24.0000MHz
#define xtal_8 27000000L //27.0000MHz
#define xtal_9 30000000L //30.0000MHz
#define xtal_10 33000000L //33.0000MHz
#define xtal_11 33177600L //33.1776MHz
//-----------------------------------------
//时钟配置
#define OSC xtal_3 //晶振频率
void delay_us(unsigned int _us); //1us
void delay_50us(unsigned int _50us);//50us
void delay_ms(unsigned int _ms); //1ms
void _1ms();
void _50us();
void _1us();
#endif
2021-04-10 14:08:07
2KB
1
procedure delay(msecs:integer);
var
Tick: DWord;
Event: THandle;
begin
Event := CreateEvent(nil, False, False, nil);
try
Tick := GetTickCount + DWord(msecs);
while (msecs > 0) and (MsgWaitForMultipleObjects(1, Event, False, msecs, QS_ALLINPUT) WAIT_TIMEOUT) do
begin
Appl
2021-01-28 02:18:54
1KB
1