2024-07-17 22:30:32 +02:00
|
|
|
|
Imports System.Windows.Forms
|
|
|
|
|
|
|
|
|
|
Public Class DialogIzracunHzCor
|
|
|
|
|
|
|
|
|
|
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
|
|
|
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.OK
|
|
|
|
|
Me.Close()
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
|
|
|
|
|
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
|
|
|
|
|
Me.Close()
|
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub ButtonIzr_Click(sender As Object, e As EventArgs) Handles ButtonIzr.Click
|
|
|
|
|
' Pretvori DMS v decimalne stopinje za Hz
|
2024-07-25 03:01:25 +02:00
|
|
|
|
Dim hzMer = TextBox1.Text
|
|
|
|
|
Dim hzMerData = Split(hzMer, ".")
|
|
|
|
|
Dim hzMerDeg As Double = hzMerData(0)
|
|
|
|
|
Dim hzMerMin As Double = Microsoft.VisualBasic.Left(hzMerData(1), 2) / 60
|
|
|
|
|
Dim hzMerSec As Double = Microsoft.VisualBasic.Mid(hzMerData(1), 3) / 3600
|
|
|
|
|
Dim hzMerDecDeg As Double = hzMerDeg + hzMerMin + hzMerSec
|
|
|
|
|
MaskedTextBoxDegHz.Text = Format(hzMerDecDeg, "0.000000").ToString
|
2024-07-17 22:30:32 +02:00
|
|
|
|
' Pretvori DMS v decimalne stopinje za HzCor
|
2024-07-25 03:01:25 +02:00
|
|
|
|
Dim hzPop = TextBox2.Text
|
|
|
|
|
Dim hzPopData = Split(hzPop, ".")
|
|
|
|
|
Dim hzPopDeg As Double = hzPopData(0)
|
|
|
|
|
Dim hzPopMin As Double = Microsoft.VisualBasic.Left(hzPopData(1).ToString, 2) / 60
|
|
|
|
|
Dim hzPopSec As Double = Microsoft.VisualBasic.Mid(hzPopData(1), 3) / 3600
|
|
|
|
|
Dim hzPopDecDeg As Double = hzPopDeg + hzPopMin + hzPopSec
|
|
|
|
|
MaskedTextBoxDegHzCor.Text = Format(hzPopDecDeg, "0.000000").ToString
|
2024-07-17 22:30:32 +02:00
|
|
|
|
' Izračunaj nov Azi in izpiši v obeh formatih
|
2024-07-25 03:01:25 +02:00
|
|
|
|
Dim hzNovDecDeg As Double = hzMerDecDeg + hzPopDecDeg
|
2024-07-17 22:30:32 +02:00
|
|
|
|
If hzNovDecDeg >= 360 Then
|
|
|
|
|
hzNovDecDeg = hzNovDecDeg - 360
|
|
|
|
|
End If
|
2024-07-25 03:01:25 +02:00
|
|
|
|
MaskedTextBoxHzNov.Text = Format(hzNovDecDeg, "0.000000").ToString
|
|
|
|
|
Dim hzNov = MaskedTextBoxHzNov.Text
|
|
|
|
|
Dim hzNovData = Split(hzNov, ".")
|
|
|
|
|
Dim hzNovDeg As Double = Int(hzNov)
|
|
|
|
|
Dim hzNovMin As Double = (hzNov - hzNovDeg) * 60
|
|
|
|
|
Dim hzNovMinInt As Double = Int(hzNovMin)
|
|
|
|
|
Dim hzNovSec As Double = Format(((hzNovMin - hzNovMinInt) * 60), "00")
|
|
|
|
|
Dim hzNovDms As String = hzNovDeg.ToString + "." + hzNovMinInt.ToString + hzNovSec.ToString
|
|
|
|
|
Dim hzNovDmsGsi As String = "21.324+00000000" + Format(hzNovDeg, "000").ToString + Format(hzNovMinInt, "00").ToString + Format(hzNovSec, "00").ToString + "0 "
|
|
|
|
|
MaskedTextBoxHzNovDms.Text = hzNovDms
|
|
|
|
|
MaskedTextBoxGsiHzNov.Text = hzNovDmsGsi
|
|
|
|
|
'If hzNovDms >= 360 Then
|
|
|
|
|
' hzNovDms = hzNovDms - 360
|
|
|
|
|
'End If
|
2024-07-17 22:30:32 +02:00
|
|
|
|
'MaskedTextBoxDegHz.Text = Format(hzMerDecDeg, "0.000000").ToString
|
|
|
|
|
'MaskedTextBoxDegHzCor.Text = Format(hzPopDecDeg, "0.000000").ToString
|
2024-07-25 03:01:25 +02:00
|
|
|
|
|
2024-07-17 22:30:32 +02:00
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Private Sub ButtonUpGsi_Click(sender As Object, e As EventArgs) Handles ButtonUpGsi.Click
|
|
|
|
|
' Pretvori DMS v decimalne stopinje za Hz
|
|
|
|
|
Dim hzMer As Double = Microsoft.VisualBasic.Right(Replace(MaskedTextBoxGsiHz.Text, " ", ""), 8)
|
|
|
|
|
Dim hzMerNumData As Double = CDbl(hzMer / 100000)
|
2024-07-25 03:01:25 +02:00
|
|
|
|
TextBox1.Text = Format(hzMerNumData, "0.0000").ToString
|
|
|
|
|
'Dim hzMerData = Split(hzMerNumData.ToString, ".")
|
2024-07-17 22:30:32 +02:00
|
|
|
|
'Dim hzMerDeg As Double = hzMerData(0)
|
2024-07-25 03:01:25 +02:00
|
|
|
|
'Dim hzMerMin As Double = hzMerData(1) * 60
|
|
|
|
|
'Dim hzMerMinInt As Integer = Int(hzMerMin)
|
|
|
|
|
'Dim hzMerSec As Double = Format(((hzMerMin - hzMerMinInt) * 60), "0")
|
|
|
|
|
'Dim hzMerDms As String = hzMerDeg.ToString + "." + hzMerMinInt.ToString + hzMerSec.ToString
|
|
|
|
|
'MaskedTextBoxDegHz.Text = hzMerDms.ToString
|
2024-07-17 22:30:32 +02:00
|
|
|
|
' Pretvori DMS v decimalne stopinje za HzCor
|
|
|
|
|
Dim hzPop As Double = Microsoft.VisualBasic.Right(Replace(MaskedTextBoxGsiHzCor.Text, " ", ""), 8)
|
|
|
|
|
Dim hzMPopNumData As Double = CDbl(hzPop / 100000)
|
2024-07-25 03:01:25 +02:00
|
|
|
|
TextBox2.Text = Format(hzMPopNumData, "0.0000").ToString
|
|
|
|
|
'Dim hzPopData = Split(hzMPopNumData.ToString, ".")
|
2024-07-17 22:30:32 +02:00
|
|
|
|
'Dim hzPopDeg As Double = hzPopData(0)
|
2024-07-25 03:01:25 +02:00
|
|
|
|
'Dim hzPopMin As Double = hzPopData(1) * 60
|
|
|
|
|
'Dim hzPopMinInt As Double = Int(hzPopMin)
|
|
|
|
|
'Dim hzPopSec As Double = Format(((hzPopMin - hzPopMinInt) * 60), "0")
|
|
|
|
|
'Dim hzPopDms As Double = hzPopDeg.ToString + "." + hzPopMinInt.ToString + hzPopSec.ToString
|
|
|
|
|
'MaskedTextBoxDegHzCor.Text = hzPopDms.ToString
|
2024-07-17 22:30:32 +02:00
|
|
|
|
|
|
|
|
|
'MaskedTextBoxDegHz.Text = Format(hzMerDecDeg.ToString, "0.000000").ToString
|
|
|
|
|
'MaskedTextBoxDegHzCor.Text = Format(hzPopDecDeg.ToString, "0.000000").ToString
|
|
|
|
|
|
|
|
|
|
End Sub
|
2024-07-25 03:01:25 +02:00
|
|
|
|
|
2024-07-17 22:30:32 +02:00
|
|
|
|
End Class
|