タイトル : Re^3: VB RS232C通信(MSComm使用) 投稿日 : 2014/04/15(Tue) 20:58 投稿者 : オショウ
> なので、非同期式にするには下記のように > 変更すればよろしいでしょうか。 > > MSComm1.RThreshold = 1 > MSComm1.SThreshold = 0 > > MSComm2.RThreshold = 1 > MSComm2.SThreshold = 0 そういう意味では無く・・・ > Do 'OK受信するまで待機 > DoEvents() > Buffer10 = Buffer10 & MSComm2.Input > Loop Until InStr(Buffer10, vbCrLf) > > Select Case MSComm2.CommEvent > Case ComEvReceive > Buffer11 = MSComm2.Input '受信バッファに転送 > Text5.Text = Buffer11 '受信データ表示 こういう書き方自体が、おかしい。 ちゃんと、OnCommイベント処理ルーチンを書きましょう! ここのApp2とか・・・ http://support.microsoft.com/kb/194922/ja http://homepage1.nifty.com/MADIA/vb/vb_bbs/200403/200403_04030077.html http://www.picfun.com/serial07.html 以上。参考まで |