VB2005によるRS２３２C制御
VB2005でZX-800L(TAKASAGO)を動かしたいのですがポートオープンできません。(オープンできるとREMOTOが点灯するはずなんですが…)
現在MSCommまたは確認の意味でNSPcomを用いています。(シリアルポートもあるんですができれば前者でやりたい)
機器の設定は何度も確認して間違いはないと思われます。(windowsXP使用)プログラムは以下です。
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'<RS232C constant>
STX = "02"
EOT = "04"
ENQ = "05" '伝送キャラクタ設定
ACK = "06"
NAK = "15"
ETX = "03"
RTN = "0A"
Comport = 1
OP = "9600,n,8,1" 'baud rate,stop bit,data bit,parity
ADD = "01" 'RS232Cアドレス
BC = "\" & EOT & ADD 'EOT+ADD
Call ATH(BC) 'アスキー変換サブルーチンです。
EOTADD = BCH
または
(MSComm.CommPort = 1 'RS-232Cポート番号
MSComm.PortOpen = True
MSComm.Settings = "9600,n,8,1"
MSComm.RThreshold = 1
MSComm.SThreshold = 1
MSComm.RTSEnable = False
MSComm.InputMode = MSCommLib.InputModeConstants.comInputModeBinary)
End Sub
この後、クリックイベント
ret = Me.NspCom.ComOpen(Comport, OP)
If ret = -1 Then
MsgBox("miss")
End If
または (MSComm.PortOpen = true)
でオープンさせたいのですが…
機器のHPにもサンプルプログラムもなく困っています。助言＆ご指摘お願いします。
お礼
回答ありがとうございました。 出力がうまくいかない原因は、ダブルクォーテーションの 書き方が問題じゃなくて、MsCommに出力しているコードの 問題でした。出力するコードの知識が薄く、VBの出力の せいにしてました。