タイトル : Re^2: 続きです 投稿日 : 2008/04/17(Thu) 13:15 投稿者 : VV
nobuさん! ありがとうございます!そのようですね。 モード変換をしてみることにしたんですが、 これまた動きません。 なにか根本的に違うことがあるんでしょうか?? Private Sub Form_Click() MSComm1.InputMode = comInputModeBinary MSComm1.CommPort = 1 MSComm1.Settings = "1200,N,8,1" MSComm1.PortOpen = True MSComm1.Output = Chr(&HFE) & Chr(&HFE) MSComm1.Output = Chr(&H60) MSComm1.Output = Chr(&HE0) MSComm1.Output = Chr(&H6) MSComm1.Output = Chr(&H4) MSComm1.Output = Chr(&HFD) MSComm1.PortOpen = False End Sub |