一个简单的VB示例，可经适当修改成为上位机与单片机通信，也能做成软件烧录器，其它编程语言语法基本相似。

Private Sub Command3_Click()
Dim a() As Byte
ReDim a(3)

a(0) = &HA1
a(1) = &HA1
a(2) = &HA2
a(3) = &HA3
MSComm1.Output = a '模拟发送数据
End Sub

Private Sub Form_Load()
MSComm1.CommPort = 1 '设置串口为com1
MSComm1.Settings = "9600,n,8,1" '通讯参数 波特率 奇偶校验 数据位 停止位
MSComm1.InputMode = comInputModeBinary '二进制接收
MSComm1.PortOpen = True '打开串口
MSComm1.InBufferCount = 0 '清空接收缓冲区
MSComm1.RThreshold = 1 '缓冲区中接收到一个字符，就产生一次OnComm事件
End Sub

'接收上位机发送的数据
Private Sub MSComm1_OnComm()
Dim indata As Variant '定义变量
Dim arr() As Byte '定义字节数组
Dim i As Integer
Select Case MSComm1.CommEvent
Case comEvReceive '有接收事件
indata = MSComm1.Input '接收到的数据存放到indata里
arr = indata '返回indata的值
For i = 0 To UBound(arr)
If Len(Hex(arr(i))) = 1 Then
Text2.Text = Text2.Text & "0" & Hex(arr(i)) '在text2中显示数据
Else
Text2.Text = Text2.Text & Hex(arr(i)) '在text2中显示数据
End If
Next
MSComm1.InBufferCount = 0 ' 清空接收缓冲区
End Select
End