【QBASIC互換!?】FreeBasic【GPL】 2 [無断転載禁止]©2ch.net (435ﾚｽ)
【QBASIC互換!?】FreeBasic【GPL】 2 [無断転載禁止]©2ch.net http://mevius.5ch.net/test/read.cgi/tech/1482549747/
上
下
前次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
抽出解除
必死ﾁｪｯｶｰ(本家)
(べ)
自ID
ﾚｽ栞
あぼーん
ﾘﾛｰﾄﾞ規制
です｡10分ほどで解除するので､
他のﾌﾞﾗｳｻﾞ
へ避難してください｡
33: デフォルトの名無しさん [] 2017/01/29(日) 06:11:32.73 ID:ElqR2hUp >>23 つづき。 Declare Function IniFileRead OverLoad(FileString As String, SecNameString As String, KeyNameString As String, ByRef KeyValString As String) As Wata (一致部分略), ByRef KeyValLong as Long) As Wata , ByRef KeyValDouble As Double) As Wata , ByRef KeyValShort As SHORT) As Wata , ByRef KeyValSingle as Single) As Wata , ByRef KeyValByte As Byte) As Wata , ByRef KeyValInteger As Integer) As Wata , ByRef KeyValLongint As Longint) As Wata , ByRef KeyValLong as ULong) As Wata , ByRef KeyValShort As USHORT) As Wata , ByRef KeyValByte As UByte) As Wata , ByRef KeyValInteger As UInteger) As Wata , ByRef KeyValLongint As ULongint) As Wata , ByRef KeyValString As ZString) As Wata , ByRef KeyValString As WString) As Wata Declare Function IniFileRead OverLoad(FileString As String, SecNameString As String, KeyNameString As String, ByRef KeyValBool As Boolean) As Wata と宣言して、 BString =DataKeyName + str$(ICC) TakaDammyReturnCode = IniFileRead(SoseFileListFile, DataEriaSecName, BString, CString) TakaDammyReturnCode = IniFileRead(SoseFileListFile, DataEriaSecName, DataKeyName + str$(ICC), SoseFileList(ICC)) と参照したら ..\Kako02\Mod\Taka05.bas(3439) error 97: Ambiguous call to overloaded function, INIFILEREAD() in 'TakaDammyReturnCode = IniFileRead(SoseFileListFile, DataEriaSecName, BString, CString)' ..\Kako02\Mod\Taka05.bas(3440) error 97: Ambiguous call to overloaded function, INIFILEREAD() in 'TakaDammyReturnCode = IniFileRead(SoseFileListFile, DataEriaSecName, DataKeyName + str$(ICC), SoseFileList(ICC))' とエラーになった。 内容を調べていない。 使わない(使い方がわからない)変数型を消してみてどうなるか、 面倒だと思ったらば、Overload化をやめて元の状態に戻す予定。 http://mevius.5ch.net/test/read.cgi/tech/1482549747/33
34: デフォルトの名無しさん [] 2017/01/29(日) 06:19:51.52 ID:ElqR2hUp >>30 学歴云々の前に、検索しない事に真剣にびっくりだわ 書いた通り、ユークなんたらは、見るのもいや、な内容。 整数論を除いた内容なら、まだ見る気にもなれるけど。 http://mevius.5ch.net/test/read.cgi/tech/1482549747/34
35: デフォルトの名無しさん [] 2017/01/29(日) 09:00:00.96 ID:ElqR2hUp >>33 つづき Function IniFileReadなんたら と Declare Function IniFileRead OverLoad(FileString As String, SecNameString As String, KeyNameString As String, , ByRef KeyValString As ZString) As Wata を抜いて IniFileRead OverLoad → IniFileRead14 に戻したらば、発生しなくなった。16個以下なのか、 As String と As ZString の混用が認められないのか は、調べていない。 http://mevius.5ch.net/test/read.cgi/tech/1482549747/35
37: デフォルトの名無しさん [] 2017/01/29(日) 12:00:40.54 ID:ElqR2hUp >>36 おほめいただいて感謝します。 ＞自分のブログか何かでやったら？ やってます。 カウンターをつけていないので利用者がわかりませんけど Lobot Off を指定しているので、利用者がいないはずです。 QB用ソース(現在いじっているV.B.用ライブの原型を含みます)付き実行形式ファイルで配布していますので、もし見かけたらばメールください。 ロボットメールしか受け取ったことがないのですけど。 地震以後ですと、ロボットメールすら来ません。 V.B.用ソースは公開しませんでした。 実行形式のみ公開していましたが、通信会社のサービス停止(+地震のよるHDD破損+MSのサポート停止)に伴い消失しました。 http://mevius.5ch.net/test/read.cgi/tech/1482549747/37
38: デフォルトの名無しさん [] 2017/01/29(日) 12:57:35.68 ID:ElqR2hUp >>23 Type 命令文関係を見てみます。 のつづき。Type みてもわからなかったので、逃げの九素コードを 大域宣言は '複素数(虚数)計算 '(2017.01.29 済)名称変更 Conplex → Complex Type Complex RealPart As Double ImagPart As Double End Type で。ご指摘の通り、n → m への変更済み。 http://makoto-watanabe.main.jp/freebasic/PgFunction.html より、 関数は、Byref As return_type を指定して、参照を返すこともできます。 とあるので、破壊されない戻り値を保管する場所が必要。 局所ルーチンで参照され、破壊されない戻り値の保管場所は、九素コードとして、大域変数を使う。 Dim Shared ComComplexVal As Complex 関数としては単なるLET文を用意した。 Function TekiToComp(Aval As Complex) ByRef As Complex ComComplexVal.RealPart = Aval.RealPart ComComplexVal.ImagPart = Aval.ImagPart TekiToComp = ComComplexVal End Function 参照側で ComComplexVal.RealPart = -5.0: ComComplexVal.ImagPart = -0.5 Complex1Val.RealPart = 1.0: Complex1Val.ImagPart = 0.1 Complex2Val.RealPart = 2.0: Complex2Val.ImagPart = 0.2 と定義して Complex2Val = TekiToComp(Complex1Val) 関数を実行、3つの変数すべてが Complex1Val の値で一致する。 ここで、ComComplexValに適当な値を設定しても、Complex2Val の値が変化しなかった。 参照渡しと言っても、Complex2Valのアドレス(ポインター)をComComplexValのソレに書き換えるのではなかった。 3つの変数の保存領域は独立して存在する。 http://mevius.5ch.net/test/read.cgi/tech/1482549747/38
39: デフォルトの名無しさん [] 2017/01/29(日) 13:19:08.83 ID:ElqR2hUp >>38 のつづき。動作試験用ソフトは以下の通り。 http://www.dotup.org/uploda/www.dotup.org1138726.zip.html D:\bas\Projects\Kako02\Mod\TakaCom0.bi が抜けているけど、Bak\TakaCom0(1).bi が使えると思う。 使える人がいたら使ってみて。 http://mevius.5ch.net/test/read.cgi/tech/1482549747/39
41: デフォルトの名無しさん [] 2017/01/29(日) 20:02:51.85 ID:ElqR2hUp >>40 ＞変数aは参照先Complex1Valの値を表示するだろうよ 高度な使い方。 この方法は、昨年5月ぐらいから探していた。結局見つからなくて、 主ルーチンから各ファイル(モジュール)へ関係値を配るという方法を取った。 なお、*.BI，*.Bas で検索したが C:\FbEdit\ や C:\Tool\FreeBASIC\ 内に「dim byref」という文字を発見できなかった。 http://makoto-watanabe.main.jp/freebasic/PgDim.html 内にも ByRef の記載が見つからない。 http://mevius.5ch.net/test/read.cgi/tech/1482549747/41
ﾒﾓ帳
(0/65535文字)
上
下
前次
1-
新
書
関
写
板
覧
索
設
栞
歴
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.016s