冒味請教各方前輩....... 小弟最近要寫一台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) "計" "

引言: 冒味請教各方前輩....... 小弟最近要寫一台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--是換行 詳細控制要看發票機的規格書喔... 但是主要的觀念是 一行一行 的 控制指令來控制列印

那vbCr是代表跳行囉......所以就等於Delphi的chr(13)囉??? 那麼.....Chr$(&H1B)又應該轉換為Delphi的chr多少呢???

引言: 那vbCr是代表跳行囉......所以就等於Delphi的chr(13)囉??? 那麼.....Chr$(&H1B)又應該轉換為Delphi的chr多少呢???

&H代表後面是16進位1b = 27----所以 Chr$(&H1B)=>Chr$(27) vbCr你要查它是Chr$(&H??)來代表ㄝ,不一定是chr(13) chr(10)