HAMLOG プログラム開発室

> お世話になります。ありがとうございます。
> メインウインドウに対してＱＳＬ欄に update 命令を送った時に
> J* と見えているのを E* とかに見える様に変わる．．．です。
> Hamlog.hdb 自体は書き換わっているようですが
> update の結果が直ぐに目視で確認出来ればと思いました。

SendMessage()で27を送ってQSOデータをCloseさせ、28を送ってOpenさせ
れば再描画すると思います。

> QSL_Rcv(), QSL_Send() は３文字目と２文字目ですよね？
> １文字目 発行先　（ J: JARL 経由、 M: マネージャー経由とか）　　　　
> 環境設定の「設定１」の「ＱＳＬ欄の初期値とする」に対する命令は無いようですが。
> cmmd = 10 で書き換えは出来ますが。

SendMessage()によるQSOデータを書き換える命令はありません。たぶん。
https://musescore.com/user/61967632
https://devpost.com/o7hivpf216
https://www.hometalk.com/member/79272109/johnette1822682
https://peatix.com/user/16357010/view
https://app.lookbook.nu/user/11235006-Norsworthy
https://orcid.org/0009-0008-2279-4936
https://list.ly/s5hskwv840
https://thegadgetflow.com/user/t1rvjaj989/
https://www.longisland.com/profile/a1gffki546/
https://www.myvidster.com/profile/p1acfqj850
https://www.bitsdujour.com/profiles/Yt3SyJ
https://www.divephotoguide.com/user/h0kjtzo215/
https://artmight.com/user/profile/1027031
https://www.mapleprimes.com/users/l0bwxof661
https://www.cheaperseeker.com/u/v8jrwew693
https://independent.academia.edu/EncisoTressa27
https://independent.academia.edu/NitzStar40
https://independent.academia.edu/JolliffAzar17
https://independent.academia.edu/GenovevaJohnette20
https://independent.academia.edu/RulandLarsen23

お世話になります。ありがとうございます。
メインウインドウに対してＱＳＬ欄に update 命令を送った時に
J* と見えているのを E* とかに見える様に変わる．．．です。
Hamlog.hdb 自体は書き換わっているようですが
update の結果が直ぐに目視で確認出来ればと思いました。

QSL_Rcv(), QSL_Send()　こちらは未経験なので試してみます。

QSL_Rcv(), QSL_Send() は３文字目と２文字目ですよね？
１文字目 発行先　（ J: JARL 経由、 M: マネージャー経由とか）　　　　
環境設定の「設定１」の「ＱＳＬ欄の初期値とする」に対する命令は無いようですが。
cmmd = 10 で書き換えは出来ますが。

> 更新したデータの修正ウインドウを出すか再起動すれば更新したＱＳＬ欄が表示されますが更新命令を直ぐに反映させるには何か方法がありますか？

「更新命令を直ぐに反映させる」とは具体的にどういうことでしょう？
QSOデータのQSL欄に書き込むのは、QSL_Rcv(), QSL_Send() が簡単かと思います。

https://giphy.com/channel/n3jhjqz008
https://www.indiegogo.com/individuals/32942874
https://www.boredpanda.com/author/m9vmfle509/
https://hub.docker.com/r/m4nxyep534/website
https://www.instapaper.com/read/1587250286
https://creator.wonderhowto.com/y2tcfqs608/
https://www.blogtalkradio.com/r6utjwv778
https://coub.com/c5qdmix570
https://www.viki.com/users/m6ynszd486_434/about
https://www.blurb.com/user/fgisyrz522
https://www.demilked.com/author/q6cehra837/
https://www.giantbomb.com/profile/e1aloec271/
https://www.empowher.com/user/4071866
https://cs.astronomy.com/members/w7nuyzd394/default.aspx
https://www.magcloud.com/user/g4kvieb216
https://www.metal-archives.com/users/v8ruzaw183

何時もお世話になりありがとうございます。

VB2019 で　ＱＳＬ欄の更新をしています。
sd = THW_update(Th1, Th2, update_Rno, IsQSOdata, KAKUNIN_NO + 16)

更新したデータの修正ウインドウを出すか再起動すれば更新したＱＳＬ欄が表示されますが更新命令を直ぐに反映させるには何か方法がありますか？
https://www.gamespot.com/profile/t3titln500/
https://www.giantbomb.com/profile/d1cntkh605/
https://peatix.com/user/16585915/view
https://www.longisland.com/profile/h3mtwpi037/
https://www.bitsdujour.com/profiles/GmoVJc
https://www.demilked.com/author/r2tmqmr965/
https://www.anobii.com/en/01e46f3b71d81237a6/profile/activity
https://artmight.com/user/profile/1057440
https://thegadgetflow.com/user/q0ymixu380/
https://www.indiegogo.com/individuals/33144971
https://creator.wonderhowto.com/l9ygwed275/
https://www.divephotoguide.com/user/d4mqosx792/
https://cs.astronomy.com/members/r3fsbkx064/default.aspx
https://www.instructables.com/member/w5lppoh588/
https://stackoverflow.com/users/21377003/m9rclaz644?tab=profile
https://www.ted.com/profiles/42183439
https://www.gamespot.com/profile/l8ietks629/

ありがとうございます。

> そうでしたか。関ハムでもお会いできませんでしたので。
> お大事にされてください。

Hamlog のＱＳＯ履歴にあれば一定の条件下では紙ＱＳＬカードを発行しない．．．機能を
Thw2LogBook に盛り込み依頼があったので鋭意努力中です。
進捗状況は遅いですが．．．．。

そうでしたか。関ハムでもお会いできませんでしたので。
お大事にされてください。


> ありがとうございます。
> ７月、８月は腰の骨折で長くは机には向かえませんでした。車の運転もドクターストップで。
> ここ数日は久々の長時間プログラミングです。
>
> HAMLOG50.txt や HamlogMs.txt を改めて読み返しています。
> 目的のソフトに目的の機能を盛り込むにはまだ数日掛かりそうです。

> THW_read(Th1 , レコード番号 , 2) では無くて
> THWVB_ReadBuffer(readbuffer, 1000, Th1, 1)
> tmp1 = readbuffer.ToString
> でＱＳＯデータ（ここではコールサイン部分が取れました。）
Thw_seek() や Thw_skip() の後各データを読み出すのは
THDLL2VB　の　ThwString　を使うのだと思いますよ。私はC#なのでこれと同じ内容のものを使っています。Th As TThLog　にseekを行う事で各データが取り込まれるので、この３番目の項目で番号を指定して取り込みます。callなら1　周波数なら6　の様に。全部文字データで得られます。
一気に読み込みたいところですが、データ配列の関係で個別に読み出すのが一番無難です。
DLLを使うのが問題でしたら、メッソドとして組み込んでも行けるのではありませんか（私はそうしています）。

THW_read(Th1 , レコード番号 , 2) では無くて
THWVB_ReadBuffer(readbuffer, 1000, Th1, 1)
tmp1 = readbuffer.ToString
でＱＳＯデータ（ここではコールサイン部分が取れました。）

JA9AOB 銅子さん、
詳しくありがとうございました。

昨日の午後に １　を指定してQSO履歴の中身が取れたのですが、そのソースが何処か分からなくなり今朝からＰＣの中を探しています。
下記ではダメで．．．．。

Dim num As Boolean

get_main_call = "JA2CXF"

InitHamlogDLL()
SetDbsShare(1)

hamlogpath = strPath & "Hamlog.hdb"
sd = HamlogOpen(Th1, hamlogpath, 0)

num = THW_seek(Th1, get_main_call, DbsCallDX)

While num = SUCCESS
ＱＳＯデータの中身は
THW_read(Th1 , レコード番号 , 2) ではレコード番号が不明でダメですし。

---処理---

num = THW_skip(Th1, 1, DbsCallDX)

End While

Call HamlogClose(Th1, 0)
DoneHamlogDLL()

> JA9AOB 銅子さん、
>
> > 　あそうだ。JTDXのUDP経由でJTDXにデータを送る方法が分かりました。
>
> 詳細を教えて下さい。
>
> それから
> Th527api Hamlog50.txt の THW_skip() のスキップする数の扱いが分かりません。
>
> 引 数：num スキップする数（100～1 または -1～-100）
THW_skip() は普通の使い道は　seek top btm で目的の位置の先頭に移動しそこから順に（Indexの順に）検索するのに使いますので、スキップ数は1か-1で使う事が多いです。
例えば　DbsCallDX　を指定して　JA9AOBでseekするとJA9AOBの１件目が得られます。引き続きJA9AOBのデータを得るためにはskip で1を指定すれば次のデータにとNextに相当します。Callを比較していけばJA9AOBの履歴すべてを参照出来ます。
JTDXの件は後程