タイトル : 続きです 投稿日 : 2008/04/17(Thu) 10:46 投稿者 : VV
びくともしませんでした。。。 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(&H5) MSComm1.Output = "146.000.0" MSComm1.Output = Chr(&HFD) MSComm1.PortOpen = False End Sub データエリアとされているところの書き方がいまいちわかりません。。。 他にもおかしいのでしょうか? 長くなってすみませんが、おねがいします。 |