8051外设全自动配置 (有源码的哟)

2020-02-04 09:13发布

本帖最后由 clkyui 于 2012-4-8 15:50 编辑

虽然8051及delphi已是昨日黄花,不过Delphi真的很优秀,8051用的人还很多。
在"ouravr"混了几年,莫元还是个位数,呵呵,有点不好意思。现在发个帖: 用Delphi写的8051外设 自动配置程序
是大家最喜欢的(带源码),大家可以根据自己的习惯,做出最得心应手的工具,
使用很简单: 在目标文件夹(例如: d:work)复制文件INC52.exe和INTERRUP.INC
解析下 INTERRUP.INC
#define Project_Name  line       //  专案名称(line) 如果是abc123 就改为#define Project_Name abc123
#define CPU           8032      
//CPU类型 一般是8032系列(有256字节内存,有T2) ,如果是8031类型(例如at89c51)  就改为#define CPU   8031
#define Crystal       12  //晶振频率: 12Mhz
#define MachineCycle  12  //机器周期 12T 如果STC11F 改为 #define MachineCycle 1

#define Uses_T0       1   //使用定时器T0 为1 ,不使用: #define Uses_T0   0
#define Timer0        50  //定时器T0定时时间 50 us(微秒)
#define Timer0_Manual 0   //定时器T0手动装载定时值(TL0,TH0)
#define T0_Priority   0   ////定时器T0中断优先

...  以下的就不用我啰嗦了

如果 CPU类型是8032  使用了Uart(#define Uses_Uart 1) 没有使用T2(#define Uses_T2 0),程序优先使用T2作为Uart的波特率发生器
否则使用T1,如果T1,T2,Uart都使用的话,那不用我废话了,只能错误侍候

后话: 这个程序已经是8年前的概念了,而且我只实现了8031,8032,还有其他的CPU大家可以一一实现,有赖Delphi完美的
物件导向支持,实现过程不用从头做起,哎发帖不容易, 有2个愿望(是不是有点贪心?) 1有个裤子,
2要是大家实现了其他CPU,请他也发上来

友情提示: 此问题已得到解决,问题已经关闭,关闭后问题禁止继续编辑,回答。