したらばTOP ■掲示板に戻る■ 全部 1-100 最新50 | |

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

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

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

掲示板の内容の長期保存にご協力頂ける様よろしくお願いします
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


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

504：FB使用人：2009/12/11(金) 00:17:49
nisiさん
早速のご返答有難うございました。
ＰＣ環境は全く同じです。ＦＢはしばらく（二年弱）使用してなかったので
感が戻りません。実行できるみたいなので、挑戦します。後日結果を投稿します。

505：Gatefield：2010/03/20(土) 16:01:41
モｰド付きダイアログボックスのユｰザｰ定義フォｰムにコントロール､
たとえばチェックボックスを張り付けて それを制御することって
できるんでしょうか？
張り付けることだけはできたのですが 反応してくれません｡

506：nisii：2010/03/21(日) 00:28:36
FORM2ではダメなのですか？
ShowwindowでON/OFFできますし、MAINFORMと同じように自由度が高いですよ。
507：Gatefield：2010/03/21(日) 09:50:12
どうも ありがとうございました｡
m(_._)m
いろいろやってみましたが ボタンだけ有効なんですね｡

ところで FORM2表示で ダイアログみたいにタスクバーの
表示をさせない方法って あるもんでしょうか？

508：nisii：2010/03/21(日) 20:05:28
フォーム表示中に、タスクバーへアイコンを表示させない方法があるかは知りません。
その間MAINFORMを非表示にするなど、工夫のしようはあると思いますが…。

509：シマヅ：2010/05/24(月) 21:13:54
■印刷（ハードコピー）に関する不具合・解決方法のご相談

▼不具合内容
　メインフォームをハードコピー印刷するために｢WINHARDC 3,0｣を使っています。
しかし、これを実行するとメインフォームの上に一瞬「印刷スプーラにデータを送っています」のウインドウが表示され、それがメインフォームの上に被さった状態で印刷されてしまいます。

　これに関して、何か解決方法がありましたら、教えて頂けませんでしょうか？。

▼下記のような状況であることを追記しておきます。
（１）WindowsXPのパソコンではプリンターとUSB接続およびセントロニクスパラレル接続のどちらでも発生しません。（メインフォームの上に「印刷スプーラにデータを送っています」は一瞬表示されますが、印刷されません）

（２）Windows Vistaのパソコンで、印刷すると一瞬「印刷スプーラにデータを送っています」が表示されて、メインフォームの上に被さって印刷されてしまいます。
【パソコンにUSB端子しかないので、プリンターとはUSB接続しています】

（３）メインフォームをトップモーストウィンドウ MAINFORM.SETTOPMOSTWINDOW (-1) としておいても、全く効果がなく、メインフォームの上に「印刷スプーラにデータを送っています」のウインドウが一瞬表示されてしまいます。

　 何か対応策がありましたら、教えて頂きたく宜しくお願い致します。

510：nisii：2010/05/27(木) 03:10:32
検証していないので、確証はありませんが…。
・ディスプレイドライバのハードウェアアクセラレータを切ってみる。
・XP互換モードで実行させる。


当面の回避案として、画面キャプチャを撮って印刷する。

●API -クリップボードのビットマップをファイル化-
で、keybd_event VK_SNAPSHOT , 1 を用いれば、アクティブウィンドウの内容を得られます。

511：シマヅ：2010/05/27(木) 14:47:50
　nisii 様、毎度お世話になっております、アドバイス・有難う御座います。

>ディスプレイドライバのハードウェアアクセラレータを切ってみる。
>XP互換モードで実行させる。
▼
　効果があるかと思うのですが、知人に使って貰っているソフトに関しては、この操作をして貰うのは、難しいな〜と考えております。

>当面の回避案として、画面キャプチャを撮って印刷する
▼
　知人に使って貰っているソフトに関してはこの方法もあることを連絡しておきました。

>API -クリップボードのビットマップをファイル化-
で、keybd_event VK_SNAPSHOT , 1 を用いれば、アクティブウィンドウの内容を得られます。
▼
　この API を使ったことがないのですが、印刷上で「印刷スプーラにデータを送っています」を被らないようにするには、どうしたらよいかな〜と思案中です。

◆MAINFORMをウインドウの中央に表示させていたので、ウインドウの位置を移動させる　MAINFORM.MOVEWINDOW 0,0　で、左上に移動させる試みもやってみたのですが、ウインドウの右下の部分に「印刷スプーラにデータを送っています」が被さってしまい、解決出来ませんでした。

　更に自分でも何か方法がないか？、考えて見ますが、根本的に解決する方法がありましたら、ご指導のほどよろしくお願い致します。有難う御座いました。

512：ひろ：2010/07/27(火) 20:07:57
諸先輩方教えてください
サンプルで
var PP as PRINTPARAM
var PRINTER as object
PRINTEROBJECT PRINTER
if PRINTER.PRINTDLG(PP) then
SETMOUSEPOINTER 2
PRINTER.STARTDOC "文書"
PRINTER.STARTPAGE
PRINTER.DRAWGRP
PRINTER.ENDPAGE
PRINTER.ENDDOC
PRINTER.CLOSEPRINTER
SETMOUSEPOINTER 0
endif
で印刷するとき行間を指定したいのですが・・・・

513：nisii：2010/07/29(木) 01:15:48
空白行を印刷して調整、ではダメですか？
フォントサイズを変えれば調整できると思うのですが。

514：ひろ：2010/07/29(木) 22:07:57
nisiiさん　ご教授ありがとうございました。
やはりその方法しかありませんかぁ！
LprintSetPitchみたいなものがあればいいのにと思います。
やりたいことは自動両面印刷をしたかったのですが、プリンタオブジェクトでだけしか
プリンタが正常動作しなかったものですから....
ありがとうございました。

515：nisii：2010/07/30(金) 02:15:38
調整テストにいちいち印刷すると紙とインクがもったいない、ということであれば、
Bullzip PDF Printer
なんかでPDFファイルに出力してみてはどうですか。

516：ひろ：2010/07/31(土) 09:52:42
nisiiさん　追加ご指導ありがとうございました
Bullzip PDF Printer　は　.ＮＥＴがインストールされてないと
だめなんですねぇ(涙)

517：nisii：2010/07/31(土) 22:15:33
.NET Framework も無料ですよ、念のため。
Windows updateのカスタム一覧からインストールできます。

518：ken：2010/10/18(月) 12:49:42
はじめまして。
前任者が作成したf-basicプログラムで困っています。
これまで、中のデータは紙ベースでの印刷しかできなくなっていまして、・
それをcsvで抜き出したいのですが、その抜き出し方ってどうすればいいのでしょうか？
あいまいですみませんが、何か方法があれば、ヒントなどいただければ幸いです。

519：nisii：2010/10/18(月) 20:23:08
F-BASICソース(リスト)を変更できますか？
文法はN88-BASIC(86)にそっくりです。

ソースを変更できるなら、print #文など、出力系の部分を探してください。
これをファイル出力に変更すればテキストファイルを得られます。
多少前後に準備文が必要ですが、難しいものではありません。

520：nisii：2010/10/21(木) 04:21:11
元ソースを変更できないとしたら、PDF出力してテキストをコピペするとか。
全文手打ちするより、はるかに手間が省けると思います。

521：ken：2010/11/01(月) 18:43:46
>nisii様
ありがとうございます！やってみます！

522：yothan：2010/11/18(木) 22:09:16
現在でも　使用されている方がおられるのですね
val("abcdefg") 等の文字列を数値変換できないですかね

523：nisii：2010/11/19(金) 20:08:24
そのままではエラーになりますが、どのような結果をお望みでしょうか？
val( "123" )
なら、結果は123の数値になります。

524：keinin：2010/12/24(金) 09:40:12
はじめまして。
F-BasicでAPI関数の「GetLastError」の使い方をご存知の方がおられましたらご教授ください。

525：nisii：2010/12/25(土) 01:28:37
資料から推察すると、VisualBasic同様、正しいエラーコードは得られない可能性があります。
以下、実際の動作は未確認です。

var shared RC as long
declare function API_GELASTERROR＆ lib "KERNEL32" alias "GetLastError" ()

RC = API_GELASTERROR

526：keinin：2010/12/25(土) 08:13:59
早速のご教授有難うございます。
サンプルの方法でエラーコードを取得しているのですがリターン値が常にゼロになります。F-BasicではGetLastError関数は使えないのでしょうか？

527：nisii：2010/12/25(土) 13:09:00
はい、そう考えています。
VisualBasicでも、別の組み込み関数(プロパティ)を使ってエラーコードを得るのが常套のようですし。
F-BASICにはその組み込み関数も無いため、実現は困難かと。

528：keinin55：2011/05/21(土) 13:44:48
どなたかご存知の方教えて下さい。
Ｆ−ＢＡＳＩＣでタスクトレイアイコン上でマウス操作された時のイベント「NOTIFYICON」はありますが、Ｆ−ＢＡＳＩＣコマンドでウィンドウをアイコン化してタスクトレイに表示する方法はあるのでしょうか？

529：keinin55：2011/05/22(日) 07:29:03
昨日お尋ね致しましたタスクトレイに表示する方法はリファレンスの索引にありました。お騒がせいたしました。

530：Ｆ橋：2011/05/24(火) 22:31:35
お役にたてず申し訳ございませんでした（汗

531：keinin55：2011/06/23(木) 07:10:32
F-Basicはウィンドウプログラムを作るのにRADツールを使用しないで、OriosのActiveBasic講座(2-1)の様に自力で全部書く事は可能でしょうか？

532：Ｆ橋：2011/07/02(土) 01:01:39
>>531
私には分かりません（汗
どなたか分かる方よろしくお願いします

533：Gatefield：2011/07/26(火) 18:47:47
GETASYNCKEYSTATE 関数を使ってますが キーバッファー
によると思われる誤動作を起こします｡
(while 〜 wend ループ内です)
そこで いったん キーバッファーをクリアする方法は
無いものでしょうか?
(現在は フラグで対処してますが やはり面倒です)

534：名無しさん：2011/07/27(水) 18:43:44
簡易なキーバッファクリアでよければ

while inkey$><"" : wend

でいいと思いますが、押しっぱなしに対応するのはできません。
ご存知の方、お願いします

535：Gatefield：2011/07/28(木) 20:41:22
ありがとうございます｡
試してみましたがダメでした｡
リストコントロールの中で キーチェックでGETASYNCKEYSTATE関数を
使用､ ENTERキーで選択した項目のリンクを実行するように
してますが 例えば リスト項目をエディットボックスで編集､
ENTERキーで確定して そこで止まってくれればいいのですが
ENTER の記憶が残っているのか リンク実行へ進んでしまいます｡
どうも リストコントロールは 特殊みたいで 1回の キーイベントでは
その内容(キーの記録)がクリアできないみたいです｡

inkey$ なら そのようなことは起きないのですが Ctrl+C とか Ctrl+V を
有効にするため あえてGETASYNCKEYSTATE関数 を使っています｡

何か よい方法があれば お教えください｡

536：nisii：2011/08/30(火) 06:36:55
今更ですが…。
いったんEnterを受け付けた直後は、Enterが押されている間先には進まないようにしてみては。

537：Gatefield：2011/09/01(木) 21:01:34
ありがとうございます｡
さっそく試してみました｡
gosub *キーチェック で
while GETASYNCKEYSTATE(&HD):*****:wend
**** で shell で外部プログラムを走らせて
"exit" ENTER 復帰させるつもりが 再び同じコマンド
shellによる外部プログラムが立ち上がります｡(とまらない!)
そこで **** に

while GETASYNCKEYSTATE(&HD)
wend

を入れ Enterが押されてる間 ループするように
離れたらもとのメインループに戻るようにしてみたんですが
やはり 改善されませんでした｡
(プラットホーム環境のせいかもしれません)

どこか 勘違いや バグがあるのかも････

とりあえず フラグで防止できるので
それで 擬似的に我慢してます｡

(デフォルト0 shell実行でｰ1
他のキー操作で0に戻して････
複雑になるし 他の障害も････(;_;)

でも
どうも いろいろ ありがとうございます｡
_(._.)_
このＨＰ とても勉強になります｡
これからも よろしくお願いします｡

538：nisii：2011/09/03(土) 19:13:00
そうですか。
フラグで解決するにしても、while wendでキー待ちループなどを作る場合は、
wait 5などを必ずはさむことをお勧めします。
でないと猛烈な負荷がかかることになり、誤検出の原因になったりもしますので。

539：Gatefield：2011/09/05(月) 20:35:08
レス ありがとうございます｡
さっそく試してみました｡
いろいろ 試してみたのですが
ＸＰ(1GHちょっと) では ＯＫ　window7(2GHZくらい) ＮＧ
と なりました｡
ハｰドとの相性みたいです｡

ＸＰから 非対応なので あきらめるしかないのですが
いろいろ試行錯誤でまだまだ対応可能です｡

F-BASIC 貴重な知的遺産として残していって欲しいです｡
(window APIと一体みたいなので Linuxや Androidへの
拡張は無理かもしれないですが････)

540：teamTAKA：2011/12/14(水) 00:13:39
僕は、Ｆ−ＢＡＳＩＣが廃盤になる直前に購入しました。
その時にこの掲示板を知りましたが、
基本形のみを使い、世界中で使えるロトソフトを創りました。
ｗｉｎｄｏｗｓもＭｅ、ＸＰ、Ｖｉｓｔａ、７で問題なく動いています。

２５年前Ｎ８８で開発していましたが、手直しがほとんどなくＦ−ＢＡＳＩＣで表現ができました。
性能はＦ−ＢＡＳＩＣの方が比べ物にならないぐらい上です。
今も、２５年前（ＰＣ９８全盛のころ）のＮ８８の知識のままです。


このＢＡＳＩＣは本当にすばらしい！！！

541：frost：2011/12/28(水) 22:24:13
はじめまして。

突然の質問で申し訳ありません。
昔の先輩が作成したプログラムがF-BASICで書かれていました。

このプログラムの修正を考えています。
内容としては、表示した画面を画像ファイルとして保存したいと思っています。
どのように書けばよろしいのでしょうか。

お手数ですが、よろしくお願いします。

542：nisii：2011/12/29(木) 21:15:52
Print Screenキーを押したら画面イメージをBMPファイル化する、というサンプルは次の通りです。
http://www.geocities.jp/fbasic63/api16.txt

543：frost：2012/01/03(火) 12:03:18
ありがとうございます！！
さっそく試してみます。

いかんせん初心者なもんですから、
経過報告には時間がかかるかもしれませんが・・・

544：ひろ：2012/03/16(金) 13:24:57
FBASICでSQLサーバーへ接続して抽出してきたデータを格納する方法のサンプルPGを教えて
いだけないでしょうか。概念から解っていませんので宜しくお願いいたします。

545：名無しさん：2012/03/17(土) 21:16:30
C:\FBASICV63\Sample_B\ODBC にSQLのサンプルらしきものがありますが
詳しいことは他の方にお任せします

546：名無しさん：2012/03/17(土) 21:24:23
>>544
こちらもご参考にどうぞ

One Point Lesson 第七回「データベースと連携してみよう」
www.fmworld.net/product/soft/fbasic/lesson/lesson_7.pdf

547：ひろ：2012/03/19(月) 19:00:05
名無しさん　ありがとうござてました。
さっそく見てみます。
わかるかなー？

548：名無しさん：2012/03/20(火) 21:53:20
SQLサーバーやODBC接続は詳しい方へ
私では説明不足なので他にも分かりやすい話やサンプルあったら
どなたかひろさんへご解説お願いします。

549：としかず：2012/04/08(日) 22:48:48
Windows 8(Consumer Preview)でF-BASICは動きますか？

550：名無しさん：2012/04/16(月) 22:41:15
Windows8 Consumer Preview でF-BASICが動きました
インストール、U003アップデート、簡単なソースのコンパイル、実行までOKでした。
もちろん不具合の出る命令とかはあると思いますが基本的には動きそうでした。

551：Ｆ橋：2012/05/27(日) 18:52:09
>>545 >>546 >>548
解説ありがとうございました

>>550
ご報告ありがとうございました

552：なりぞう：2012/06/12(火) 20:35:10
F-BASICは、linux mintやUbuntuなどのUNIX系で使えますか？
そのままでは多分、使えないと思うけど、wineなどのソフトを使っても駄目ですか？

553：旧人類：2012/06/30(土) 11:16:59
Ｆ−Ｆａｓｉｃを使用している方でご存知でしたら教えてください。　

「 knj$() で外字コード(jis &H7f21〜) を表示する方法をご存知ありませんか」

どこか設定がおかしいのでしよう、ＯＳ　は　ＸＰ　です。
Ｎ８８　の時代より　Ｂａｉｃ　を愛用しております、簡単でそこそこの速度で
使いやすいコンパイラと思っておりまが、消えて行くのが寂しい気がします。

554：名無しさん：2012/09/14(金) 08:07:19
>>553
原因はわからないのですが、参考まで。

Windowsの アクセサリ - 外字エディタ を起動して、外字のフォントが表示されるで
しょうか？
あと、外字のリンクが特定の「すべてのフォント」でなく特定のフォントにリンクされて
いるとダメなのかも。
外字エディタのファイル(F) - フォントのリンク　で確認してみてください。

外字エディタで作成される既定の外字フォントのファイル名はEUDC.TTEとEUDC.EUFなので、
もしかするとF-BASICはこのファイル名で登録した外字フォントしか対応できないのかも・・。


もし、EUDC.TTEとECDC.EUFのファイルを他から直接コピーしてきたのでしたら、
Windowsが使用中のため、コピーに失敗(ECDC.EUFの方)する場合があります。
その場合、IMEの文字一覧など、外字が正常に表示されるが、外字エディタでは
表示されないという現象が発生します。

555：ひろ：2012/09/26(水) 00:20:54
No544で投稿したひろです。
未だにODBCがよくわかりません
FBASICV63のサンプルでODBC.MAKを使ってMS-SQL-Serverに接続できません
'========================================================================
'= 接続／クエリ =
'========================================================================
' 入力：OBJ 結果を設定するコントロール（リストボックス）
' 入力：DATANAME$ データベース名
' 入力：SQL_COMMAND$ SQLコマンド
function EXEC_ODBC( OBJ as object, DATANAME$, SQL_COMMAND$ )
var HDBC as long ' DB HANDLE
var HSTMT as long ' SQL Statement HANDLE
var RCODE as integer ' 復帰コード

' 初期化
if SQL_SUCCESS<>SQLALLOCCONNECT( HENV, HDBC ) then goto *_ERR
if SQL_SUCCESS<>SQLCONNECT( HDBC, DATANAME$, SQL_NTS, "", SQL_NTS, "", SQLNTS ) then goto *_ERR　　　->ここで落ちる
if SQL_SUCCESS<>SQLALLOCSTMT( HDBC, HSTMT ) then goto *_ERR
' SQLコマンドの実行
if SQL_SUCCESS<>SQLEXECDIRECT( HSTMT, SQL_COMMAND$, SQL_NTS ) then goto *_ERR

どなたか教えてください。
ODBCの設定はしているつもりです。

556：名無しさん：2012/09/26(水) 08:50:52
>>555

SQLCONNECT に渡すパラメータの定義は次のようになっています。
HDBC& 接続ハンドル
SZDSN$ データソース名 <-- DATANAME$
CBDSN% データソース名の文字数 またはSQL_NTS指定
SZUID$ 接続するデータベースのユーザーIDの文字列
CBUID% ユーザーIDの文字数 またはSQL_NTS指定
SZAUTHSTR$ パスワード（認証用文字列）
CBAUTHSTR% パスワードの文字数 またはSQL_NTS指定


まず、DATANAME$ 文字列変数の内容がODBCの設定をされたデータソース名かどうか
確認してみてください。
(サンプルのフォームにデータソース名とODBCドライバ名が表示されているはず)

if SQL_SUCCESS<>SQLCONNECT( HDBC, DATANAME$, SQL_NTS, "", ・・・

サンプル(ODBC.MAK)での接続先データベースはMS-Access (*.MDB)なので、
ユーザーIDとパスワードの文字列はなし("")でよいのですが、
MS-SQL ServerではユーザーIDの指定が必要だと思いますのでサンプルを修正します。

<例> if SQL_SUCCESS<>SQLCONNECT( HDBC, DATANAME$, SQL_NTS, "UserID", ・・・

サンプルではSQLCONNECT に渡す値の最後が「SQLNTS」となっていますが、
これはサンプルの誤りで、SQL_NTSだと思います。
※SQL_NTSは、渡した文字列がNULL文字で終了する文字列であると意味するそうです。

SQLCONNECTが返す値がエラー(SQL_SUCCESS_WITH_INFOまたはSQL_ERROR)の場合
SQLERRORで(ODBC Ver3以降はSQLGetDiagRecを使います)エラーの詳細情報が
取得できます。
FBASICのサンプルはODBC Ver2.0のときのもので、
SQLGetDiagRecの関数宣言はサンプル中のODBC.BIにはありません。

557：ひろ：2012/09/28(金) 20:44:29
名無しさん さっそくご教授いただきましてありがとうございます。
SQLNTSはSQL_NTSに変えてみましたがダメでした。
いろいろやってみましたが結局いまだよくわかりません。
DSNの設定での接続テストまではＯＫなのですが．．．．．．
新着レスの表示

名前： E-mail（省略可）：

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）
掲示板管理者へ連絡 無料レンタル掲示板