本帖最后由 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,请他也发上来