67 lines
3.4 KiB
VB.net
67 lines
3.4 KiB
VB.net
|
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
|