電子發燒友App
1． 實例目的：
本實例完全建立在計算機軟件的基礎上，利用PROTEUS軟件構建一個單片機系統，利用VB編寫一個計算機控制軟件和單片機系統串行通信，計算機上的控制軟件可以發送一個值在0——999之間的數，在單片機系統上顯示出來，單片機系統上也可輸入一個相同值域的數并在計算機控制軟件上顯示出來。本實例主要是為了展示虛擬串行通信的仿真。
2． 系統配置
本實例雖然簡單，但是要想看到想要的仿真結果，建立虛擬的串口連接是必不可少的。要想仿真串行通信，必須要把單片機系統上的串行口與計算機上的串行口連接，這樣他們之間才能傳輸數據，但由于是仿真，實際沒有相連接，所以需要創建一對虛擬串行口并使他們相連，這里我使用的是這個軟件Virtual Serial Ports Driver XP 5.1（VSPD XP），打開后的界面如圖1所示。在右面“ADD PAIR”按鈕的旁邊的下拉選項中一個選擇“COM3”，一個選擇
“COM4”，然后點擊“ADD PAIR”按鈕，這樣就完成了虛擬串口“COM3”和“COM4”的連接，完成后如圖1所示。簡單吧？！
另外，你還要選擇一個串口調試軟件作為你的調試軟件，因為當你單片機系統弄完以后而計算機上的控制軟件還沒有編時，沒有串口調試軟件的話，你就沒法知道你單片機系統正確與否。這種軟件網上多如牛毛，隨便找一個。我的軟件為SSCOM32，界面如圖2所示。
功能與用法這里就不一一介紹了，反正既能接收又能發送，實例需要的功能他都可以調試。
3．單片機系統
單片機硬件：
電路如圖3所示。
本實例采用的單片機依然是PIC16F877，他含有UASRT模塊，有了它才能進行串行通信。顯示部分采用3位數碼管共陽輸出。鍵盤采用矩陣鍵盤。這里需要特別說明的是，由于是仿真，沒有采用電平轉換芯片MAX232將TTL電平轉換成RS232的電平，實際這一步是必需的。串行口的設置需要特別注意，由于本實例單片機程序中設置的波特率是9600，8位數據，無奇偶校驗，所以串行口也要一樣設置，這里由于建立的是“COM3”“COM4”之間的虛擬連接，端口號一定要設置成“COM3”或“COM4”，這是關鍵！如圖4所示。
單片機軟件：
單片機軟件主要由以下幾個部分組成：初始化程序，顯示程序，鍵盤輸入程序，串行接收程序，串行發送程序。
程序采用C語言，簡單明了，經過PICC編譯通過。
全部程序如下：
/************************************************************
* 標題：PCtoPIC *
* 用途：用于上位機與單片機之間的通訊（本例為下位機軟件） *
* 時間：2009年1月4日 *
* 作者：WUJIEFLASH *
************************************************************/
#include
//預定義
#define uch unsigned char
//顯示用碼表
const uch shu［］={0xc0，0xf9，0xa4，0xb0，0x99，0x92，0x82，0xf8，0x80，0x98，0xff};
//變量
int data，temp1，temp2，temp3，temp;
uch flag，keylock;
uch point，buffer［3］;
//初始化
void init（）
{
TRISB=0;
PORTB=0;
TRISC=0;
PORTC=0;
keylock=1;//初始化鍵盤按鍵標志位，用于鎖定按鍵
//USART部件初始化
SPBRG=0x19;//設置波特率為9600bps
TXSTA=0x04;//選擇異步高速8位數據傳輸模式
RCSTA=0x80;//允許串行端口工作
TRISC=0x80;//設置為高阻態，防止干擾
TXEN=1;//發送允許
CREN=1;//接收允許
PEIE=1; //開放外設中斷
RCIE=1; //開放串行口中斷
ei（）; //開放總中斷
}
//顯示需要的延時
void delay（）
{
int i;
for（i=0;i《1000;i++）;
}
//發送子程序
void send_usart（）
{
uch i;
for（i=0;i《3;i++）//每次發3個數據
{
if（i==0）TXREG=data/100+0x30;//求得百位
if（i==1）TXREG=data%100/10+0x30; //求得十位
if（i==2）TXREG=data%10+0x30; //求得個位
while（1）
{
if（TXIF==1）break;//等待發送完成
}
}
}
//中斷接收子程序
void interrupt receive（void）
{
if（point《3）//是否已經接收到3個數據
buffer［point++］=RCREG-48;//沒有，繼續接收
else point=0;//是，指針復位
data=buffer［0］*100+buffer［1］*10+buffer［2］;//組合成三位數
}
//數碼管顯示
void display（int dis_data）
{
int dis_data_ge，dis_data_shi，dis_data_bai;
dis_data_ge =dis_data%10;//個位
dis_data_shi=dis_data%100/10;//十位
dis_data_bai=dis_data/100; //百位
if（dis_data==0）//若數據為0，只顯示1位
{
dis_data_ge=0;
dis_data_shi=10;
dis_data_bai=10;
}
if（dis_data《10）//若數據小于10，則十位與百位關閉顯示
{
dis_data_shi=10;
dis_data_bai=10;
}
if（dis_data《100）//若數據小于100，則只顯示兩位
{
dis_data_bai=10;
}
RC0=0;
RC1=0;
RC2=1;
PORTB=shu［dis_data_ge］;//個位送顯
delay（）;
RC0=0;
RC2=0;
RC1=1;
PORTB=shu［dis_data_shi］;//十位送顯
delay（）;
RC1=0;
RC2=0;
RC0=1;
PORTB=shu［dis_data_bai］;//百位送顯
delay（）;
}
//鍵盤（線反轉法）
void presskey（）
{
uch line，column，key;
TRISD=0x07;
PORTD=0xf0;
column=PORTD & 0x07;//取列碼
TRISD=0xf0;
PORTD=0x0f;
line=PORTD&0xf0;//取行碼
key=line|column;//合成鍵值
if（key==0）keylock=0;//保證每次只按一次鍵
if（keylock==0）
{
if（key！=0）keylock=1;
switch（key）//查找鍵值
{
case 0x11:temp=3;flag++;break;
case 0x12:temp=2;flag++;break;
case 0x14:temp=1;flag++;break;
case 0x21:temp=4;flag++;break;
case 0x22:temp=5;flag++;break;
case 0x24:temp=6;flag++;break;
case 0x41:temp=9;flag++;break;
case 0x42:temp=8;flag++;break;
case 0x44:temp=7;flag++;break;
case 0x82:temp=0;flag++;break;
case 0x81:flag=4;send_usart（）;break;//發送
case 0x84:flag=0;data=0;break;//清零鍵
}
}
if（flag==1）//第一次按鍵
{
if（temp==0）flag=0;//若按0，則忽略
temp1=temp;
data=temp1;
}
if（flag==2）//第二次按鍵
{
temp2=temp;
data=temp1*10+temp2;//原來的個位變成十位
}
if（flag==3）//第三次按鍵
{
temp3=temp;
data=temp1*100+temp2*10+temp3;//原來的十位變成百位
flag=4;//屏蔽按鍵
}
}
//主程序
main（）
{
init（）;
while（1）
{
presskey（）;
display（data）;
}
}
4． 計算機控制軟件
上位機軟件是用VB編寫的，功能很簡單，主要有發送和接收兩個功能。軟件的界面如圖5所示。
軟件主要有2個“TextBox”，3個按鈕，和一些文本控件組成。
現把所有程序都貼出來：
Private Sub Cmdquit_Click（）
i = MsgBox（“您要離開嗎？”， vbQuestion Or vbYesNo， “溫馨提示”）
If i = 6 Then
Shell “explorer.exe http://blog.163.com/wujieflash”
End
End If
End Sub
Private Sub Cmdsend_Click（）
If Len（Text1.Text） = 1 Then MSComm1.Output = “0” + “0” + Text1.Text ‘不滿3位補足3位再發送
If Len（Text1.Text） = 2 Then MSComm1.Output = “0” + Text1.Text
If Len（Text1.Text） = 3 Then MSComm1.Output = Text1.Text
End Sub
Private Sub cmdzero_Click（）
Text2.Text = “”
Text1.Text = “”
End Sub
Private Sub Form_Load（）
MSComm1.Settings = “9600，n，8，1” ’設置數據傳輸率和發送字符格式
MSComm1.CommPort = 4 ‘設置通訊串口為4
MSComm1.InputLen = 0 ’設置或返回一次從接受緩沖器中讀取所有字節數
MSComm1.InBufferSize = 512 ‘設置接收緩沖區512BYTE
MSComm1.InBufferCount = 0
MSComm1.OutBufferSize = 512 ’設置發送緩沖區512BYTE
MSComm1.OutBufferCount = 0
MSComm1.RThreshold = 3 ‘每3個字符到接收緩沖區都觸發接收事件
MSComm1.SThreshold = 1
MSComm1.PortOpen = True
End Sub
Private Sub Label6_Click（）
Shell “explorer.exe http://blog.163.com/wujieflash” ’我博客的超連接，多多捧場
End Sub
Private Sub MSComm1_OnComm（）
Text2.Text = MSComm1.Input
End Sub
Private Sub Text1_KeyPress（KeyAscii As Integer）
If KeyAscii 《 Asc（“0”） Or KeyAscii 》 Asc（“9”） Then
KeyAscii = 0
MsgBox （“請輸入數字字符！”）
End If
End Sub
軟件是簡單了點，但功能卻齊全的。
5． 總結
這次搞得這個實例仿真的確有點麻煩，不過的確能了解很多關于這串行通信方面的知識，經過自己親自動手實現，感覺也是蠻不錯的。我想大多和我一樣的菜鳥或正在找尋這方面資料的朋友一定會獲益非淺的。
工商網監
評論