一米三跟一米六对比:谁能帮我画一个流程图啊？PC机与单片机通信的。在线急等！

是用VB编的（程序）
PC端：
Option Explicit
Private Sub cmdclear1_Click()
txtsend.Text = ""
End Sub
Private Sub cmdclose_Click()
If (MSComm.PortOpen = True) Then
MSComm.PortOpen = False
End If
End Sub
Private Sub cmdopens1_Click()
'On Error Resume Next
If (MSComm.PortOpen = True) Then
MsgBox "串口1已经打开"
Else
MSComm.PortOpen = True
End If
End Sub
Private Sub Form＿Load()
MSComm.CommPort = 1 '设置串口1
MSComm.Settings = "9600,N,8,1" '波特率9600bit/s,无校验，8位数据，1位停止位
MSComm.InputLen = 0 '读取接收缓冲区为1024字节
MSComm.InBufferSize = 512 '设置发送缓冲区为512字节
MSComm.PortOpen = True '打开串口
MSComm.SThreshold = 0 '不触发发送事件
MSComm.RThreshold = 1 '每一个字符到接收缓冲区都触发发送事件
MSComm.InBufferCount = 0 '清除发送缓冲区数据
MSComm.OutBufferCount = 0 '清除接收缓冲区数据
Text_SEND.Text = "" '清空发送文本框
Text_RECV.Text = "" '清空接收文本框
End Sub
Private Sub Button＿SEND＿Click()
Dim x As String
If Text_SEND.Text = "" Then '发送数据不能为空
x = MsgBox("发送数据不能为空", 16)
Exit Sub
End If
If Not MSComm.PortOpen Then '保证串口打开
MSComm.PortOpen = True
End If
MSComm.Output = Text_SEND.Text + Chr$(13) '发送数据
End Sub
Private Sub MSComm＿OnComm()
Select Case MSComm.CommEvent '检查串口事件
'错误处理
Case comEventOverrun '数据丢失
Text＿SEND.Text= "" '清空发送缓冲区
Text＿RECV.Text= "" '清空接收缓冲区
Text＿SEND.SetFocus
Exit Sub
Case comEventRxOver’数据缓冲区溢出
Text＿SEND.Text= "" '清空发送缓冲区
Text＿RECV.Text= "" '清空接收缓冲区
Text＿SEND.SetFocus
Exit Sub
Case comEventTxFul’发送缓冲区已满
Text＿SEND.Text= "" '清空发送缓冲区
Text＿RECV.Text= "" '清空接收缓冲区
Text＿SEND.SetFocus
Exit Sub'事件处理
Case comEvReceive '接收缓冲区内有数据
Dim str As String
Str=MSComm.Input '从接收队列中读入字符串
Text＿RECV.Text= Text＿RECV.Text+str
End Select
End Sub
流程图尽量详细。
求编程！PC机与单片机间数据传输。PC端VB编程，单片机端汇编