請教..TComm的用法...... |
尚未結案
|
jojoboy
初階會員 發表:65 回覆:108 積分:34 註冊:2002-03-13 發送簡訊給我 |
冒味請教各方前輩.......
小弟最近要寫一台POS系統連接發票機的程式......
所以我試著用TComm來處理這段程式.....
但廠商所提供的技術文件都是VB的......
小弟沒有碰過VB所以想請教幾個問題.....
Chr$(&H1B)是啥意義呢???
vbCr又代表什麼意義呢??
然後.....以下的程式範例中,一直出現PB1和LB1的字串...是不是只要丟這兩個字串到發票機就好了呢??
希望能有會使用VB的前輩不吝指導........
Thanks MSComm1.CommPort = 1
MSComm1.Settings = "9600,n,8,1"
MSComm1.PortOpen = True MSComm1.Output = Chr$(&H1B) "PB1" "測試科技股份有限公司" vbCr 'printing and line feed
MSComm1.Output = Chr$(&H1B) "PB1" "統編:12345678" vbCr
MSComm1.Output = Chr$(&H1B) "PB1" "電話:87654321" vbCr
MSComm1.Output = Chr$(&H1B) "PB1" "發票地址XXXXXXXX" vbCr
MSComm1.Output = Chr$(&H1B) "LB1" vbCr 'line feed of one
MSComm1.Output = Chr$(&H1B) "PB1" "日:01/07/16 時:18-00 " vbCr
MSComm1.Output = Chr$(&H1B) "PB1" "機號:001 序號:01 頁:1 " vbCr
MSComm1.Output = Chr$(&H1B) "LB1" vbCr
MSComm1.Output = Chr$(&H1B) "PB1" "可口可樂 2瓶 17元 34元 " vbCr
MSComm1.Output = Chr$(&H1B) "PB1" "長壽香煙 1包 25元 25元 " vbCr
MSComm1.Output = Chr$(&H1B) "PB1" "大享堡 1份 20元 20元 " vbCr
MSComm1.Output = Chr$(&H1B) "PB1" "味全鮮奶 2瓶 17元 34元 " vbCr
MSComm1.Output = Chr$(&H1B) "LB9" vbCr 'line feed of nine
MSComm1.Output = Chr$(&H1B) "PB1" Chr$(&HE) "總" Chr$(&HE) "計" "
|
shinhrn
中階會員 發表:54 回覆:165 積分:83 註冊:2002-06-05 發送簡訊給我 |
引言: 冒味請教各方前輩....... 小弟最近要寫一台POS系統連接發票機的程式...... 所以我試著用TComm來處理這段程式..... 但廠商所提供的技術文件都是VB的...... 小弟沒有碰過VB所以想請教幾個問題..... Chr$(&H1B)是啥意義呢??? vbCr又代表什麼意義呢?? 然後.....以下的程式範例中,一直出現PB1和LB1的字串...是不是只要丟這兩個字串到發票機就好了呢?? 希望能有會使用VB的前輩不吝指導........ Thanks MSComm1.CommPort = 1 MSComm1.Settings = "9600,n,8,1" MSComm1.PortOpen = True MSComm1.Output = Chr$(&H1B) "PB1" "測試科技股份有限公司" vbCr 'printing and line feed MSComm1.Output = Chr$(&H1B) "PB1" "統編:12345678" vbCr MSComm1.Output = Chr$(&H1B) "PB1" "電話:87654321" vbCr MSComm1.Output = Chr$(&H1B) "PB1" "發票地址XXXXXXXX" vbCr MSComm1.Output = Chr$(&H1B) "LB1" vbCr 'line feed of one MSComm1.Output = Chr$(&H1B) "PB1" "日:01/07/16 時:18-00 " vbCr MSComm1.Output = Chr$(&H1B) "PB1" "機號:001 序號:01 頁:1 " vbCr MSComm1.Output = Chr$(&H1B) "LB1" vbCr MSComm1.Output = Chr$(&H1B) "PB1" "可口可樂 2瓶 17元 34元 " vbCr MSComm1.Output = Chr$(&H1B) "PB1" "長壽香煙 1包 25元 25元 " vbCr MSComm1.Output = Chr$(&H1B) "PB1" "大享堡 1份 20元 20元 " vbCr MSComm1.Output = Chr$(&H1B) "PB1" "味全鮮奶 2瓶 17元 34元 " vbCr MSComm1.Output = Chr$(&H1B) "LB9" vbCr 'line feed of nine MSComm1.Output = Chr$(&H1B) "PB1" Chr$(&HE) "總" Chr$(&HE) "計" "發票機與印表機相同想要直接控制列表一般要有控制碼的規定...每一家不一定要一樣依你的的例子 Chr$(&H1B)--事前置碼表示開始控制印表 "PB1"--看起來是印一行字 vbCr--是換行 詳細控制要看發票機的規格書喔... 但是主要的觀念是 一行一行 的 控制指令來控制列印 |
jojoboy
初階會員 發表:65 回覆:108 積分:34 註冊:2002-03-13 發送簡訊給我 |
|
shinhrn
中階會員 發表:54 回覆:165 積分:83 註冊:2002-06-05 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |