• ベストアンサー

VB6でシリアル通信サンプルソースの入手先は

お世話になっております、 ＶＢ６でシリアル通信(UART)を行うための、 サンプルソースをダウンロードできるサイトをご存知の方いましたら、 教えていただけないでしょうか。 有料やアプリは見つけたのですが、 無料のソースが見つけられませんでした、 希望としてはMSCommを使用している物をご紹介していただけないでしょうか

質問者が選んだベストアンサー

  • ベストアンサー
回答No.1

Visual Studio 6 のサンプルプログラムの中に 「VBTerm」という通信プログラムが有ります。 （エディションによっては入っていないかも）

usami33
質問者

お礼

ありがとうございました あんなに探すのに苦労したのに、インストールしてあったなんて・・・

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

関連するQ&A

  • VB.NETでのシリアル通信

    .NET初心者です。 VB.NETでシリアル通信をしようとしています。 参照設定のところに Microsoft MSCOMM CONTROLというのがあったので 選択しました。 すると、MSLib.MSCommというのがでてきたので Vb6の Dim test As mscomm のように宣言して使えるかと思い Dim test As MSLib.MSComm test.PortOpen と書いてみたところ、 オブジェクト参照・・・インスタンス化されていません。と、エラーがでました。 ブレイクしてみたところ、test = Nothingでした。 testが無いのでインスタンス化されていないという エラーがでるのだなということは分かったのですが なぜこのエラーがでるのか、 どうしたらこのエラーを回避し、 .NETでシリアル通信ができるのか教えてください。 よろしくお願いします。

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

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

  • 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 どなたか教えてください。 よろしくお願いします。

  • シリアル通信について

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

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

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

  • シリアル通信について教えてください

    VC6.0のRS-232Cでシリアル通信をするプログラミングについて説明してあるサイトやサンプルソースがあるサイトがあったら教えてください。

  • VB 2008 でRS232C通信をしたい

    私はC言語を主に行なってきたのですが、この度VBを覚えたいと思い最新?のVB 2008（無料）をダウンロードしました。 BasicはN88程度の知識しかない為、とても苦戦しております。 RS232Cの通信をしたいのですが・・・・どうも分かりません。 インターネット情報のみで行なっていますがやはり無理っぽいです。Imports System.IO　？意味がわかりません。 やはり分かりやすい参考書が必要だと思います。 そこで、RS232C通信方法など詳しく載っているVB2008の参考書をご存知でしたら教えていただければと思います。 ちなみにVBは超ど素人です。 サンプルソースなどが載ってると、私としてはわかりやすいです。 宜しくお願いいたします。

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

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

  • Androidのサンプルソースを見たいのですが、

    「ネットでダウンロード出来るAndroid アプリ」のサンプルソースコードを見たいのですが、どうすれば良いのでしょうか？ ソースコードがダウンロード出来るやつはいいのですが、 アプリしかダウンロード出来ない(?)ヤツはソースコードを見れないのでしょうか？ アプリってどういう状態のものなのでしょうか？　 コンパイルされた状態の何かなのでしょうか？ また、アプリをダウンロードしようとすると、「Google Play」に接続するヤツがあるのですが、 実機がない場合、PCに入れてあるエミュレータでこのアプリの動作確認をすることは出来ないのでしょうか？

    • ベストアンサー
    • Java

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する