89c51

里面包括很多的驱动程序的

大家好，我的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机通讯   //
//                     //
// 作者：[e-mail] //  
//                     //
//*********************//
#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