MScomm与RS-232通讯，具体代码--诚心请教

用VB做的配料系统，现在界面部分已经基本完成，就差通讯和数据库报表查询~~头疼中
用MCSomm与RS-232通讯，具体过程如下
系统主要是控制六路斗秤下料，由在系统中输入所需料重后，点击“运行”斗秤的开关门电机控制关门——控制电震机震动——斗秤的称重传感器称重并返回数据，当数据和输入的数值相等时，电震机停止震动——称重传感器再次称重并输出到文本框——斗秤的开关门电机控制开门，等到称重传感器的值不再变化——斗秤关门，所有斗秤都关门（6路）——控制皮带电机转动，到达设定时间又开始新的一轮循环

称重的实际值如果和给定值有差值，能在下一次循环中补偿，能用数据库记录每次每一路的数值

并可以手动控制，比如点击“1号下料”1路电震机下料，点击“3号停止”3号电震机停止，点击“4号开门”四号斗秤开门，点击“6号关门”六号斗秤关门



部分通讯代码如下:
串口初始化模块：
Private Sub Form_Initialize()
MSComm1.CommPort=1 使用COM1口
MSComm1.Settings=”9600,N,8,1”
MSComm1.InputLen=0 输入时读整个缓冲区
MSComm1.PortOpen=True 打开端口
End Sub
数据读取及显示模块：
Private Sub Command1_Click()
Dim Instring As String 第一变量
MSComm 1.Output=chr(2)+chr(65)+chr(66)+chr(48)+chr(51)+chr(3) 计算机发送指令（这句是什么意思？）Do While MSComm 1.inbuffercount<14 等待接收全部数据
Doevents
Loop
Instring=MSComm 1.Input 取重量数据并显示
Text1=Instring
End sub
退出模块：
Private Sub Form_QueryunLoad()
MSComm1.PortOpen=False 关闭端口
End sub

以上是我找到的参考论文中的代码，这个是不是只能控制称重部分？只是1路的？我需要6路，并且可以完成上述复杂控制
而且可以在无料的时候测试秤的重量（皮重）测量到的数值可以被保存，并且发送给称重传感器的数据=输入数据+所侧皮重（6路分别都是）

虚心求教完整代码及说明，本人对VB很菜，希望好心人帮忙~！！！！！！！！！！！！
我手里的所有分都拿出来了，谢谢谢谢谢谢谢~~~~~~~~~~~~~~~~~！！！！！！！！！QQ：71780622