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

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

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

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

掲示板の内容の長期保存にご協力頂ける様よろしくお願いします
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の設定での接続テストまではＯＫなのですが．．．．．．

558：556：2012/09/29(土) 03:33:03
サンプルのSQLNTSの誤りは、未定義変数として初期値ゼロとなり、
パスワードの文字数がゼロと指定したことになります。
パスワードが不要な場合は影響しないことになります。

559：556：2012/09/29(土) 04:09:48
>>557
ODBCデータソースの設定のほうに「トレース」機能があります。
ODBCドライバに発行された命令の記録（ログ）をテキストファイルに出力する機能です。
この機能をＯＮしてから実行し、出力されたテキストファイルの中を見ればODBCドライバが
返したエラーがわかると思います。


使用後は必ず「トレース」機能をＯＦＦにして、出力されたテキストファイルを削除
してください。（実行速度が遅くなるなど、後でトラブルになるため。）

560：旧人類：2012/10/03(水) 01:08:22
「名無しさん」有難う御座います。
フォントはフリーソフトの「外字コピー屋さん」を利用して駆動時に現フォントを保存して、
使用フォント（外字も含め）をコピーして立ち上がるようにしています、
無論該当ソフトの終了時には逆の動作で元のフォント状態に戻しています。
　（ただ停電の時の復元が少し手間取りますが）

「 knj$() で外字コード(jis &H7f21〜) を表示する」ことは諦めました、
Ｗｉｎ９５でのＦＢ−Ｖｅｒ６．０　でも同様ですから、多分もともと機能がないのではと。

現在の私の解決策は　エディタでＩＭＥより使用する外字を配列文字変数にコピーして
その変数を表示する（symbol or ?）、配列の１番が jis &H7f21 に該当する。
data でソースプログラムに書き込むとか別ファイルで保存するとかしています。
ＡＰＩを使用するより、こんな馬鹿げた方法が簡単な気がします。
何かいい方法があったら教えてください。

ところで　ＴＯＫＯさんのホームページ[ProgramTips]は閉鎖です移転ですか、
ご存知なら教えてください、ＡＰＩを随分と参考にさせて頂きましたが。

561：554：2012/10/04(木) 02:47:31
>>560 , 553

　「外字コピー屋さん」のWebページのほうを見させていただきました。
勉強になりました。

>
> Ｗｉｎ９５でのＦＢ−Ｖｅｒ６．０　でも同様ですから、多分もともと機能がないのではと。
>
　Windows 95上でもだめだったとは..。
F-BASICのヘルプでは、knj$()関数で外字を印字できるような記述なのですが..。

　実験してみるとknj$()関数は空文字［""］を返してきました。
対になるjis()関数のほうは動作しました。
また、IMEで外字を文字列定数としてプログラムソースに直接記入すれば、
表示できました。フォント別の外字リンクをされている場合でも表示できました。

　なので、おっしゃるような方法をとるのがやはり簡単ということになります。

　プログラムソースに外字を直接記入してしまうのはあまりよくないので、
knj$()関数をお使いになられようとされたのでしょう。
　ここはknj$()関数を置き換えるように独自の関数を作り、その関数内で
直接記入した外字の文字列(配列)から取り出して返す処理をするのがよいと思います。
外字でない通常のjisコードのときは内部でF-BASIC本来のknj$()関数に
渡して処理させれば、knj$()関数を置き換えられるので可用性が高まります。
新着レスの表示

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

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

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

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