• 締切済み

シリアル通信について

質問です。 仕事でシリアルプリンタをMSCommで制御しています。 開発環境はVB6(SP5),XPです。 MSCommにて印字データを一度に沢山送ると情報落ち(?)した印字内容になってしまいます。多分プリンタ内のバッファ(みたいなもの)が一杯になるかして、プリンタの処理能力が限界なのかと勝手に思ったりもしています。 ちなみに10秒間隔くらいで送れば大丈夫です。 一方、シリアル通信の実験としてTera Termを使用しています。Tera Termだと一度に沢山のデータを送っても問題ないです。Tera Termはそこらへんを制御しているのでしょうか？ また、MSCommにもそのようなことができるのでしょうか？ よくわからない質問かもしれませんが、どんな些細なことでも結構ですのでご教授願います。

みんなの回答

  • Pesuko
  • ベストアンサー率30% (2017/6702)
回答No.2

ソフトフローになってませんか？ ソフトフロー(XON/XOFF)と、ハードフロー(RS／CS制御) ハードフローにすれば問題でません。 http://www.picfun.com/serial05.html

leftovers
質問者

お礼

親切なページを教えてくださり感謝します。 うまく送信できましたのでご報告申し上げます。 この度はありがとうございました。

  • marimo_cx
  • ベストアンサー率25% (873/3452)
回答No.1

フロー制御はどうしているのですか？ フロー制御ナシならバッファオーバーフローは当たり前だと思いますが。

leftovers
質問者

お礼

早速のご回答に感謝します。 フロー制御はあまり知らないので手を付けなかった(だめだめですね)部分です。 ヒントをありがとうございます。色々調べてみます。

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • シリアル通信（送信について）

    現在VB6.0を使用してシリアル通信（RS232C）をMSCOMMを使用して行いたいのですが、受信は出来たのですが、送信がうまくいかない状態です。 MSComm.Output = 送信文字列 & vbCr とすると結果の値を受信できる予定なのですがエラーですという値が返ってきます。 同じ操作をTera Term等で行うと結果が正しく返ってきます。 何故そうなるのかわからない状態で困っております。 何かアドバイス頂けないでしょうか。

  • ＶＢでシリアル制御

    ＶＢ４でシリアル制御したいのですが、どの様にして良いのかわかりません。 しかも、MSCommというのが必要だと言うところまではわかったのですが、 VB4のスタンダードではこれが入っていません。 これが無いとシリアル制御は無理なのでしょうか？ それとも、別の方法が有るのでしょうか？ すみませんがよろしくお願いします。

  • シリアル通信エラー

    VBのMSCommにてシリアル通信アプリを作成しました。 デスクトップＰＣ（Win2000)では正常に動作するにも関わらず、 ノートＰＣ（WinMe)ではデータ受信時にとりこぼしが発生する様です。 とりあえず、MSCommのOnCommイベントプロシージャ内でCommEventプロパティにて エラーコードを引っ掛けると、1006（ポート オーバーランです。ハードウェアから 1 文字が読み取られる前に、次の文字が受信されたため、先の文字は失われました。）というエラーが返却されます。 デスクトップＰＣでは何日か継続して通信させておいても、全くこのエラーが出ないのに ノートＰＣでは数秒～数分で頻繁に発生します。 このエラーの意味について調査したのですが、様々なＨＰを見ると、ＦＩＦＯバッファ（通常16バイト）のエリアが一杯になり、前にかかれていたデータが上書き されたという事ではないかという所に辿り着きました。そこで、デバイスのポート設定の詳細 にて受信バッファを低レベル（1バイト受信毎にＣＰＵ割り込みを発生）にする事により、なるべく ＦＩＦＯバッファの余裕を持たせる設定にすれば、問題は解決あるいは頻度の減少を期待出きる と思い、設定したのですが、結果は全く変わりませんでした。そこで質問です。 １）このエラーの意味は本当にＦＩＦＯバッファのオーバーランなのでしょうか。 ２）もし、そうであるならば、解決策はあるのでしょうか？　　フロー制御で回避出きる問題ではありませんよね？ ３）このＦＩＦＯバッファあたりの調査が可能なツールはありますでしょうか？出きれば、本当にＦＩＦＯバッファが一杯になる現象がデータとして取得出きればうれしいのですが。 現在、MSCommの設定としては以下の通りです。 Settings=115200,N,8,1 InBufferSize=3000 Handshaking=2 以上、１）～３）すべてでなくても構いません、よろしくお願いします。

  • シリアル通信（タブレット、シーケンサー)

    現在、WindowsXP + VB6 + MSComm　<ー>　FXn2-16MR(RS232Cユニット)を シリアル通信で制御しています。これをWindows8.1(タブレット) + VB2013で全面的に 書き換えを行っています。テスト用のパソコンとは何の問題間無く通信は通りますが、 対シーケンサーだと送信はしているようだが、受信が全くできない状態です。 制御パラメータは、SerialPort1.Handshake=None, DtrEnable=True, RtsEnable=True 送信時のプロトコルは、<ENQ> + データ（ASCコード） 受信時のプロトコルは、<STX> + データ（ASCコード）+ <ETX> VB6は、この設定で動作しています。 VB2013では、制御パラメータは同じし送受信では普通に SerialPort1.Write、SerialPort1.ReadLineを使っています。 宜しくお願いします。

  • VB6でのシリアル通信について質問です。

    VB6でのシリアル通信について質問です。 現在、VB6で開発したラベル印刷のシステムを引き受けたのですが、以下のような状況に陥り困っております。 ・プリンタからPCへの接続はシリアル通信のみ。 ・現在使用しようとしているPCにはシリアル通信のポートがなく、USB接続のみしかできない。 ・RS232CからUSBへの変換コネクタを使ってPCとプリンタを接続しようとしているが、印刷実行時に実行時エラー 8015が発生する。 ・VBからプリンタへの通信はMSCommを使用している。 ・プログラム自体は客先にソースのみが残っていたもので、仕様書等はまったくない。 ネットで調べたところ、MicrosoftのサイトではUSBポートからMSCommを使って通信をする事はできないというような事が記載されておりました。 ただ、他のサイトを色々と調べたところ、普通に通信できるとの意見も記載されておりました。 実際のところ、VB6でRS232C－USB変換コネクタを使用してプリンタへのシリアル通信は可能なのでしょうか。 可能な場合、今回発生したエラーの原因になりそうなものとはなんなのでしょうか。 また、通信が不可能な場合、代替策としてどのような方法を取るのが一番ベストなのでしょうか。 どなたか何卒ご教授よろしくお願い致します。

  • シリアル通信のイベント受信について

    現在VB6.0を使用してシリアル通信のプログラムを MsCommを使用せず、CreateFileを使用して行っておりますが、 データの受信を受信したタイミングでテキストボックスに表示したいのですが どの様にすると受信したタイミングでデータを取得できるのかわからず困っております。

  • COM16以上を設定を使用してシリアル通信したい

    現在、VB6.0を使用してシリアル通信の制御をしたいのですが、MSCOMMを使用するとCOMポートの番号が16以上のポートを設定しようとするとエラーになってしまいます。（私の設定がおかしいのかもしれませんが・・・。） 通信ポートを16以上のポートも使用できるようにするにはどの様にしたらいいのでしょうか？

  • ＶＢによるシリアルポート制御

    ＶＢ６でシリアルポートからデータを取り込むプログラムを作っています。 データは、バイナリモードで、合計２６バイトあります。 これが、２０ｍｓ間隔で送られてくるデータは、うまく取れたのですが、データを送る間隔を５ｍｓにしたところ、うまく受信できないようで、データが表示されなくなってしまいました。 ちなみに２０ｍｓ間隔の時のシリアルポートのスピード設定が19200bpsで、５ｍｓ間隔の時には、115200bpsに変更しています。 ＶＢで115200bpsのポート制御は難しいのでしょうか？ それとも、小生のプログラムに問題があるのでしょうか？

  • Win32APIでシリアル通信をするには？

    Win32APIとVB.NETを使ってシリアル通信をするプログラミングを考えています。概要はGPS端末からのデータをVBで受信して表示できるようなプログラムを目指していますが、APIの使い方が分からないので詳しく教えていただける方がいましたら、サンプルソースまたは参考Webサイトの教示をお願いします。 VB6.0のクラス（MSComm)を追加する方法ではなく、APIを使う方向で回答お願いします。

  • VB6.0のGPSシリアル通信について

    はじめまして。 VB6.0で、GPSシリアル通信を行っています。 シリアル設定は、MSComm1.Settings = "4800,n,8,1" にしています。 1秒毎にGPSデータは受信でき、すべて受信できています。 ただし、このGPSデータは、1秒間に下記のように6行分受信されます。 $GPRMC,131850,A,3603.5404,N,14008.5746, $GPGGA,131850,3603.5404,N,14008.5746, $GPGSA,A,3,27,09,02,05,21,29,10,15,,,, $GPGSV,3,1,11,27,27,193,33,09,13,199, $GPGSV,3,2,11,21,18,317,23,29,14,259,22, $GPGSV,3,3,11,07,01,033,00,18,00,295,00,28 そこで、上記6行分のデータのうち、初めの2行分だけを取り出したいと思っていますが、どうもうまくいきません。 どのようにすれば、初めの2行分だけを取り出すことができるでしょうか？ 下記がソースです。 Private Sub MSComm1_OnComm() Dim Buffer1 As Variant Select Case MSComm1.CommEvent Case comEvReceive Buffer1 = MSComm2.Input If (InStr(Buffer1, "GPRMC")) Then Debug.Print Buffer1; Else (InStr(Buffer1, "GPGGA")) Then Debug.Print Buffer1; End If End Sub どなたか教えてください。 よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する