at89s8252isp1.docx
《at89s8252isp1.docx》由会员分享，可在线阅读，更多相关《at89s8252isp1.docx（17页珍藏版）》请在冰豆网上搜索。
at89s8252isp1
MCS51单片机开发工具DIY
摘要：
本文详细介绍了利用AT89S8252单片机的在系统编程功能，用VisualBasic6.0（以下简称VB）在Windows环境下开发制作一款MCS51单片开发工具的方法。
内容涉及VB编程、PC机并口控制及单片机在系统编程等内容。
关键词：
VB编程AT89S8252在系统编程DIY
目前介绍单片机应用的文章很多，但介绍单片机开发工具制作的文章却较少。
由于单片机是一门实践性很强的课程，所以单片机爱好者（尤其是初学者）往往更希望看到单片机开发工具制作方面的文章。
本文正是因此而作，旨在帮那些DIY爱好者开发制作出适合自己的开发工具。
一、当前常用开发模式介绍
目前基本上有两种开发模式：
1，用仿真器优点：
方便，可以设置断点，可以观察存贮器及寄存器的内容
缺点：
价格昂贵，且仿真器终究不是单片机，有时代码在仿真器上能通过，但在单片机中不能正常工作，反而增加了调试的难度。
2，用编程器优点：
价格相对便宜，通常一款编程器可编多种器件。
缺点：
操作相当不便，每次要将芯片在目标板与编程器之间转移，并且还要在编译操作界面与编程器操作界面之间切换，大部份时间在做简单的重复的工作。
二、一种新的开发模式介绍及芯片选择
本文介绍的开发工具采用一种新的开发模式（类似于编程器开发模式）。
由于利用了芯片的在系统编程功能，因此不需要移动芯片，在软件设计时设计成一旦代码文件被重新编过即自动下载到芯片并自动复位运行，真正的“所编即所得”。
目前很多单片机都支持在系统编程，MCS51系列单片机支持在系统编程的也很多，但大多数是支持通过PC机的串口对单片机进行编程。
这样有三个不方便的地方：
一是如果项目本身要与PC机串行通讯就不方便；二是要增加一片MAX232电平转换芯片；三是有的芯片要按特定的步骤进入下载模式，编程过程需要手工干预。
经过比较，Atmel公司生产的AT89S8252是一种比较理想的芯片，适合我们用来制作开发工具。
此芯片有如下特点：
●与MCS51兼容
●内含8K可擦写千次的程序存贮器，2K超过万次的数据存贮器及256字节8位宽内部RAM
●可通过SPI接口在系统串行编程，与MCS51兼容
●串行编程时有自动擦写周期，在调试大程序时可以分段下载，节约时间
●低电压下载，无需12V编程电压
三、AT89S8252串行编程介绍
1、AT89S8252串行编程模式介绍
当芯片的RST引脚置高电平时，所有程序和数据存贮器可以通过SPI总线接口[SCK，MOSI（input），MISO（output）]编程。
RST变高以后，在编程或擦除操作之前必须首先发送一条编程允许命令。
在串行编程模式下，芯片会在字节编程之前自动插入一个擦除周期。
因此，除非芯片的代码保护位被编程，编程之前不需要执行全片擦除命令。
SPI接口之SCK时钟频率须低于晶振频率的1/40。
2、AT89S8252串行编程步骤
a）在XTAL1与XTAL2之间连接一个3-24MHz的晶振，在VCC与GND之前加上电源电压，将RST置高，等待10ms。
b）发送串行编程允许命令
c）发送写/读/擦除等命令及数据，串行数据高位在前，低位在后，数据在时钟的上升沿锁定
d）如果上一步是写命令等待至少2.5ms
e）需要时重复C，D两步
f）将RST置低，芯片开始运行
3、AT89S8252串行编程命令介绍
命令
输入格式
功能说明
Byte1
Byte2
Byte3
编程允许
10101100
01010011
xxxxxxxx
在RST变高后允许串行编程
全片擦除
10101100
xxxxx100
xxxxxxxx
程序和数据存贮器全部擦除
读程序存贮器
aaaaa001
地址低8位
xxxxxxxx
读程序存贮器，a为高5位地址
写程序存贮器
aaaaa010
地址低8位
8位数据
写程序存贮器，a为高5位地址
读数据存贮器
00aaa101
地址低8位
xxxxxxxx
读数据存贮器，a为高3位地址
写数据存贮器
00aaa110
地址低8位
8位数据
写数据存贮器，a为高3位地址
写锁定位
10101100
123xx111
xxxxxxxx
写锁定位，123分别为LB1，2，3，将相应位置0则锁定该位
4、
AT89S8252串行编程时序图
四、硬件设计：
a）通过计算机并口与单片机SPI口连接
b）为了保护计算机并口，增加一片74HC244作为隔离
实用的原理图如下<已经过实践检验，放心使用>：
（原理图文件为mcu51diy.sch）
五、用VB编程进行并口控制介绍
打印端口的基地址一般为0x278，0x378或0x3BC，这可以从控制面板中查到。
为了方便读者，下面以表格形式列出常用打印端口脚位及寄存器位元说明。
硬件脚位
地址及位元
说明
本例中作用
2
基地址第0位
数据位0
未用
3
基地址第1位
数据位1
未用
4
基地址第2位
数据位2
RST、MISO控制位
5
基地址第3位
数据位3
SCK、MOSI控制位
6
基地址第4位
数据位4
SCK
7
基地址第5位
数据位5
MOSI
8
基地址第6位
数据位6
未用
9
基地址第7位
数据位7
RST
10
基地址+1第6位
0=认可信号
MISO
11
基地址+1第7位
0=忙碌
未用
12
基地址+1第5位
1=纸张用完
未用
18-25
地
地
在Windows环境下最简单易学的语言恐怕非VB莫属，所以我们的开发工具也选用VB作为编程语言。
但由于Windows的保护，VB无法直接读写打印端口，因此我们需要另外的程序模块来实现打印端口的的直接读写。
在Internet网上可以找到许多的此类模块，并且相当多的模块可以免费使用。
经过试用，笔者推荐使用Winiov2.0，该模块支持Win9X/NT/2000/XP（YarivKaplan），并且带有详细的帮助、例子程序及源码。
使用时将Winio.sys、Winio.dll、Winio.vxd及Winio.bas四个文件拷贝到工作目录下，在VB中直接添加Winio.bas模块即可。
本例中用到的函数有四个，分别说明如下：
1、Initialize（）:
允许端口控制函数，在使用端口输入输出函数之前调用一次，成功返回“1”，失败返回“0”，
2、Shutdown（）:
关闭端口控制函数，在退出程序时执行一次，成功返回“1”，失败返回“0”，
3、GetPortVal（ByValPortAddrAsInteger,ByRefPortvalAsLong,ByValbSizeAsByte）AsBoolean：
读取端口函数，PortAddr为端口地址，Portval为端口值，bSize为要读取的字节数，读取成功返回“1”，失败返回“0”，
4、SetPortVal（ByValPortAddrAsInteger,ByValPortvalAsLong,ByValbSizeAsByte）AsBoolean：
写端口函数，PortAddr为端口地址，Portval为要写的值，bSize为要写入的字节数，写入成功返回“1”，失败返回“0”，
四个函数在Winio.bas模块中的声明如下：
DeclareFunctionInitializeWinIoLib"WinIo.dll"（）AsBoolean
DeclareFunctionShutdownWinIoLib"WinIo.dll"（）AsBoolean
DeclareFunctionGetPortValLib"WinIo.dll"（ByValPortAddrAsInteger,ByRefPortvalAsLong,ByValbSizeAsByte）AsBoolean
DeclareFunctionSetPortValLib"WinIo.dll"（ByValPortAddrAsInteger,ByValPortvalAsLong,ByValbSizeAsByte）AsBoolean
六、InterHEX格式文件介绍
由于一般的编译软件产生的用于写入芯片的文件都是InterHEX格式的文件，InterHEX文件属于文本文件，可以用记事本查看，一个InterHEX文件的一行称为一个记录，每个记录都是由16进制字符组成的，两个字符表示一个字节的值，InterHEX文件通常由若干条记录组成，每个记录都具有如下的形式：
：
LLAAAATTDD…DDCC“：
”-是记录的起始标志
LL-记录长度，表示该记录中的数据字节数AAAA-数据装入的首地址（16位）
TT-记录类型，00表示数据记录，01表示文件结束，（注意：
有的编译软件会产生大于01的记录类型，本应用中对大于01记录类型的记录忽略掉即可）
DD-数据值（字节）
CC-校验和（将其本身与记录中除起始标志外的所有字节相加应为0，不为0则有错）
七、VB编程详细说明（由于各子程序的流程都较简单，所以直接给出源码而并未画出流程图，程序采用由底至顶的设计方法）：
1，为了使用方便，我们分别写一个方便易记的输入函数及输出子程序，并且由于在很多情况下都要用到延时指令，所以我们也要写一个延时子程序（延时子程序调用WinAPI,有关方面的内容请读者参阅MSDN，此处不进行详细介绍）。
首先在“我的文档”内新建一个名为MCS51的文件夹，将Winio.sys、Winio.dll、Winio.vxd及Winio.bas拷贝到MCS51文件夹。
启动VB6，新建一标准EXE工程。
将工程保存在MCS51文件夹中，文件名为MCS51.vbp。
在“工程”菜单中单击“添加模块”将Winio.bas添加到MCS51工程中。
把模块中与本例无关的函数声明删除，增添延时子程序及输入输出处理代码。
完成后的Winio.bas代码如下：
OptionExplicit
DimResultAsBoolean
DimPortvalAsLong
DeclareFunctionGetPortValLib"WinIo.dll"（ByValPortAddrAsInteger,ByRefPortvalAsLong,ByValbSizeAsByte）AsBoolean
DeclareFunctionSetPortValLib"WinIo.dll"（ByValPortAddrAsInteger,ByValPortvalAsLong,ByValbSizeAsByte）AsBoolean
DeclareFunctionInitializeWinIoLib"WinIo.dll"（）AsBoolean
DeclareFunctionShutdownWinIoLib"WinIo.dll"（）AsBoolean
PublicDeclareFunctionGetTickCountLib"kernel32"（）AsLong
'延时TTms子程序
SubTimeDelay（TTAsLong）
DimtAsLong
t=GetTickCount（）
Do
DoEvents
IfGetTickCount-t<0Thent=GetTickCount
LoopUntilGetTickCount-t>=TT
EndSub
'将DataOut输出到地址为Address的端口子程序
PublicSubDIO_OutputByte（ByValAddressAsInteger,ByValDataOutAsInteger）
Portval=DataOut
Result=SetPortVal（Address,Portval,1）
EndSub
'返回地址为Address的端口的值
PublicFunctionDIO_InputByte（ByValAddressAsInteger）AsInteger
Result=GetPortVal（Address,Portval,1）
DIO_InputByte=Portval
EndFunction
2，在窗体上放置控件并设置控件的相关属性如下图及表所示：
名称
Caption
说明或其它
WriteS
写保密位
LB1
LB1
第一位保密位
LB2
LB2
第二位保密位
LB3
LB3
第三位保密位
OpenFile
打开文件
打开HEX文件
Prog
下载代码
Veri
校验代码
Eras
全片擦除
Exit
退出
Text1
此框用于保存文件名
Text2
此框用于显示相关信息
Timer1
Interval=500
用于定时检测文件是否更新
CommonDialog1
公用对话框控件（需从部件菜单项添加comdlg32.ocx控件）
3，首先编定程序起动及退出的相关代码，起动时将Timer1关闭，在Text1及Text2中显示相关提示信息，并加入允许端口操作命令，退出时发出关闭端口操作命令。
双击窗体空白处，在出现的代码窗中输入如下代码：
PrivateSubForm_Load（）
IfInitializeWinIo=FalseThen
MsgBox"错误，无法开启端口！
"
End
EndIf
Timer1.Enabled=False
Text1.Text="*.HEX"
Text2.Text="请选择目标文件！
"
Beep
EndSub
双击“退出“按钮，在出现的代码窗中输入如下代码：
PrivateSubExit_Click（）
CallShutdownWinIo
End
EndSub
另外，为了使用方便，在代码窗的“通用”区定义打印端口基地址常数及定义一个存贮文件更新时间的变量；由于每个人的计算机配置不一样，对于快速的计算机可能需要延时同步，所以设置一个Delay延时常数。
具体代码如下：
Constptraddress=&H378‘此数值应根据机器的实际值填写
ConstDelay=2’当你的机器太快时加大此数值
Dimfile_date‘用于存贮文件更新时间
4，接下来我们要创建一个最基本的子程序，即字节输出子程序：
形式：
outbyte（dataAsInteger）
功能：
将一字节数据写入指定的单片机程序存贮器地址中，高位在前
入口：
字节数据data
PrivateSuboutbyte（dataAsInteger）'输出字节
DimDelayAsInteger
DimiAsInteger
Forcon=7To0Step-1
DIO_OutputByteptraddress,2^7'输出时钟低电平，RST高
Fori=1ToDelay‘延时
Nexti
If（dataAnd2^con）=2^conThen'如果数据位为1则输出1
DIO_OutputByteptraddress,（2^7+2^5）
Fori=1ToDelay
Nexti
DIO_OutputByteptraddress,（2^7+2^5+2^4）'输出时钟高电平
Fori=1ToDelay
Nexti
DIO_OutputByteptraddress,（2^7+2^5）'输出时钟低电平
Else
DIO_OutputByteptraddress,2^7'如果数据位为0则输出0
Fori=1ToDelay
Nexti
DIO_OutputByteptraddress,（2^7+2^4）'输出时钟高电平
Fori=1ToDelay
Nexti
DIO_OutputByteptraddress,2^7'输出时钟低电平
EndIf
Fori=1ToDelay
Nexti
Nextcon
EndSub
5，根据字节输出子程序构建程序存贮器字节写入子程序
形式：
w_c_b（codeaddressAsInteger,codedataAsInteger）
功能：
将数据codedata写入单片机程序存贮器codeaddress地址
入口：
codeaddress-程序存贮器地址
codedata-数据
<此子程序兼容了AT89S53芯片的写入>
PrivateSubw_c_b（codeaddressAsInteger,codedataAsInteger）'写代码字节
outbyte（（（codeaddressAnd&HFF00）/（2^8）*8）And&HF8Or2Or（（codeaddressAnd&H2000）/（2^11）））'合并命令与高地址字节
outbyte（codeaddressAnd&HFF）
outbytecodedata
EndSub
6，构建读单片机程序存贮器数据函数
形式：
r_c（codeaddressAsInteger）AsInteger
功能：
返回单片机存器贮器地址codeaddress处的数据
入口：
codeaddress-程序存贮器地址
出口：
r_c返回值
PrivateFunctionr_c（codeaddressAsInteger）AsInteger'读代码字节
DimiAsInteger
Dimcon1AsInteger
DimXAsInteger
X=0
outbyte（（（codeaddressAnd&HFF00）/（2^8）*8）And&HF8Or1Or（（codeaddressAnd&H2000）/（2^11）））'合并命令与高地址字节
outbyte（codeaddressAnd&HFF）
Forcon1=7To0Step-1
DIO_OutputByteptraddress,2^7'输出时钟低电平，RST高
Fori=1ToDelay
Nexti
DIO_OutputByteptraddress,（2^7+2^4）'输出时钟高电平，RST高
Fori=1ToDelay
Nexti
If（DIO_InputByte（ptraddress+1））And&H40Then'采集数据
X=X+2^con1
EndIf
Fori=1ToDelay
Nexti
DIO_OutputByteptraddress,2^7'输出时钟低电平
Nextcon1
r_c=X
EndFunction
7，双击“打开文件”按钮，键入下述代码（获取目标文件的路径及文件名并保存到Text1文本框中）。
PrivateSubOpenFile_Click（）'打开文件按钮
OnErrorGoToerrhandler
CommonDialog1.Filter="*.HEX|*.hex"
CommonDialog1.FilterIndex=2
CommonDialog1.ShowOpen
IfCommonDialog1.FileName<>""Then
Text1.Text=CommonDialog1.FileName
EndIf
errhandler:
EndSub
8，由于在进行任何操作之前都要发送允许编程命令，因此构建一个允许编程子程序。
功能：
打开74HC244并发出允许编程命令，使芯片进入编程状态
PrivateSubStartProg（）'发送串行编程命令
DIO_OutputByteptraddress,0'打开74hc244，点亮编程指示灯
TimeDelay（20）
DIO_OutputByteptraddress,2^7'设置RST为高
TimeDelay（20）
outbyte&HAC
outbyte&H53
outbyte&H53
EndSub
9，根据上面所构建的子程序及函数，可以编写出下载文件子程序的代码了。
双击“下载代码”按钮，在代码窗中键入如下代码。
PrivateSubProg_Click（）
ii=0
oo=0
IfText1.Text="*.hex"OrText1.Text=""Then
Text2.Text="未选择文件或文件不存在，请重新选择目标文件！
"
GoToerr
EndIf
FileNumber=FreeFile
OpenText1.TextForInputAsFileNumber
StartProg
DoWhileNotEOF（FileNumber）
LineInput#FileNumber,inbuf
IfLeft$（inbuf,1）<>":
"Then
Text2.Text="非Inter格式Hex文件，请重新择！
”
GoToerr
EndIf
DimiAsInteger
DimoAsInteger
o=0
Fori=2ToVal（"&h"+Mid$（inbuf,2,2）+5）*2Step2'检查文件
o=（o+Val（"&h"+Mid$（inbuf,i,2）））And&HFF
Nexti
Ifo<>0Then
Text2.Text="文件检查未通过，请重新编译文件！
"
GoToerr
EndIf
'-------------------------------------------
IfVal（"&h"+Mid$（inbuf,8,2））>1Then
GoToNEXT_LOOP
EndIf
'--------------------------------------------
IfVal（"&h"+Mid$（inbuf,2,2））<>
升级会员 