大家好，我的89c51與PC機的通訊程序....(簡化版) [gphjp] [137次] 01-4-22 下午 11:30:19
如下只是簡單結構，有興趣的朋友可與我再聯系！

1、VB端程序
加入 Microsoft Comm Control 6.0，并在Form中建send按鈕及text1文本框.

Private Sub Send_Click()
MSComm1.Output = Trim(Text1.Text)
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 2
MSComm1.Settings = "2400,n,8,1"
MSComm1.PortOpen = True
MSComm1.RThreshold = 1
End Sub

2、單片機程序

//*********************//
//   89C51與PC機通訊   //
//                     //
// 作者：gphjp@371.net //  
//                     //
//*********************//
#include <reg51.h>
#define uchar unsigned char
#define uint  unsigned int
sbit dog1  =P3^6;

int pointer;

void dog()
{ dog1=0;
  dog1=1;
}

void serial() interrupt 4
{ uchar temp1;
  RI=0;
  temp1=SBUF;
  comdata[pointer++]=temp1;
  .........
}
main()
{SCON=0x50;
 TMOD=0x20;
 TH1=0x0f3;
 TL1=0x0f3;
 EA=1;
 ES=1;
 TR1=1;
 k485=0;
 k232=1;
 pointer=0;
 while(1)dog();
 }


雕蟲小技也。 [oliver] [7次] 01-4-23 上午 09:26:41 

再開幾個通道如何 [花開花落僧貧富，云去云來客往還] [7次] 01-4-23 下午 06:27:19 

 
點擊這里回復這篇貼子>>
_____________________________________________________________________________
Copyright?，C51BBS論壇 2000-2001