RS232Cからのデータ取り込みについて

[hiro]

はじめまして。hiroといいます。
N88BASICはよくゲームを作って遊んでおりましたくちであります。最近はとんとプログラム作りから離れていたのですが、こんなソフトが無料であるのを発見し、プログラミング意欲が再び沸いてきている今日この頃です。
ところで、このactivebasicを使ってRS232Cからのデータ取り込みするプログラムを組みたいと思っているのですが、初心者の私では難しいでしょうか。単純に取り込まれてきたデータを画面に表示し、それをcsv形式で保存できればいいのですが。どなたかご教授願います。

[Ｔａｋｏ]

Ｎ８８経験者なら、ActiveBasic Ver.2（ＡＢ２）を使えば、10行程度のコーディング
で可能だと思います。（受信割込みを使わないのが条件）

プログラミング意欲が有る様なので、サンプルコードは乗せません、。

ＡＢ３以上では、WindowsＡＰＩの知識が必要です。
ＡＢ２で感を取り戻して、次のステップでＡＢ４を使用しＧＵＩに挑戦してみては
如何でしょう。


予断ですが、ハイパーターミナル等を使えば良いのでは？

[hiro]

Takoさん返信ありがとうございます。RS２３２Cからのデータ取り込みってそんなに短いコーディングで可能なんですか。
なにせN88BASIC時代は簡単なゲームを作って遊んでいただけでRS232Cからのデータ取り込みなんてやったことがないので、皆目検討がつきません。ぜひサンプルコードを教えていただけないでしょうか。なにせ周りに相談する人はいませんので。

>予断ですが、ハイパーターミナル等を使えば良いのでは？

なんですが、一度自分でつくってみたいのです。自分で作ったソフトが動いた時の感動を再び味わいたいのです（ちょっとおおげさですね）。特に実用になるものでしたらなおさらです。

＞ＡＢ３以上では、WindowsＡＰＩの知識が必要です。
＞ＡＢ２で感を取り戻して、次のステップでＡＢ４を使用しＧＵＩに挑戦してみては
＞如何でしょう。

まさにその通りで将来的にはGUIのソフトを作ってみたいです。activebasicオフィシャルユーザーズガイドを買おうと思っていますが、Ver4でも使えますか？あの本はVer３で書かれているものだとあったので・・・。それにはこのような外部入出力に関することが書いてあればよいのですが。そのほかになにか参考になるような書籍等をご存知でしたら紹介していただけないでしょうか。

[ゲスト]

昔ABで書いたコードの一部抜粋です。
現在はABを使っていないため、ちょっと意味がわからない所もあったので、
不安たっぷりながら、書き込みしてみます。
なお、コンパイル済みのソースから抜粋してますが、
ほんとに一部抜粋ですので、適当に足りない部分は補完して下さい。
（無責任ですいません）

以下、怪しい解説・・・

基本的には、「CreateFile」でファイルではなく、"COM1"などの指定して、
COMのオープンを行います。
その後は、ファイルの読み書きと同じ要領でCOMにアクセスできます。

とりあえず以下をどっかに書いていただいて、、、
(意味はおいおい調べてください)

[ここをクリックすると内容が表示されます]

COMのオープンはこちら

[ここをクリックすると内容が表示されます]

受信はこんな感じでしょうか

[ここをクリックすると内容が表示されます]

送信は想像力でなんとかしてください、、、、＾＾；
少しでもお役に立てれば幸いです。

[ゲスト]

＞データ取り込みなんてやったことがないので、皆目検討がつきません。ぜひサン
＞プルコードを教えていただけないでしょうか。なにせ周りに相談する人はいません
＞ので。

ＡＢ２でしたら、下記のコードで受信しファイル化できます。（試していませんが・・・）

Open COM1 AS #1
Open RX_File.CSV FOR OUTPUT As #2
For Rx_Loop=1 To 10
Line Input #1,Rx$
Print Rx$
Print #2,Rx$
Next
Close #2
Close #1

RS-232Cはファイルと同様に扱います。
受信データは、　「データ　＋　ＣＲ　＋　ＬＦ」　で１行の処理になります。
ボーレート等の設定は、AB2コンパイラで行うか、レジストリの操作になります。
（プログラムで設定するには、ＡＰＩの知識が有れば可能です。）

＞なんですが、一度自分でつくってみたいのです。自分で作ったソフトが動いた時
＞の感動を再び味わいたいのです（ちょっとおおげさですね）。特に実用になるもの
＞でしたらなおさらです

良いですね。初めてプログラムした気持ちを思い出します。
N88Basicをお使いでしたら、おそらく私の方が古い人間ですよぉ。
がんばってください。

私は書籍は購入していません。
ヘルプと、過去ログ、住人のホームページ等で十分でした。

[hiro]

サンプルコードを紹介していただきまして本当にありがとうございました。それにしてもWindowsAPIではこれだけのことを宣言しておいてやる必要があるわけですか。こりゃ勉強しがいがありそうです。でもコメントつけてくれたおかげでなんとなくイメージが湧きそうです。がんばってみます。ここまで親切に教えていただいて感謝感激です。ありがとうございました。

＞N88Basicをお使いでしたら、おそらく私の方が古い人間ですよぉ。

私が中学生の時（今から２０数年前です）学校にPC8001が１台あり、ベーシックマガジンやI/O、ASCII（なつかしい！）に載っていたゲームのプログラムを打ち込んでは遊び、まずパソコンを触るのをあきらめるだろうと思い、親にPC8801を買わせ、思い通りに”お前にやる”の言葉をもらい、みようみまねでBASICを覚え、ゲームで遊ぶよりゲームを作るほうに喜びを感じておりましたが、PC98時代になるとパソコンから離れてしまいほとんどパソコンを触らないようになり、大学生になると今度はMacintoshにはまり、会社に入るとWINDOWSマシンに転向し、現在に至っております。

[いとちゃん]

インクルードや、初期設定は、どこで調べればよろしいでしょうか？
ご存知の方よろしくお願いいたします。

[Ｔａｋｏ]

>>インクルードや、初期設定は、どこで調べればよろしいでしょうか？

インクルードって、何をインクルードするのですか？

RS-232CのAPIでしたらMSCのＭＳＤＮが良いと思います。

http://msdn.microsoft.com/library/defau ... serial.asp

[Tako]

参考までに、私はＢｏｒｌａｎｄ　ＤＥＬＰＨＩ　２に付属されていたＷｉｎ３２ＨＬＰ（日本語版
）を調べ、最新性を確認する為にＭＳＤＮを利用しています。


>>hiro様
私が中学の時は、ご指摘の雑誌に付属されていたTiny BASIC（ソノシート）を
ＴＫ－８０（コンポBS）に読み込ませＢａｓｉｃを走らせていました。
その後、PET→APPLE-II →PC-8001って感じです。

[いとちゃん]

Takoさん
偶然に、私もRS-232C（バーコードリーダー）でチャレンジしており
通常のOpenや Input＃１　などでうまくいかなかったので、初期設定の解釈が
ぬけているのかなと思って書きました。
（ちなみに、ハイパーテキストではきちんと応答文字が出てきます。）

include "BASIC"
とか、特別なサブファイルを指定するような設定がありましたので
RS２３２Cは必要かなと思い、これについて伺おうとしてました。
APIを用いたものはまだ、考えていません。

ヘルプに、なかなか書いていない部分なので、ぜひこの掲示板で伺いたいなと
思いました。（しかし実際掲示板でもなかなか分かる方がいないようです）





> >>インクルードや、初期設定は、どこで調べればよろしいでしょうか？
>
> インクルードって、何をインクルードするのですか？
>
> RS-232CのAPIでしたらMSCのＭＳＤＮが良いと思います。
>
> http://msdn.microsoft.com/library/defau ... serial.asp

[Tako]

Rs-232C系のコマンドを使用するには、AB２を使用する必要があります。

http://www.activebasic.com/activebasic2.6/index.html

AB３、AB4ではサポートしていません。（APIが必要です。）
AB2でのRS２３２C制御（と言うより文字変数の取り扱い）は、いろいろと癖が有ります。
不可能では有りませんが、あまりお勧めしません。（特に送信が必要な時。）
昔の掲示板に対処方法を書き込みをした事がありますが、消えてしまったのかなぁ？？

あと、割り込み系のON　Com　等は使用できません。

使った事はありませんが、９９Basicや９８エミュレーター等を検討するか、
前記に、せっかくAPIの書き込みが有るので、APIに挑戦してみては如何でしょう？？

[hiro]

Tako様

> 私が中学の時は、ご指摘の雑誌に付属されていたTiny BASIC（ソノシート）を
> ＴＫ－８０（コンポBS）に読み込ませＢａｓｉｃを走らせていました。
> その後、PET→APPLE-II →PC-8001って感じです。

TK-80からですか。すごいですね。これってPC8001の元になった基板にテンキーみたいなのと７セグ表示（だったっけ？）だけのPCでしたよね？写真でしかみたことないです。でも今となっては写真でも見たことある人も少ないでしょうね。むちゃくちゃなつかしい！カセットテープに”ピーガー”とプログラムを保存（録音？）していた時代からえらく時代は進んだものです。自分も歳をとるのがわかります。（＾＾；）

[いとちゃん]

私はＡＢ２使いです。

なかなか、ＡＰＩの領域に入り込めません。
なにから勉強しようかなという感じです。

実は、ＲＳ－２３２Ｃからのデータを読み込んで、キーボードからの入力と
同じくしようという常駐型のアプリを作ろうと思ってたのですが。

ＡＰＩがないと、この先ができなそうなことに気付き、これからＡＰＩはじめようと
思います。

ご指導ありがとうございました。




Rs-232C系のコマンドを使用するには、AB２を使用する必要があります。
>
> http://www.activebasic.com/activebasic2.6/index.html
>
> AB３、AB4ではサポートしていません。（APIが必要です。）
> AB2でのRS２３２C制御（と言うより文字変数の取り扱い）は、いろいろと癖が有ります。
> 不可能では有りませんが、あまりお勧めしません。（特に送信が必要な時。）
> 昔の掲示板に対処方法を書き込みをした事がありますが、消えてしまったのかなぁ？？
>
> あと、割り込み系のON　Com　等は使用できません。
>
> 使った事はありませんが、９９Basicや９８エミュレーター等を検討するか、
> 前記に、せっかくAPIの書き込みが有るので、APIに挑戦してみては如何でしょう？？

[ＡＢＥ]

ＡＢ初心者です。
簡単なコードでＲＳ２３２Ｃでデータを取り込めるとのことで
ＡＢ２にて下記コードを入力して、デバッグモードにて実行してみました。
結果、一行目に”型が違います”というエラーが出ました。
何が悪いのか分かりませんので教えてください。


> ＡＢ２でしたら、下記のコードで受信しファイル化できます。（試していませんが・・・）
>
> Open COM1 AS #1
> Open RX_File.CSV FOR OUTPUT As #2
> For Rx_Loop=1 To 10
> Line Input #1,Rx$
> Print Rx$
> Print #2,Rx$
> Next
> Close #2
> Close #1

[ゲスト]

実際に通信して試せる環境が無いので、１台で動かしてみました。
下記でエラーはでませんが、どうでしょう？

コード: 全て選択

 Open "COM1" AS #1
 Open "RX_File.CSV" FOR OUTPUT As #2
     For Rx_Loop=1 To 10
         Line Input #1,Rx$
         Print Rx$
         Print #2,Rx$
     Next
 Close #2
 Close #1