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