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

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

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

掲示板の内容の長期保存にご協力頂ける様よろしくお願いします
2：Ｆ橋：2003/12/19(金) 20:50: 「エディットコントロールに最初からカーソルを置きたい」のスレッドの話題が
ほぼ終わった様なのでこちらのスレッドに移動させて頂きました
（もちろん。こちらで続きを行って頂いて構いませんし…話題が盛り上がりそうな場合は別スレ立てます）

>エディットコントロールに最初からカーソルを置きたい
>1 名前：たか投稿日： 2003/09/30(火) 18:34
>
>フォームにエディットコントロールが1つあるのですが
>マウスなどでクックしないとカーソルが置かれません。
>どのように書けばよいのでしょうか？
>「エディットボックスでエンター移動」もみたのですが、私には？？？？
>
>あと、スレッド型へ・・・とはココの事だったのですね、解らないですみませんでした。
>
>
>2 名前：ＴＯＫＯ投稿日： 2003/10/01(水) 08:44
>
>たかさん＞
>
>最初からEDIT1にカーソルをセットするは下記のようでいいのでは・・
>
>#include "Windows.bi"
>
>var EDIT1 as object
>EDIT1.ATTACH GETDLGITEM("EDIT1")
>EDIT1.SETFOCUS
>
>while 1
>WAITEVENT
>wend
>
>
>２点目についてはホームページの
>サンプルソース
>★エディットボックスでのエンター移動★(提供gobou氏)
>が参考になりますヨ。
>
>
>3 名前：たか投稿日： 2003/10/01(水) 10:41
>
>あ！動いた。　ありがとうございました。
>
>
>4 名前：Ｆ橋投稿日： 2003/10/14(火) 19:53
>
>え～と…今更のレスすいません…
>
>たかさん＞
>ご質問ありがとうございました
>
>ＴＯＫＯさん＞
>ご回答ありがとうございました
3：Ｆ橋：2003/12/19(金) 20:53: 「思い出したようにBASIC？？」スレもこちらに移動させて頂きました

>思い出したようにBASIC？？
>1 名前：山さん投稿日： 2003/09/19(金) 16:59
>
>５年程前にN88-BASICからF-BASICへ移植したプログラムをＣで復活させようとあれこれいじっている途中で
>まさかいまさらF-BASICなど無いだろうとGoogleで検索してたどりついたのが貴掲示板でした。
>
>びっくりしています。また反省もしています。未だに（失礼ながら！）現役でF-BASICが活躍しているとは！！
>
>古いCOBOL、FORTRAN、アセンブラからスタートして、PC９８のモニタアセンブラ、マクロアセンブラ、N88-BASIC、F-BASIC
>Ｃ、Ｃ＋＋、JAVA、PERL,PHP・・・とあれこれプログラムを組んできて、’BASIC'はとっくに廃れたのだと思い込んでいました。
>
>PC-9801,PC9821が全盛の頃はN88-BASIC＋MASMの組み合わせが最強だと思い、Windowsが出現した時N88ｰBASICを生かそうと、
>F-BASICを探し出して、「これは使える」と悦に入っておりましたが、いつの間にか、ＣからJAVA、PERL、PHPの方向へどっぷり、
>BASIC は完全に忘れておりました。
>
>F-BASIC（N88-BASIC）を現役で使っておられる方、どれくらいいらっしゃるのかな。
>
>
>2 名前：Ｆ橋投稿日： 2003/09/19(金) 18:07
>
>山さんさん
>
>>５年程前にN88-BASICからF-BASICへ移植したプログラムをＣで復活させようとあれこれいじっている途中で…
>５年前…私の会社ではN88BASICが全盛だった気が…（笑
>Windowsで使える言語を模索中だったはずです（かなり乗り遅れましたです）
>
>>まさかいまさらF-BASICなど無いだろうとGoogleで検索してたどりついたのが貴掲示板でした。
>F-BASIC Ver6.3が発売されて…既に４年…
>富士通がXPに「対応しない」と宣言してからは残念ながら使う人は一気に減っていると思います
>
>>びっくりしています。
>はい。びっくりする方が多い気が私もします（笑
>
>>また反省もしています。未だに（失礼ながら！）現役でF-BASICが活躍しているとは！！
>なんとか現役なんですよ～（笑
>というか他に私が扱える言語がありません（笑
>N88BASICからやっとF-BASICに移行出来つつあるのですが…
>ホントに復活して欲しいです
>
>>’BASIC'はとっくに廃れたのだと思い込んでいました。
>流れから見れば…BASICは残念ながら過去のものに思われてもしょうがないですよね…
>確かにVBもありますが今から覚えるのなら JAVAや PERLの方がいいと思いますし…
>ただ非常に分かりやすいんですよね…
>
>VBの様なイベント主体のBASICでは無く…
>F-BASICの様な過去のBASICで簡単にプログラムが作れる言語が無くなるのは辛いです
>
>>PC-9801,PC9821が全盛の頃はN88-BASIC＋MASMの組み合わせが最強だと思い、
>私もこの組み合わせが最強だと思います
>同様にWindowsになってからはF-BASIC + Borland C++ が最強と思ってました
>F-BASICが復活さえすれば…私のプログラマー生命ももう少し延びるのですが…
>
>>いつの間にか、ＣからJAVA、PERL、PHPの方向へどっぷり、
>>BASIC は完全に忘れておりました。
>時代に取り残されず…新しい技術を次々と覚えれる方とお見受けしました
>私は頭が悪く（笑）なかなか新しい技術についていけませんです（笑
>Windowsの次期OSが出て…F-BASICが完全に動かなくなったら…
>私はプログラマとしては食べれない可能性が…（笑
>
>>F-BASIC（N88-BASIC）を現役で使っておられる方、どれくらいいらっしゃるのかな。
>私の所はF-BASICとN88BASICがほとんどです
>開発はF-BASICのが少し多いかもですが…N88BASICも未だに多いです（笑
>
>PC9821の生産も終わっちゃったからなぁ…辛いなぁ…（涙（笑
>
>ご投稿及び足跡ありがとうございました
4：超初心者：2004/01/15(木) 14:04: 初めて投稿します。
OPTION BASE って、F-BASIC では使用できないのですか？
使用できなければ変わりになる関数ってあるのですか？
5：nisii：2004/01/15(木) 19:33: option baseって、配列の添え値が1からスタートする機能でしたっけ？
ヘルプにも書いてある通り、書き換えが必要でしょう。
といっても、配列の大きさを+1余分に確保するだけで対応できるのでは？
6：超初心者：2004/01/16(金) 08:58: そうなんですか。ありがとうございます。
試してみます。
7：Ｆ橋：2004/01/17(土) 14:15: nisiiさんのレス以上の事を思い浮かばず…（笑
超初心者さんも多分問題なく解決してると思うです
ありがとうございました

そういえば構造体の中の配列で…ファイルのfield定義するときというか…
必ず0から始まるってのを忘れてかなりハマっていたのを思い出したです

…うまく説明出来ません（笑）すいませんです
8：Ｆ橋：2004/01/17(土) 14:21: 「教えてください。」のスレッドの話題がほぼ終わった様なのでこちらのスレッドに移動させて頂きました
（もちろん。こちらで続きを行って頂いて構いませんし…話題が盛り上がりそうな場合は別スレ立てます）

1 名前：ＡＲＡＫＩ投稿日： 2003/12/18(木) 12:17

始めましてARAKIと申します。

お世話になります。

突然とは思い投稿をさせて頂きました。

VBでCLSIDを指定する記述がありました。

Object = "{1F8E7F86-A47F-11D2-B9D7-08005A4B5E6E}#1.0#0"; "PTSVR.OCX"

F-BASICに置き換えたいのですが良く解りませんでした。
ご存じの方がおられましたら宜しくお願い致します。

2 名前：ニャン子投稿日： 2003/12/19(金) 07:29

お世話になります。ニャン子です。

ＶＢでのＣＬＳＩＤをＦ－Ｂａｓｉｃで利用したいとの事ですが、結論から言うと
無理です。というのもＯＣＸはＯＬＥオートメーションの一種でＤＬＬの様にプロ
シージャをコールするのとは技術的に全く違います。

ＯＬＥオートメーション（ＯＣＸ含む）の詳しい説明は下記を参照してください。
http://www.int21.co.jp/pcdn/vb/noriolib/vbmag/6/oleabs/oleabs.html

で、本題の「PTSVR.OCX」ですが、これはＩＢＭのＰｒｏＴＡＬＫＥＲの事でしょ
うか？であれば、素直にＶＢでＯＣＸをコールするプログラムを作り、F-Basicは
そのＶＢをコールする方法が一番だと思います。その他の手段としてはF-Basicか
らＰｒｏＴＡＬＫＥＲを呼び出すＨＴＭＬ（Ｊａｖａスクリプトを経由）を作成し
それを経由する方法もありますが、こちらはあまり現実的では無いと思います。

ＯＣＸをどうしてもＦ－Ｂａｓｉｃで対応出来ない理由の一つにイベントがありま
す。ＶＢの場合はＦ－Ｂａｓｉｃの様に全てのイベントをランタイムが管理してい
る訳では無く、ＯＣＸなどからもイベントを発生させる事が出来る為ＯＣＸが簡単
に利用できますがＦ－Ｂａｓｉｃの場合はそう簡単には行きません。
（その代わりＶＢのＦｏｒｍモジュールはネイティブコンパイルされずランタイム
も静的リンク出来ない）

仮にＣ言語で直接ＯＣＸをコールするＤＬＬを作成しＦ－ＢａｓｉｃからＣＡＬＬ
したとしてもこのイベントが解決出来ない限り現実的では無いと思います。

3 名前：Ｆ橋投稿日： 2003/12/19(金) 10:28

arakiさん＞
ご質問投稿ありがとうございました

ニャン子さん＞
ご回答ありがとうございました

-----

ひとりごと…質問も回答も分からない…申し訳ないです

4 名前：ＡＲＡＫＩ投稿日： 2003/12/19(金) 18:45

ニャン子様
少し遅くなりましたが、詳細な、ご説明をして頂いたことで、結論がハッキリ致しました。
大変助かりました。ニャン子様の言われた通りＩＢＭのＰｒｏＴＡＬＫＥＲの件です。
また。リンク先まで、記述して頂きまして、ありがとうございました。
9：gobou：2004/01/18(日) 10:18: windows拡張プログラミング(プリンタをオブジェクトとして)の方で、文字をカラー印字したいのですが
どうしたらよいのでしょうか?
（lprint type "DC"なら lprintsetcolorのようですが）
choosefont関数で戻ってきた色を指定して印字したいのです。
よろしくお願いします。
10：ＴＯＫＯ：2004/01/18(日) 16:48: gobouさん＞
目的をはずしていたらゴメンナサイ・・
CHOOSEFONT関数で選択した色はLONG型変数に入るそうなので私の場合は
変数 var shared RGBCOLOR as longと指定しておき
if CHOOSEFONT(FFONT,RGBCOLOR,-1,0) then
　　・・
後、印刷時フォント選択ダイアログで色を選択し、PRT1.SETFORECOLOR RGBCOLOR で
選択した色で印刷しています。
結果的に不都合なく使っていますが、使い方が違っていたらご指摘ください。
11：gobou：2004/01/18(日) 19:34: ＴＯＫＯさん　ありがとうございます。
それです、それが知りたかったんです！
助かりました　これからもよろしくお願いします。