TPS1100-Convert/Form2.vb

Imports System.Collections.Specialized.BitVector32
Imports System.IO
Imports System.Windows.Forms.VisualStyles.VisualStyleElement

Public Class Form2
    
    Public DatotekaSpemembe As Boolean = False
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Activated
        Form1.Hide()
        RichTextBoxEdit.Clear()

        ' prepare StreamReader
        Dim streamReader As StreamReader = New StreamReader(My.Settings.ZadnjaMapa + "\" + My.Settings.Datoteka)
        Dim i As Integer = 0

        ' loop untill end of stream
        Do Until streamReader.EndOfStream
            ' Beri vrstico po vrstico
            Dim line As String = streamReader.ReadLine()
            RichTextBoxEdit.AppendText(line + vbCrLf)
            i = i + 1
        Loop
        ToolStripStatusLabel1.Text = "Prebrano: " + i.ToString + " | Datoteka: " + My.Settings.ZadnjaMapa + "\" + My.Settings.Datoteka
        DatotekaSpemembe = False
        BtnShraniF2.Enabled = False
        ComBoxKoda.SelectedIndex = 0
        streamReader.Close()
        streamReader.Dispose()
    End Sub

    Private Sub Form2_Close(sender As Object, e As EventArgs) Handles MyBase.Closing
        ' If DatotekaSpemembe = True Then
        '     MessageBox.Show("Shranim spremembe?", "Podatki spremenjeni", MessageBoxButtons.YesNo)
        '     If MessageBoxButtons.YesNo = vbYes Then
        '         RichTextBoxEdit.SaveFile(My.Settings.ZadnjaMapa, RichTextBoxStreamType.PlainText)
        '         BtnShraniF2.Enabled = False
        '         DatotekaSpemembe = False
        '     End If
        ' End If
        Form1.RichTextBox1.Clear()
        Form1.streamLines = 0
        Dim streamReader As StreamReader = New StreamReader(Form1.OpenFileDialog1.FileName)
        Do Until streamReader.EndOfStream
            Form1.RichTextBox1.AppendText(streamReader.ReadLine + vbCrLf)
            Form1.streamLines = Form1.streamLines + 1
        Loop
        Form1.ToolStripProgressBar1.Maximum = Form1.streamLines
        streamReader.Close()
        streamReader.Dispose()

        Form1.Show()
    End Sub

    Private Sub RichTextBox1_TextChanged(sender As Object, e As EventArgs) Handles RichTextBoxEdit.TextChanged
        ToolStripStatusLabel1.Text = "Spremenjeni podatki... datoteka je bila urejana."
        BtnShraniF2.Enabled = True
        DatotekaSpemembe = True
    End Sub

    Private Sub BtnShraniF2_Click(sender As Object, e As EventArgs) Handles BtnShraniF2.Click
        ' SaveFileDialog2.FileName = My.Settings.ZadnjaMapa
        ' If SaveFileDialog2.ShowDialog = DialogResult.OK Then
        RichTextBoxEdit.SaveFile(My.Settings.ZadnjaMapa + "\" + My.Settings.Datoteka, RichTextBoxStreamType.PlainText)
        ToolStripStatusLabel1.Text = "Shranjeno: " + SaveFileDialog2.FileName.ToString
        BtnShraniF2.Enabled = False
        DatotekaSpemembe = False
        ' End If
    End Sub


    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
        ' 0 ---
        ' 1 Setup:  Quick Set
        ' 2 Setup: Set Azimuth
        ' 3 Setup:  Resection
        ' 4 Setup:  Free Station
        ' 5 Setup:  Ori. & Ht. Transfer
        ' 6 Measure: Orientation
        ' 7 Measure: Points
        ' 8 Data:   User-Entered
        ' 9 Info:   Station
        ' 10 Info:   Temp. & Press.
        Dim dataTekst As String = ""
        If ComBoxKoda.SelectedIndex <= 0 Then

        ElseIf ComBoxKoda.SelectedIndex = 1 Then    ' Koda Setup: Quick Set
            dataTekst = "*410000+" + My.Settings.KodaQuickSet.PadLeft(16, "0") + " "
            BtnShraniF2.Enabled = True
            DatotekaSpemembe = True
        ElseIf ComBoxKoda.SelectedIndex = 2 Then    ' Koda Setup: Set Azimut
            dataTekst = "*410000+" + My.Settings.KodaSetAzi.PadLeft(16, "0") + " "
            BtnShraniF2.Enabled = True
            DatotekaSpemembe = True
        ElseIf ComBoxKoda.SelectedIndex = 3 Then    ' Koda Setup: Resection
            dataTekst = "*410000+" + My.Settings.KodaResection.PadLeft(16, "0") + " "
            BtnShraniF2.Enabled = True
            DatotekaSpemembe = True
        ElseIf ComBoxKoda.SelectedIndex = 4 Then    ' Koda Setup: Free Station
            dataTekst = "*410000+" + My.Settings.KodaFreeStation.PadLeft(16, "0") + " "
            BtnShraniF2.Enabled = True
            DatotekaSpemembe = True
        ElseIf ComBoxKoda.SelectedIndex = 5 Then    ' Koda Setup: Ori. & Ht. Transfer
            dataTekst = "*410000+" + My.Settings.KodaOriHtTrans.PadLeft(16, "0") + " "
            BtnShraniF2.Enabled = True
            DatotekaSpemembe = True
        ElseIf ComBoxKoda.SelectedIndex = 6 Then    ' Koda Orientacija
            dataTekst = "*410000+" + My.Settings.KodaMeasOri.PadLeft(16, "0") + " "
            BtnShraniF2.Enabled = True
            DatotekaSpemembe = True
        ElseIf ComBoxKoda.SelectedIndex = 7 Then    ' Koda Meritve
            dataTekst = "*410000+" + My.Settings.KodaMeas.PadLeft(16, "0") + " "
            BtnShraniF2.Enabled = True
            DatotekaSpemembe = True
        ElseIf ComBoxKoda.SelectedIndex = 8 Then    ' Koda User-Entered/Import
            dataTekst = "*410000+" + My.Settings.KodaUserImport.PadLeft(16, "0") + " "
            BtnShraniF2.Enabled = True
            DatotekaSpemembe = True
        ElseIf ComBoxKoda.SelectedIndex = 9 Then    ' Koda Stojišče
            Dim kodaStoj As String = ToolStripTextBox1.Text.PadLeft(16, "0")
            Dim kodaStojVis As Double = ToolStripTextBox2.Text.Replace(",", ".") * 1000
            dataTekst = "*410000+" + My.Settings.KodaStojisce.PadLeft(16, "0") + " 71....+" + kodaStoj.PadLeft(16, "0") + " 72....+" + Format(kodaStojVis, "0000000000000000").ToString + " "
            BtnShraniF2.Enabled = True
            DatotekaSpemembe = True
        ElseIf ComBoxKoda.SelectedIndex = 10 Then    ' Koda Podatki Temp./Pritisk
            Dim kodaVremeTemp As Double = ToolStripTextBox3.Text.Replace(",", ".")
            Dim kodaVremePrit As Double = ToolStripTextBox4.Text.Replace(",", ".") ' 1 mbar/hPa = 0.750062 Torr
            dataTekst = "*410000+" + My.Settings.KodaStojisceInfo.PadLeft(16, "0") + " 71....+" + Format(kodaVremeTemp, "0000000000000000").ToString + " 72....+" + Format(kodaVremePrit, "0000000000000000").ToString + " "
            BtnShraniF2.Enabled = True
            DatotekaSpemembe = True
        ElseIf ComBoxKoda.SelectedIndex = 11 Then    ' Koda Orientacija
            Dim kodaOri As String = ToolStripTextBox1.Text.PadLeft(16, "0")
            Dim kodaOriHz As Double = ToolStripTextBox5.Text.Replace(",", ".") * 100000
            dataTekst = "*410000+" + My.Settings.KodaStojisceOri.PadLeft(16, "0") + " 71....+" + kodaOri.PadLeft(16, "0") + " 72....+" + Format(kodaOriHz, "0000000000000000").ToString + " "
            BtnShraniF2.Enabled = True
            DatotekaSpemembe = True
        End If
        RichTextBoxEdit.Focus()
        RichTextBoxEdit.SelectionStart = RichTextBoxEdit.GetFirstCharIndexOfCurrentLine
        SendKeys.Send("+{HOME}")
        RichTextBoxEdit.SelectedText = dataTekst + vbCrLf
    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        RichTextBoxEdit.Undo()
    End Sub

    Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
        Me.Close()
    End Sub

    Private Sub ComBoxKoda_Click(sender As Object, e As EventArgs) Handles ComBoxKoda.SelectedIndexChanged
        If ComBoxKoda.SelectedIndex <= 0 Then
            ToolStripButton2.Enabled = False
            ToolStripLabel2.Visible = False
            ToolStripLabel3.Visible = False
            ToolStripLabel4.Visible = False
            ToolStripLabel5.Visible = False
            ToolStripLabel6.Visible = False
            ToolStripTextBox1.Visible = False
            ToolStripTextBox2.Visible = False
            ToolStripTextBox3.Visible = False
            ToolStripTextBox4.Visible = False
            ToolStripTextBox5.Visible = False
        ElseIf ComBoxKoda.SelectedIndex = 9 Then
            ToolStripButton2.Enabled = True
            ToolStripLabel2.Visible = True
            ToolStripTextBox1.Visible = True
            ToolStripLabel3.Visible = True
            ToolStripTextBox2.Visible = True
            ToolStripLabel4.Visible = False
            ToolStripTextBox3.Visible = False
            ToolStripLabel5.Visible = False
            ToolStripTextBox4.Visible = False
            ToolStripLabel6.Visible = False
            ToolStripTextBox5.Visible = False
        ElseIf ComBoxKoda.SelectedIndex = 10 Then
            ToolStripButton2.Enabled = True
            ToolStripLabel2.Visible = False
            ToolStripTextBox1.Visible = False
            ToolStripLabel3.Visible = False
            ToolStripTextBox2.Visible = False
            ToolStripLabel4.Visible = True
            ToolStripTextBox3.Visible = True
            ToolStripLabel5.Visible = True
            ToolStripTextBox4.Visible = True
            ToolStripLabel6.Visible = False
            ToolStripTextBox5.Visible = False
        ElseIf ComBoxKoda.SelectedIndex = 11 Then
            ToolStripButton2.Enabled = True
            ToolStripLabel2.Visible = True
            ToolStripTextBox1.Visible = True
            ToolStripLabel3.Visible = False
            ToolStripTextBox2.Visible = False
            ToolStripLabel4.Visible = False
            ToolStripTextBox3.Visible = False
            ToolStripLabel5.Visible = False
            ToolStripTextBox4.Visible = False
            ToolStripLabel6.Visible = True
            ToolStripTextBox5.Visible = True
        Else
            ToolStripButton2.Enabled = True
            ToolStripLabel2.Visible = False
            ToolStripLabel3.Visible = False
            ToolStripLabel4.Visible = False
            ToolStripLabel5.Visible = False
            ToolStripLabel6.Visible = False
            ToolStripTextBox1.Visible = False
            ToolStripTextBox2.Visible = False
            ToolStripTextBox3.Visible = False
            ToolStripTextBox4.Visible = False
            ToolStripTextBox5.Visible = False
        End If
    End Sub

    Private Sub IzračunMeritveStMerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IzračunMeritveStMerToolStripMenuItem.Click
        FormIzracunMeasure.Show()

    End Sub
End Class