mcs51_pc.c

MCS与51通讯的程序,PC侧采用VB6.0。

与PC通过串口通讯的程序：
单片机侧：
#include<reg52.h>
#include <stdio.h>
#define uchar unsigned char
main()
{
uchar temp;
TMOD=0x20;
PCON=0x80;
TL1=0xFD;
TH1=0xFD;
TR1=1;
SCON=0x50;
   while(1)
     {
     /*for(temp=0;temp<6;temp++)
        {*/
        while(RI==0);RI=0;
        temp=SBUF;
       /* }
        for(temp=0;temp<6;temp++)
        {*/
        SBUF=temp;
        while(TI==0);TI=0;
       /* printf("function\n"); */
     }
      }
微机侧，用VB6编制：
Private Sub cmdcomm_Click()
Dim senddat(5) As Byte, rcvdat() As Byte, dattemp As Variant, i As Integer
cmdcomm.Enabled = False
For i = 0 To 5
senddat(i) = "&H" & Mid(txtsend.Text, i * 2 + 1, 2)
Next i
MSComm1.CommPort = 1
MSComm1.Settings = "19200,N,8,1"
MSComm1.InputLen = 6
MSComm1.PortOpen = True
MSComm1.InputMode = comInputModeBinary
MSComm1.Output = senddat
Do Until MSComm1.InBufferCount >= 6
DoEvents
Loop
dattemp = MSComm1.Input
rcvdat = dattemp
txtrcv.Text = ""
For i = 0 To 5
txtrcv.Text = txtrcv.Text & Right("0" & Hex(rcvdat(i)), 2)
Next i
MSComm1.PortOpen = False
cmdcomm.Enabled = True
End Sub