RS232 及 电子磅秤系统

weisely

原帖由 pic 于 26-10-2005 03:08 PM 发表
是DOS base 老旧的Weighting System ？不考虑升级吗？

老一辈的程式员 （好象我老板〕 ： 嘿，年轻人，看我们以前用DOS写的程式，多么稳定，那里像现在的windows写的程式，不动就会和Windows冲突到，OCX 用到一大堆，如果Windows 的版本不同，就可能跑不动了。写报告表的程式，我们要打印机的Printer Head 停在那里就听在那里，的Crystal Report,有那么听话吗  。。。。blah blah blah ....

真的是被他炸到 。。。

[ 本帖最后由 白日梦 于 27-10-2005 09:03 AM 编辑 ]

flashang

使用 windows 是为了节省开发时间、以及一些新 hardware 的功能。

用 windows 也可以很稳定、也可以直接控制 hardware, 要 print head 停在那里就那里，可是对我来说用不着。。。

白日梦

原帖由 weisely 于 26-10-2005 08:57 PM 发表
老一辈的程式员 （好象我老板〕 ： 嘿，年轻人，看我们以前用DOS写的程式，多么稳定，那里像现在的windows写的程式，不动就会和Windows冲突到，OCX 用到一大堆，如果Windows 的版本不同，就可能跑不动了。 ...

1991年，我用 Clipper

1993年，在 Clipper 里套用超时代OOP编程法 Object Oriented Programming 凝聚成 Library，你们不要以为只有 Visual 可以做到。复杂的 Mouse 和 Graphic 都可以处理得到。

1995年，我开始接触到 VFP3.0，套用 Clipper 编码来写库存。

2001年，VFP6 的 Class，就等于 93 年那套 Library 了。

2003年，我用 VFP7 写好 Weighting System ，没有靠到 ActiveX 控件 .OCX，报表的公司标志和中文都可以打印。

以 Visual 强项来说，我早在 6 年前淘汰 DOS programming。

我也是老一辈的编程师。你的老板迟早被时代洪流淘汰掉。

强调我座右铭，逆水行舟、不进则退。

白日梦

除了 flashbang 上述的所用 low level file manipulation 编码外，
以下 VFP 编码需靠到 ActiveX 控件，辅助档案是 MsComm32.OCX

1. 
   
2. * Define Com1 port object
   
3. Comm1 = Createobject('MsCommLib.MsComm')
   
4. * Use COM1
   
5. Comm1.CommPort = 1
   
6. * 9600 baud, no parity, 8 data, and 1 stop bit.
   
7. Comm1.Settings = "9600,N,8,1"
   
8. * Tell the control to read entire buffer when Input is used.
   
9. Comm1.InputLen = 0
   
10. * Open the port.
    
11. Comm1.PortOpen = .T.
    
12. * Send the attention command to the modem.
    
13. Comm1.Output = "AT" + Chr(13)
    
14. * Wait for data to come back to the serial port.
    
15. Do While Comm1.InBufferCount <= 2
    
16. * Read the "OK" response data in the serial port.
    
17. InString = Comm1.Input
    
18. Enddo
    
19. * Close the serial port.
    
20. Comm1.PortOpen = .F.
    

复制代码

需修改 InBufferCount，是依照 Weight Indicator 手册里所说的 String len。

没有接好 indicator 的电脑不要乱试，Win98 马上当机，XP 还可以跳出来。

flashang

原帖由 weisely 于 26-10-2005 08:57 PM 发表



老一辈的程式员 （好象我老板〕 ： 嘿，年轻人，看我们以前用DOS写的程式，多么稳定，那里像现在的windows写的程式，不动就会和Windows冲突到，OCX 用到一大堆，如果Windows 的版本不同，就可能跑不动了。 ...

總會有一天新的硬體連 dos 都不能跑, 那些超強的 dos 軟體 也將是一堆廢物...

只能用 dos emulator 來用那些舊的軟體...

flashang

原帖由 白日梦 于 27-10-2005 09:20 AM 发表
除了 flashbang 上述的所用 low level file manipulation 编码外，
以下 VFP 编码需靠到 ActiveX 控件，辅助档案是 MsComm32.OCX

[code]
* Define Com1 port object
Comm1 = Createobject('MsCommLib.MsCom ...

在任何時候都有可能 timeout / '不小心'關掉機器
加上 read events 就不會當機了.
當然也可以加上計算時間, 然後顯示 'timeout error'


Do While Comm1.InBufferCount <= 2
   * Read the "OK" response data in the serial port.
   InString = Comm1.Input
   DOEVENTS()
Enddo


抱歉, 是 DOEVENTS()

[ 本帖最后由 flashang 于 29-10-2005 10:21 AM 编辑 ]

pic

原帖由 flashang 于 27-10-2005 09:30 AM 发表


在任何時候都有可能 timeout / '不小心'關掉機器
加上 read events 就不會當機了.
當然也可以加上計算時間, 然後顯示 'timeout error'


Do While Comm1.InBufferCount <= 2
   * Read the "OK ...

这些都是Polling的方法，占用CPU 资源。
用中断（interrupt）的方法， 效率会更好。

用 windows 也可以很稳定、也可以直接控制 hardware, 要 print head 停在那里就那里，可是对我来说用不着。。。

windows （XP）下直接控制 hardware，怎样弄呢？直接控制 I/O吗？

[ 本帖最后由 pic 于 27-10-2005 06:06 PM 编辑 ]

白日梦

也不能说 pooling 不好，当车辆驾上磅秤桥，司机下车后，那个显示器的数目是跳动着的，好处是电脑也跟着显示这些变动。直到显示器的数目停止跳动时才读取正确数据。

所不同的，你的程序是直到显示器数目跳动时，根据不同的型号显示器才按相关的功能键，读取数据。

[ 本帖最后由 白日梦 于 27-10-2005 03:46 PM 编辑 ]

pic

所不同的，你的程序是直到显示器数目跳动时，根据不同的型号显示器才按相关的功能键，读取数据。

不是，我的程序是全自动的，不需要按键。
不过，我设定电子磅秤系统的功能,让读数稳定了才输出数据。

电子秤称都是低速的数据，用Polling在这里是有馀，也比较简单。
但如果是高速连续的数据，polling 就不行了，除非你的Buffer 很大，CPU很快，可以很快的在Buffer Overflow 之前把Data 处理掉。


对了，我本来也有机会做类似白老大作的油棕罗里称，但最后我放弃了。
那是一个黑心商人（收油棕的）所要求的黑心秤称。他要求一个秘密功能 ，比如按F1会减少50kg，〈F2〉减少100kg，，〈F3〉减少150kg....等等。

[ 本帖最后由 pic 于 27-10-2005 06:06 PM 编辑 ]

charleschin

请问去哪里买这些 devices
finger scan machine,
barcode scanner,
cash drawer,
alarm
card and card reader
touch screen monitor

[ 本帖最后由 charleschin 于 27-10-2005 06:01 PM 编辑 ]

weisely

原帖由 白日梦 于 27-10-2005 09:04 AM 发表
我也是老一辈的编程师。你的老板迟早被时代洪流淘汰掉。

我的老板，他到现在都还没有认真地去学一学Visual Foxpro,他还是在编写DOS Foxpro 的程式，因为毕竟还有很多顾客都还在用DOS的软件。公司中的Windows软件，全都是我们员工编写。

如果他从现在开始，还不认认真真地去学Windows的程式，就真的很快就要被淘汰了。

白日梦

原帖由 pic 于 27-10-2005 05:01 PM 发表
那是一个黑心商人（收油棕的）所要求的黑心秤称。他要求一个秘密功能 ，比如按F1会减少50kg，〈F2〉减少100kg，，〈F3〉减少150kg....等等。

吃秤这功能我知道呀！对付这种人，开个天文数字，〉RM10K

白日梦

原帖由 weisely 于 27-10-2005 08:14 PM 发表
如果他从现在开始，还不认认真真地去学Windows的程式，就真的很快就要被淘汰了。

本地也是有这种人，93年做我上司的，到现在还用着 Clipper 呢！不是他不要学，而是他资质有限，居然看不懂下属写的 VB code ！？

flashang

原帖由 weisely 于 27-10-2005 08:14 PM 发表


我的老板，他到现在都还没有认真地去学一学Visual Foxpro,他还是在编写DOS Foxpro 的程式，因为毕竟还有很多顾客都还在用DOS的软件。公司中的Windows软件，全都是我们员工编写。

如果他从现在开始，还不认 ...

他是老板, 不须要全部都自己写, 你们 ( 员工 ) 会就可以了

白日梦

原帖由 charleschin 于 27-10-2005 05:59 PM 发表
请问去哪里买这些 devices
finger scan machine,
barcode scanner,
cash drawer,
alarm
card and card reader
touch screen monitor

finger scan machine 正确名称是 Thumb print machine

西马很多代理商卖，不难找到。

他们通常连同软件整套一起出售的，我看过一套 Thumb print + Door Access + Time Attendence，软件是 VB 开发出来的，MsAccess database。

flashang

Thumb print 一般上是指用拇指, 而 finger print 是任何一支手指

正在做 fingerscan, card reader 的軟體, 可以 enroll finger 在機器, 然或用手指來開門

barcode scanner 一般上都是當作 keyboard 來使用
cash drawer 大都和 pos printer 接在一起
touch screen monitor 就是 mouse 啦, 但是 button 要做大一點

charleschin

i want to buy the machine only, the code or software i want to develop by myself

这里是中文论坛，请用中文发表，谢谢合作。

[ 本帖最后由 白日梦 于 1-11-2005 12:05 PM 编辑 ]

waiting_hoh

=.=a

这个叫作ｗｅｉｇｈｉｎｇ　ｓｙｓｔｅｍ　哦．．不是ｗｅｉｇｈｔｉｎｇ　ｓｙｓｔｅｍ．．

waiting_hoh

原帖由 weisely 于 26-10-2005 08:57 PM 发表



老一辈的程式员 （好象我老板〕 ： 嘿，年轻人，看我们以前用DOS写的程式，多么稳定，那里像现在的windows写的程式，不动就会和Windows冲突到，OCX 用到一大堆，如果Windows 的版本不同，就可能跑不动了。写报告表的程式，我们要打印机的Printer Head 停在那里就听在那里，的Crystal Report,有那么听话吗  。。。。blah blah blah ....

他说的对哦．．
所以以前为了打印省时．．
大多的receipt的letter head都会在上一张前就打好了的～＾＾

甚至列一个ｉｔｅｍ打一行．．呵呵＾＾

不需列完才一个个慢慢打出来．．到时customer都等到睡觉了．．

[ 本帖最后由 waiting_hoh 于 4-11-2005 11:14 AM 编辑 ]

xiaoye

原帖由 pic 于 26-10-2005 03:08 PM 发表

是DOS base 老旧的Weighting System ？不考虑升级吗？

pic

不好意思这样久才回复.

这是顾客的要求啦.其实我主要是写Accounting System的,在几年前已开始用VFP了.现在是VFP8.至于weighing System是帮朋友修改而已.可能迟写会用VFP写Weighing System.



[ 本帖最后由 xiaoye 于 7-11-2005 01:07 AM 编辑 ]