上位机和下位机的程序.docVIP

一．上位机程序： 1.添加MScomm控件，并在窗体装入时进行初始化 Private Sub Form_Load()Timer1.Enabled = FalseMSComm1.InBufferSize = 40 初始化串口MSComm1.InBufferCount = 0MSComm1.InputMode = comInputModeBinary 二进制方式MSComm1.CommPort = 1MSComm1.Settings = 9600,N,8,1MSComm1.RThreshold = 1MSComm1.InputLen = 0??????????????????????????????????? 每次读入缓冲区所有字符If MSComm1.PortOpen = False ThenMSComm1.PortOpen = True???????????????????????????? 打开串口End IfEnd Sub 添加一个命令按钮Command“应用”用于确认信息无误后发送。 Private Sub Command1_Click() Dim A,BA =Check1(0).Value + Check1(1).Value * 2 + Check1(2).Value * 4 + Check1(3).Value * 8 B = Check1(4)