VB6 輸出資料到RS232
Open "COM1:9600,N,8,1,CD0,CS0,DS0,OP0,RS" For Output As #1
Print #1, Chr(27) + Chr(67) + Chr(13)
Close #1
上述的程式碼，就是對 posiflex pp2000 下全切紙命令，因此刀子會動，有聲音很明顯。
COM1後面指的是要對那一個Com 埠做傳輸
9600 為 Baud Rate , 每秒鐘多少位元
bits per second (bit/s)。
傳輸的時候，一般用 n, 8, 1, 即 n parity bit, 8 data bits, 1 stop bit
所以一個 byte 傳輸時，實際是 1 start bit + 8 data bits + 1 stop bit = 10 bits
CD0 的意思為等待多少亳秒做資料俞時的檢測
cd = # of ms to wait for the time-out on data carrier detect (DCD)line
RS 抑制檢測請求發送（RTS）信號
rs = suppress detection of request to send(RTS) signal
不過這個方法有時候會遇到，找不到檔案，或是機器完全不理你的情況。
誠心建議改用
MSComm 元件
專案->設定使用元件->瀏覽
選擇MSComm32.Ocx ->開啟
勾選Microsoft Comm Control 6.0 ->確定
工具箱會出現一個像電話的圖案，把它加入到Form裡
'先將預設的 COM 關掉
If (MSComm1.PortOpen = True) Then MSComm1.PortOpen = False
MSComm1.CommPort = Right(SalePrinter, 1)
'連線速度 9600 baud、無同位檢查、資料位元 8、停止位元 1
MSComm1.Settings = "9600,N,8,1"
'告訴控制項當使用 Input 時，讀取整個暫存區
MSComm1.InputLen = 0
'開啟序列連接埠
If (MSComm1.PortOpen = False) Then MSComm1.PortOpen = True
MSComm1.Output="輸出內容"
MSComm1.PortOpen = False '關閉連接
參考資料
http://eva54185418.blogspot.tw/2013/01/arduino-serial-port.html
http://www.freebasic.net/forum/viewtopic.php?t=9336
http://wukm.blogspot.tw/2007/05/mscomm-rs232.html
.png)
