vb吧 关注：156,006贴子：1,166,253
不感兴趣
开通SVIP免广告
1.地磅(汽车衡)如果你的总秤量在30吨以下的话,5kg一个刻划还有道理,否则就算没风吹也不会很稳定,最好设 10Kg或20Kg 一个刻划,看你的精度要求而定.
2.风大,那是没办法的,尤其是载运比较庞大体积的货更严重,你可以将表头的设置每秒Updates几次改少一点,如此稳定性将会好一些.
3.下面代码是连着比3次,当然看情况比5次也行,容许公差在几公斤之内也自己看着办, 有必要的话把这3次或5次的重量加总平均也行,看你的要求.
Dim Scount%, startpos%, rcvcount%, getwt&, oldwt&, rcvdata$, aa$
Private Static Sub MSComm1_OnComm()
On Error Resume Next
aa = MSComm1.CommEvent
If aa = comEvReceive Then '接收缓冲区收到Rthreshold 个字符时触发
rcvcount = MSComm1.InBufferCount '接收缓冲区字符总数
MSComm1.InputLen = 0
rcvdata = Space(rcvcount)
rcvdata = MSComm1.Input
If Len(rcvdata) >= 8 Then
startpos = InStr(rcvdata, Chr(2))
If startpos > 0 Then
getwt = Val(Mid(rcvdata, startpos + 1, 8))
Scount = IIf(Abs(getwt - oldwt) <= 10, Scount + 1, 0)
If Scount >= 3 Then text1.Text = CStr(getwt): Scount = 0
oldwt = getwt
End If
End If
End If
End Sub
2.风大,那是没办法的,尤其是载运比较庞大体积的货更严重,你可以将表头的设置每秒Updates几次改少一点,如此稳定性将会好一些.
3.下面代码是连着比3次,当然看情况比5次也行,容许公差在几公斤之内也自己看着办, 有必要的话把这3次或5次的重量加总平均也行,看你的要求.
Dim Scount%, startpos%, rcvcount%, getwt&, oldwt&, rcvdata$, aa$
Private Static Sub MSComm1_OnComm()
On Error Resume Next
aa = MSComm1.CommEvent
If aa = comEvReceive Then '接收缓冲区收到Rthreshold 个字符时触发
rcvcount = MSComm1.InBufferCount '接收缓冲区字符总数
MSComm1.InputLen = 0
rcvdata = Space(rcvcount)
rcvdata = MSComm1.Input
If Len(rcvdata) >= 8 Then
startpos = InStr(rcvdata, Chr(2))
If startpos > 0 Then
getwt = Val(Mid(rcvdata, startpos + 1, 8))
Scount = IIf(Abs(getwt - oldwt) <= 10, Scount + 1, 0)
If Scount >= 3 Then text1.Text = CStr(getwt): Scount = 0
oldwt = getwt
End If
End If
End If
End Sub
哈哈地磅本身本问题没死磅, 也没风吹当然重两就会稳定不会飘,会飘最多也是一个刻划的临界值.
虚无极 你可能把问题复杂化了.(当然其它的一些基本档的维护与后续的数据处理是很烦)
80年代时各方面资讯相当落后, 一个串口通讯的 "大技术" 就能唬死N百个人,当年外销美国时成本2000多美金(电脑软硬件部份,使用日本Casio卡西欧电脑,当时台湾还没有生产电脑)就能卖到5000多美金,哎....时代不同了.
过磅时最主要的有4个表(基本档的维护与后续报表作业就不说了)
这4个表就是 尚未完成过磅的暂存档 完成过磅的主档 客户档 物料档
下面流程是80年代使用Dbase 1.0 到今天的2008年从来就没变过的流程让你参考一下吧.
1.车子一上磅台,敲入车号,在暂存档中查找此辆车,如不存在则本次过磅为第一次过磅,将抓到的重量放在 总重 的文本匡, 并将年月日时分秒与流水序号存放到暂存档中.
2.上面如果已存在则判定为第二次过磅,并调出进场时的数据,分别放在各个文本匡或Label中, 比对进厂重量与这次的重量, 可以得知本车是进货还是出货,将两个重量分别放在 总重与空车重
的文本匡内,判断两次的重量即可得知是进货还是出货,将两个重量分别放在总重与空车重之文本匡中自动得到净重,输入物料代号与客户代号,列出此客户与此物料的所有相关信息,(此部分看需要也可在进厂时就输入,以便得到物料的物性与存仓库位置)
3.如为第二次过磅则干掉暂存档的数据, 将所有数据添加到过磅主档中,以便于后续的处理, 打印三联式磅单.
4.如果你有 CheckBox 表明为 复式过磅(一车载运两种以上不同的物料), 那么作业就要再回到步骤2,直到你点击 完成 了.
虚无极 你可能把问题复杂化了.(当然其它的一些基本档的维护与后续的数据处理是很烦)
80年代时各方面资讯相当落后, 一个串口通讯的 "大技术" 就能唬死N百个人,当年外销美国时成本2000多美金(电脑软硬件部份,使用日本Casio卡西欧电脑,当时台湾还没有生产电脑)就能卖到5000多美金,哎....时代不同了.
过磅时最主要的有4个表(基本档的维护与后续报表作业就不说了)
这4个表就是 尚未完成过磅的暂存档 完成过磅的主档 客户档 物料档
下面流程是80年代使用Dbase 1.0 到今天的2008年从来就没变过的流程让你参考一下吧.
1.车子一上磅台,敲入车号,在暂存档中查找此辆车,如不存在则本次过磅为第一次过磅,将抓到的重量放在 总重 的文本匡, 并将年月日时分秒与流水序号存放到暂存档中.
2.上面如果已存在则判定为第二次过磅,并调出进场时的数据,分别放在各个文本匡或Label中, 比对进厂重量与这次的重量, 可以得知本车是进货还是出货,将两个重量分别放在 总重与空车重
的文本匡内,判断两次的重量即可得知是进货还是出货,将两个重量分别放在总重与空车重之文本匡中自动得到净重,输入物料代号与客户代号,列出此客户与此物料的所有相关信息,(此部分看需要也可在进厂时就输入,以便得到物料的物性与存仓库位置)
3.如为第二次过磅则干掉暂存档的数据, 将所有数据添加到过磅主档中,以便于后续的处理, 打印三联式磅单.
4.如果你有 CheckBox 表明为 复式过磅(一车载运两种以上不同的物料), 那么作业就要再回到步骤2,直到你点击 完成 了.
我的过磅和你的基本上一样，不过做法上有些出入，
首先，我判断是进货还是出货是根据输入的物资来判断的，物资表里设置物资是进货还是出货，因此我是输入了物资和车号之后才判断，
输入物资和车号之后，需要判断是进货还是出货，如果是进货，那还要判断是过重磅还是回皮，过重磅就是第一次过磅，回皮是第二次过磅读空车重，进货则自动填写收货单位，并初始化发货单位、运输单位等，
如果是出货则自动填写发货单位，并初始化发货单位、运输单位等，
其次，没有你说的复式过磅，但以前另外一个系统有这种情况，是混装的情况，所以我这个没有复式过磅功能，
出货时并初始化发货单位、运输单位等，
加了很多厂里自己的功能，实在太多了，都不想说了，
windows窗体做的，满足他们需要用纯键盘操作，
一个窗体有过磅、有增加(手工录重量)、有修改、有查询，有取皮，一个窗体做完，用编码操作，客户编码太多，输入物资时自动过滤客户，输入车号时自动选择运输单位，输入化验单号能查询化验数据(从化验系统读得)，
如果是进厂物资，又要查询采购单以加载相应的供应商和运输单位，并限制重量的误差，如果是出厂物资又要查销售单以加载..
过磅如果是A物资，因为A物资没有固定客户，是散户，需要自己录入客户信息(相当于加客户)，如果是B物资，需要输入化验单，而且化验单与磅单号要相同，磅单号是分物资来编号的，每种物资单独编号，而有些物资要求跨年连续编号，有些又要求每年重新编号，物资有些是分规格编号的，
就是打印过磅单都有好几种格式，不同物资有不同的过磅单格式，
还有台帐处理等，主要是不同物资有很多特殊的处理，
首先，我判断是进货还是出货是根据输入的物资来判断的，物资表里设置物资是进货还是出货，因此我是输入了物资和车号之后才判断，
输入物资和车号之后，需要判断是进货还是出货，如果是进货，那还要判断是过重磅还是回皮，过重磅就是第一次过磅，回皮是第二次过磅读空车重，进货则自动填写收货单位，并初始化发货单位、运输单位等，
如果是出货则自动填写发货单位，并初始化发货单位、运输单位等，
其次，没有你说的复式过磅，但以前另外一个系统有这种情况，是混装的情况，所以我这个没有复式过磅功能，
出货时并初始化发货单位、运输单位等，
加了很多厂里自己的功能，实在太多了，都不想说了，
windows窗体做的，满足他们需要用纯键盘操作，
一个窗体有过磅、有增加(手工录重量)、有修改、有查询，有取皮，一个窗体做完，用编码操作，客户编码太多，输入物资时自动过滤客户，输入车号时自动选择运输单位，输入化验单号能查询化验数据(从化验系统读得)，
如果是进厂物资，又要查询采购单以加载相应的供应商和运输单位，并限制重量的误差，如果是出厂物资又要查销售单以加载..
过磅如果是A物资，因为A物资没有固定客户，是散户，需要自己录入客户信息(相当于加客户)，如果是B物资，需要输入化验单，而且化验单与磅单号要相同，磅单号是分物资来编号的，每种物资单独编号，而有些物资要求跨年连续编号，有些又要求每年重新编号，物资有些是分规格编号的，
就是打印过磅单都有好几种格式，不同物资有不同的过磅单格式，
还有台帐处理等，主要是不同物资有很多特殊的处理，
不感兴趣
开通SVIP免广告
不感兴趣
开通SVIP免广告
