ab.com コミュニティ

ActiveBasicを通したコミュニケーション
現在時刻 - 2017年9月20日(水) 18:14

All times are UTC+09:00




新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 
作成者 メッセージ
投稿記事Posted: 2007年10月02日(火) 14:40 
オフライン

登録日時: 2007年10月02日(火) 14:22
記事: 2
こんにちは、かづです。
99BASICでRS232C通信がうまくいかなかったので、色々寄せ集めて作ってみました。

ABv4.24.00,Windows2000で作成
Windows9x系では動きません。
ActiveBasicで初めて作ったプログラムなのでおかしな所は指摘して欲しいです。
少しでもRS232C通信で困っている人の役に立てば幸いです。

個人的理由の為、送信はファイルを選択する方式になっています。

'07/11/20追記
どうやら1バイト文字のみの場合はほぼ問題なく受信できるようだが、2バイト文字が入っていると文字が落ちる場合があるようです。まだ原因が不明ですが。

'08/01/12追記,差し替え
あまりたくさんのテストはしていませんが、2バイト文字も問題なく受信できるように修正しました。

RS232Ctest.lzh


最後に編集したユーザー kadushi on 2008年1月12日(土) 20:00 [ 編集 2 回目 ]

通報する
ページトップ
投稿記事Posted: 2007年11月10日(土) 19:04 
オフライン

登録日時: 2007年10月02日(火) 14:22
記事: 2
以前作成したRS232Cプログラムをスリムにしてみました。

送信は指定したファイルをただ送信するだけです。
受信もConsole画面にただ表示するだけです。
'07/11/17差し替え
2バイト文字も受信できるように変更しました。

'08/01/12差し替え
2バイト文字の判断条件が不足していた為追加。

以前作成したもの同様そのままでは機能不足だと思いますが、よかったら利用してください。

TU-SIN.lzh


通報する
ページトップ
 記事の件名:
投稿記事Posted: 2009年1月02日(金) 09:42 
オフライン

登録日時: 2008年3月31日(月) 19:04
記事: 11
住所: 東京都
通信部について、送信、受信Threadを作成するCreateThread の最終パラメータを設定することで
Windows98、MEで動作しました。

Dim ThreadId As DWord
hThread = CreateThread(ByVal NULL, 0, AddressOf(Thread), 0, 0, VarPtr(ThreadId))


通報する
ページトップ
期間内表示:  ソート  
新しいトピックを投稿する  トピックへ返信する  [ 3 件の記事 ] 

All times are UTC+09:00


オンラインデータ

このフォーラムを閲覧中のユーザー: なし & ゲスト[2人]


トピック投稿:  可
返信投稿:  可
記事編集: 不可
記事削除: 不可
ファイル添付: 不可

検索:
ページ移動:  
cron
Powered by phpBB® Forum Software © phpBB Limited
Japanese translation principally by KONISHI Yohsuke