■■■20レス以内で済むF-BASICの質問はこちらへ■■■ - 1071834531

1：Ｆ橋：2003/12/19(金) 20:48: 20レス以内程度（20回程度の投稿）で終わりそうなF-BASICの質問はこちらでお願いします
短い質問のスレッドがいくつも立つより１つのスレッドで固まっていた方が長期に渡り見ることができ
かつ保存も簡単かと…

（いや…私だけでなく…皆さんも簡単のはずなんですが…（汗（笑）））

掲示板の内容の長期保存にご協力頂ける様よろしくお願いします
404：ロディマス：2006/05/24(水) 22:37:52: http://www.freebasic.net/
http://fbide.sourceforge.net/
http://gamdev.org/w/?%5B%5BfreeBasic%5D%5D
このフリーベーシックが大変良さげです。
Ｆ－ＢＡＳＩＣの文法がほとんどそのまま使えます。
また、Ｆ－ＢＡＳＩＣの数倍早く動きます。C言語並です。
405：Ｆ橋：2006/06/01(木) 03:18:49: おくてさん＞
F-BASIC手に入れられた様でおめでとうございます！

さて。今更無理なんですがささやかな抵抗として。トップページのF-BASIC Ver7お願いします！の署名欄に
おくてさんも掲載させて頂けませんか？
現在ここのメールアドレスが使えませんので。掲示板で。掲載したいハンドルネーム（おくてさんでいいでしょうか？）と
もしVer7が発売されたら購入予定の本数をご指導頂き署名に参加する旨を掲示板で連絡頂ければ掲載させて頂きます

ロディマスさん＞
海外でF-BASICというとFreeBASICを指すくらい有名で使いやすい言語らしいっすね
私も浮気しようと何度も思ったです（笑
あと。ActiveBASICにも浮気しようと思ったです
あ。まだあります。99BASICも用途限定ですがお勧めです。
99BASICはファイルのオープン数などに制限がありますがインタープリタなのになぜか高速に動きます
（ﾌﾟﾚｲｽﾃｰｼｮﾝのﾌﾟﾛｸﾞﾗﾏが作ったゲーム作成可能の速度が出るインタープリタです）

さて。個人的にVBは好きでは無い。好きでは無いんすが仕事する上ではやはり必要になってきてます
仕事を視野に勉強される方にはVB.netもお勧めしなければならないっす
VB.netには現在フリー版（無料版）のExplessが存在します
アドレス忘れました。Visual BASIC .net expless等のキーワードで検索してみてください

VisualBASIC .net Ver2003 スタンダードが１万円程度の有償でした。が。
VisualBASIC .net Ver2005 Expless が無料でスタンダード並に使う事が出来ます

Ver2003スタンダード（及びVer2005）とProの違いはクリスタルレポートがあるかどうかがメインで…と。
話長くなるし相違点はいくつかあるので省略させて頂くです
406：Ｆ橋：2006/06/01(木) 03:29:27: ひとりごとです。
現在VB.netに奮闘中です

シンプルなグラフィックだけどテキストで全て表す事が出来るF-BASIC（N88BASICなど過去のBASIC含む）に比べ
グラフィック的にはいいんですが表を出すだけでも（フォントの幅が違うので）どうやって作成しようか悩んだりしてます

表を作る前にテストをしようと思い。テキストファイルを表形式に表示。の前にテキストファイルを読もうとしました

open "dummy.txt" for input as #1 : while not eof(1):line input #1,buf$:print buf$:wend

↑これが使えません
BASICの規則から外れているはずなのにBASIC名乗っているのはなぜ！？と思ったりしてます

F-BASICやN88BASICはマニュアルとサンプルがあればほぼ思い通りにプログラム出来ます
VB.netは数冊の本を購入し調べてるんすけど未だに作りたいもの（表が作りたいだけなんです）が作れません（涙

旧BASICでは20～30種類程度の命令を覚えれば大半の事が出来ると思います
ですがVB.netの場合は20～30冊の本を読まねば大半の事が出来ない気がします（笑

何というのか…世間の流れ的に違和感がある気がしてるです

グラフィックのプログラムはまだ始まったばかりだと思います
数年先。VB.net簡単バージョン。VB.netに比べ1/100くらいの簡単さ。（代わりにVB.netの8割くらいの機能）
なんて言語が出てきそうな気がするんすけどね～
（ある意味Accessですが。データ基準のAccessでは無く。実行結果を求める様なAccessと言えばいいのか…）

20年くらい前のMS-DOSのC言語とBASIC。C言語の8割くらいの機能しか無いBASICだけど1/100くらいの命令数で
（速度はいまいちとは言え）C言語の8割が出来たと思います
数年したら驚く様な言語が出るのを期待してるんすけどね～
（ただ。MSが一番の現在。競争相手がいない現在ではそれが難しいかも。とちょっと思ってますけどね）
（（ある意味JAVAがあてはまるのかも知れませんね））
407：ぶるぶる：2006/06/02(金) 17:31:29: freebasicちょっと触ってみました。確かに処理速度早いですね。
作成されたexeファイルのサイズ自体も小さいかも。
ただ…構造化プログラミングの概念がない言語なのかもしれません。
408：Ｆ橋：2006/06/14(水) 01:55:30: FREEBASICを触った事は無いのですが…他の方から似た様な意見を聞いた事があります
評判いいみたいですね
409：名無しさん：2006/06/15(木) 15:01:59: F-BASICでウインドウを任意で大きさ変えられないようにする（デフォのまま
で固定する）方法ってありますか？
基本的なプログラム以外はよくわからないもので。。。
410：akira：2006/06/15(木) 19:28:02: mainformのプロパティでフレーム種類をダイアログフレームにすると
固定になります。
411：409：2006/06/16(金) 03:08:41: >>410
ありがとうございます。今までその辺全くいじってませんでした。
412：小川：2006/06/18(日) 10:07:40: F-Basicでwebのhtmlを呼び出す方法が解りませんので教えて下さい
とりあえず急ぎで方法が知りたいのでよろしくお願いします。
http://www.geocities.jp/bio_balance_harmony/
413：nisii：2006/06/18(日) 23:32:42: SHELLEXECUTE で呼び出せますよ。
414：初心者：2006/07/10(月) 11:17:17: 漢字入力としてATOKを使っています。

ATOKの機能として単語登録が有り、よく使う、または業界の特殊単語を登録します。

漢字を打ち出す際、ローマ字入力すると窓にいくつかの候補が出、その中から選択します。

ワープロには外字登録機能があり、業界特有の外字を外字登録します、一太郎、Excel、Word等は漢字の候補を示す窓に外字登録されて文字がそのまま表示されますが
F-BASIC V6.3は外字の部分が・で表示され、なんと書いているのはわかりませ。

解決方法を教えて下さい
415：nisii：2006/07/10(月) 22:18:14: >>414
外字は使ったことありませんが、Unicodeなのでは？
F-BASIC内部ではShift-JISが基本になるため、Unicode表示はサポート外です。
416：YUTTA：2006/07/20(木) 01:10:18: おひさです。またしても質問なんですが、ＡＰＩでメール送信を
やってたんですが（某TigayaさんのHP参照）、最近いつのタイミング
かわからないんですが、「ソケットの接続に失敗しました」で、
エラーになってしまいます。ＡＰＩがかわっちゃったんでしょうか？
どなたか、対処法ご存知のかたいましたらご教示お願いいたします。
<(_ _)>　宜しくです。　YUTTA
417：TOKO：2006/07/20(木) 06:59:46: YUTTAさん>
お久しぶりです。
Ws2_32は、使ったことがなかったので、検証報告のみ・・
そのプログラムを走らせてみましたが、正常に送ることが出来ました。
WindowsXP_HE、Ws2_32.dllバージョン5.1.2600.2180
418：TOKO：2006/07/20(木) 12:25:57: YUTTAさん>
下記のような場合もあるようです。
ウィルスバスター2006をお使いの場合
メールを送信する際、「外部に接続しようとするプログラム/・・・」が表示された場合
一度「接続を拒否」を実行した場合、[接続を拒否] ボタンをクリックすると、このアク
セスはブロックされ、以降は同じ種類のアクセスがすべてブロックされます。

パーソナルファイアウォール→プロファイルの設定→該当ネットワーク→編集
→例外ルール(ここの一覧の該当EXEにチェックが入っている)
419：YUTTA：2006/07/20(木) 22:29:36: ＴＯＫＯ様＞
いつも親切にご指導頂きまして、ＴＯＫＯ様には感謝感謝です。　<(_ _)>
ｿｰｽﾈｸｽﾄのｳｲﾙｽｾｷｭﾘﾃｨｰを使っています。
もう一度打ち込んだリソースをチェックしなおし、更にウイルス・ソフト＆
ファイヤーウォールについて検討してみます。ありがとうございました。
私と違う環境のヒトではうまくいったり・・・、で、ちょっと悩んでいました
ので、もしかして、セキュリティー関係かもですね・・・。"^_^"
がんばりますです。　(^^ゞ
420：YUTTA：2006/07/21(金) 19:20:46: ＴＯＫＯ様＞
何度もすみません。<(_ _)>
ＴＯＫＯ様ご指摘のとおり、ウイルス・ソフトが原因でした。　(ToT)
以前使っていたものでは何も問題なかったのですが、
メインのＰＣが変わり、ウイルス・ソフトも・・・。
目から鱗・・・原因がこちらのＰＣ環境とは・・・。(ToT)
ホントニ、度重なるご指導ありがとうございました。<(_ _)>
421：名無しさん：2007/01/26(金) 19:57:39: FM-7のFBasic関係の資料はどこのサイトを参考にしたらいいですか？
検索しても見つからなくて昔の資料も無いので、もしありましたら教えて下さい。
422：二股男：2007/02/16(金) 00:02:44: Visual Basicを勉強しようと思い、VisualStudio2005ProfessionalをインストールしたらFBASICV63
内の.MAKを開こうとするとVisualStudio2005側のメッセージが出てきます。
共存する方法はありますか。Vbasicは全く初心者ですが
423：名無しさん：2007/02/19(月) 22:44:23: >>422
ファイルの拡張子 .MAK、.BAS、.FRMなどのファイルがVisualBasicと重なるので。
VisualBasicに関連付けられた状態かと思います。

とりあえずの回避方法としては、
　F-BASICをWindowsのスタートメニューなどから起動して、
ファイル(F)メニューの開く(O)を選択、
ダイアログのファイルの種類欄でプロジェクト(.MAK)に変更して
.MAKのファイルを開く。

解決方法としては、
A. F-BASICを再インストールして、再度F-BASIC側に関連付けさせる。
B. 手作業で.MAKの関連付けをF-BASICに設定変更する。
のいずれかの方法になると思います。
424：kuri：2007/02/20(火) 19:01:10: **.MAK を F-Basicから開く方法。
右クリックから「プログラムから開く」、そしてF-Basicを選ぶ。
もしF-Basicが出なければ、「プログラムの選択」からF-Basicを選ぶ。
この時、「この種類のファイルを開く時は、選択したプログラムをいつも使う」にチェックを入れておけば、MAKファイルを開く時、デフォルトでF-Basicが起動するようになります。
425：後追い男：2007/02/21(水) 23:18:45: 本当にありがとうございます。
426：DOSD：2007/02/22(木) 02:44:17: VBもF-BASICも同じ拡張子を使うのでSendTo（送る）を使ってみては如何でしょうか？
私は拡張子TXTは標準のメモ帳のままですがSendToにエディターを入れて
右クリックの送るからエディターを起動できる状態にしメモ帳とエディターを使い分けています
427：kuri：2007/04/01(日) 15:35:14: f-basicでの質問です。
宛名ソフトでよくあるのですが、名前を入力して漢字変換後、
ヨミガナに自動的に入力するのは、できるでしょうか？
よろしくお願いします。
428：ＴＯＫＯ：2007/04/01(日) 16:40:03: kuriさん＞
F-Basic掲示板に書き込みがあると、ホッとしているＴＯＫＯです。
ヨミガナについては、APIを使用することで実現可能です。
*ttp://tokovalue.hp.infoseek.co.jp/の「フリガナ取得」に
一例を紹介しておりますのでご覧ください。
429：kuri：2007/04/01(日) 21:28:50: TOKOさん、さっそくにありがとうございました。
すごい内容の充実したサイトですね。
試してみました。
ただ、入力の途中で区切ると後半だけの分しか残らないのですね。
研究してみます。

それから、またお願いなのですが、
エンターキーで入力項目を移動するという、よくあるパターンですが、可能でしょうか。
メーカーサイドのアナウンスでは、不可能だったと思うのですが。
430：ＴＯＫＯ：2007/04/01(日) 23:17:35: 「Enter」によるコントロール間移動

Ⅰ.ニャン子さんの「F-Basic Programming Life」
　*ttp://www.geocities.co.jp/SiliconValley/1223/mainmenu.html
　9.【番外編】ウィンドウメッセージを横取りする
　を、利用させていただく・・・

Ⅱ.ここのＨＰトップの
　★エディットボックスでエンター移動★（gobou氏）

Ⅲ.昔どなたかが発表されていた方法

#Define CrLf$ Chr$(13, 10)

Declare Sub Edit1_Change edecl ()
Sub Edit1_Change()
Ed1$ = GetDlgItemText("Edit1")
EPos = InStr(Ed1$, CrLf$)
If EPos <> 0 Then
Ed1$ = Mid$(Ed1$, 1, EPos - 1) & Mid$(Ed1$, EPos + 2)
Edit1.SetWindowText Ed1$
Edit2.SetFocus
End If
End Sub

※EditBoxのプロパティ設定
　複数行入力→あり
　文字数制限→目的文字数+2（CRLFの2文字分）
　垂直オートスクロール→あり

などがあります。
431：kuri：2007/04/02(月) 22:41:44: ＴＯＫＯさん、またまた有難うございます。
御礼が遅くなりすみません。
風邪を引いてしまい、咳が強くて困っています。
まだ、試していませんが、じっくりと研究してみます。
複数行入力ありって、面白い発想ですね。
また、よろしくお願いします。
432：ハル２１８３：2007/04/03(火) 12:45:33: あるフォルダー内のファイル名を全て変換したいのですが、教えていただきませんか？
例）track1.mp3→恋ものがたり.mp3
433：nisii：2007/04/04(水) 01:34:38: どういう状況で困られているのかが、分かりません。
つまづいている点を、具体的に書いていただけませんか？
434：あった：2007/04/22(日) 23:55:08: F-Basicのことを誰に聞いていいのかわからず、
ネットを見ていたらこんなに充実した掲示板があるなんて！！
よかったら仲間に入れてください。
Q:mainformのクローズボタンを押した後、
クローズを取り消すにはどうしたらよいのでしょうか？
QUERY_CLOSEのイベント内で処理できますか？
お願いします。
435：nisii：2007/04/23(月) 04:42:47: この掲示板トップの「F-BASIC掲示板(雑談歓迎)」でメインサイトに戻り、
「アプリケーションを閉じさせない」を参考にしてください。
436：あった：2007/04/23(月) 22:55:22: nisiiさんありがとうございます。すでに書かれていたんですね。
437：kuri：2007/06/01(金) 03:54:23: すみません、教えてください。
HTTPOPEN(CLOSE) や HTTPGET は、独立型では使えないのでしょうか。
コンパイルすると、こんなエラーが出ます。
MAIN.obj : error LNK2001: 外部ｼﾝﾎﾞﾙ "_FB$HTTPOPEN@8" は未解決です
MAIN.obj : error LNK2001: 外部ｼﾝﾎﾞﾙ "_FB$HTTPGET@16" は未解決です
MAIN.obj : error LNK2001: 外部ｼﾝﾎﾞﾙ "_FB$HTTPCLOSE@4" は未解決です

プロジェクト環境のライブラリーで、次のように表記されますが・・・
「インターネット拡張ライブラリー（独立型はサポートされていません）」
どこかに、ライブラリーは、あるのでしょうか。
438：nisii：2007/06/01(金) 21:56:54: >>437
この場合、独立型はサポートされませんので、ランタイム型でコンパイルしましょう。
別のPCで実行する場合は、ランタイムファイルを実行ファイルとともにコピーします。
私がよく使うのは次の4つです。

F1A0RN63.DLL 基本命令2
F1A0LF63.DLL ファイル拡張
F1A0RＷ63.DLL ウィンドウ拡張
F1A0RI63.DLL インターネット拡張

ライブラリファイルはF-BASICインストールフォルダの\LIBにあります。
439：kuri：2007/06/01(金) 22:58:03: nisiiさん、ありがとうございます。
やはり、独立型ではサポートされていないのですね。
なんだか、詐欺に遭った気がします。
F-BASICでありがたいのは独立型が簡単に作れた事ですが、ちょっと残念です。
440：kuri：2007/06/01(金) 23:29:29: nisiiさん、たびたびすみません。

F1A0RN63.DLL 基本命令2
F1A0RＷ63.DLL ウィンドウ拡張
F1A0RI63.DLL インターネット拡張
この３ファイルは、system32 にありましたが、
F1A0LF63.DLL ファイル拡張
このファイルは、どこにも見つかりません。
もし、存在場所をご存知でしたら、教えてください。
441：hill：2007/06/01(金) 23:34:54: いまさらなんですが･･･F-BASICって手に入らないでしょうか？
442：nisii：2007/06/02(土) 02:15:08: >>440
あ、書き間違いがありました。ごめんなさい。
>>438 の4つは.DLLではなく.LIBです。
F1A0LM63.LIBは、実行ファイルに組み込まれます。
443：nisii：2007/06/02(土) 02:15:52: >>441
オークションとかで気長に待つしかないかも、です。
444：kuri：2007/06/02(土) 20:07:33: >>442
nisiiさん、ありがとうございます。

結果的に、次の３ファイルが必要という事ですね。
F1A0RN63.DLL 基本命令2
F1A0RＷ63.DLL ウィンドウ拡張
F1A0RI63.DLL インターネット拡張
445：kuri：2007/06/07(木) 19:13:41: >>430
少し古い話で恐縮です。
ＴＯＫＯさんに教えていただいた方法ですが、
Enterキーの入力では Sub Edit1_Change() に行きません。
何が間違っているのでしょうか。
よろしくお願いします。
446：kuri：2007/06/07(木) 19:20:24: >>445
すみません、少し間違いました。
edit1 で複数行入力を「あり」とすると、Edit1_Change は発生します。
しかし、次の部分で crlf を認識しません。
Ed1$ = GetDlgItemText("Edit1")
EPos = InStr(Ed1$, CrLf$)
よろしくお願いします。
447：＜削除＞：＜削除＞: ＜削除＞
448：ＴＯＫＯ：2007/06/08(金) 17:22:33: kuriさん＞こんにちは
あれっ！動きませんか？
コードの一部だけでは、どうなっているか解りませんので
EditBox を3個貼り付けた例を下記にUPしておきます。
*ttp://www.geocities.jp/tokovalue05/EnterMove.htm
449：kuri：2007/06/08(金) 22:10:02: ＴＯＫＯさん、ありがとうございます。
垂直オートスクロール(あり)を忘れていました。

API_GETKEYSTATEを使って、一応解決していましたが、
こちらの方が、妙な音はしないし、スマートで良いです。

あまり F-BASIC を使った事が無かったのですが、思っていた以上に良い言語ですね。
多くのファンが、まだ居られるのが解ります。
継続して欲しかったですね。
450：Vista不得意人間：2007/07/17(火) 20:21:39: XPではSETORIGIN 0,0でホームが移動しましたが、同じプログラムをVista上で
動かしても稼働しません。

何か良い方法はありませんか？
（私のバグならお許しください）
451：Ｆ橋：2007/07/19(木) 02:22:44: >>450
SETORIGIN 0,0 を使った事がありません
数行程度のサンプルソースをここにコピペして頂ければ
１週間以内に私が使っているVistaでの動作をご報告できますが･･
452：Vista不得意人間：2007/07/23(月) 15:30:43: #include "windows.bi"
#include "file.bi"
MAXIMIZEWINDOW
close #1
SETFOCUS
SETIMEMODE 2
cls
locate 2,2:print "SETORIGIN 0,0のプログラムです"
locate 2,80'この段階でlocate 2,2:print "SETORIGIN 0,0のプログラムです"が上に消えます

input "お願いします ";Z$
SETORIGIN 0,0
stop:end

******.RCで

#include "f1a0form.h"

// version info ===
FB$VersionInfo RCDATA
BEGIN
// RCDATAITEMHEADER
"FB", 0
0x6, 0x10
END

// 'MAINFORM' form data ===
MAINFORM RCDATA
BEGIN
// RCDATAITEMHEADER
"FB", 1
__BEGIN
__CLASS, "MAINFORM\0", "\0"
__CREATE3, XWT_FORM, 0xff0115L, 0x0L
__ATTRDATA3, 0x0L
__3DFORM3, 0x0L
__REDRAWMODE, RDRW_BITMAP
__TEXTBUFFER, 132, 124
__AXIS3, 0x0L
__WINDOWTITLE, "MAINFORM\0"
__CONTROLNAME, "MAINFORM\0"
__TEXTCOLOR, 0
__FORECOLOR, 0
__BACKCOLOR, 15
__GRID2, 1, 1, 8, 8
__CLIPBOARD, 1
__FONTSIZE, 16
__FONTNAME2, "ＭＳ明朝\0", 1, 44
__SENDMESSAGE, 0x32L, 0x0L, 0x0L //WM_SETHOTKEY
__WINDOWSIZE3, 0x0L, 0x96L, 0x120L, 0x320L, 0x1ceL
__EVENT
__BEGIN
__EV_START, "MAINFORM_START\0"
__EV_END, "MAINFORM_END\0"
__EV_SETFOCUS, "MAINFORM_SETFOCUS\0"
__EV_KILLFOCUS, "MAINFORM_KILLFOCUS\0"
__EV_RESIZE, "MAINFORM_RESIZE\0"
__EV_CLICK, "MAINFORM_CLICK\0"
__EV_DBLCLICK, "MAINFORM_DBLCLICK\0"
__EV_MOUSEDOWN, "MAINFORM_MOUSEDOWN\0"
__EV_MOUSEUP, "MAINFORM_MOUSEUP\0"
__EV_MOUSEMOVE, "MAINFORM_MOUSEMOVE\0"
__EV_QUERYCLOSE, "MAINFORM_QUERYCLOSE\0"
__EV_NOTIFYICON, "MAINFORM_DROPFILES\0"
__EV_DROPFILES, "MAINFORM_NOTIFYICON\0"
__EV_MOUSEWHEEL, "MAINFORM_MOUSEWHEEL\0"
__END
__SHOWWINDOW3, XSW3_SHOWMAXIMIZED
__ENABLEWINDOW, 0
__END
END

でかなり画面の下で表示されてもかならず０，０に戻りそこで初期の画面表示が出来ます

（このままの******.basではlocate 2,80でエラーがでます）
453：Ｆ橋：2007/07/26(木) 22:55:25: >>452
私は頭が悪いので

>（このままの******.basではlocate 2,80でエラーがでます）
と言われても分かりません（笑）
また、SETORIGINを使った事が無いので正常異常の区別できません

main.basに貼り付けて翻訳実行するだけでいいサンプルを頂ければ
再度ご報告致します
454：HongKong_market：2007/11/19(月) 22:47:17: 【Ｕ００３＋】
F-BASIC v6.3に対して提供されているアップデートは、公式にはU003までです。
私は2000年当時、富士通に対してバグ報告をしてアップデートのローカル
リリースを受けました。

ドキュメントには「U003+」とあり、SETORIGIN命令とENUMFONTNAMES関数に
冠する不具合が修正されています。

興味のある方はご連絡ください。
455：Ｆ橋：2007/11/20(火) 03:50:12: >>454
非常に興味があるのでメールで送って頂けませんでしょうか？
2000年前後に同様に富士通からバグフィックスを送って頂いた方が見えてそれを利用していますが
それと比べてみたいと思います

よろしくお願いします
456：HongKong_market：2007/12/01(土) 00:04:17: Ｕ００３＋公開】
ローカルリリースされた F-BASIC V6.3向けアップデータ U003+ を下記におきました。
興味をお持ちの方はアクセスしてみてください。

　　　ttp://bluemarble.jp/fbasic/
457：HongKong_market：2007/12/04(火) 19:57:58: 【F-BASICマニュアル】
下記の富士通のWebによると、F-BASIC Ver.6.3のマニュアルを
販売しているとあります。

　　　www.fmworld.net/product/soft/fbasic/books/

実際に FOMダイレクトショップ（0120-818-128）に聞いてみた
ところ、すでに絶版になっているとのこと。
コピーして製本したものならば販売できるが、価格は同じで、
３冊で１万ン千円とのことでした。

電波新聞社が発行している「F‐BASIC V6.3プログラミングのすべて」
という書籍はまだアマゾンでも手に入るようです。
どのような内容なのか、読まれた方はいらっしゃいますか？

　　　www.amazon.co.jp
458：ＴＯＫＯ：2007/12/05(水) 22:53:52: HongKong_marketさん＞
U003+をダウンロードさせていただきました。情報ありがとうございます。
私も、何時だったかは忘れましたが、format$ の不具合でリリースを受けた
ことがありました。その後のバージョンでは修正されているのでしょうが、
報告のあった人にだけ修正版を提供（違うかもしれませんが）というのが
チョット引っかかります。
U003+では、>>450 のSETORIGINも修正されているのでしょうかね？
私は、使ったことがないので解りませんが・・

HAMの方でもご活躍のようですね。私は10年ほど前から局免を更新していません^^;)
JA8KIL ex JA1WGR
ＴＯＫＯ
459：Ｆ橋：2007/12/06(木) 01:07:46: >>456
メール送りましたのでご確認頂けると助かります

>>457
F‐BASIC V6.3プログラミングのすべて持ってます
BASIC初心者もしくはWindowsBASIC初心者がF-BASICで楽しく勉強したい方に特にお勧めです
BASICの文法、ボタンを押して表示、画像の表示や編集、データベースへの接続、FTPやHTTPのサンプルなどです
仕事でプログラムをしている方でマニュアルやサンプルを一通り見ている方なら不要かも知れませんｗ
（F-BASICのマニュアルとサンプルは非常に充実しているので）
ただし見やすい分かりやすいなどは確かで私は買って損は無いと思っていますよ

nisiiさんやニャン子さんのような方はいらないと思います（笑
仕事でプログラムしている私ですが、本を読み理解する能力が低い私には少し便利です（笑

>>458
>報告のあった人にだけ修正版を提供（違うかもしれませんが）というのがチョット引っかかります。
実は私も同じでなぜ富士通が公開してくれないかが気になります
富士通がF-BASICの自然消滅を願っている気がします
460：ままま：2008/01/01(火) 23:02:10: 元旦早々の質問、よろしくお願いします。

まままと申します。初参加です。
数年来F-basicを使用し、どこかでVBに移行しなければと思いつつも、
結局販売終了となったV6.3まで、毎回のVersionUPを継続してきました。
年明けには、新しくドットNetが発売されるとの事、ついに以降の時かと思い、
それでいて、この休みにいろいろネット検索をしているうちのこちらを発見しました。
私も、是非ともVersion7を期待したく思います。

前置きが長くなりましたが、本題の質問です。
（長年使ってますが、超初心者です）
現在、win2000で使用しているのですが、コンパイル後のexeプログラムを
XpやVistaで使用する際に、文字が大きくなり困っています。
こちらに掲載される情報を拝見すると、各コントロールのフォントサイズを
指定して回避できるとの事で、早速、行ってみました。
そして、結果は、その通りなのですが、下記の点、お教えください。

１．フォームに多くのボタンを配置しています。これまでは、ボタンの
プロパティでフォントサイズを指定していたのですが、コントロールごとの
指定になると、すべてのボタンに対して、下記の３行が必要なのでしょうか？
例えば、ボタンが20個あると、20ｘ3＝60行の命令追加が必要ですか？
var shared ... as object
... attach getdlgitem("...")
... setfontsize ..

２．そのような長いプログラムの追加で、メモリの使用量や動作速度への影響は
いかがなものでしょうか？

３．Xpでの表示では、いったん大きなフォント（プロパティ指定の大きさ）で表示され、
その後、コントロール（プログラム上）の指定サイズで小さく表示されるため、
文字の大きさが小さく変化するのが見えてしまします。
これは、回避できないのでしょうか？

いきなりの参加でのご質問ですが、よろしくお願い致します。
461：nisii：2008/01/02(水) 09:01:16: まだ酔っ払い中につき、手短で失礼します。

1.
コントロール毎にフォントサイズの指定が必要です。

2.
再利用しないコントロールは、フォント指定後にDETACHで開放できます。
特にWindowsMe/98を前提にするなら、積極的に行うのが望ましいです。
起動時に指定するだけですし、プログラムの実行速度には影響しません。

3.
あらかじめMAINFORMのプロパティ…基本スタイル…可視…なし
で非表示にしておき、すべての準備ができた時点でSHOWWINDOWを使って
表示すれば解決できます。
462：ＴＯＫＯ：2008/01/02(水) 09:21:20: 皆様、明けましておめでとうございます。
今年もよろしくお願いいたします。

まままさん＞
MainFormにButton数が２０個の場合、MainFormを「可視なし」に設定。

Var Shared Button(19) As Object

For i = 0 To 19
Button(i).Attach GetDlgItem("Button") & Trim$(Str$(i + 1)))
Button(i).SetFontSize 14
Next i

ShowWindow -1

というのは、どうでしょうか。

と、書いてページ更新をしたら、nisiiさんに先を越されていました。
463：ままま：2008/01/02(水) 19:18:47: nisiiさん、TOKOさん、お正月にも関わらず、
ご回答ありがとうございます。

早速、試してみます。
と、申しましても、私には簡単なことではないので、
少々時間がかかるかと思いますが、近いうちに、結果を
ご報告致します。（今夜は寝られないかも）

しかし、このような場があると、心強いですね。
今更ながら、"F‐BASIC V6.3プログラミングのすべて"を注文しました。
464：ままま：2008/01/03(木) 01:02:44: Var Shared Button(19) As Object

For i = 0 To 19
Button(i).Attach GetDlgItem("Button") & Trim$(Str$(i + 1)))
Button(i).SetFontSize 14
Next i

Xp/Vistaで文字表示の大きさが変化するのは、「可視なし」で解決しました。
あと、上記のコマンドですが、１行目のButton(19)とか、3,4行目のプログラムは
使えるのでしょうか？
私の環境は、windows2000＋Ver6.3ですが、コンパイル時に”文法が正しくありません”となります。
楽せず、すべて個々に打ち込めば良い事ではあるのですが。。。

ご教授、よろしくお願いします。
465：Ｆ橋：2008/01/03(木) 03:39:00: まままさん＞
おめでとうございます。初参加ありがとうございます。

フォントの件ですが、ＭＳゴシックでVistaでプログラムを作っていますが
XPと2000では（私の見た目では）同じ大きさに見えます
フォントサイズによって違いがあるみたいです。１５ポイントでは問題ないように見えます
（３ポイント単位でずれたりずれなかったりした気がします）
Ｆｉｘｅｄｓｙｓも問題ありませんが、なぜかＤＥＬＬだけ問題が出た気がします
これはVista、XP、2000のＮＴ系（ＮＴは試していませんがｗ）話であり、
９５系（テストでは９８を使用）では大きさが変わります。おそらくＭｅも変わると思われますのでご注意下さい
上記はVistaでコンパイルした場合です。XPや2000でコンパイルした場合は分かりません。

９５系、ＮＴ系で同じフォントで同じサイズでは基本的にずれたと思います。詳しくはnisiiさんへ（笑
９５系でもＮＴ系でも同じ表示にする場合はプログラムでＯＳを判断して
９５系ならフォントサイズ１０ポイント、ＮＴ系ならフォントサイズ１５ポイントなどの指定が必要のはずです
466：ＴＯＫＯ：2008/01/03(木) 08:32:47: まままさん＞
ゴメン(^^;)
前回は温泉行きの準備で焦っていたようです。「)」が多すぎました。
今，出先のPCで掲示板を見て気がつきました。
Button(i).Attach GetDlgItem("Button") & Trim$(Str$(i + 1)))
↓
Button(i).Attach GetDlgItem("Button" & Trim$(Str$(i + 1)))

Buttonに限らずフォームに貼り付けた複数のEditBoxの中身をクリアしたい場合などは便利です。

Var Shared Edit(19) As Object

For i = 0 To 19
Edit(i).Attach GetDlgItem("Edit" & Trim$(Str$(i + 1)))
Next i

と書けば、

表示クリアは、
For i = 0 To 19
Edit(i).SetWindowText ""
Next i
のような感じでできますね。

大雪山国立公園十勝岳温泉郷吹上温泉保養センター白銀荘
雪の中の露天風呂は最高でした。(^^)
467：ままま：2008/01/03(木) 13:08:43: Ｆ橋さん、ＴＯＫＯさん、ありがとうございます。

F-BASIC V6.3は、windows2000で使用しており、
今回の件は、MSPゴシックでフォントサイズ11を使用しています。
ここでコンパイルしたものを、XpやVistaで実行すると、大きなフォントで
表示されます。

さて、相変わらず、解決できていなのですが。。。
Button(i).・・・の様に、（i）として変数は使えるのでしょうか？
コンパイル時に「文法が正しくありません」となります。

Button(i).Attach GetDlgItem("Button" & Trim$(Str$(i + 1)))
は、Buttonは(i)ですが、GetDlgItemは(i+1)ですが、これで良いですか？

Var Shared Edit(19) As Object
は、Edit1～20をすべて選択してる事になるのでしょうか？
例えば、Edit10とEdit14を使用していないなど、連続していない場合は
どのように考えればよいでしょうか？

正月早々の質問ばかりで恐縮ですが、よろしくお願いします。
468：ＴＯＫＯ：2008/01/03(木) 17:28:29: まままさん＞こんばんは、無事札幌に帰ってきました。

>コンパイル時に「文法が正しくありません」となります。
プログラムの始めに
#include "Windows.bi"
が、入っていますか？

>Buttonは(i)ですが、GetDlgItemは(i+1)ですが、これで良いですか？
配列は「0」から始まります。コントロールIDの番号は「1」から始まります。
でもって、
Button(19)は、0～19で20個になります。
コントロールID → 配列変数
Button1 → Button(0)
Button2 → Button(1)
中略
Button19 → Button(18)
Button20 → Button(19)

配列のButton(0)を無視するのであれば、
Var Shared Button(20) As Object（これは21個分用意してある）

For i = 1 to 20
Button(i).Attach GetDlgItem("Button" & Trim$(Str$(i)))
Next i
でも・・・

>例えば、Edit10とEdit14を使用していないなど、連続していない場合は
私は、コントロールの数がどんなに多くても連番にしていますが、10 と 14 だけ
どうしても生理的に受け付けない(^^;)というのであれば、その番号の時はAttachのところを
If文とか、Case文とかを使って通らないようにすると良いのではないでしょうか。
469：ままま：2008/01/03(木) 20:11:04: TOKOさん、詳しいご説明で理解できました。
ありがとうございました。
Button(i)など、Var Shared Button(i) As Objectで指定すると、
後のプログラムの記述では、Button(1)をButton2としては
記述できないのですね。
（文法エラーになりました。(i)で記述したら問題なしでした。）

さて、番号が連続していない点については、Buttonを作ったり消したりしてるうちに、
無い番号ができてしまったためです。
Buttonの番号は変えられるものでしょうか？
470：ＴＯＫＯ：2008/01/03(木) 20:27:56: >Buttonの番号は変えられるものでしょうか？
例えば、Button10の必要が無くなってButton9に変更する場合、プロパティで
コントロールID(I)のButton10をButton9に修正、更に表示内容(P)でイベントを選択し
Button10_onをButton9_onに修正します。
471：ままま：2008/01/03(木) 21:45:38: ＴＯＫＯさん、早々のお返事ありがとうございます。
コントロールIDの名称は、書き換えられるのですね。
こんな単純なことだったとは。。。　以前も、ずいぶん悩んで結局諦めた経緯があります。
ありがとうございました。
472：Ｆ橋：2008/01/03(木) 23:40:38: 横からすいません。解決済みかも知れませんが…

2000とXPで同じ大きさにするにはMS明朝やMSゴシックでは無くMS明朝やMSPゴシックにするとの事
ttp://support.microsoft.com/kb/417434/ja

６、７．５、９などの1.5の倍数を使うとずれないとのこと（話題ではＭＳ明朝でした）
ttp://www.ailight.jp/blog/myamyu/archive/2005/03/03/4751.aspx

私が使っていたフォントは（固定長のＭＳゴシックですが）フォント１５なのでずれないのかも知れません

プログラムでフォントサイズを切り替えればもちろん一番いいのですが正直手間ですよね（笑
ですのでプロパティのみでプログラムは変更しなくてもいい話をさせて頂きました。しつこくてすいません（笑
473：ままま：2008/01/04(金) 00:42:38: Ｆ橋様

フォントの件、確認しました。
現在使用しているものは、MSPゴシックで、サイズが、11、12、14です。
ＸｐやVistaでは、そのいずれもが、大きくなってしまいます。

確かに、プロパティのみの変更で済むと、手間いらずでよいのですが。。。
対応策は理解し、確認も済ませたのですが、変更箇所が多くあるため、
まだ、変更処置に踏み切れずにいます。。。
474：Ｆ橋：2008/01/05(土) 01:33:30: >>473
フォントをFixedsysにした場合はどうなりますか？
尚、DELLにはFixedsysが無いのかうまく動かない場合がありますが
（はっきりとした理由分からないのですがDELLで動かすと（全てでは無いのですが）画面ずれたりしました）
478：B.O.A.-ceo：2008/09/17(水) 11:13:25: やっと、時間的余裕ができ、３０年前に造ったものを
移そうと思ったら、２行目でつまづき、困っています。
その昔、Width　40とWidth　80と書けば（もっとも、この2種しか
できない。）その通り、OKだけど。F-Basicでは、Errorとなり
先へ進めない。行番号の変更もDirectに出来ない。これでは
479：nisii：2008/09/17(水) 23:42:26: >>478
F-BASICはコンパイル型ですので、頭を切り替えていただくしかありません。
プログラム実行中にのみ width文は動作します。

行番号はラベル程度の位置づけですので、新規に入力されるなら、
行番号の無いプログラミングスタイルをお勧めします。

if then/else/endif
whike/wend
select case/end select

などを使うことで、行番号は不要になります。
480：nisii：2008/09/18(木) 18:22:13: >>479
誤)whike/wend
↓
正)while/wend
481：B.O.A.-ceo：2008/09/20(土) 09:21:08: プログラム実行中にのみ width文は動作します。←そのプログラム自体Errorと出るので使えません。困った。
482：nisii：2008/09/20(土) 13:44:32: 翻訳(コンパイル)のエラーですか？実行中のエラーですか？エラーの内容は？
あと、F-BASICのバージョンはV6.3で、アップデートU003を入れてありますか？

DOS時代のBASICと完全互換ではありませんから、
無い命令やパラメータの違う命令もあり、書き換えは必要です。
元リストファイルを読み込んで利用する場合、移行支援機能を活用してください。
［編集(E)］-［移行支援(V)］

疑わしい命令を確認する場合、2行に分けると特定しやすいでしょう。
行番号がなくても、記述順に実行されます。
10 width 40 : cls : paint( 0, 0 ), 5
20 end
↓
10 width 40 : cls :
paint( 0, 0 ), 5　　　　' paintでエラーが起きているか確認しやすい
20 end

申し訳ありませんが、2行目でエラーになると言われても、何が書かれているか分かりません。
リストとエラーの掲示をお願いします。
483：B.O.A.-ceo：2008/09/28(日) 10:02:53: A$="abc"
width 40
print A$
stop
end
「行番号は省略。」お蔭様でErrorは出なくなりました。しかし、実行すると
width40を80に変えても、文字の大きさは画面上同じでした。Versionは6.0です
484：nisii：2008/09/28(日) 22:56:02: width文は、文字の最大桁数を指定します。

フォントサイズを変更したいと理解しましたが、よろしいでしょうか？
フォントサイズは、FONT構造体のSIZEで指定します。

#include "windows.bi"

var FFONT as FONT
FFONT.SIZE = 64
FFONT.BOLD = 0
FFONT.ITALIC = 0
FFONT.UNDERLINE = 0
FFONT.STRIKEOUT = 0
FFONT.FFNAME = "ＭＳ明朝"

SETMAPMODE 2 ' 1/10mmモード
SETFONT FFONT
print "ABC"
print "日本語"

wait 500
end
485：B.O.A.-ceo：2008/10/05(日) 10:02:54: フォントサイズを変更したいと←そうです。色々と有難う御座いました。
助かりました。
486：puff_puff：2008/11/18(火) 22:52:44: 超ご無沙汰してました。
皆さん、ご活躍中のようで（この掲示板が稼働中で）安心しました。
また、F-ｂａｓｉｃをしばらく使う事になりましたので、
また、時々寄ります。よろしくお願いします。
487：puff_puff：2008/11/18(火) 22:54:01: 書き込むところを間違えました。ごめんなさい。
雑談の所に書くつもりでした。
汚しちゃって、ごめんなさい。
488：シマヅ：2009/03/06(金) 22:38:26: ■Windows(R)7とF-BASICの互換性等
　次期OSと言われている、Windows(R)7とF-BASICの互換性等、何か情報をお持ちの方がおりましたら、宜しくお願い致します。
489：ＪＵＮ：2009/05/10(日) 10:00:21: みなさん、こんにちは。
Windows7(RC版)、インストールしてみましたので動作状況等
報告してみたいと思います。

Ｍ／Ｂ：Ｍ３Ａ７８　ＰＲＯ　（ＡＳＵＳ）
ＣＰＵ：Ａｔｈｌｏｎ６４　Ｘ２　４２００＋（２．２ＧHz）
メモリ：２ＧＢ

●動作確認できたアプリケーション
　Ｆ－ＢＡＳＩＣ　Ｖ６．３　（Ｕ０００３）
　Ｍｉｆｅｓ　Ｖ６．０
　一太郎２００６（ＡＴＯＫ２００６）
　とりあえず、Ｆ－ＢＡＳＩＣ開発に必要なもの。

●動作関連について
　インストールは、すんなりいきました。
　コンパイルも、無事終了しました。
　作成したプログラムは動作しました。
　日本語入力も自作ライブラリィで動作しました（確認はＡＴＯＫのみ）。
　Btrieveファイルは、読み書きできました。

●気になる点など
　Ｆ－ＢＡＳＩＣのことではありませんが、エクスプーラで動作可能な
　モジュール(.COM .EXE等)の拡張子が表示しません。当方、Ｖｉｓｔａを
　飛び越しているのでこれは仕様かなと思っています。情報お持ちの
　方はお教えください。
490：makoto：2009/05/11(月) 13:16:45: こんにちは

>モジュール(.COM .EXE等)の拡張子が表示しません。

[スタート]-[コントロールパネル]-[ディスクトップのカスタマイズ]-
[フォルダーオプション]-[表示]の[]登録されている拡張子は表示しない
で当方の環境では表示されるようになりました。

>Windows(R)7とF-BASICの互換性等

FMV-D5340 Core2 6700 2GB 32ビット RCで問題なく動作しています。XPより快適ですw
491：ＪＵＮ：2009/05/11(月) 13:25:41: 早速の書き込みありがとうございます。
帰宅して設定してみたいと思います。
それにしても、2000やXpと同じ機能ながら
設定する場所が違うのが結構あり探すのが
大変です。
ありがとうございました。
492：名無しさん：2009/05/19(火) 17:57:42: こんばんは
F-BASICで作ったEXEファイルのショートカットに、別のファイルをマウスでドロップするとそのファイルの名称を習得するようなプログラムを書きたいのですがどうすればいいのでしょうか
493：nisii：2009/05/19(火) 19:40:15: command$ で得られます。
通常の引数か判別するため、ISEXISTFILEでファイル名の存在を確認しましょう。
494：名無しさん：2009/05/19(火) 22:22:44: 回答をいただけてうれしいです。
ありがとうございました。
495：シマヅ：2009/05/22(金) 16:31:57: 皆様、貴重な情報を有難う御座います。なんとかプログラミングの寿命が伸びそうでホッとしています。《仕事の都合（出張等）などで返事が遅れて申し訳ありませんでした》
496：追質問：2009/07/05(日) 23:04:14: 名無しさんの質問に似てるのですが、ファイルをダブルクリックし、関連付けされた
ファイルとして、アプリケーションを起動させたとき、アプリケーションでカレントディレクトリが
ファイルの場所になりますが、アプリの本来のパスはどうしたら取得できますか？
497：nisii：2009/07/06(月) 01:01:24: タイトル「F-BASIC掲示板（雑談歓迎）」をクリックして、メインページに戻り、
「いまさら聞けなかったAPI」の「ウィンドウの列挙とモジュール名の取得」を見てください。
自分自身のパスを得るサンプルがあります。
498：追質問：2009/07/06(月) 20:01:54: ありがとうございます。うまくいきました。
なにぶんプログラム初心者なもので、、、
現在、ファイルを閲覧するプログラムを作っているのですが、いろんなところで、立ち止まっています。
マルチラインエディターのスクロールポジション取得やキーイベントなど、F-BASICにはありませんよね？、
（キーイベントに関しては、どこかで、どなたかが、記述していたような記憶があるのですが、、、、）
499：ＹＵＴＴＡ：2009/08/31(月) 10:05:06: ご無沙汰しております。<(_ _)>
今も尚F-BASICにお世話になっているYUTTAです。
お時間がございましたら下記につきましてご教示下さいませ<(_ _)>

ｖｉｓｔａでも、なんとかF-BASICは動作し、相変わらずコンパイルに
いそいんでいる毎日ですが、「U003」へのアップデートができません。
ちなみにメインのＰＣがｘｐとvistaのデュアルブートなので、XPから、
vistaにF-BASICをフォルダ毎上書きコピーし、一応「U003」にしてなん
とか、問題もなく使用している状況です。"^_^"
vistaになってから、システム内の「expand.exe」との互換性に問題
が･･････、などと疑っているところなんですが？
どなたかよい方法をお知り方、ご教示宜しくお願い致します。<(_ _)>
500：nisii：2009/09/01(火) 13:18:27: ごぶさたです。
今、Vista SP2マシンに入れてみましたが、特に問題なくインストールは完了しました。
その環境固有の問題ではないでしょうか？

いったんXP側のF-BASICをアンインスール、該当フォルダも削除してから、
Vista側でインストールするとか。
501：ＹＵＴＴＡ：2009/09/09(水) 11:10:48: ＹＵＴＴＡです。
nisii先生ありがとうございました。<(_ _)>
まさにご指導の通り実行しましたら、Ｕ００３にアップデートできました。
デュアルブートが原因だったんですね(^_^;)
ＶＩＳＴＡにしてからずうっと悩んでいたんですが、
みごと解消です！　大変ありがとうございました。
ＶＩＳＴＡにしてもうひとつ今ひっかかっていることがあります。
ＡＰＩを使ってフォームの×ボタン無効化を行っていましたが、
ＶＩＳＴＡ・ｂａｓｉｃからＶＩＳＴＡ・Ultimateにし、エアロをＯＮにしたら、
この×ボタンの無効化で無効化可能なのだけれど、マウスにボタンが反応する？
（色など無効化前の状態のまま・・・）のです。
まあ、プログラムの実行上問題はありませんが、なんか気になります。
今また、Windows７で、更に悩みが増えそうでまたまたゲイ○氏には
頭にきますです。(^_^;)
このたびは誠にありがとうございました。　<(_ _)>

ＹＵＴＴＡ
502：FB使用人：2009/12/10(木) 00:42:10: どなたかご存知の方教えて下さい。
FBasicのメール機能を使って見ようと思いましたが、「続行不能エラー」で止まってしまいます。
MAILLOGON を実行出来きません。’９８の時は確か出来ていたと思いますが、ＸＰではダメなのでしょうか。
９８の時は電話回線でしたが、ＡＤＳＬにしてからは OUTLOOK に添付で、メール機能を使用していません。
どなたか詳しい方居られたら教えて下さい。（インターネット機能も実行できません）
503：nisii：2009/12/10(木) 06:23:19: ヘルプより。
#電子メールの送受信をします。メールアカウントとMAPI対応のメールソフトが必要です。
#Microsoft Outlook Express 5.0以上を推奨します。

メールソフトの設定を事前にしておく必要があるのでは？
WindowsXP SP3 + Outlook Express6 + F-BASIC V6.3 U003 + YahooBB ADSL8Mで、
ヘルプにある下記サンプルの正常動作を確認しました。

#include "windows.bi"
#include "internet.bi"

MAILLOGON
TO$ ="xxx@yyy.co.jp" ' 受信者
CC$="":BCC$=""
SUBJECT$="メールのテスト" ' 件名
MSG$= "テストをおこなっています。"+chr$(13,10)
FILE$=""
MAILSEND SUBJECT$, MSG$, FILE$, TO$, CC$, BCC$
MAILLOGOFF
stop
end

インターネット機能については試していませんが、たぶん設定の問題でしょう。