20レス以内で済むF-BASIC質問の件 - 1077303357

1：S.A：2004/02/21(土) 03:55: 今回は過去の掲示板過去ログを探していますの件で
大変お世話になりました。S.Aと申します。
20レス以内で済むF-BASICの質問はこちらへとありましたが
今回の掲示はこの場所で良かったのでしょうか。
それとも20レス以内で済むF-BASICの質問の方になるのでしょうか。
また、20レス以内とありましたが、20レスとは20行の意味で理解して良いでしょうか。
その辺はあまり詳しくありませんので、よろしくお願い致します。
18：nisii：2004/10/22(金) 14:09: レジストリを読めばいいのかな？
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/serial/hh/serial/sseovr_6ae5c2bb-a184-483e-9265-9a35daa2d5b6.xml.asp

1.シリアルポートテーブル内を検索
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet\Services\Serial\Enum

2.テーブルからサブキーを取り出し、詳細を参照(以下は固定値ではありません)
HKEY_LOCAL_MACHINE\SYSTEM\ControlSet\Enum\ACPI\PNP0501\1

COM3以降の取り出しは、別の方法かも。
MSDNなどで探してください。
19：Fbasic使用者：2004/10/22(金) 15:02: nisiiさん
ご返答下さいましてありがとうございました。
プリンタ名とポート名の列挙ソフトから
ポート名の列挙がありましたので一部を追加して
出来ればと思っていましたが、お送り下さいました
情報を見て調べでみました。OS、COMにより工夫が必要で
自分では簡単でないことが解りました。
お陰様で納得する事ができました。
お礼を申し上げます。
20：akira：2004/12/08(水) 23:27: エディットコントロールの背景色をプログラムから変更することは
できるのでしょうか？
教えてください。
よろしくお願いします。
21：Ｆ橋：2004/12/09(木) 13:11: >>16の件は私はF-BASICでUSBを扱った事が無く分かりませんです
F-BASICでUSB経験者の方。見えましたら>>16の件お願いしますです
22：iwaki_farm：2004/12/11(土) 21:32: 残念ながらUSBは使えません。
USBプリンタでLPT0:のように直接印刷出来ませんでした。
23：ＴＯＫＯ：2004/12/12(日) 08:43: 掲示板(ツリー)#1163ねずみ男さんのレスも参照・・
簡単なテスト方法は、
'書込
open "test.csv" for create as #1
'4行あるとして・・読み込んでテキストモードフォームに表示できるよう
for i = 1 to 4
z$ = ""
'100項目
for j = 1 to 100
if j < 100 then
'テスト用にランダムな数字を文字列に""で囲む
z$ = z$ + chr$(34) + right$(str$(rnd(1)),2) + chr$(34) + ","
else
'100項目で、改行(1行おわり)
z$ = z$ + chr$(34) + right$(str$(rnd(1)),2) + chr$(34)
end if
next j
print #1,z$
next i
close #1

'読込は1行100項目をを一度に読み込まなくても
open "test.csv" for input as #1
'データのある間
while not eof(1)
'100項目と決まっているので
for i = 1 to 100
input #1,z$
'取得データを配列に入れる、または表示

'ただフォームに表示する場合
if i < 100 then
'表示の都合上","を付加
print z$ + ",";
else
print z$
print
end if
next i
wend
close #1
で、いいのではないかと思います。

蛇足ですが、chr$(34)は、空白のあるファイル名を読み込む場合も使います。