HAMLOG開発室BBS

Re: THW_appendについてご教示ください 投稿者：JA1RNR 吉田康太郎

JA2BQX 太田さん、おはようございます。

お問合せについて、下記のようにご返事申し上げます。

>１．書き込もうとしているＱＳＯデータはどうなっていますか？
>　　　16 = ＤＸフラグ　がセットされていないようですが

私は、DXフラグ、CQフラグを利用していませんのでこれらの書き込みをしていません。

>２．QSOData 　と　 DataTbl(d)　の宣言部分を教えて下さい。

Dim QSOData As String
Dim DataTbl(14) As String

このように単純に宣言しています。
DataTbl(d)に書き込むデータは、有効桁数分だけです。

>３．「メニュー.」がついているのは？

class名「メニュー」にこれらの宣言をしたためです。

>４．SetThBuffer　、　THW_append　の宣言部分を教えて下さい。

Declare Sub SetThBuffer Lib "Thdll2Vb.dll" (ByRef p As TThLog, ByVal s As String, ByVal n As Integer)

Declare Function THW_append Lib "Hamlog50.dll" (ByRef Th As TThLog, ByVal f As Integer, ByRef m As Integer) As Integer

THW_appendの第三引数は、Hamlog50.DLL仕様書に「変数の参照渡しである。」とありましたので、 ByRefとしています。最初私はここでつまずきました。

2009/07/29(Wed) 11:00:04 [No.130]

Call 名前	※必須
文字色	■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■ ■
Ｅメール
タイトル	sage
ＵＲＬ
メッセージ	手動改行強制改行図表モードメッセージには上記と同じURLを書き込まないで下さい > JA2BQX 太田さん、おはようございます。 > > お問合せについて、下記のようにご返事申し上げます。 > > > >１．書き込もうとしているＱＳＯデータはどうなっていますか？ > >　　　16 = ＤＸフラグ　がセットされていないようですが > > 私は、DXフラグ、CQフラグを利用していませんのでこれらの書き込みをしていません。 > > >２．QSOData 　と　 DataTbl(d)　の宣言部分を教えて下さい。 > > Dim QSOData As String > Dim DataTbl(14) As String > > このように単純に宣言しています。 > DataTbl(d)に書き込むデータは、有効桁数分だけです。 > > >３．「メニュー.」がついているのは？ > > class名「メニュー」にこれらの宣言をしたためです。 > > >４．SetThBuffer　、　THW_append　の宣言部分を教えて下さい。 > > Declare Sub SetThBuffer Lib "Thdll2Vb.dll" (ByRef p As TThLog, ByVal s As String, ByVal n As Integer) > > Declare Function THW_append Lib "Hamlog50.dll" (ByRef Th As TThLog, ByVal f As Integer, ByRef m As Integer) As Integer > > THW_appendの第三引数は、Hamlog50.DLL仕様書に「変数の参照渡しである。」とありましたので、 ByRefとしています。最初私はここでつまずきました。
画像File	(130kBまで)
暗証キー	(英数字で8文字以内)
投稿キー	（投稿時を入力してください）
プレビュー