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
        Dim hzMer As Double = MaskedTextBoxDegHz.Text
        'Dim hzMerData = Split(hzMer, ".")
        'Dim hzMerDeg As Double = CDbl(hzMerData(0))
        'Dim hzMerMin As Double = CDbl(Microsoft.VisualBasic.Left(hzMerData(1).ToString, 2)) / 60
        'Dim hzMerSec As Double = CDbl(Microsoft.VisualBasic.Mid(hzMerData(1), 3)) / 3600
        'Dim hzMerDecDeg As Double = hzMerDeg + hzMerMin + hzMerSec
        ' Pretvori DMS v decimalne stopinje za HzCor
        Dim hzPop As Double = MaskedTextBoxDegHzCor.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
        ' Izračunaj nov Azi in izpiši v obeh formatih
        Dim hzNov As Double = 0
        Dim hzNovDecDeg As Double = hzMer + hzPop

        If hzNovDecDeg >= 360 Then
            hzNovDecDeg = hzNovDecDeg - 360
        End If
        'MaskedTextBoxDegHz.Text = Format(hzMerDecDeg, "0.000000").ToString
        'MaskedTextBoxDegHzCor.Text = Format(hzPopDecDeg, "0.000000").ToString
        MaskedTextBoxGsiHzNov.Text = Format(hzNovDecDeg, "0.000000").ToString
    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)
        Dim hzMerData = Split(hzMerNumData.ToString, ".")
        'Dim hzMerDeg As Double = hzMerData(0)
        'Dim hzMerMin As Double = Microsoft.VisualBasic.Left(hzMerData(1), 2)
        'Dim hzMerSec As Double = Microsoft.VisualBasic.Mid(hzMerData(1), 2)
        'Dim hzMerDecDeg As Double = hzMerDeg + (hzMerMin / 60) + (hzMerSec / 3600)
        ' 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)
        Dim hzPopData = Split(hzMPopNumData.ToString, ".")
        'Dim hzPopDeg As Double = hzPopData(0)
        'Dim hzPopMin As Double = Microsoft.VisualBasic.Left(hzPopData(1), 2)
        'Dim hzPopSec As Double = Microsoft.VisualBasic.Mid(hzPopData(1), 2)
        'Dim hzPopDecDeg As Double = hzPopDeg + (hzPopMin / 60) + (hzPopSec / 3600)

        MaskedTextBoxMerHz.Text = Format(hzMerNumData, "0.0000").ToString
        MaskedTextBoxHzCor.Text = Format(hzMPopNumData, "0.0000").ToString
        'MaskedTextBoxDegHz.Text = Format(hzMerDecDeg.ToString, "0.000000").ToString
        'MaskedTextBoxDegHzCor.Text = Format(hzPopDecDeg.ToString, "0.000000").ToString

    End Sub
End Class