作者jamuqa (jamuqa)
看板Visual_Basic
标题[.NET] VB2005 MSComm.PortOpen = True 出错
时间Mon Mar 14 20:32:54 2011
请输入专案类型(网站专案或者应用程式专案)：应用程式
我身边有一台发票机，想透过vb送字去列印他
我的发票机是com port转接usb到电脑的
我程式如下
Public Class Form1
Private Sub AxMSComm1_OnComm(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles AxMSComm1.OnComm
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
AxMSComm1.Output = "1"
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles MyBase.Load
' 先将预设的COM 关掉
If (AxMSComm1.PortOpen = True) Then AxMSComm1.PortOpen = False
' 预设为COM 1
AxMSComm1.CommPort = 3
' 连线速度9600 baud、无同位检查、资料位元8、停止位元1
AxMSComm1.Settings = "9600,N,8,1"
' 告诉控制项当使用Input 时，读取整个暂存区
AxMSComm1.InputLen = 0
' 开启序列连接埠
If (AxMSComm1.PortOpen = False) Then AxMSComm1.PortOpen = True
' 讯息视窗开始文字
End Sub
End Class
但是每当执行到AxMSComm1.PortOpen = True 这里时就会出错
错误讯息为：
COMException未处理
发生例外状况於 HRESULT:0x800A1F4F
请问各位大大，这是哪里出错了呢？
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.125.41.241
1F：推 horngsh:建议您用.NET内建的SerialPort类别 03/14 20:58