Private Sub Command1_Click()
MSComm1.Output = Text1.Text
End Sub
Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub
Private Sub Form_Unload(Cancel As Integer)
If MSComm1.PortOpen = True Then MSComm1.PortOpen = False
End Sub
FORM_LOAD G过程中对叔祖进行付值
outp(0)=12
outp(1)=13
然后发送整个数组
mmm.output=outp
即可以 将数据以发送出去了