HAMLOG プログラム開発室

こんにちは。ありがとうございました。

> さすが早いですね。昨夜はあまり寝ていないとか。

２３時に就寝し５時に起床でした。

[免許状Get's] の 方位、距離の Hamlog データ入力ウインドウへの表示と
cmmd = 117
　117 = 入力ウインドウの方位と距離の文字列を得る。
．．．．．．をお願いします。

さすが早いですね。昨夜はあまり寝ていないとか。
元がDelphiなので、実数型はDouble型もありますが、Extended型を
使っています。
Extended型～10バイト　　Double型～８バイト

また、Ｃ言語の　i += 10;　のような演算は、一般的な i = i + 10;
としてます。

> ありがとうございました。
> お陰様で HAMLOG.mst をテキスト出力したデータの緯度経度から
> 方位を取得する事が出来ました。
> JAの北海道函館や九州の久留米市などや、DXのモナコ、タスマニア等を
> 適当に抜き出して確認しました。

> JA9AOB　銅子さん、詳しくありがとうございます。
>
> 方位が取れる様になり一段落しました。
> まだユーザーから頼まれているソフトの改修や、質問が来ていたりするのですが、
> 銅子さんから頂いたソースをもう少し調べてみます。
少しは進捗致しましたか、私は、これを使ってPICNIC　を経由してANTを回しています。

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

方位が取れる様になり一段落しました。
まだユーザーから頼まれているソフトの改修や、質問が来ていたりするのですが、
銅子さんから頂いたソースをもう少し調べてみます。

ありがとうございました。
お陰様で HAMLOG.mst をテキスト出力したデータの緯度経度から
方位を取得する事が出来ました。
JAの北海道函館や九州の久留米市などや、DXのモナコ、タスマニア等を
適当に抜き出して確認しました。

> JA9AOB　銅子さん、ありがとうございます。
>
>
> C# から VB.net への変換ミスを修復し切れていない問題も残っています。
> GlCalculate() にて
>
>
> If isEast = True Then
> longitude += CDbl(180)
> Else
> longitude = CDbl(180) - longitude
> End If
> ．．．．の次が
>
> ''' Input:
> ''' longitude /= 20;
> ．．．の様に未変換のままです。　ここは必要なのかどうか？
>
> 上記のＩｆ文と同じコードが出て来ますが、そこにも
>
> ''' Input:
> ''' longitude /= 20;
>
> -------------------------
> GlToTransit() にも同じ箇所があります。

複合代入演算子　と言われるものです。
longitude /= 20; は　longitude = longitude/20; と同じです
他に
x += y
x = x + y
x -= y
x = x - y
x *= y
x = x * y
x /= y
x = x / y
等もあります

>
>
> GlCalculate() 関数の呼び出しでエラー。　パラメターの与え方が悪い？
> コールの仕方が悪いのか？
>
> 'エラー
> BC30451 'GlCalculate' は宣言されていません。アクセスできない保護レベルになっています。
>
> 下記の様にしているのですが？？
> Public Class SurroundingClass
>
> 　　Public Function GlCalculate(ByVal edeg As Integer,　以下省略
>
> Class　から Module　に変えたら上記のエラーは出なくなりました。
> デバッグで動かすと
> 　
> '// 1文字目　経度情報の整数部 0～17 をAからRに変換する
> gl += characters(CInt(longitude))

gl += ((int)longitude).ToString();
はdoubleをintに変換してstringに変換　すなわち整数部分の文字表現を取り出し　gl の後ろに付け足す処理です。　

10進数に直して　整数部分を取り出しその値を文字化する方法もあります。
BigDecimal bigDecimal = new BigDecimal(String.valueOf(doubleNumber));
int intValue = bigDecimal.intValue();

その他に　doubleを文字化して　小数点以前を取り出す方法でも可能です
String doubleAsString = String.valueOf(doubleNumber);
int indexOfDecimal = doubleAsString.indexOf(".");
gl += doubleAsString.substring(0, indexOfDecimal);


>
> ．．．にて「ユーザーが処理していない例外」と言うエラー
>
>
> 長くなりますので、後は落ち着いたらメールっさせて頂きます。

訂正します。
Ido2Radian(138, 14, 16 or &H80)
でした。

> > 最上位ビットが立っていればとか、下記は難しい。
> > int Houi_Kyori(const double Ido1, Kdo1, Ido2, Kdo2, char *sbuff)
>
> ＶＢだとこんな感じでしょうか。
> Ido2Radian(138, 14, 16 and &H80)

> 最上位ビットが立っていればとか、下記は難しい。
> int Houi_Kyori(const double Ido1, Kdo1, Ido2, Kdo2, char *sbuff)

ＶＢだとこんな感じでしょうか。
Ido2Radian(138, 14, 16 and &H80)
南緯、西経　の場合ですので、とりあえず気にしないでやってみてください。

> 実際に動かして結果を見るにはどうすればよいでしょうか。
>
> 自分の経度を度、分、秒で入れる。 Ido2Radian(138, 14, 16)
> 緯度は？
>
> 相手の経度は？緯度は？　　どこにセットするのでしょうか？

自分の緯度・経度、相手の緯度・経度　で、
Ido2Radian()を４回呼び出します。

お世話になります。

取り敢えずは VB.net に変換しました。
ソース上ではエラーが出ない状態にはしました。（表面上はかな？？）

最上位ビットが立っていればとか、下記は難しい。
int Houi_Kyori(const double Ido1, Kdo1, Ido2, Kdo2, char *sbuff)


実際に動かして結果を見るにはどうすればよいでしょうか。

自分の経度を度、分、秒で入れる。 Ido2Radian(138, 14, 16)
緯度は？

相手の経度は？緯度は？　　どこにセットするのでしょうか？

JG1MOU 浜田さん、こんばんは。

> // Pascal言語をＣ言語に直しました。

ソースをありがとうございます。　C から VB.net に変換してみます。
上手く動くと良いのですが。