串口通讯,关于pos机打印问题(在线等待!)
目前资源;
1、一台Tp Pos58热敏行式打印机 采用串口com1来和主机进行连接(采用自检测试,打印没问题)
2、采用mscomm控件进行通讯控制
目前可以打开该串口,
并且用output属性可以向里面写数据,
MSComm1.Output = Text1.Text
该打印机的打印命令为 LF,
我在 MSComm1.Output="LF"设置后打印机怎么没有反应,
请教:
目前我采用的方法对不?如果才能让打印机有反映?
源程序:
*****************************************
Private Sub Command1_Click()
If Text1.Text = "" Then
List1.AddItem "发送缓冲区无数据"
Exit Sub
End If
MSComm1.Output = Text1.Text
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Form_Load()
'选择com1
MSComm1.CommPort = 1
'设置波特率为9.6kpbs,没有奇偶校验,8位数据位,1位结束位
MSComm1.Settings = "9600,N,8,1"
'读取全部的输入缓冲区
MSComm1.InputLen = 0
'端口打开
MSComm1.PortOpen = True
MSComm1.RThreshold = 10
MSComm1.SThreshold = 10
'设定握手协议
MSComm1.Handshaking = comRTSXOnXOff
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive
'此处的代码可以进行当串口的接受缓冲区里有RThreshold个字符的处理
MsgBox ("接受字符了")
Case comEvSend
'此处的代码可以进行当串口的发送缓冲区里有SThreshold个字符的处理
MsgBox ("发送字符了")
List1.AddItem "发送缓冲区有数据" & MSComm1.OutBufferCount
End Select
End Sub
*****************************************