
这个循环 For i = 0 To UBound(abytReceive)
加的不对吧
我公司也是托利多的称料仪表
我们的程序是这样的
Private Sub CmdOpen_Click()
MSComm1CommPort = 1
MSComm1Settings = Trim(Text3Text) '"9600,E,7,1"
MSComm1InputLen = 0
MSComm1RThreshold = 1
MSComm1PortOpen = True
CmdOpenEnabled = False
CmdCloseEnabled = True
End Sub
Private Sub CmdSend_Click()
MSComm1Output = Trim(Text1Text) & vbCrLf '"READ" & vbCrLf '
End Sub
Private Sub MSComm1_OnComm() '发生通讯事件
Select Case MSComm1CommEvent
Case comEvReceive
ReceiveData = ReceiveData & MSComm1Input
Text2Text = ReceiveData
End Select
End Sub
连接后地磅获取的重量数据会直接传送到软件系统,系统会自动记录,这样就不用人工去登记,而且不容易出现数据错误,效果还是大大不错的,我公司用的是傲蓝的冷库软件,用了两年多了,你要是想买软件的话可以去了解一下
地磅打统计表的具体步骤如下:
1 收集数据:将地磅上称重的数据记录下来,包括日期、时间、车牌号、货物名称、重量等信息。
2 分类整理数据:将收集到的数据按照日期、车牌号、货物名称等分类整理,方便后续的统计分析。
3 统计分析:根据需要,可以对数据进行各种统计分析,比如按照时间段统计货物的总重量、按照车牌号统计某辆车的运输情况等。
4 制作统计表:根据分析结果,制作相应的统计表格,可以使用Excel等电子表格软件,也可以手工绘制。
5 分析结果:根据统计表格,进行数据分析和比较,找出规律和趋势,为后续的管理决策提供参考。
需要注意的是,地磅打统计表需要有一定的数据处理和统计分析能力,建议您可以参考相关的教程或者请专业人士帮助处理。
可以不用控件,只用API
//-------------------打开串口 Comname是串口名称,Com1或Com2
hComm:=CreateFile(PChar(ComName), GENERIC_READ or GENERIC_WRITE, 0, nil,
OPEN_EXISTING, 0, //FILE_FLAG_OVERLAPPED, 0);
//-------------发送数据
WriteFile(hComm,ByteSend[i],1,lrc, nil);
//--------------------------读取串口
ReadFile(HComm,inBuff,cscbInQue,nBYtesRead,nil);
最好不要使用控件
其中selF selT selC 是使用jquery实现的动态选择框,在页面加载时候实现的。
JS验证代码:
function onupload()
{
//获得资源类型1
var select_1=documentgetElementById("selF");
var c1=select_1value;
//若没有选择,则报错
if(c1=="")
{
alert("您没有选择资源类型,请选择后再提交,谢谢!");
return false;
不就是点击三个按钮,然后调出access数据库中的数据,然后显示在vb界面中吗?如果是这个意思的话,很简单代码。建立一个查询模块就行。 需要ado控件,和datagrid 控件,用来存放显示结果。
你会用到select语句。Adodc1RecordSource = "select from 地磅数据库的名称 where t1"
以上就是关于我们司的地磅是梅特勒托利多 8142PRO+的,要用VB编程,能读取的地磅数据,并在文本框中显示出来重量全部的内容,包括:我们司的地磅是梅特勒托利多 8142PRO+的,要用VB编程,能读取的地磅数据,并在文本框中显示出来重量、你们冷库公司是用什么冷库软件提高地磅数据录入的效率的、地磅怎么打统计表等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)