boris/TPS1100-Convert
boris/TPS1100-Convert
1
1
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

Verzija 2.8.0.1 (alpha)

Browse Source
This commit is contained in:
Boris Bilc 2024-07-17 22:30:32 +02:00
parent 0ae2ce40f1
commit e49fea6dc0
69 changed files with 7543 additions and 561 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
CHANGELOG.md
View File

@ -5,6 +5,27 @@ Zapisnik razvoja programa TPS1100 Convert.
---
## v2.8.0.1 - Release
Datum: 2024/07/15
- Popravljen izris grafike
- Dodane funkcije za uvoz in nalaganje GSI joba iz menuja "Projekti..."
- Popravki izvoza seznama točk
- Spremembe in popravki UI
- Glavnega meni aplikacije
- Indikatorji za trenutni projekt in odprto GSI datoteko presstavljena v novo vrstico
- Dopoljnjen UI za Projekte
- Dodana funkcija za pripravo PC-kartice (kopira pred-pripravljene podatke iz Virtualna Kartica)
- Dodana funkcija za zavarovanje kartice v mapo "\Zavarovanja\..."
- Dodana funkcija za izračun orientacijskega kota (Azi = Hz + HzCor)
- Pripravljen UI za izračun meritve iz koordinat stojišča in merjene točke
- Popravki pri preverjanju za posodobitve
---
## v2.8.0.0 (2024/07/03) - Release Candidate
- Inteegracija projektov (Virtualna Kartica/Projekti)

516
DialogIzracunHzCor.Designer.vb generated Normal file
View File

@ -0,0 +1,516 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DialogIzracunHzCor
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.OK_Button = New System.Windows.Forms.Button()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
Me.Label4 = New System.Windows.Forms.Label()
Me.MaskedTextBoxMerHz = New System.Windows.Forms.MaskedTextBox()
Me.MaskedTextBoxHzCor = New System.Windows.Forms.MaskedTextBox()
Me.MaskedTextBoxDegHzCor = New System.Windows.Forms.MaskedTextBox()
Me.MaskedTextBoxDegHz = New System.Windows.Forms.MaskedTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.MaskedTextBoxGsiHz = New System.Windows.Forms.MaskedTextBox()
Me.MaskedTextBoxGsiHzCor = New System.Windows.Forms.MaskedTextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.ButtonUpGsi = New System.Windows.Forms.Button()
Me.ButtonUpDms = New System.Windows.Forms.Button()
Me.ButtonUpDeg = New System.Windows.Forms.Button()
Me.MaskedTextBox1 = New System.Windows.Forms.MaskedTextBox()
Me.MaskedTextBoxHzNov = New System.Windows.Forms.MaskedTextBox()
Me.MaskedTextBoxGsiHzNov = New System.Windows.Forms.MaskedTextBox()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.ButtonKopirajHzGsi = New System.Windows.Forms.Button()
Me.ButtonKopirajHzTxt = New System.Windows.Forms.Button()
Me.ButtonIzr = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout()
Me.TableLayoutPanel2.SuspendLayout()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.ColumnCount = 2
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(497, 264)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
Me.TableLayoutPanel1.TabIndex = 0
'
'OK_Button
'
Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.OK_Button.Location = New System.Drawing.Point(3, 3)
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(67, 23)
Me.OK_Button.TabIndex = 0
Me.OK_Button.Text = "Pomoč"
'
'Cancel_Button
'
Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
Me.Cancel_Button.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
Me.Cancel_Button.TabIndex = 1
Me.Cancel_Button.Text = "Zapri"
'
'TableLayoutPanel2
'
Me.TableLayoutPanel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel2.ColumnCount = 4
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 30.0!))
Me.TableLayoutPanel2.Controls.Add(Me.Label4, 2, 0)
Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxMerHz, 2, 1)
Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxHzCor, 2, 2)
Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxDegHzCor, 1, 2)
Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxDegHz, 1, 1)
Me.TableLayoutPanel2.Controls.Add(Me.Label2, 0, 2)
Me.TableLayoutPanel2.Controls.Add(Me.Label1, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.Label5, 1, 0)
Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxGsiHz, 3, 1)
Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxGsiHzCor, 3, 2)
Me.TableLayoutPanel2.Controls.Add(Me.Label9, 3, 0)
Me.TableLayoutPanel2.Controls.Add(Me.ButtonUpGsi, 3, 3)
Me.TableLayoutPanel2.Controls.Add(Me.ButtonUpDms, 2, 3)
Me.TableLayoutPanel2.Controls.Add(Me.ButtonUpDeg, 1, 3)
Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBox1, 1, 7)
Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxHzNov, 1, 6)
Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxGsiHzNov, 1, 5)
Me.TableLayoutPanel2.Controls.Add(Me.Label8, 2, 7)
Me.TableLayoutPanel2.Controls.Add(Me.Label7, 2, 6)
Me.TableLayoutPanel2.Controls.Add(Me.Label6, 2, 5)
Me.TableLayoutPanel2.Controls.Add(Me.ButtonKopirajHzGsi, 3, 7)
Me.TableLayoutPanel2.Controls.Add(Me.ButtonKopirajHzTxt, 3, 6)
Me.TableLayoutPanel2.Controls.Add(Me.ButtonIzr, 1, 4)
Me.TableLayoutPanel2.Controls.Add(Me.Label3, 0, 4)
Me.TableLayoutPanel2.Location = New System.Drawing.Point(13, 13)
Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
Me.TableLayoutPanel2.RowCount = 8
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 18.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 32.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel2.Size = New System.Drawing.Size(630, 245)
Me.TableLayoutPanel2.TabIndex = 1
'
'Label4
'
Me.Label4.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.Location = New System.Drawing.Point(286, 0)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(151, 18)
Me.Label4.TabIndex = 10
Me.Label4.Text = "Format DMS [D.MMSS]"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.BottomCenter
'
'MaskedTextBoxMerHz
'
Me.MaskedTextBoxMerHz.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MaskedTextBoxMerHz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MaskedTextBoxMerHz.Font = New System.Drawing.Font("Lucida Console", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaskedTextBoxMerHz.Location = New System.Drawing.Point(288, 23)
Me.MaskedTextBoxMerHz.Margin = New System.Windows.Forms.Padding(5)
Me.MaskedTextBoxMerHz.Name = "MaskedTextBoxMerHz"
Me.MaskedTextBoxMerHz.PromptChar = Global.Microsoft.VisualBasic.ChrW(35)
Me.MaskedTextBoxMerHz.Size = New System.Drawing.Size(147, 20)
Me.MaskedTextBoxMerHz.TabIndex = 6
'
'MaskedTextBoxHzCor
'
Me.MaskedTextBoxHzCor.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MaskedTextBoxHzCor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MaskedTextBoxHzCor.Font = New System.Drawing.Font("Lucida Console", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaskedTextBoxHzCor.Location = New System.Drawing.Point(288, 55)
Me.MaskedTextBoxHzCor.Margin = New System.Windows.Forms.Padding(5)
Me.MaskedTextBoxHzCor.Name = "MaskedTextBoxHzCor"
Me.MaskedTextBoxHzCor.PromptChar = Global.Microsoft.VisualBasic.ChrW(35)
Me.MaskedTextBoxHzCor.Size = New System.Drawing.Size(147, 20)
Me.MaskedTextBoxHzCor.TabIndex = 7
'
'MaskedTextBoxDegHzCor
'
Me.MaskedTextBoxDegHzCor.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MaskedTextBoxDegHzCor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MaskedTextBoxDegHzCor.Font = New System.Drawing.Font("Lucida Console", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaskedTextBoxDegHzCor.Location = New System.Drawing.Point(131, 55)
Me.MaskedTextBoxDegHzCor.Margin = New System.Windows.Forms.Padding(5)
Me.MaskedTextBoxDegHzCor.Name = "MaskedTextBoxDegHzCor"
Me.MaskedTextBoxDegHzCor.Size = New System.Drawing.Size(147, 20)
Me.MaskedTextBoxDegHzCor.TabIndex = 4
'
'MaskedTextBoxDegHz
'
Me.MaskedTextBoxDegHz.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MaskedTextBoxDegHz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MaskedTextBoxDegHz.Font = New System.Drawing.Font("Lucida Console", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaskedTextBoxDegHz.Location = New System.Drawing.Point(131, 23)
Me.MaskedTextBoxDegHz.Margin = New System.Windows.Forms.Padding(5)
Me.MaskedTextBoxDegHz.Name = "MaskedTextBoxDegHz"
Me.MaskedTextBoxDegHz.Size = New System.Drawing.Size(147, 20)
Me.MaskedTextBoxDegHz.TabIndex = 3
'
'Label2
'
Me.Label2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.Location = New System.Drawing.Point(3, 50)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(120, 32)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Popavek (HzCor)"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label1
'
Me.Label1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.Location = New System.Drawing.Point(3, 18)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(120, 32)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Merjen (Hz)"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label5
'
Me.Label5.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.Location = New System.Drawing.Point(129, 0)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(151, 18)
Me.Label5.TabIndex = 11
Me.Label5.Text = "Format DEG"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
'
'MaskedTextBoxGsiHz
'
Me.MaskedTextBoxGsiHz.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MaskedTextBoxGsiHz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MaskedTextBoxGsiHz.Font = New System.Drawing.Font("Lucida Console", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaskedTextBoxGsiHz.Location = New System.Drawing.Point(445, 23)
Me.MaskedTextBoxGsiHz.Margin = New System.Windows.Forms.Padding(5)
Me.MaskedTextBoxGsiHz.Mask = "21.324+0000000000000000 "
Me.MaskedTextBoxGsiHz.Name = "MaskedTextBoxGsiHz"
Me.MaskedTextBoxGsiHz.PromptChar = Global.Microsoft.VisualBasic.ChrW(35)
Me.MaskedTextBoxGsiHz.Size = New System.Drawing.Size(180, 19)
Me.MaskedTextBoxGsiHz.TabIndex = 17
'
'MaskedTextBoxGsiHzCor
'
Me.MaskedTextBoxGsiHzCor.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MaskedTextBoxGsiHzCor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MaskedTextBoxGsiHzCor.Font = New System.Drawing.Font("Lucida Console", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaskedTextBoxGsiHzCor.Location = New System.Drawing.Point(445, 55)
Me.MaskedTextBoxGsiHzCor.Margin = New System.Windows.Forms.Padding(5)
Me.MaskedTextBoxGsiHzCor.Mask = "25.344+0000000000000000 "
Me.MaskedTextBoxGsiHzCor.Name = "MaskedTextBoxGsiHzCor"
Me.MaskedTextBoxGsiHzCor.PromptChar = Global.Microsoft.VisualBasic.ChrW(35)
Me.MaskedTextBoxGsiHzCor.Size = New System.Drawing.Size(180, 19)
Me.MaskedTextBoxGsiHzCor.TabIndex = 18
'
'Label9
'
Me.Label9.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label9.Location = New System.Drawing.Point(443, 0)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(184, 18)
Me.Label9.TabIndex = 19
Me.Label9.Text = "Format GSI"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.BottomCenter
'
'ButtonUpGsi
'
Me.ButtonUpGsi.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ButtonUpGsi.AutoSize = True
Me.ButtonUpGsi.FlatAppearance.BorderColor = System.Drawing.SystemColors.ButtonShadow
Me.ButtonUpGsi.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.ButtonUpGsi.Location = New System.Drawing.Point(443, 85)
Me.ButtonUpGsi.Name = "ButtonUpGsi"
Me.ButtonUpGsi.Size = New System.Drawing.Size(184, 26)
Me.ButtonUpGsi.TabIndex = 20
Me.ButtonUpGsi.Text = "Uporabi GSI"
Me.ButtonUpGsi.UseVisualStyleBackColor = True
'
'ButtonUpDms
'
Me.ButtonUpDms.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ButtonUpDms.AutoSize = True
Me.ButtonUpDms.FlatAppearance.BorderColor = System.Drawing.SystemColors.ButtonShadow
Me.ButtonUpDms.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.ButtonUpDms.Location = New System.Drawing.Point(286, 85)
Me.ButtonUpDms.Name = "ButtonUpDms"
Me.ButtonUpDms.Size = New System.Drawing.Size(151, 26)
Me.ButtonUpDms.TabIndex = 21
Me.ButtonUpDms.Text = "Uporabi DMS"
Me.ButtonUpDms.UseVisualStyleBackColor = True
'
'ButtonUpDeg
'
Me.ButtonUpDeg.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ButtonUpDeg.AutoSize = True
Me.ButtonUpDeg.FlatAppearance.BorderColor = System.Drawing.SystemColors.ButtonShadow
Me.ButtonUpDeg.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.ButtonUpDeg.Location = New System.Drawing.Point(129, 85)
Me.ButtonUpDeg.Name = "ButtonUpDeg"
Me.ButtonUpDeg.Size = New System.Drawing.Size(151, 26)
Me.ButtonUpDeg.TabIndex = 22
Me.ButtonUpDeg.Text = "Uporabi DEG"
Me.ButtonUpDeg.UseVisualStyleBackColor = True
'
'MaskedTextBox1
'
Me.MaskedTextBox1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MaskedTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MaskedTextBox1.Font = New System.Drawing.Font("Lucida Console", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaskedTextBox1.Location = New System.Drawing.Point(131, 215)
Me.MaskedTextBox1.Margin = New System.Windows.Forms.Padding(5)
Me.MaskedTextBox1.Name = "MaskedTextBox1"
Me.MaskedTextBox1.PromptChar = Global.Microsoft.VisualBasic.ChrW(35)
Me.MaskedTextBox1.ReadOnly = True
Me.MaskedTextBox1.Size = New System.Drawing.Size(147, 20)
Me.MaskedTextBox1.TabIndex = 13
'
'MaskedTextBoxHzNov
'
Me.MaskedTextBoxHzNov.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MaskedTextBoxHzNov.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MaskedTextBoxHzNov.Font = New System.Drawing.Font("Lucida Console", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaskedTextBoxHzNov.Location = New System.Drawing.Point(131, 183)
Me.MaskedTextBoxHzNov.Margin = New System.Windows.Forms.Padding(5)
Me.MaskedTextBoxHzNov.Name = "MaskedTextBoxHzNov"
Me.MaskedTextBoxHzNov.PromptChar = Global.Microsoft.VisualBasic.ChrW(35)
Me.MaskedTextBoxHzNov.ReadOnly = True
Me.MaskedTextBoxHzNov.Size = New System.Drawing.Size(147, 20)
Me.MaskedTextBoxHzNov.TabIndex = 8
'
'MaskedTextBoxGsiHzNov
'
Me.MaskedTextBoxGsiHzNov.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MaskedTextBoxGsiHzNov.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MaskedTextBoxGsiHzNov.Cursor = System.Windows.Forms.Cursors.IBeam
Me.MaskedTextBoxGsiHzNov.Font = New System.Drawing.Font("Lucida Console", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaskedTextBoxGsiHzNov.Location = New System.Drawing.Point(131, 151)
Me.MaskedTextBoxGsiHzNov.Margin = New System.Windows.Forms.Padding(5)
Me.MaskedTextBoxGsiHzNov.Name = "MaskedTextBoxGsiHzNov"
Me.MaskedTextBoxGsiHzNov.ReadOnly = True
Me.MaskedTextBoxGsiHzNov.Size = New System.Drawing.Size(147, 20)
Me.MaskedTextBoxGsiHzNov.TabIndex = 5
'
'Label8
'
Me.Label8.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label8.Location = New System.Drawing.Point(286, 210)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(151, 35)
Me.Label8.TabIndex = 16
Me.Label8.Text = "DMS (GSI)"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label7
'
Me.Label7.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label7.Location = New System.Drawing.Point(286, 178)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(151, 32)
Me.Label7.TabIndex = 15
Me.Label7.Text = "D.MMSS"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label6
'
Me.Label6.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label6.Location = New System.Drawing.Point(286, 146)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(151, 32)
Me.Label6.TabIndex = 14
Me.Label6.Text = "D.DDDDDD"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'ButtonKopirajHzGsi
'
Me.ButtonKopirajHzGsi.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.ButtonKopirajHzGsi.BackgroundImage = Global.TPS1100_Convert.My.Resources.Resources.icons8_file_GSI_50
Me.ButtonKopirajHzGsi.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.ButtonKopirajHzGsi.FlatAppearance.BorderSize = 0
Me.ButtonKopirajHzGsi.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.ButtonKopirajHzGsi.Location = New System.Drawing.Point(443, 213)
Me.ButtonKopirajHzGsi.Name = "ButtonKopirajHzGsi"
Me.ButtonKopirajHzGsi.Size = New System.Drawing.Size(40, 29)
Me.ButtonKopirajHzGsi.TabIndex = 12
Me.ButtonKopirajHzGsi.UseVisualStyleBackColor = True
'
'ButtonKopirajHzTxt
'
Me.ButtonKopirajHzTxt.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.ButtonKopirajHzTxt.BackgroundImage = Global.TPS1100_Convert.My.Resources.Resources.icons8_file_TXT_50
Me.ButtonKopirajHzTxt.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.ButtonKopirajHzTxt.FlatAppearance.BorderSize = 0
Me.ButtonKopirajHzTxt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.ButtonKopirajHzTxt.Location = New System.Drawing.Point(443, 181)
Me.ButtonKopirajHzTxt.Name = "ButtonKopirajHzTxt"
Me.ButtonKopirajHzTxt.Size = New System.Drawing.Size(40, 26)
Me.ButtonKopirajHzTxt.TabIndex = 2
Me.ButtonKopirajHzTxt.UseVisualStyleBackColor = True
'
'ButtonIzr
'
Me.ButtonIzr.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ButtonIzr.AutoSize = True
Me.ButtonIzr.BackColor = System.Drawing.SystemColors.ButtonFace
Me.ButtonIzr.FlatAppearance.BorderColor = System.Drawing.SystemColors.ButtonShadow
Me.ButtonIzr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.ButtonIzr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ButtonIzr.Location = New System.Drawing.Point(129, 117)
Me.ButtonIzr.Name = "ButtonIzr"
Me.ButtonIzr.Size = New System.Drawing.Size(151, 26)
Me.ButtonIzr.TabIndex = 9
Me.ButtonIzr.Text = "IZRAČUN"
Me.ButtonIzr.UseVisualStyleBackColor = False
'
'Label3
'
Me.Label3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(3, 114)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(120, 32)
Me.Label3.TabIndex = 2
Me.Label3.Text = "Izračunan Hz"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'DialogIzracunHzCor
'
Me.AcceptButton = Me.OK_Button
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel_Button
Me.ClientSize = New System.Drawing.Size(655, 305)
Me.Controls.Add(Me.TableLayoutPanel2)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "DialogIzracunHzCor"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "DialogIzracunHzCor"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel2.ResumeLayout(False)
Me.TableLayoutPanel2.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents MaskedTextBoxDegHz As MaskedTextBox
Friend WithEvents MaskedTextBoxMerHz As MaskedTextBox
Friend WithEvents MaskedTextBoxGsiHzNov As MaskedTextBox
Friend WithEvents MaskedTextBoxDegHzCor As MaskedTextBox
Friend WithEvents MaskedTextBoxHzCor As MaskedTextBox
Friend WithEvents MaskedTextBoxHzNov As MaskedTextBox
Friend WithEvents ButtonIzr As Button
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents ButtonKopirajHzTxt As Button
Friend WithEvents ButtonKopirajHzGsi As Button
Friend WithEvents MaskedTextBox1 As MaskedTextBox
Friend WithEvents Label6 As Label
Friend WithEvents Label7 As Label
Friend WithEvents Label8 As Label
Friend WithEvents MaskedTextBoxGsiHz As MaskedTextBox
Friend WithEvents MaskedTextBoxGsiHzCor As MaskedTextBox
Friend WithEvents Label9 As Label
Friend WithEvents ButtonUpGsi As Button
Friend WithEvents ButtonUpDms As Button
Friend WithEvents ButtonUpDeg As Button
Friend WithEvents Cancel_Button As Button
End Class

120
DialogIzracunHzCor.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

66
DialogIzracunHzCor.vb Normal file
View File

@ -0,0 +1,66 @@
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

160
DialogPripravaKartice.Designer.vb generated Normal file
View File

@ -0,0 +1,160 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DialogPripravaKartice
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.Button1 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
Me.TableLayoutPanel1.SuspendLayout()
Me.TableLayoutPanel2.SuspendLayout()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.ColumnCount = 2
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Button1, 1, 0)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(12, 122)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 29.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(296, 29)
Me.TableLayoutPanel1.TabIndex = 0
'
'Cancel_Button
'
Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Cancel_Button.AutoSize = True
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Location = New System.Drawing.Point(33, 3)
Me.Cancel_Button.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(82, 23)
Me.Cancel_Button.TabIndex = 1
Me.Cancel_Button.Text = "Pripravi"
'
'Button1
'
Me.Button1.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Button1.AutoSize = True
Me.Button1.Location = New System.Drawing.Point(190, 3)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(64, 23)
Me.Button1.TabIndex = 2
Me.Button1.Text = "Zapri"
Me.Button1.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(67, 13)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(241, 48)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Na kartico bodo naloženi podatki za uporabo na TPS1100 in GPS500"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label2
'
Me.Label2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_error_48
Me.Label2.Location = New System.Drawing.Point(13, 13)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(48, 48)
Me.Label2.TabIndex = 2
'
'ComboBox1
'
Me.ComboBox1.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(121, 15)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(70, 24)
Me.ComboBox1.TabIndex = 0
'
'Label3
'
Me.Label3.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(77, 21)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(38, 13)
Me.Label3.TabIndex = 3
Me.Label3.Text = "Pogon"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'TableLayoutPanel2
'
Me.TableLayoutPanel2.ColumnCount = 2
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 40.0!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 60.0!))
Me.TableLayoutPanel2.Controls.Add(Me.ComboBox1, 1, 0)
Me.TableLayoutPanel2.Controls.Add(Me.Label3, 0, 0)
Me.TableLayoutPanel2.Location = New System.Drawing.Point(12, 64)
Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
Me.TableLayoutPanel2.RowCount = 1
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.TableLayoutPanel2.Size = New System.Drawing.Size(296, 55)
Me.TableLayoutPanel2.TabIndex = 4
'
'DialogPripravaKartice
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel_Button
Me.ClientSize = New System.Drawing.Size(320, 163)
Me.Controls.Add(Me.TableLayoutPanel2)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "DialogPripravaKartice"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Priprava PC-Kartice"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel1.PerformLayout()
Me.TableLayoutPanel2.ResumeLayout(False)
Me.TableLayoutPanel2.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents Button1 As Button
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents Label3 As Label
Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
End Class

120
DialogPripravaKartice.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

92
DialogPripravaKartice.vb Normal file
View File

@ -0,0 +1,92 @@
Imports System.Windows.Forms
Public Class DialogPripravaKartice
Enum FormatType
Quick = 0
Normal = 1
End Enum
Enum Capacity
DefaultCapcity = 0
End Enum
Declare Function SHFormatDrive Lib "shell32" (ByVal hwnd As Int32, ByVal sDriveToFormat As String, ByVal s As Capacity, ByVal formattype As FormatType) As Int32
Private Sub DialogPripravaKartice_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For Each drive In IO.DriveInfo.GetDrives
'get all removable and fixed drives
If drive.DriveType = IO.DriveType.Removable Then
'add all found drives into the combobox
ComboBox1.Items.Add(drive)
End If
Next
End Sub
' Funkcija za pripravo PC-kartice/delovne mape
Private Sub PripravaKartice()
Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString
Dim karticaMapa = ComboBox1.Text
Dim fileUvozCode = delovnaMapa + "\Virtualna Kartica\CODE\TPS1100.crf"
Dim fileIzvozCode = karticaMapa + "CODE\TPS1100.crf"
Dim fileUvozGeoid = delovnaMapa + "\Virtualna Kartica\DATA\GPS\GEOID\SLOV2016.GEM"
Dim fileIzvozGeoid = karticaMapa + "DATA\GPS\GEOID\SLOV2016.GEM"
Dim fileUvozTps = delovnaMapa + "\Virtualna Kartica\TPS\CONF\1102_BB.PAR"
Dim fileIzvozTps = karticaMapa + "TPS\CONF\1102_BB.PAR"
Dim fileUvozGpsGsi = delovnaMapa + "\Virtualna Kartica\CONVERT\GPS-GSI.FRT"
Dim fileIzvozGpsGsi = karticaMapa + "CONVERT\GPS-GSI.FRT"
Dim fileUvozGpsKoo = delovnaMapa + "\Virtualna Kartica\CONVERT\GPS-KOO.FRT"
Dim fileIzvozGpsKoo = karticaMapa + "CONVERT\GPS-KOO.FRT"
Dim fileUvozGpsPor = delovnaMapa + "\Virtualna Kartica\CONVERT\POROCILO.FRT"
Dim fileIzvozGpsPor = karticaMapa + "CONVERT\POROCILO.FRT"
' Kopiraj datoteke na kartico
If My.Computer.FileSystem.FileExists(fileUvozCode) Then
My.Computer.FileSystem.CopyFile(fileUvozCode, fileIzvozCode, True)
End If
If My.Computer.FileSystem.FileExists(fileUvozGeoid) Then
My.Computer.FileSystem.CopyFile(fileUvozGeoid, fileIzvozGeoid, True)
End If
If My.Computer.FileSystem.FileExists(fileUvozTps) Then
My.Computer.FileSystem.CopyFile(fileUvozTps, fileIzvozTps, True)
End If
If My.Computer.FileSystem.FileExists(fileUvozGpsGsi) Then
My.Computer.FileSystem.CopyFile(fileUvozGpsGsi, fileIzvozGpsGsi, True)
End If
If My.Computer.FileSystem.FileExists(fileUvozGpsKoo) Then
My.Computer.FileSystem.CopyFile(fileUvozGpsKoo, fileIzvozGpsKoo, True)
End If
If My.Computer.FileSystem.FileExists(fileUvozGpsPor) Then
My.Computer.FileSystem.CopyFile(fileUvozGpsPor, fileIzvozGpsPor, True)
End If
MessageBox.Show("Kartica pripravljena...
Naloženo:
- knjižnica z kodami TPS1100
- Nastavitve za instrument TPS110x
- Formati za izvoz podatkov na GPS500
- Geoid SLOV2016.GEM za uporabo na GPS500")
End Sub
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'Show the Format dialog
SHFormatDrive(Me.Handle.ToInt32, ComboBox1.Text, CType(2, Capacity), FormatType.Normal)
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
PripravaKartice()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Me.Close()
End Sub
End Class

206
DialogZavarovanje.Designer.vb generated Normal file
View File

@ -0,0 +1,206 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DialogZavarovanje
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.OK_Button = New System.Windows.Forms.Button()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.LabelSize = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TableLayoutPanel2.SuspendLayout()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.ColumnCount = 2
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(178, 155)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29)
Me.TableLayoutPanel1.TabIndex = 0
'
'OK_Button
'
Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.OK_Button.Location = New System.Drawing.Point(3, 3)
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(67, 23)
Me.OK_Button.TabIndex = 0
Me.OK_Button.Text = "Zavaruj"
'
'Cancel_Button
'
Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
Me.Cancel_Button.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(67, 23)
Me.Cancel_Button.TabIndex = 1
Me.Cancel_Button.Text = "Zapri"
'
'Label1
'
Me.Label1.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.Location = New System.Drawing.Point(72, 12)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(252, 50)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Izberi pogon kartice za zavarovanje." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Podatki bodo arhivirani v mapo ""Zavarovanja" &
"""."
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'PictureBox1
'
Me.PictureBox1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_micro_sd_50
Me.PictureBox1.Location = New System.Drawing.Point(12, 12)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(54, 50)
Me.PictureBox1.TabIndex = 2
Me.PictureBox1.TabStop = False
'
'TableLayoutPanel2
'
Me.TableLayoutPanel2.ColumnCount = 3
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 25.0!))
Me.TableLayoutPanel2.Controls.Add(Me.Label4, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.Label2, 0, 0)
Me.TableLayoutPanel2.Controls.Add(Me.ComboBox1, 1, 0)
Me.TableLayoutPanel2.Controls.Add(Me.TextBox1, 1, 1)
Me.TableLayoutPanel2.Controls.Add(Me.LabelSize, 2, 0)
Me.TableLayoutPanel2.Location = New System.Drawing.Point(13, 69)
Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
Me.TableLayoutPanel2.RowCount = 2
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel2.Size = New System.Drawing.Size(308, 83)
Me.TableLayoutPanel2.TabIndex = 3
'
'Label4
'
Me.Label4.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(34, 53)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(40, 18)
Me.Label4.TabIndex = 4
Me.Label4.Text = "Arhiv"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label2
'
Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label2.AutoSize = True
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(22, 11)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(52, 18)
Me.Label2.TabIndex = 0
Me.Label2.Text = "Pogon"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'ComboBox1
'
Me.ComboBox1.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(80, 7)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(100, 26)
Me.ComboBox1.TabIndex = 1
'
'TextBox1
'
Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox1.Location = New System.Drawing.Point(80, 50)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(148, 24)
Me.TextBox1.TabIndex = 2
'
'LabelSize
'
Me.LabelSize.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.LabelSize.AutoSize = True
Me.LabelSize.Location = New System.Drawing.Point(234, 14)
Me.LabelSize.Name = "LabelSize"
Me.LabelSize.Size = New System.Drawing.Size(44, 13)
Me.LabelSize.TabIndex = 5
Me.LabelSize.Text = "Velikost"
Me.LabelSize.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'DialogZavarovanje
'
Me.AcceptButton = Me.OK_Button
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.CancelButton = Me.Cancel_Button
Me.ClientSize = New System.Drawing.Size(336, 196)
Me.Controls.Add(Me.TableLayoutPanel2)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "DialogZavarovanje"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Zavarovanje Kartice"
Me.TableLayoutPanel1.ResumeLayout(False)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.TableLayoutPanel2.ResumeLayout(False)
Me.TableLayoutPanel2.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents Cancel_Button As System.Windows.Forms.Button
Friend WithEvents Label1 As Label
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
Friend WithEvents Label2 As Label
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents TextBox1 As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents LabelSize As Label
End Class

120
DialogZavarovanje.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

54
DialogZavarovanje.vb Normal file
View File

@ -0,0 +1,54 @@
Imports System.Windows.Forms
Imports System.IO.Compression
Imports System.IO
Public Class DialogZavarovanje
Dim izbranPogon
Dim arhivDat As String = "Kartica"
Dim arhivCas = System.DateTime.Now.ToString("yyyyMMdd-HHmm")
Dim mapaZav = My.Application.Info.DirectoryPath.ToString + "\Zavarovanja\"
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
izbranPogon = ComboBox1.Text
arhivDat = TextBox1.Text
Dim arhivZav = mapaZav + arhivDat + "_" + arhivCas + ".zip"
ZipFile.CreateFromDirectory(izbranPogon, arhivZav, CompressionLevel.Optimal, False)
Me.DialogResult = System.Windows.Forms.DialogResult.OK
MessageBox.Show("Kartica zavarovana v: " +
arhivZav.ToString)
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 DialogZavarovanje_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For Each drive In IO.DriveInfo.GetDrives
'get all removable and fixed drives
If drive.DriveType = IO.DriveType.Removable And drive.IsReady Then
'add all found drives into the combobox
ComboBox1.Items.Add(drive)
End If
Next
TextBox1.Text = arhivDat
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
Dim d As DriveInfo
For Each d In allDrives
If d.Name = ComboBox1.Text Then
LabelSize.Text = Format(d.TotalSize / 1000 / 1000, "0").ToString + " MB"
End If
Next
End Sub
End Class

618
Form1.Designer.vb generated
View File

@ -31,50 +31,57 @@ Partial Class Form1
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbFileName = New System.Windows.Forms.ToolStripTextBox()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButtonpROJ = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.LabelDatoteka = New System.Windows.Forms.ToolStripLabel()
Me.ButtonUrediDat = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbOpenFile = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButtonPripravi = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator()
Me.ButtonUrediDat = New System.Windows.Forms.ToolStripButton()
Me.tsbConvert = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButtonGeo = New System.Windows.Forms.ToolStripButton()
Me.tsbPointsOnly = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbSaveAs = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator9 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.OpenFileDialogTocke = New System.Windows.Forms.OpenFileDialog()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DatotekaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OdpriJobToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OdpriGSIToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.PripraviGSIToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ShraniToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.IzhodToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ManagerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NovProjektToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
Me.tsbUvoziTocke = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator()
Me.ShraniToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OrodjaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.IzračunHzKotaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem5 = New System.Windows.Forms.ToolStripMenuItem()
Me.PripraviKarticoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsbPripravaZav = New System.Windows.Forms.ToolStripMenuItem()
Me.tsbPripravaFormat = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OdpriGSIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
Me.PosodobitevToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PripraviGSIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.PosodobitevToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.InfoOAplikacijiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
Me.IzhodToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.FolderDialogKartica = New System.Windows.Forms.FolderBrowserDialog()
Me.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.ToolStripLabel2 = New System.Windows.Forms.ToolStripLabel()
Me.tsbFileName = New System.Windows.Forms.ToolStripTextBox()
Me.LabelDatoteka = New System.Windows.Forms.ToolStripLabel()
Me.tsbZacetek = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbSaveAs = New System.Windows.Forms.ToolStripButton()
Me.StatusStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip2.SuspendLayout()
Me.SuspendLayout()
'
'RichTextBox1
@ -82,12 +89,13 @@ Partial Class Form1
Me.RichTextBox1.BackColor = System.Drawing.SystemColors.Control
Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.RichTextBox1.Cursor = System.Windows.Forms.Cursors.Default
Me.RichTextBox1.DetectUrls = False
Me.RichTextBox1.Font = New System.Drawing.Font("Courier New", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
Me.RichTextBox1.Location = New System.Drawing.Point(9, 86)
Me.RichTextBox1.Location = New System.Drawing.Point(9, 123)
Me.RichTextBox1.Margin = New System.Windows.Forms.Padding(0)
Me.RichTextBox1.Name = "RichTextBox1"
Me.RichTextBox1.ReadOnly = True
Me.RichTextBox1.Size = New System.Drawing.Size(1233, 633)
Me.RichTextBox1.Size = New System.Drawing.Size(1233, 596)
Me.RichTextBox1.TabIndex = 1
Me.RichTextBox1.Text = resources.GetString("RichTextBox1.Text")
Me.RichTextBox1.WordWrap = False
@ -136,106 +144,85 @@ Partial Class Form1
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 54)
'
'tsbFileName
'
Me.tsbFileName.AutoSize = False
Me.tsbFileName.BackColor = System.Drawing.SystemColors.MenuBar
Me.tsbFileName.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.tsbFileName.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
Me.tsbFileName.Margin = New System.Windows.Forms.Padding(5, 0, 0, 0)
Me.tsbFileName.Name = "tsbFileName"
Me.tsbFileName.ReadOnly = True
Me.tsbFileName.Size = New System.Drawing.Size(150, 25)
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 52)
'
'ToolStrip1
'
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(30, 30)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton4, Me.ToolStripLabel2, Me.ToolStripButton2, Me.ToolStripSeparator11, Me.tsbFileName, Me.LabelDatoteka, Me.ToolStripSeparator8, Me.ButtonUrediDat, Me.ToolStripSeparator5, Me.tsbOpenFile, Me.ToolStripButtonPripravi, Me.ToolStripSeparator1, Me.tsbConvert, Me.ToolStripButtonGeo, Me.tsbPointsOnly, Me.ToolStripButton3, Me.ToolStripSeparator4, Me.tsbSaveAs, Me.ToolStripButton1, Me.ToolStripSeparator9, Me.ToolStripLabel1})
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButtonpROJ, Me.ToolStripSeparator8, Me.ToolStripButton2, Me.tsbOpenFile, Me.ToolStripButtonPripravi, Me.ToolStripSeparator11, Me.ButtonUrediDat, Me.ToolStripSeparator1, Me.tsbConvert, Me.ToolStripButtonGeo, Me.tsbPointsOnly, Me.ToolStripButton3, Me.ToolStripSeparator4, Me.ToolStripLabel1})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(5)
Me.ToolStrip1.RenderMode = System.Windows.Forms.ToolStripRenderMode.Professional
Me.ToolStrip1.Size = New System.Drawing.Size(1251, 64)
Me.ToolStrip1.Size = New System.Drawing.Size(1251, 62)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripLabel2
'ToolStripButtonpROJ
'
Me.ToolStripLabel2.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.ToolStripLabel2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_micro_sd_50
Me.ToolStripLabel2.Name = "ToolStripLabel2"
Me.ToolStripLabel2.Size = New System.Drawing.Size(60, 51)
Me.ToolStripLabel2.Text = "<projekt>"
Me.ToolStripLabel2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ToolStripButtonpROJ.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tree_structure_50
Me.ToolStripButtonpROJ.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButtonpROJ.Name = "ToolStripButtonpROJ"
Me.ToolStripButtonpROJ.Size = New System.Drawing.Size(51, 49)
Me.ToolStripButtonpROJ.Text = "Projekti"
Me.ToolStripButtonpROJ.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ToolStripButtonpROJ.ToolTipText = "Urejenje projektov"
'
'ToolStripSeparator11
'ToolStripSeparator8
'
Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
Me.ToolStripSeparator11.Size = New System.Drawing.Size(6, 54)
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
Me.ToolStripSeparator8.Size = New System.Drawing.Size(6, 52)
'
'ToolStripButton2
'
Me.ToolStripButton2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_product_documents_50
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(62, 51)
Me.ToolStripButton2.Size = New System.Drawing.Size(62, 49)
Me.ToolStripButton2.Text = "Odpri Job"
Me.ToolStripButton2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ToolStripButton2.ToolTipText = "Izberi Job..."
'
'LabelDatoteka
'
Me.LabelDatoteka.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.LabelDatoteka.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_window_50
Me.LabelDatoteka.Name = "LabelDatoteka"
Me.LabelDatoteka.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
Me.LabelDatoteka.Size = New System.Drawing.Size(35, 51)
Me.LabelDatoteka.ToolTipText = "Ni datoteke"
'
'ButtonUrediDat
'
Me.ButtonUrediDat.Enabled = False
Me.ButtonUrediDat.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_stationery_50
Me.ButtonUrediDat.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ButtonUrediDat.Name = "ButtonUrediDat"
Me.ButtonUrediDat.Size = New System.Drawing.Size(39, 51)
Me.ButtonUrediDat.Text = "Uredi"
Me.ButtonUrediDat.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ButtonUrediDat.ToolTipText = "Uredi podatke GSI datoteke..."
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 54)
Me.ToolStripButton2.ToolTipText = "Izberi Job iz projekta..."
'
'tsbOpenFile
'
Me.tsbOpenFile.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
Me.tsbOpenFile.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbOpenFile.Name = "tsbOpenFile"
Me.tsbOpenFile.Size = New System.Drawing.Size(61, 51)
Me.tsbOpenFile.Size = New System.Drawing.Size(61, 49)
Me.tsbOpenFile.Text = "Uvozi Job"
Me.tsbOpenFile.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.tsbOpenFile.ToolTipText = "Izberi GSI datoteko..."
Me.tsbOpenFile.ToolTipText = "Uvozi GSI job v trenutni projekt..."
'
'ToolStripButtonPripravi
'
Me.ToolStripButtonPripravi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
Me.ToolStripButtonPripravi.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButtonPripravi.Name = "ToolStripButtonPripravi"
Me.ToolStripButtonPripravi.Size = New System.Drawing.Size(73, 51)
Me.ToolStripButtonPripravi.Size = New System.Drawing.Size(73, 49)
Me.ToolStripButtonPripravi.Text = "Uvozi Točke"
Me.ToolStripButtonPripravi.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ToolStripButtonPripravi.ToolTipText = "Pripravi GSI iz datoteke z točkami..."
'
'ToolStripSeparator11
'
Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
Me.ToolStripSeparator11.Size = New System.Drawing.Size(6, 52)
'
'ButtonUrediDat
'
Me.ButtonUrediDat.Enabled = False
Me.ButtonUrediDat.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_design_48
Me.ButtonUrediDat.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ButtonUrediDat.Name = "ButtonUrediDat"
Me.ButtonUrediDat.Size = New System.Drawing.Size(39, 49)
Me.ButtonUrediDat.Text = "Uredi"
Me.ButtonUrediDat.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ButtonUrediDat.ToolTipText = "Uredi podatke GSI datoteke..."
'
'tsbConvert
'
Me.tsbConvert.AutoSize = False
Me.tsbConvert.Enabled = False
Me.tsbConvert.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tsbConvert.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_land_surveying_48
Me.tsbConvert.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbConvert.Name = "tsbConvert"
@ -254,19 +241,19 @@ Partial Class Form1
Me.ToolStripButtonGeo.Size = New System.Drawing.Size(55, 49)
Me.ToolStripButtonGeo.Text = "GEO"
Me.ToolStripButtonGeo.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ToolStripButtonGeo.ToolTipText = "Priprava GEO skripte..."
'
'tsbPointsOnly
'
Me.tsbPointsOnly.AutoSize = False
Me.tsbPointsOnly.Enabled = False
Me.tsbPointsOnly.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tsbPointsOnly.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_my_location_50
Me.tsbPointsOnly.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbPointsOnly.Name = "tsbPointsOnly"
Me.tsbPointsOnly.Size = New System.Drawing.Size(55, 49)
Me.tsbPointsOnly.Text = "Točke"
Me.tsbPointsOnly.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.tsbPointsOnly.ToolTipText = "Izvozi koordinate točk."
Me.tsbPointsOnly.ToolTipText = "Izvozi seznam koordinat točk..."
'
'ToolStripButton3
'
@ -274,14 +261,255 @@ Partial Class Form1
Me.ToolStripButton3.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_mesh_48
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(48, 51)
Me.ToolStripButton3.Size = New System.Drawing.Size(48, 49)
Me.ToolStripButton3.Text = "Grafika"
Me.ToolStripButton3.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ToolStripButton3.ToolTipText = "Odpri grafiko z točkami..."
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 54)
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 52)
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(0, 49)
'
'OpenFileDialogTocke
'
Me.OpenFileDialogTocke.Filter = "Datoteke točk|*.koo;*.txt|All files|*.*"
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripMenuItem1, Me.OrodjaToolStripMenuItem, Me.MenuToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1251, 24)
Me.MenuStrip1.TabIndex = 3
Me.MenuStrip1.Text = "MenuStrip1"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ManagerToolStripMenuItem, Me.ToolStripSeparator10, Me.ToolStripMenuItem2, Me.ToolStripMenuItem4, Me.tsbUvoziTocke, Me.ToolStripSeparator13, Me.ShraniToolStripMenuItem})
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(59, 20)
Me.ToolStripMenuItem1.Text = "Podatki"
'
'ManagerToolStripMenuItem
'
Me.ManagerToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tree_structure_50
Me.ManagerToolStripMenuItem.Name = "ManagerToolStripMenuItem"
Me.ManagerToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.ManagerToolStripMenuItem.Text = "&Projekti | Virtualna Kartica"
Me.ManagerToolStripMenuItem.ToolTipText = "Urejevalnik projektov"
'
'ToolStripSeparator10
'
Me.ToolStripSeparator10.Name = "ToolStripSeparator10"
Me.ToolStripSeparator10.Size = New System.Drawing.Size(206, 6)
'
'ToolStripMenuItem2
'
Me.ToolStripMenuItem2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_product_documents_50
Me.ToolStripMenuItem2.Name = "ToolStripMenuItem2"
Me.ToolStripMenuItem2.Size = New System.Drawing.Size(209, 22)
Me.ToolStripMenuItem2.Text = "&Odpri Job"
'
'ToolStripMenuItem4
'
Me.ToolStripMenuItem4.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(209, 22)
Me.ToolStripMenuItem4.Text = "&Uvozi Job"
Me.ToolStripMenuItem4.ToolTipText = "Odpri GSI za procesiranje"
'
'tsbUvoziTocke
'
Me.tsbUvoziTocke.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
Me.tsbUvoziTocke.Name = "tsbUvoziTocke"
Me.tsbUvoziTocke.Size = New System.Drawing.Size(209, 22)
Me.tsbUvoziTocke.Text = "Uvozi Točke"
'
'ToolStripSeparator13
'
Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
Me.ToolStripSeparator13.Size = New System.Drawing.Size(206, 6)
'
'ShraniToolStripMenuItem
'
Me.ShraniToolStripMenuItem.Enabled = False
Me.ShraniToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
Me.ShraniToolStripMenuItem.Name = "ShraniToolStripMenuItem"
Me.ShraniToolStripMenuItem.Size = New System.Drawing.Size(209, 22)
Me.ShraniToolStripMenuItem.Text = "&Shrani..."
Me.ShraniToolStripMenuItem.ToolTipText = "Shrani podatke rezultata procesiranja..."
'
'OrodjaToolStripMenuItem
'
Me.OrodjaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.IzračunHzKotaToolStripMenuItem, Me.ToolStripMenuItem5, Me.PripraviKarticoToolStripMenuItem})
Me.OrodjaToolStripMenuItem.Name = "OrodjaToolStripMenuItem"
Me.OrodjaToolStripMenuItem.Size = New System.Drawing.Size(55, 20)
Me.OrodjaToolStripMenuItem.Text = "Orodja"
Me.OrodjaToolStripMenuItem.ToolTipText = "Uvozi točke iz TXT v GSI"
'
'IzračunHzKotaToolStripMenuItem
'
Me.IzračunHzKotaToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_land_surveying_48
Me.IzračunHzKotaToolStripMenuItem.Name = "IzračunHzKotaToolStripMenuItem"
Me.IzračunHzKotaToolStripMenuItem.Size = New System.Drawing.Size(197, 22)
Me.IzračunHzKotaToolStripMenuItem.Text = "Izračun Hz Kota..."
'
'ToolStripMenuItem5
'
Me.ToolStripMenuItem5.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
Me.ToolStripMenuItem5.Name = "ToolStripMenuItem5"
Me.ToolStripMenuItem5.Size = New System.Drawing.Size(197, 22)
Me.ToolStripMenuItem5.Text = "&Uvozi Točke (TXT > GSI)"
Me.ToolStripMenuItem5.ToolTipText = "Pretvori TXT v GSI"
'
'PripraviKarticoToolStripMenuItem
'
Me.PripraviKarticoToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbPripravaZav, Me.tsbPripravaFormat})
Me.PripraviKarticoToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_sd_50
Me.PripraviKarticoToolStripMenuItem.Name = "PripraviKarticoToolStripMenuItem"
Me.PripraviKarticoToolStripMenuItem.Size = New System.Drawing.Size(197, 22)
Me.PripraviKarticoToolStripMenuItem.Text = "PC-Kartica"
Me.PripraviKarticoToolStripMenuItem.ToolTipText = "Pripravi kartico instrumenta za delo..."
'
'tsbPripravaZav
'
Me.tsbPripravaZav.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_program_50
Me.tsbPripravaZav.Name = "tsbPripravaZav"
Me.tsbPripravaZav.Size = New System.Drawing.Size(138, 22)
Me.tsbPripravaZav.Text = "Zavarovanje"
'
'tsbPripravaFormat
'
Me.tsbPripravaFormat.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_micro_sd_50
Me.tsbPripravaFormat.Name = "tsbPripravaFormat"
Me.tsbPripravaFormat.Size = New System.Drawing.Size(138, 22)
Me.tsbPripravaFormat.Text = "Priprava"
'
'MenuToolStripMenuItem
'
Me.MenuToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OdpriGSIToolStripMenuItem, Me.ToolStripSeparator6, Me.PripraviGSIToolStripMenuItem, Me.ToolStripSeparator7, Me.PosodobitevToolStripMenuItem, Me.InfoOAplikacijiToolStripMenuItem, Me.ToolStripSeparator12, Me.IzhodToolStripMenuItem})
Me.MenuToolStripMenuItem.Name = "MenuToolStripMenuItem"
Me.MenuToolStripMenuItem.Size = New System.Drawing.Size(65, 20)
Me.MenuToolStripMenuItem.Text = "Program"
'
'OdpriGSIToolStripMenuItem
'
Me.OdpriGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tools_50
Me.OdpriGSIToolStripMenuItem.Name = "OdpriGSIToolStripMenuItem"
Me.OdpriGSIToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
Me.OdpriGSIToolStripMenuItem.Text = "Nastavitve"
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(146, 6)
'
'PripraviGSIToolStripMenuItem
'
Me.PripraviGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_question_mark_48
Me.PripraviGSIToolStripMenuItem.Name = "PripraviGSIToolStripMenuItem"
Me.PripraviGSIToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
Me.PripraviGSIToolStripMenuItem.Text = "Navodila"
'
'ToolStripSeparator7
'
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
Me.ToolStripSeparator7.Size = New System.Drawing.Size(146, 6)
'
'PosodobitevToolStripMenuItem
'
Me.PosodobitevToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_rotate_48
Me.PosodobitevToolStripMenuItem.Name = "PosodobitevToolStripMenuItem"
Me.PosodobitevToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
Me.PosodobitevToolStripMenuItem.Text = "Posodobitev..."
'
'InfoOAplikacijiToolStripMenuItem
'
Me.InfoOAplikacijiToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_information_50
Me.InfoOAplikacijiToolStripMenuItem.Name = "InfoOAplikacijiToolStripMenuItem"
Me.InfoOAplikacijiToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
Me.InfoOAplikacijiToolStripMenuItem.Text = "Info"
'
'ToolStripSeparator12
'
Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
Me.ToolStripSeparator12.Size = New System.Drawing.Size(146, 6)
'
'IzhodToolStripMenuItem
'
Me.IzhodToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
Me.IzhodToolStripMenuItem.Name = "IzhodToolStripMenuItem"
Me.IzhodToolStripMenuItem.Size = New System.Drawing.Size(149, 22)
Me.IzhodToolStripMenuItem.Text = "I&zhod"
Me.IzhodToolStripMenuItem.ToolTipText = "Izhod iz programa..."
'
'FolderDialogKartica
'
Me.FolderDialogKartica.RootFolder = System.Environment.SpecialFolder.MyComputer
Me.FolderDialogKartica.ShowNewFolderButton = False
'
'ToolStrip2
'
Me.ToolStrip2.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripLabel2, Me.tsbFileName, Me.LabelDatoteka, Me.tsbZacetek, Me.ToolStripSeparator2, Me.tsbSaveAs})
Me.ToolStrip2.Location = New System.Drawing.Point(0, 86)
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Padding = New System.Windows.Forms.Padding(5)
Me.ToolStrip2.Size = New System.Drawing.Size(1251, 37)
Me.ToolStrip2.TabIndex = 4
Me.ToolStrip2.Text = "ToolStrip2"
'
'ToolStripLabel2
'
Me.ToolStripLabel2.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.ToolStripLabel2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_micro_sd_50
Me.ToolStripLabel2.Name = "ToolStripLabel2"
Me.ToolStripLabel2.Size = New System.Drawing.Size(80, 24)
Me.ToolStripLabel2.Text = "<projekt>"
Me.ToolStripLabel2.ToolTipText = "Izbran projekt"
'
'tsbFileName
'
Me.tsbFileName.AutoSize = False
Me.tsbFileName.BackColor = System.Drawing.SystemColors.MenuBar
Me.tsbFileName.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.tsbFileName.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
Me.tsbFileName.Margin = New System.Windows.Forms.Padding(5, 0, 0, 0)
Me.tsbFileName.Name = "tsbFileName"
Me.tsbFileName.ReadOnly = True
Me.tsbFileName.Size = New System.Drawing.Size(150, 25)
'
'LabelDatoteka
'
Me.LabelDatoteka.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.LabelDatoteka.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_window_50
Me.LabelDatoteka.Name = "LabelDatoteka"
Me.LabelDatoteka.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
Me.LabelDatoteka.Size = New System.Drawing.Size(25, 24)
Me.LabelDatoteka.ToolTipText = "Ni datoteke"
'
'tsbZacetek
'
Me.tsbZacetek.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tsbZacetek.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_50
Me.tsbZacetek.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbZacetek.Name = "tsbZacetek"
Me.tsbZacetek.Size = New System.Drawing.Size(90, 24)
Me.tsbZacetek.Text = "Na Začetek"
Me.tsbZacetek.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 27)
'
'tsbSaveAs
'
@ -290,191 +518,15 @@ Partial Class Form1
Me.tsbSaveAs.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
Me.tsbSaveAs.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbSaveAs.Name = "tsbSaveAs"
Me.tsbSaveAs.Size = New System.Drawing.Size(63, 51)
Me.tsbSaveAs.Size = New System.Drawing.Size(83, 24)
Me.tsbSaveAs.Text = "Shrani ..."
Me.tsbSaveAs.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripButton1
'
Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripButton1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_50
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(100, 51)
Me.ToolStripButton1.Text = "Na Začetek"
Me.ToolStripButton1.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
'
'ToolStripSeparator9
'
Me.ToolStripSeparator9.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripSeparator9.Name = "ToolStripSeparator9"
Me.ToolStripSeparator9.Size = New System.Drawing.Size(6, 54)
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(0, 51)
'
'OpenFileDialogTocke
'
Me.OpenFileDialogTocke.Filter = "Datoteke točk|*.koo;*.txt|All files|*.*"
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatotekaToolStripMenuItem, Me.ToolStripMenuItem1, Me.MenuToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1251, 24)
Me.MenuStrip1.TabIndex = 3
Me.MenuStrip1.Text = "MenuStrip1"
'
'DatotekaToolStripMenuItem
'
Me.DatotekaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OdpriJobToolStripMenuItem, Me.OdpriGSIToolStripMenuItem1, Me.PripraviGSIToolStripMenuItem1, Me.ToolStripSeparator3, Me.ShraniToolStripMenuItem, Me.ToolStripSeparator2, Me.IzhodToolStripMenuItem})
Me.DatotekaToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.Save_as_24
Me.DatotekaToolStripMenuItem.Name = "DatotekaToolStripMenuItem"
Me.DatotekaToolStripMenuItem.Size = New System.Drawing.Size(82, 20)
Me.DatotekaToolStripMenuItem.Text = "&Datoteka"
'
'OdpriJobToolStripMenuItem
'
Me.OdpriJobToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_product_documents_50
Me.OdpriJobToolStripMenuItem.Name = "OdpriJobToolStripMenuItem"
Me.OdpriJobToolStripMenuItem.Size = New System.Drawing.Size(136, 22)
Me.OdpriJobToolStripMenuItem.Text = "Odpri Job"
'
'OdpriGSIToolStripMenuItem1
'
Me.OdpriGSIToolStripMenuItem1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
Me.OdpriGSIToolStripMenuItem1.Name = "OdpriGSIToolStripMenuItem1"
Me.OdpriGSIToolStripMenuItem1.Size = New System.Drawing.Size(136, 22)
Me.OdpriGSIToolStripMenuItem1.Text = "&Uvozi Job"
Me.OdpriGSIToolStripMenuItem1.ToolTipText = "Odpri GSI za procesiranje"
'
'PripraviGSIToolStripMenuItem1
'
Me.PripraviGSIToolStripMenuItem1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
Me.PripraviGSIToolStripMenuItem1.Name = "PripraviGSIToolStripMenuItem1"
Me.PripraviGSIToolStripMenuItem1.Size = New System.Drawing.Size(136, 22)
Me.PripraviGSIToolStripMenuItem1.Text = "&Uvozi Točke"
Me.PripraviGSIToolStripMenuItem1.ToolTipText = "Pretvori TXT v GSI"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(133, 6)
'
'ShraniToolStripMenuItem
'
Me.ShraniToolStripMenuItem.Enabled = False
Me.ShraniToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
Me.ShraniToolStripMenuItem.Name = "ShraniToolStripMenuItem"
Me.ShraniToolStripMenuItem.Size = New System.Drawing.Size(136, 22)
Me.ShraniToolStripMenuItem.Text = "&Shrani..."
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(133, 6)
'
'IzhodToolStripMenuItem
'
Me.IzhodToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
Me.IzhodToolStripMenuItem.Name = "IzhodToolStripMenuItem"
Me.IzhodToolStripMenuItem.Size = New System.Drawing.Size(136, 22)
Me.IzhodToolStripMenuItem.Text = "I&zhod"
Me.IzhodToolStripMenuItem.ToolTipText = "Izhod iz aplikacije"
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ManagerToolStripMenuItem, Me.NovProjektToolStripMenuItem})
Me.ToolStripMenuItem1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_folder_tree_50
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
Me.ToolStripMenuItem1.Size = New System.Drawing.Size(75, 20)
Me.ToolStripMenuItem1.Text = "&Projekti"
'
'ManagerToolStripMenuItem
'
Me.ManagerToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tree_structure_50
Me.ManagerToolStripMenuItem.Name = "ManagerToolStripMenuItem"
Me.ManagerToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ManagerToolStripMenuItem.Text = "&Projekti..."
Me.ManagerToolStripMenuItem.ToolTipText = "Urejevalnik projektov"
'
'NovProjektToolStripMenuItem
'
Me.NovProjektToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_folder_tree_50
Me.NovProjektToolStripMenuItem.Name = "NovProjektToolStripMenuItem"
Me.NovProjektToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.NovProjektToolStripMenuItem.Text = "&Nov Projekt"
Me.NovProjektToolStripMenuItem.ToolTipText = "Ustvari nov projekt"
'
'MenuToolStripMenuItem
'
Me.MenuToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OdpriGSIToolStripMenuItem, Me.ToolStripSeparator6, Me.PosodobitevToolStripMenuItem, Me.PripraviGSIToolStripMenuItem, Me.ToolStripSeparator7, Me.InfoOAplikacijiToolStripMenuItem})
Me.MenuToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_menu_50
Me.MenuToolStripMenuItem.Name = "MenuToolStripMenuItem"
Me.MenuToolStripMenuItem.Size = New System.Drawing.Size(81, 20)
Me.MenuToolStripMenuItem.Text = "Program"
'
'OdpriGSIToolStripMenuItem
'
Me.OdpriGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tools_50
Me.OdpriGSIToolStripMenuItem.Name = "OdpriGSIToolStripMenuItem"
Me.OdpriGSIToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
Me.OdpriGSIToolStripMenuItem.Text = "Nastavitve"
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(151, 6)
'
'PosodobitevToolStripMenuItem
'
Me.PosodobitevToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_rotate_48
Me.PosodobitevToolStripMenuItem.Name = "PosodobitevToolStripMenuItem"
Me.PosodobitevToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
Me.PosodobitevToolStripMenuItem.Text = "Posodobitev..."
'
'PripraviGSIToolStripMenuItem
'
Me.PripraviGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_question_mark_48
Me.PripraviGSIToolStripMenuItem.Name = "PripraviGSIToolStripMenuItem"
Me.PripraviGSIToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
Me.PripraviGSIToolStripMenuItem.Text = "Navodila"
'
'ToolStripSeparator7
'
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
Me.ToolStripSeparator7.Size = New System.Drawing.Size(151, 6)
'
'InfoOAplikacijiToolStripMenuItem
'
Me.InfoOAplikacijiToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_information_50
Me.InfoOAplikacijiToolStripMenuItem.Name = "InfoOAplikacijiToolStripMenuItem"
Me.InfoOAplikacijiToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
Me.InfoOAplikacijiToolStripMenuItem.Text = "Info o aplikaciji"
'
'ToolStripButton4
'
Me.ToolStripButton4.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tree_structure_50
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(51, 51)
Me.ToolStripButton4.Text = "Projekti"
Me.ToolStripButton4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator8
'
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
Me.ToolStripSeparator8.Size = New System.Drawing.Size(6, 54)
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1251, 741)
Me.Controls.Add(Me.ToolStrip2)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.RichTextBox1)
Me.Controls.Add(Me.ToolStrip1)
@ -492,6 +544,8 @@ Partial Class Form1
Me.ToolStrip1.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -502,16 +556,13 @@ Partial Class Form1
Friend WithEvents SaveFileDialog1 As SaveFileDialog
Friend WithEvents tsbOpenFile As ToolStripButton
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents tsbFileName As ToolStripTextBox
Friend WithEvents tsbConvert As ToolStripButton
Friend WithEvents tsbSaveAs As ToolStripButton
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
Friend WithEvents tsbPointsOnly As ToolStripButton
Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
Friend WithEvents ButtonUrediDat As ToolStripButton
Friend WithEvents LabelDatoteka As ToolStripLabel
Friend WithEvents ToolStripProgressBar1 As ToolStripProgressBar
Friend WithEvents ToolStripButtonPripravi As ToolStripButton
Friend WithEvents OpenFileDialogTocke As OpenFileDialog
@ -522,27 +573,36 @@ Partial Class Form1
Friend WithEvents PripraviGSIToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
Friend WithEvents InfoOAplikacijiToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DatotekaToolStripMenuItem As ToolStripMenuItem
Friend WithEvents OdpriGSIToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents PripraviGSIToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
Friend WithEvents ShraniToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
Friend WithEvents IzhodToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PosodobitevToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator7 As ToolStripSeparator
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents ManagerToolStripMenuItem As ToolStripMenuItem
Friend WithEvents NovProjektToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator9 As ToolStripSeparator
Friend WithEvents ToolStripLabel1 As ToolStripLabel
Friend WithEvents ToolStripLabel2 As ToolStripLabel
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents ToolStripSeparator11 As ToolStripSeparator
Friend WithEvents OdpriJobToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents ToolStripButton4 As ToolStripButton
Friend WithEvents ToolStripSeparator8 As ToolStripSeparator
Friend WithEvents OrodjaToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator10 As ToolStripSeparator
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem4 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem5 As ToolStripMenuItem
Friend WithEvents IzhodToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator12 As ToolStripSeparator
Friend WithEvents PripraviKarticoToolStripMenuItem As ToolStripMenuItem
Friend WithEvents FolderDialogKartica As FolderBrowserDialog
Friend WithEvents ToolStripSeparator13 As ToolStripSeparator
Friend WithEvents ShraniToolStripMenuItem As ToolStripMenuItem
Friend WithEvents IzračunHzKotaToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStrip2 As ToolStrip
Friend WithEvents ToolStripLabel2 As ToolStripLabel
Friend WithEvents ToolStripButtonpROJ As ToolStripButton
Friend WithEvents tsbFileName As ToolStripTextBox
Friend WithEvents LabelDatoteka As ToolStripLabel
Friend WithEvents tsbZacetek As ToolStripButton
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
Friend WithEvents tsbSaveAs As ToolStripButton
Friend WithEvents tsbUvoziTocke As ToolStripMenuItem
Friend WithEvents tsbPripravaFormat As ToolStripMenuItem
Friend WithEvents tsbPripravaZav As ToolStripMenuItem
End Class

54
Form1.resx
View File

@ -118,51 +118,59 @@
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<data name="RichTextBox1.Text" xml:space="preserve">
<value>--------------------------------------------------
Procesiranje GSI datoteke
<value>Procesiranje GSI datoteke
=================================================
1. Izberi "Odpri Job" ali "Uvozi Job" in pokaži GSI datoteko za obdelavo...
- Pri uvozu bo izbrana datoteka kopirana v mapo aktivnega projekta.
- Po potrebi uredi datoteko z orodjem "Uredi".
1. Klikni na "Odpri GSI" in izberi GSI datoteko za obdelavo.
2. Za urejanje datoteke uporabi orodje "Uredi".
2. Izberi opcijo za pripravo podatkov:
A. Za pripravo Zapisnika Meritev klikni gumb "Zapisnik Meritev".
B. Za izdelavo GEO skripte klikni gumb "GEO Skripta".
C. Za izpis seznama koordinat točk klikni gumb "Seznam Točk".
3A. Za pripravo Zapisnika Meritev klikni gumb "Zapisnik Meritev".
3B. Za pripravo seznama koordinat točk klikni gumb "Seznam Točk".
3C. Za izdelavo GEO skripte klikni gumb "GEO Skripta".
4. Shrani podatke z klikom na gumb "Shrani...".
3. Shrani podatke z klikom na gumb "Shrani...".
--------------------------------------------------
Priprava GSI datoteke iz seznama točk v TXT/KOO
=================================================
A. Odpri datoteko z koordinatami točk z klikom na "Uvozi Točke"
- Format datoteke: Pt E N H (Ločilo podatkov je lahko presledek ali tabulator)
Pripravi GSI datoteko iz TXT/KOO
B. Izbrana datoteka bo pretvorjena v GSI in prikazana v glavnem oknu.
A. Odpri datoteko z koordinatami točk z klikom na "Pripravi GSI".
Format datoteke: Pt E N H (Ločilo podatkov je lahko presledek ali tabulator)
C. Podatke nato shrani z klikom na "Shrani GSI".
B. Izdelana bo GSI datoteka in v glavnem oknu bo prikazana vsebina.
C. Shrani datoteko z klikom na "Shrani GSI".
D. Prenesi novo GSI datoeko na instrument v mapo \GSI.
=================================================
Podrobna navodila za uporabo aplikacije so dosptona v meniju: "Program" &gt; "Navodila".
Zgodovina obdelanih podatkov je zapisana v datoteko...
Lokacija zapisnika = </value>
Dnevnik procesiranja je zapisan v datoteko...
Lokacija dnevnika = </value>
</data>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>124, 17</value>
<value>229, 17</value>
</metadata>
<metadata name="OpenFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>241, 17</value>
<value>345, 17</value>
</metadata>
<metadata name="SaveFileDialog1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>383, 17</value>
<value>486, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="OpenFileDialogTocke.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>519, 17</value>
<value>622, 17</value>
</metadata>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>684, 17</value>
<value>787, 17</value>
</metadata>
<metadata name="FolderDialogKartica.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>902, 17</value>
</metadata>
<metadata name="ToolStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>123, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">

145
Form1.vb
View File

@ -1,5 +1,7 @@
Imports System.IO
' Made by Boris Bilc
Imports System.IO
Imports System.Runtime.InteropServices.ComTypes
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Public Class Form1
Public DatotekaLogfile As String = My.Settings.DatLogfile
@ -10,7 +12,7 @@ Public Class Form1
My.Settings.Save()
End If
My.Forms.Form1.Text = My.Application.Info.Title + " " + My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString
RichTextBox1.AppendText(My.Settings.DatLogfile.ToString)
RichTextBox1.AppendText(My.Settings.DatLogfile.ToString + vbCrLf + vbCrLf + "Verzija: " + My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString + "." + My.Application.Info.Version.Build.ToString + "." + My.Application.Info.Version.Revision.ToString)
If My.Settings.Pisava = "" Then
My.Settings.Pisava = RichTextBox1.Font.Name
@ -149,6 +151,48 @@ Public Class Form1
OpenFileDialog1.Dispose()
End Sub
Public datJob
Public Sub NaloziGsiJob()
RichTextBox1.Clear()
ToolStripProgressBar1.Value = 0
streamLines = 0
OpenFileDialog1.FileName = datJob
Dim streamReader As StreamReader = New StreamReader(OpenFileDialog1.FileName)
Do Until streamReader.EndOfStream
RichTextBox1.AppendText(streamReader.ReadLine + vbCrLf)
streamLines = streamLines + 1
Loop
ToolStripProgressBar1.Maximum = streamLines
streamReader.Close()
streamReader.Dispose()
My.Settings.Datoteka = OpenFileDialog1.SafeFileName
My.Settings.ZadnjaMapa = Path.GetDirectoryName(OpenFileDialog1.FileName)
tsbFileName.Text = My.Settings.Datoteka
tsbFileName.ToolTipText = OpenFileDialog1.FileName
ToolStripStatusLabel1.Text = My.Settings.ZadnjaMapa
tsbSaveAs.Text = "Shrani ..."
tsbSaveAs.Enabled = False
ShraniToolStripMenuItem.Enabled = False
tsbConvert.Enabled = True
tsbPointsOnly.Enabled = True
ToolStripButtonGeo.Enabled = True
ButtonUrediDat.Enabled = True
RichTextBox1.BackColor = SystemColors.Info
' RichTextBox1.SelectionStart = 0
LabelDatoteka.Image = My.Resources.icons8_ok_50
My.Settings.Save()
' Else
' tsbFileName.Text = "Odpri GSI datoteko..."
' RichTextBox1.Clear()
' tsbSaveAs.Text = "Shrani ..."
' tsbSaveAs.Enabled = False
' ShraniToolStripMenuItem.Enabled = False
' tsbConvert.Enabled = False
' tsbPointsOnly.Enabled = False
OpenFileDialog1.Dispose()
End Sub
Private Sub UvoziGsiJob()
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + My.Settings.ProjektMapa.ToString + "\"
@ -268,11 +312,13 @@ Public Class Form1
If Microsoft.VisualBasic.Left(line(1), 2) = "25" Then
RichTextBox1.AppendText(vbCrLf + "Station:" + vbCrLf + "****************" + vbCrLf)
RichTextBox1.AppendText("PtID" + dataStolpci + "HzCor" + dataStolpci + "StnE" + dataStolpci + "StnN" + dataStolpci + "StnH" + dataStolpci + "RefHt" + dataStolpci + "InstHt" + vbCrLf)
PodatkiStojisce = True
End If
If Microsoft.VisualBasic.Left(line(1), 2) = "84" Then
RichTextBox1.AppendText(vbCrLf + "Station:" + vbCrLf + "****************" + vbCrLf)
RichTextBox1.AppendText("PtID" + dataStolpci + "StnE" + dataStolpci + "StnN" + dataStolpci + "StnH" + dataStolpci + "RefHt" + dataStolpci + "InstHt" + vbCrLf)
PodatkiStojisce = True
End If
' Seaparate word index and data
For Each readLine As String In line
@ -342,7 +388,7 @@ Public Class Form1
PodatkiStojisce = True
End If
If dataKoda = My.Settings.KodaMeasOri Then
data = vbCrLf + "Meritve Orientacije" + vbCrLf + "----------------------" + vbCrLf + "PtID" + dataStolpci + "Azi" + dataStolpci + "V" + dataStolpci + "SD" + dataStolpci + "HD" + dataStolpci + "RefHt" + dataStolpci + "PrCons" + dataStolpci + "HtDif" + dataStolpci + "E" + dataStolpci + "N" + dataStolpci + "H" + dataStolpci + "PtCode"
data = vbCrLf + "Merjeno (Orientacije)" + vbCrLf + "----------------------" + vbCrLf + "PtID" + dataStolpci + "Azi" + dataStolpci + "V" + dataStolpci + "SD" + dataStolpci + "HD" + dataStolpci + "RefHt" + dataStolpci + "PrCons" + dataStolpci + "HtDif" + dataStolpci + "E" + dataStolpci + "N" + dataStolpci + "H" + dataStolpci + "PtCode"
PodatkiStojisce = False
End If
If dataKoda = My.Settings.KodaMeas Then
@ -350,19 +396,19 @@ Public Class Form1
PodatkiStojisce = False
End If
If dataKoda = My.Settings.KodaUserImport Then
data = vbCrLf + "Uvoz/Ročni vnos" + vbCrLf + "----------------------" + vbCrLf + "PtID" + dataStolpci + "E" + dataStolpci + "N" + dataStolpci + "H"
data = vbCrLf + "Uvoz/Vnos-Uporabnika" + vbCrLf + "----------------------" + vbCrLf + "PtID" + dataStolpci + "E" + dataStolpci + "N" + dataStolpci + "H"
PodatkiStojisce = False
End If
If dataKoda = My.Settings.KodaStojisce Then
data = vbCrLf + "Stojišče Info" + vbCrLf + "----------------------" + vbCrLf + "StID" + dataStolpci + "InstHt" + vbCrLf
data = vbCrLf + "Stojišče (Info)" + vbCrLf + "----------------------" + vbCrLf + "StID" + dataStolpci + "InstHt" + vbCrLf
PodatkiStojisce = False
End If
If dataKoda = My.Settings.KodaStojisceInfo Then
data = vbCrLf + "Temp.(°C)/Prit.(mbar)" + vbCrLf + "----------------------" + vbCrLf
data = vbCrLf + "Temperatura (°C) /Pritisk (mbar)" + vbCrLf + "----------------------" + vbCrLf
PodatkiStojisce = False
End If
If dataKoda = My.Settings.KodaStojisceOri Then
data = vbCrLf + "Orientacija Info" + vbCrLf + "----------------------" + vbCrLf + "OrID" + dataStolpci + "Hz" + vbCrLf
data = vbCrLf + "Orientacija (Info)" + vbCrLf + "----------------------" + vbCrLf + "OrID" + dataStolpci + "Hz" + vbCrLf
PodatkiStojisce = False
End If
If dataKoda = "STA_OFFS" Then
@ -514,7 +560,7 @@ Public Class Form1
' measuredPoints = 1
'Else
If Microsoft.VisualBasic.Left(line(1), 2) = "25" Or Microsoft.VisualBasic.Left(line(1), 2) = "84" Then
measuredPoints = 2
measuredPoints = 1
End If
' Seaparate word index and data
For Each readLine As String In line
@ -532,11 +578,11 @@ Public Class Form1
If wordIndex = "41" Then
Dim dataInfo As String = Microsoft.VisualBasic.Right(readLine, 16).TrimStart("0"c)
If dataInfo = My.Settings.KodaMeas Then
measuredPoints = 1
ElseIf dataInfo = My.Settings.KodaUserImport Then
measuredPoints = 2
ElseIf dataInfo = My.Settings.KodaMeasOri Then
ElseIf dataInfo = My.Settings.KodaUserImport Then
measuredPoints = 3
ElseIf dataInfo = My.Settings.KodaMeasOri Then
measuredPoints = 4
Else
measuredPoints = 0
End If
@ -553,7 +599,7 @@ Public Class Form1
data = Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
RichTextBox1.AppendText(data)
i = i + 1
ElseIf wordIndex = "81" And measuredPoints >= 1 Then ' Target Easting
ElseIf wordIndex = "81" And measuredPoints >= 2 Then ' Target Easting
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
@ -570,7 +616,7 @@ Public Class Form1
kooEMin = numData
End If
RichTextBox1.AppendText(dataStolpci + data)
ElseIf wordIndex = "82" And measuredPoints >= 1 Then ' Target Northing
ElseIf wordIndex = "82" And measuredPoints >= 2 Then ' Target Northing
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
@ -587,20 +633,20 @@ Public Class Form1
kooNMin = numData
End If
RichTextBox1.AppendText(dataStolpci + data)
ElseIf wordIndex = "83" And measuredPoints >= 1 Then ' Target Height
ElseIf wordIndex = "83" And measuredPoints >= 2 Then ' Target Height
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
If measuredPoints = 1 Then
If measuredPoints = 2 Then
RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "MEAS")
ElseIf measuredPoints = 2 Then
RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "REF")
ElseIf measuredPoints = 3 Then
RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "REF")
ElseIf measuredPoints = 4 Then
RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "ORI")
End If
ElseIf wordIndex = "84" And measuredPoints >= 1 Then ' Station Easting
ElseIf wordIndex = "84" And measuredPoints = 1 Then ' Station Easting
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
@ -617,7 +663,7 @@ Public Class Form1
kooEMin = numData
End If
RichTextBox1.AppendText(dataStolpci + data)
ElseIf wordIndex = "85" And measuredPoints >= 1 Then ' Station Northing
ElseIf wordIndex = "85" And measuredPoints = 1 Then ' Station Northing
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
@ -634,7 +680,7 @@ Public Class Form1
kooNMin = numData
End If
RichTextBox1.AppendText(dataStolpci + data)
ElseIf wordIndex = "86" And measuredPoints >= 1 Then ' Station Height
ElseIf wordIndex = "86" And measuredPoints = 1 Then ' Station Height
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
@ -850,7 +896,7 @@ Public Class Form1
End If
End If
RichTextBox1.AppendText(izpisText)
RichTextBox1.AppendText(izpisText)
lin = lin + 1
ToolStripProgressBar1.Value = lin
Loop
@ -873,14 +919,14 @@ Public Class Form1
End Sub
Private Sub PripraviGSIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PripraviGSIToolStripMenuItem.Click
Process.Start("Navodila.pdf")
Process.Start("https://multibox.nohost.me/gitea/boris/TPS1100-Convert/wiki")
End Sub
Private Sub OdpriGSIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OdpriGSIToolStripMenuItem.Click
FormNastavitve.ShowDialog()
End Sub
Private Sub OdpriGSIToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles OdpriGSIToolStripMenuItem1.Click
Private Sub OdpriGSIToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
UvoziGsiJob()
' OdpriDatotekoGsi()
@ -895,20 +941,18 @@ Public Class Form1
Form2.ShowDialog()
End Sub
Private Sub ToolStripButtonNast_Click(sender As Object, e As EventArgs)
FormNastavitve.ShowDialog()
End Sub
Private Sub ToolStripButtonPripravi_Click(sender As Object, e As EventArgs) Handles ToolStripButtonPripravi.Click
Private Sub ToolStripButtonPripravi_Click(sender As Object, e As EventArgs) Handles ToolStripButtonPripravi.Click, ToolStripMenuItem5.Click
PripraviDatotekoGsi()
ToolStripButton3.Enabled = False
End Sub
Private Sub PripraviGSIToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles PripraviGSIToolStripMenuItem1.Click
Private Sub tsbUvoziTocke_Click(sender As Object, e As EventArgs) Handles tsbUvoziTocke.Click
PripraviDatotekoGsi()
ToolStripButton3.Enabled = False
End Sub
Private Sub tsbSaveAs_Click(sender As Object, e As EventArgs) Handles tsbSaveAs.Click
ShraniDatoteko()
@ -919,12 +963,6 @@ Public Class Form1
End Sub
Private Sub IzhodToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IzhodToolStripMenuItem.Click
Me.Close()
Application.Exit()
End Sub
Private Sub PosodobitevToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PosodobitevToolStripMenuItem.Click
' Preveri verzijo programa iz Gitea - MultiBox
Dim infoVerzija As String = My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString + "." + My.Application.Info.Version.Build.ToString + "." + My.Application.Info.Version.Revision.ToString
@ -942,7 +980,11 @@ Public Class Form1
My.Computer.FileSystem.DeleteFile("version.txt")
If gitVerzija = infoVerzija Then
Dim infoVerNum As Integer = CInt(infoVerzija.Replace(".", ""))
Dim gitVerNum As Integer = CInt(gitVerzija.Replace(".", ""))
Dim verDiff As Integer = gitVerNum - infoVerNum
If verDiff <= 0 Then
Dim Msg, Style, Title, Response
Msg = "Trenutna verzija: " + infoVerzija + vbCrLf + vbCrLf + "Ni posodobitev..." ' Define message.
@ -954,7 +996,7 @@ Public Class Form1
Else
Dim Msg, Style, Title, Response
Msg = "Trenutna verzija: " + infoVerzija + vbCrLf + "Nova verzija: " + gitVerzija + vbCrLf + vbCrLf + "Odprem stran za prenos?" ' Define message.
Msg = "Trenutna verzija: " + infoVerzija.ToString + vbCrLf + "Nova verzija: " + gitVerzija.ToString + vbCrLf + vbCrLf + "Odprem stran za prenos?" ' Define message.
Title = "Preverjanje posodobitev" ' Define title.
Style = vbYesNo
@ -967,16 +1009,12 @@ Public Class Form1
End If
End Sub
Private Sub ToolStripButton1_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
RichTextBox1.SelectionStart = 0
End Sub
Private Sub ManagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ManagerToolStripMenuItem.Click
Private Sub ManagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ManagerToolStripMenuItem.Click, ToolStripButtonpROJ.Click
FormGsiJobs.Show()
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click, OdpriJobToolStripMenuItem.Click
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click, ToolStripMenuItem2.Click
OpenFileDialog1.InitialDirectory = My.Application.Info.DirectoryPath.ToString + "\" + My.Settings.ProjektMapa.ToString
OdpriDatotekoGsi()
ToolStripButton3.Enabled = False
@ -987,4 +1025,25 @@ Public Class Form1
FormGrafika.Show()
End Sub
Private Sub IzhodToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IzhodToolStripMenuItem.Click
Me.Close()
Application.Exit()
End Sub
Private Sub IzračunHzKotaToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IzračunHzKotaToolStripMenuItem.Click
DialogIzracunHzCor.ShowDialog()
End Sub
Private Sub tsbZacetek_Click(sender As Object, e As EventArgs) Handles tsbZacetek.Click
RichTextBox1.SelectionStart = 0
End Sub
Private Sub tsbPripravaFormat_Click(sender As Object, e As EventArgs) Handles tsbPripravaFormat.Click
DialogPripravaKartice.ShowDialog()
End Sub
Private Sub tsbPripravaZav_Click(sender As Object, e As EventArgs) Handles tsbPripravaZav.Click
DialogZavarovanje.ShowDialog()
End Sub
End Class

95
Form2.Designer.vb generated
View File

@ -49,10 +49,20 @@ Partial Class Form2
Me.SaveFileDialog2 = New System.Windows.Forms.SaveFileDialog()
Me.MyApplicationBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.MyApplicationBindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DatotekaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ShraniToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ShraniKotToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ZapriToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SkripteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.IzračunMeritveStMerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.IzračunOrientacijeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStrip1.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
CType(Me.MyApplicationBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyApplicationBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'RichTextBoxEdit
@ -62,9 +72,9 @@ Partial Class Form2
Me.RichTextBoxEdit.DetectUrls = False
Me.RichTextBoxEdit.EnableAutoDragDrop = True
Me.RichTextBoxEdit.Font = New System.Drawing.Font("Courier New", 11.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.RichTextBoxEdit.Location = New System.Drawing.Point(12, 43)
Me.RichTextBoxEdit.Location = New System.Drawing.Point(12, 67)
Me.RichTextBoxEdit.Name = "RichTextBoxEdit"
Me.RichTextBoxEdit.Size = New System.Drawing.Size(1160, 573)
Me.RichTextBoxEdit.Size = New System.Drawing.Size(1160, 549)
Me.RichTextBoxEdit.TabIndex = 2
Me.RichTextBoxEdit.Text = ""
Me.RichTextBoxEdit.WordWrap = False
@ -75,7 +85,7 @@ Partial Class Form2
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.BtnShraniF2, Me.ToolStripSeparator3, Me.ToolStripLabel1, Me.ComBoxKoda, Me.ToolStripButton1, Me.ToolStripLabel2, Me.ToolStripTextBox1, Me.ToolStripLabel3, Me.ToolStripTextBox2, Me.ToolStripLabel6, Me.ToolStripTextBox5, Me.ToolStripLabel4, Me.ToolStripTextBox3, Me.ToolStripLabel5, Me.ToolStripTextBox4, Me.ToolStripSeparator2, Me.ToolStripButton2})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Location = New System.Drawing.Point(0, 25)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(10, 5, 10, 0)
Me.ToolStrip1.Size = New System.Drawing.Size(1184, 40)
@ -257,6 +267,72 @@ Partial Class Form2
'
Me.MyApplicationBindingSource1.DataSource = GetType(TPS1100_Convert.My.MyApplication)
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatotekaToolStripMenuItem, Me.SkripteToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1184, 25)
Me.MenuStrip1.TabIndex = 5
Me.MenuStrip1.Text = "MenuStrip1"
'
'DatotekaToolStripMenuItem
'
Me.DatotekaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ShraniToolStripMenuItem, Me.ShraniKotToolStripMenuItem, Me.ToolStripSeparator1, Me.ZapriToolStripMenuItem})
Me.DatotekaToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.Save_as_24
Me.DatotekaToolStripMenuItem.Name = "DatotekaToolStripMenuItem"
Me.DatotekaToolStripMenuItem.Size = New System.Drawing.Size(82, 21)
Me.DatotekaToolStripMenuItem.Text = "&Datoteka"
'
'ShraniToolStripMenuItem
'
Me.ShraniToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
Me.ShraniToolStripMenuItem.Name = "ShraniToolStripMenuItem"
Me.ShraniToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
Me.ShraniToolStripMenuItem.Text = "Shrani..."
'
'ShraniKotToolStripMenuItem
'
Me.ShraniKotToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_compare_50
Me.ShraniKotToolStripMenuItem.Name = "ShraniKotToolStripMenuItem"
Me.ShraniKotToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
Me.ShraniKotToolStripMenuItem.Text = "Shrani Kopijo"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(141, 6)
'
'ZapriToolStripMenuItem
'
Me.ZapriToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
Me.ZapriToolStripMenuItem.Name = "ZapriToolStripMenuItem"
Me.ZapriToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
Me.ZapriToolStripMenuItem.Text = "Zapri"
'
'SkripteToolStripMenuItem
'
Me.SkripteToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.IzračunMeritveStMerToolStripMenuItem, Me.IzračunOrientacijeToolStripMenuItem})
Me.SkripteToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SkripteToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_stationery_50
Me.SkripteToolStripMenuItem.Name = "SkripteToolStripMenuItem"
Me.SkripteToolStripMenuItem.Size = New System.Drawing.Size(80, 21)
Me.SkripteToolStripMenuItem.Text = "Izračuni"
'
'IzračunMeritveStMerToolStripMenuItem
'
Me.IzračunMeritveStMerToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_land_surveying_48
Me.IzračunMeritveStMerToolStripMenuItem.Name = "IzračunMeritveStMerToolStripMenuItem"
Me.IzračunMeritveStMerToolStripMenuItem.Size = New System.Drawing.Size(261, 22)
Me.IzračunMeritveStMerToolStripMenuItem.Text = "Dodaj Meritev (Stoj. > Merjena)"
'
'IzračunOrientacijeToolStripMenuItem
'
Me.IzračunOrientacijeToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_drawing_compass_48
Me.IzračunOrientacijeToolStripMenuItem.Name = "IzračunOrientacijeToolStripMenuItem"
Me.IzračunOrientacijeToolStripMenuItem.Size = New System.Drawing.Size(261, 22)
Me.IzračunOrientacijeToolStripMenuItem.Text = "Preračun Hz Orientacije (HzCor)"
'
'Form2
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@ -264,8 +340,10 @@ Partial Class Form2
Me.ClientSize = New System.Drawing.Size(1184, 641)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Controls.Add(Me.RichTextBoxEdit)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "Form2"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "TPS1100 Convert - Urejanje"
@ -275,6 +353,8 @@ Partial Class Form2
Me.StatusStrip1.PerformLayout()
CType(Me.MyApplicationBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyApplicationBindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -305,4 +385,13 @@ Partial Class Form2
Friend WithEvents ToolStripTextBox4 As ToolStripTextBox
Friend WithEvents ToolStripLabel6 As ToolStripLabel
Friend WithEvents ToolStripTextBox5 As ToolStripTextBox
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents DatotekaToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ShraniKotToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ShraniToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents ZapriToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SkripteToolStripMenuItem As ToolStripMenuItem
Friend WithEvents IzračunMeritveStMerToolStripMenuItem As ToolStripMenuItem
Friend WithEvents IzračunOrientacijeToolStripMenuItem As ToolStripMenuItem
End Class

3
Form2.resx
View File

@ -132,6 +132,9 @@
<metadata name="MyApplicationBindingSource1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>341, 17</value>
</metadata>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>914, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

5
Form2.vb
View File

@ -211,4 +211,9 @@ Public Class Form2
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

56
FormGrafika.Designer.vb generated
View File

@ -25,71 +25,46 @@ Partial Class FormGrafika
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormGrafika))
Me.Button1 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(950, 23)
Me.Button1.FlatAppearance.BorderColor = System.Drawing.SystemColors.ButtonShadow
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Location = New System.Drawing.Point(1036, 30)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(71, 23)
Me.Button1.Size = New System.Drawing.Size(165, 23)
Me.Button1.TabIndex = 0
Me.Button1.Text = "Izris"
Me.Button1.Text = "Prikaži"
Me.Button1.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(905, 33)
Me.Label1.Location = New System.Drawing.Point(1087, 58)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(39, 13)
Me.Label1.Size = New System.Drawing.Size(39, 20)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Label1"
'
'Label2
'
Me.Label2.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.Location = New System.Drawing.Point(908, 49)
Me.Label2.Name = "Label2"
Me.Label2.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Label2.Size = New System.Drawing.Size(113, 23)
Me.Label2.TabIndex = 2
Me.Label2.Text = "deltaX"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.Location = New System.Drawing.Point(908, 72)
Me.Label3.Name = "Label3"
Me.Label3.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Label3.Size = New System.Drawing.Size(113, 23)
Me.Label3.TabIndex = 3
Me.Label3.Text = "deltaY"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Label1.Text = "#"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.Location = New System.Drawing.Point(910, 95)
Me.Label4.Location = New System.Drawing.Point(1036, 56)
Me.Label4.Name = "Label4"
Me.Label4.RightToLeft = System.Windows.Forms.RightToLeft.Yes
Me.Label4.Size = New System.Drawing.Size(111, 22)
Me.Label4.Size = New System.Drawing.Size(45, 22)
Me.Label4.TabIndex = 4
Me.Label4.Text = "Faktor"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Label4.Text = "Sojišča:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'FormGrafika
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1044, 1021)
Me.ClientSize = New System.Drawing.Size(1224, 1061)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@ -97,13 +72,10 @@ Partial Class FormGrafika
Me.Padding = New System.Windows.Forms.Padding(20)
Me.Text = "TPS1100 - Grafika"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Button1 As Button
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents Label4 As Label
End Class

54
FormGrafika.vb
View File

@ -5,9 +5,7 @@ Public Class FormGrafika
Private Sub FormGrafika_Load(sender As Object, e As EventArgs) Handles MyBase.Load
g = Me.CreateGraphics()
Label2.Text = Form1.kooEdelta.ToString
Label3.Text = Form1.kooNdelta.ToString
Label4.Text = Form1.kooFaktor.ToString
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
@ -15,7 +13,7 @@ Public Class FormGrafika
End Sub
Public Sub DrawLineMer(ByVal xPos As Single, ByVal yPos As Single, ByVal xPos2 As Single, ByVal yPos2 As Single)
g.DrawLine(Pens.Black, New Point(xPos, yPos), New Point(xPos2, yPos2))
g.DrawLine(Pens.LightCoral, New Point(xPos, yPos), New Point(xPos2, yPos2))
End Sub
@ -56,7 +54,7 @@ Public Class FormGrafika
End If
If Microsoft.VisualBasic.Left(line(1), 2) = "25" Or Microsoft.VisualBasic.Left(line(1), 2) = "84" Then
measuredPoints = 2
measuredPoints = 1
End If
' Seaparate word index and data
For Each readLine As String In line
@ -75,22 +73,22 @@ Public Class FormGrafika
If wordIndex = "41" Then
Dim dataInfo As String = Microsoft.VisualBasic.Right(readLine, 16).TrimStart("0"c)
If dataInfo = My.Settings.KodaMeas Then
measuredPoints = 1
ElseIf dataInfo = My.Settings.KodaUserImport Then
measuredPoints = 2
ElseIf dataInfo = My.Settings.KodaMeasOri Then
measuredPoints = 3
ElseIf dataInfo = My.Settings.KodaUserImport Then
measuredPoints = 0
Else
measuredPoints = 0
End If
End If
If wordIndex = "11" And measuredPoints = 1 Then
If wordIndex = "11" And measuredPoints >= 1 Then
data = Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
imeToc = data
Form1.RichTextBox1.AppendText(data)
i = i + 1
ElseIf wordIndex = "81" And measuredPoints = 1 Then ' Target Easting
ElseIf wordIndex = "81" And measuredPoints >= 2 Then ' Target Easting
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
@ -98,7 +96,7 @@ Public Class FormGrafika
End If
merX = (numData - Form1.kooEMin) * Form1.kooFaktor
Form1.RichTextBox1.AppendText(dataStolpci + CInt(merX).ToString)
ElseIf wordIndex = "82" And measuredPoints = 1 Then ' Target Northing
ElseIf wordIndex = "82" And measuredPoints >= 2 Then ' Target Northing
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
@ -106,19 +104,24 @@ Public Class FormGrafika
End If
merY = (numData - Form1.kooNMin) * Form1.kooFaktor
Form1.RichTextBox1.AppendText(dataStolpci + CInt(merY).ToString)
ElseIf wordIndex = "83" And measuredPoints = 1 Then ' Target Height
ElseIf wordIndex = "83" And measuredPoints >= 2 Then ' Target Height
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
'If measuredPoints = 1 Then
' Form1.RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "MEAS")
'ElseIf measuredPoints = 2 Then
' Form1.RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "REF")
'ElseIf measuredPoints = 3 Then
' Form1.RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "ORI")
'End If
If measuredPoints = 2 Then
Form1.RichTextBox1.AppendText(dataStolpci + "MEAS")
g.DrawRectangle(Pens.Blue, CInt(merX) + 30, CInt(merY) + 30, 3, 3)
g.DrawString(imeToc, DefaultFont, Brushes.Blue, CInt(merX) + 33, CInt(merY) + 33)
' ElseIf measuredPoints = 4 Then
' Form1.RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "REF")
ElseIf measuredPoints = 3 Then
Form1.RichTextBox1.AppendText(dataStolpci + "ORI")
g.DrawRectangle(Pens.DarkMagenta, CInt(merX) + 30, CInt(merY) + 30, 3, 3)
g.DrawString(imeToc, DefaultFont, Brushes.DarkMagenta, CInt(merX) + 33, CInt(merY) + 33)
DrawLineMer(CInt(staX) + 30, CInt(staY) + 30, CInt(merX) + 30, CInt(merY) + 30)
End If
If stojiceSt > 0 Then
meritevSt = meritevSt + 1
End If
@ -144,9 +147,10 @@ Public Class FormGrafika
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
'Form1.RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "STA")
Form1.RichTextBox1.AppendText(dataStolpci + "STA")
stojiceSt = stojiceSt + 1
meritevSt = 0
Label1.Text = stojiceSt.ToString
g.DrawRectangle(Pens.Red, CInt(staX) + 30, CInt(staY) + 30, 5, 5)
g.DrawString(imeToc, DefaultFont, Brushes.Red, CInt(staX) + 35, CInt(staY) + 35)
Else
@ -154,16 +158,14 @@ Public Class FormGrafika
data = ""
End If
End If
If stojiceSt > 0 And meritevSt > 0 Then
Label1.Text = stojiceSt.ToString
'DrawLineMer(CInt(staX), CInt(staY), CInt(merX), CInt(merY))
g.DrawRectangle(Pens.Blue, CInt(merX) + 30, CInt(merY) + 30, 3, 3)
g.DrawString(imeToc, DefaultFont, Brushes.Blue, CInt(merX) + 33, CInt(merY) + 33)
End If
' If stojiceSt > 0 And meritevSt > 0 Then
'
' 'DrawLineMer(CInt(staX), CInt(staY), CInt(merX), CInt(merY))
' End If
Next
If dataKoda = 0 And measuredPoints = 1 Then
If dataKoda = 0 And measuredPoints >= 1 Then
Form1.RichTextBox1.AppendText(vbCrLf)
End If
lin = lin + 1

234
FormGsiJobs.Designer.vb generated
View File

@ -25,13 +25,13 @@ Partial Class FormGsiJobs
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormGsiJobs))
Me.StatusStrip1 = New System.Windows.Forms.StatusStrip()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.TSButtonUvozi = New System.Windows.Forms.ToolStripButton()
Me.TSButonNalozi = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
@ -46,16 +46,22 @@ Partial Class FormGsiJobs
Me.LabelIzbProjMapa = New System.Windows.Forms.Label()
Me.LabelIzbProj = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label11 = New System.Windows.Forms.Label()
Me.ButtonDelovni = New System.Windows.Forms.Button()
Me.Label12 = New System.Windows.Forms.Label()
Me.LabelJobIme = New System.Windows.Forms.Label()
Me.ButtonNalJob2 = New System.Windows.Forms.Button()
Me.Label8 = New System.Windows.Forms.Label()
Me.ListViewProj = New System.Windows.Forms.ListView()
Me.ProjektImeHeader = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ProjektMapaHeader = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ListView2 = New System.Windows.Forms.ListView()
Me.JobImeHeader = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.OpenFileDialogUvoziJob = New System.Windows.Forms.OpenFileDialog()
Me.TextBoxJobDat = New System.Windows.Forms.TextBox()
Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
Me.ToolStrip1.SuspendLayout()
Me.TableLayoutPanel1.SuspendLayout()
Me.TableLayoutPanel2.SuspendLayout()
Me.SuspendLayout()
'
'StatusStrip1
@ -71,7 +77,7 @@ Partial Class FormGsiJobs
'
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton5, Me.ToolStripButton4, Me.ToolStripSeparator3, Me.ToolStripButton3, Me.ToolStripSeparator1, Me.ToolStripButton2, Me.ToolStripButton1, Me.ToolStripSeparator2})
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton5, Me.ToolStripButton4, Me.ToolStripSeparator3, Me.ToolStripButton3, Me.ToolStripSeparator1, Me.TSButtonUvozi, Me.TSButonNalozi, Me.ToolStripSeparator2})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(5)
@ -80,15 +86,6 @@ Partial Class FormGsiJobs
Me.ToolStrip1.TabIndex = 2
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripButton5
'
Me.ToolStripButton5.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tree_structure_50
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(91, 43)
Me.ToolStripButton5.Text = "Delovni Projekt"
Me.ToolStripButton5.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripButton4
'
Me.ToolStripButton4.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_folder_tree_50
@ -98,6 +95,15 @@ Partial Class FormGsiJobs
Me.ToolStripButton4.Text = "Nov Projekt"
Me.ToolStripButton4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripButton5
'
Me.ToolStripButton5.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_501
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(91, 43)
Me.ToolStripButton5.Text = "Delovni Projekt"
Me.ToolStripButton5.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
@ -105,7 +111,7 @@ Partial Class FormGsiJobs
'
'ToolStripButton3
'
Me.ToolStripButton3.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
Me.ToolStripButton3.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_opened_folder_50
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(75, 43)
@ -117,23 +123,24 @@ Partial Class FormGsiJobs
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 46)
'
'ToolStripButton2
'TSButtonUvozi
'
Me.ToolStripButton2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(61, 43)
Me.ToolStripButton2.Text = "Uvozi Job"
Me.ToolStripButton2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.TSButtonUvozi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
Me.TSButtonUvozi.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSButtonUvozi.Name = "TSButtonUvozi"
Me.TSButtonUvozi.Size = New System.Drawing.Size(61, 43)
Me.TSButtonUvozi.Text = "Uvozi Job"
Me.TSButtonUvozi.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.TSButtonUvozi.ToolTipText = "Uvozi Job v delovni projekt..."
'
'ToolStripButton1
'TSButonNalozi
'
Me.ToolStripButton1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_check_file_50
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(65, 43)
Me.ToolStripButton1.Text = "Naloži Job"
Me.ToolStripButton1.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.TSButonNalozi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
Me.TSButonNalozi.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSButonNalozi.Name = "TSButonNalozi"
Me.TSButonNalozi.Size = New System.Drawing.Size(65, 43)
Me.TSButonNalozi.Text = "Naloži Job"
Me.TSButonNalozi.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator2
'
@ -187,23 +194,20 @@ Partial Class FormGsiJobs
Me.TableLayoutPanel1.Controls.Add(Me.LabelIzbProjMapa, 1, 4)
Me.TableLayoutPanel1.Controls.Add(Me.LabelIzbProj, 1, 3)
Me.TableLayoutPanel1.Controls.Add(Me.Label10, 0, 6)
Me.TableLayoutPanel1.Controls.Add(Me.Label11, 0, 7)
Me.TableLayoutPanel1.Controls.Add(Me.ButtonDelovni, 0, 2)
Me.TableLayoutPanel1.Controls.Add(Me.Label12, 1, 2)
Me.TableLayoutPanel1.Controls.Add(Me.LabelJobIme, 1, 6)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(324, 86)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 10
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.TableLayoutPanel1.RowCount = 7
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(368, 330)
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(368, 181)
Me.TableLayoutPanel1.TabIndex = 11
'
'Label4
@ -212,10 +216,10 @@ Partial Class FormGsiJobs
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(3, 0)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(94, 25)
Me.Label4.Size = New System.Drawing.Size(113, 25)
Me.Label4.TabIndex = 0
Me.Label4.Text = "Delovni Projekt"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -228,7 +232,7 @@ Partial Class FormGsiJobs
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 25)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(94, 25)
Me.Label6.Size = New System.Drawing.Size(113, 25)
Me.Label6.TabIndex = 2
Me.Label6.Text = "Delovna Mapa"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -239,10 +243,11 @@ Partial Class FormGsiJobs
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelDeloProj.AutoSize = True
Me.LabelDeloProj.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelDeloProj.Location = New System.Drawing.Point(103, 0)
Me.LabelDeloProj.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelDeloProj.ForeColor = System.Drawing.Color.ForestGreen
Me.LabelDeloProj.Location = New System.Drawing.Point(122, 0)
Me.LabelDeloProj.Name = "LabelDeloProj"
Me.LabelDeloProj.Size = New System.Drawing.Size(262, 25)
Me.LabelDeloProj.Size = New System.Drawing.Size(243, 25)
Me.LabelDeloProj.TabIndex = 6
Me.LabelDeloProj.Text = "<delovni projekt>"
Me.LabelDeloProj.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -253,9 +258,9 @@ Partial Class FormGsiJobs
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelDeloMapa.AutoSize = True
Me.LabelDeloMapa.Location = New System.Drawing.Point(103, 25)
Me.LabelDeloMapa.Location = New System.Drawing.Point(122, 25)
Me.LabelDeloMapa.Name = "LabelDeloMapa"
Me.LabelDeloMapa.Size = New System.Drawing.Size(262, 25)
Me.LabelDeloMapa.Size = New System.Drawing.Size(243, 25)
Me.LabelDeloMapa.TabIndex = 7
Me.LabelDeloMapa.Text = "<delovna mapa>"
Me.LabelDeloMapa.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -266,9 +271,9 @@ Partial Class FormGsiJobs
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 121)
Me.Label7.Location = New System.Drawing.Point(3, 100)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(94, 25)
Me.Label7.Size = New System.Drawing.Size(113, 25)
Me.Label7.TabIndex = 5
Me.Label7.Text = "Lokacija"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -279,9 +284,10 @@ Partial Class FormGsiJobs
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(3, 96)
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(3, 75)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(94, 25)
Me.Label5.Size = New System.Drawing.Size(113, 25)
Me.Label5.TabIndex = 4
Me.Label5.Text = "Izbran Projekt"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -292,9 +298,9 @@ Partial Class FormGsiJobs
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzbProjMapa.AutoSize = True
Me.LabelIzbProjMapa.Location = New System.Drawing.Point(103, 121)
Me.LabelIzbProjMapa.Location = New System.Drawing.Point(122, 100)
Me.LabelIzbProjMapa.Name = "LabelIzbProjMapa"
Me.LabelIzbProjMapa.Size = New System.Drawing.Size(262, 25)
Me.LabelIzbProjMapa.Size = New System.Drawing.Size(243, 25)
Me.LabelIzbProjMapa.TabIndex = 3
Me.LabelIzbProjMapa.Text = ".\"
Me.LabelIzbProjMapa.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -305,9 +311,11 @@ Partial Class FormGsiJobs
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzbProj.AutoSize = True
Me.LabelIzbProj.Location = New System.Drawing.Point(103, 96)
Me.LabelIzbProj.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelIzbProj.ForeColor = System.Drawing.Color.SteelBlue
Me.LabelIzbProj.Location = New System.Drawing.Point(122, 75)
Me.LabelIzbProj.Name = "LabelIzbProj"
Me.LabelIzbProj.Size = New System.Drawing.Size(262, 25)
Me.LabelIzbProj.Size = New System.Drawing.Size(243, 25)
Me.LabelIzbProj.TabIndex = 1
Me.LabelIzbProj.Text = "(izberi projekt)"
Me.LabelIzbProj.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -318,26 +326,14 @@ Partial Class FormGsiJobs
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(3, 171)
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(3, 150)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(94, 20)
Me.Label10.Size = New System.Drawing.Size(113, 31)
Me.Label10.TabIndex = 8
Me.Label10.Text = "Izbran Job"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label11
'
Me.Label11.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(3, 191)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(94, 20)
Me.Label11.TabIndex = 9
Me.Label11.Text = "Datoteka"
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'ButtonDelovni
'
Me.ButtonDelovni.BackgroundImage = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_50
@ -346,7 +342,7 @@ Partial Class FormGsiJobs
Me.ButtonDelovni.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.ButtonDelovni.Location = New System.Drawing.Point(3, 53)
Me.ButtonDelovni.Name = "ButtonDelovni"
Me.ButtonDelovni.Size = New System.Drawing.Size(94, 40)
Me.ButtonDelovni.Size = New System.Drawing.Size(113, 19)
Me.ButtonDelovni.TabIndex = 10
Me.ButtonDelovni.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ButtonDelovni.UseVisualStyleBackColor = True
@ -358,13 +354,60 @@ Partial Class FormGsiJobs
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label12.AutoSize = True
Me.Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label12.Location = New System.Drawing.Point(103, 50)
Me.Label12.Location = New System.Drawing.Point(122, 50)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(262, 46)
Me.Label12.Size = New System.Drawing.Size(243, 25)
Me.Label12.TabIndex = 11
Me.Label12.Text = "Nastavi izbran projekt kot delovni"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelJobIme
'
Me.LabelJobIme.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelJobIme.AutoSize = True
Me.LabelJobIme.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelJobIme.ForeColor = System.Drawing.Color.RoyalBlue
Me.LabelJobIme.Location = New System.Drawing.Point(122, 150)
Me.LabelJobIme.Name = "LabelJobIme"
Me.LabelJobIme.Size = New System.Drawing.Size(243, 31)
Me.LabelJobIme.TabIndex = 12
Me.LabelJobIme.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'ButtonNalJob2
'
Me.ButtonNalJob2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.ButtonNalJob2.Enabled = False
Me.ButtonNalJob2.FlatAppearance.BorderSize = 0
Me.ButtonNalJob2.FlatAppearance.MouseOverBackColor = System.Drawing.SystemColors.ActiveCaption
Me.ButtonNalJob2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.ButtonNalJob2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
Me.ButtonNalJob2.Location = New System.Drawing.Point(0, 40)
Me.ButtonNalJob2.Margin = New System.Windows.Forms.Padding(0)
Me.ButtonNalJob2.Name = "ButtonNalJob2"
Me.ButtonNalJob2.Padding = New System.Windows.Forms.Padding(3)
Me.ButtonNalJob2.Size = New System.Drawing.Size(368, 91)
Me.ButtonNalJob2.TabIndex = 14
Me.ButtonNalJob2.Text = "Naloži Job"
Me.ButtonNalJob2.TextAlign = System.Drawing.ContentAlignment.BottomCenter
Me.ButtonNalJob2.UseVisualStyleBackColor = True
'
'Label8
'
Me.Label8.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label8.AutoSize = True
Me.Label8.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label8.Location = New System.Drawing.Point(3, 23)
Me.Label8.Margin = New System.Windows.Forms.Padding(3)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(362, 14)
Me.Label8.TabIndex = 15
Me.Label8.Text = "Naloži izbran Job za obdelavo"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.TopCenter
'
'ListViewProj
'
Me.ListViewProj.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@ -411,11 +454,43 @@ Partial Class FormGsiJobs
Me.JobImeHeader.Text = "Job"
Me.JobImeHeader.Width = 140
'
'OpenFileDialogUvoziJob
'
Me.OpenFileDialogUvoziJob.Filter = "GSI|*.GSI"
'
'TextBoxJobDat
'
Me.TextBoxJobDat.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.TextBoxJobDat.Location = New System.Drawing.Point(10, 5)
Me.TextBoxJobDat.Margin = New System.Windows.Forms.Padding(10, 5, 10, 0)
Me.TextBoxJobDat.Name = "TextBoxJobDat"
Me.TextBoxJobDat.ReadOnly = True
Me.TextBoxJobDat.Size = New System.Drawing.Size(348, 13)
Me.TextBoxJobDat.TabIndex = 16
Me.TextBoxJobDat.WordWrap = False
'
'TableLayoutPanel2
'
Me.TableLayoutPanel2.ColumnCount = 1
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.TableLayoutPanel2.Controls.Add(Me.Label8, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.ButtonNalJob2, 0, 2)
Me.TableLayoutPanel2.Controls.Add(Me.TextBoxJobDat, 0, 0)
Me.TableLayoutPanel2.Location = New System.Drawing.Point(324, 273)
Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
Me.TableLayoutPanel2.RowCount = 3
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.TableLayoutPanel2.Size = New System.Drawing.Size(368, 143)
Me.TableLayoutPanel2.TabIndex = 14
'
'FormGsiJobs
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(704, 441)
Me.Controls.Add(Me.TableLayoutPanel2)
Me.Controls.Add(Me.ListView2)
Me.Controls.Add(Me.ListViewProj)
Me.Controls.Add(Me.TableLayoutPanel1)
@ -434,15 +509,17 @@ Partial Class FormGsiJobs
Me.ToolStrip1.PerformLayout()
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel1.PerformLayout()
Me.TableLayoutPanel2.ResumeLayout(False)
Me.TableLayoutPanel2.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents TSButonNalozi As ToolStripButton
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents TSButtonUvozi As ToolStripButton
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
@ -458,7 +535,6 @@ Partial Class FormGsiJobs
Friend WithEvents LabelDeloProj As Label
Friend WithEvents LabelDeloMapa As Label
Friend WithEvents Label10 As Label
Friend WithEvents Label11 As Label
Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents ButtonDelovni As Button
Friend WithEvents Label12 As Label
@ -469,4 +545,10 @@ Partial Class FormGsiJobs
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
Friend WithEvents JobImeHeader As ColumnHeader
Friend WithEvents ProjektMapaHeader As ColumnHeader
Friend WithEvents OpenFileDialogUvoziJob As OpenFileDialog
Friend WithEvents LabelJobIme As Label
Friend WithEvents ButtonNalJob2 As Button
Friend WithEvents Label8 As Label
Friend WithEvents TextBoxJobDat As TextBox
Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
End Class

3
FormGsiJobs.resx
View File

@ -123,6 +123,9 @@
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>248, 17</value>
</metadata>
<metadata name="OpenFileDialogUvoziJob.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>354, 17</value>
</metadata>
<assembly alias="System.Drawing" name="System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" />
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>

129
FormGsiJobs.vb
View File

@ -18,10 +18,13 @@ Public Class FormGsiJobs
ProjektBeriNast()
End Sub
Public Sub ProjektBeriNast()
Dim datProjektiNast = "tps1100_projekti.txt"
Dim i As Integer = 0
Dim iselected As Integer = 0
' Uvoz nastavitev iz datototeke
If My.Computer.FileSystem.FileExists(datProjektiNast) Then
Dim streamReader As StreamReader = New StreamReader(datProjektiNast)
@ -34,7 +37,10 @@ Public Class FormGsiJobs
Dim projMapa As String = line(1)
ListViewProj.Items.Add(projIme).SubItems.Add(projMapa)
If projIme = My.Settings.Projekt Then
iselected = i
End If
i = i + 1
End If
Loop
@ -42,7 +48,8 @@ Public Class FormGsiJobs
streamReader.Close()
streamReader.Dispose()
My.Settings.Save()
ListViewProj.Items.Item(iselected).Selected = True
ListViewProj.Focus()
Else
' Izvoz kodiranja v TXT datoteko
Dim dataNast As String = ""
@ -52,6 +59,7 @@ Public Class FormGsiJobs
My.Computer.FileSystem.WriteAllText(datProjektiNast, dataNast, False)
End If
End Sub
Public Sub ProjektiShraniNast()
@ -72,27 +80,21 @@ Public Class FormGsiJobs
End If
End Sub
Private Sub ListViewProj_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewProj.SelectedIndexChanged
Dim izbran As ListView.SelectedListViewItemCollection = Me.ListViewProj.SelectedItems
Dim item As ListViewItem
Dim ime As String = ""
Dim mapa As String = ""
For Each item In izbran
ime = item.SubItems(0).Text
mapa = item.SubItems(1).Text
Next
LabelIzbProj.Text = ime.ToString
LabelIzbProjMapa.Text = mapa.ToString
Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + mapa.ToString
projektIzbranMapa = delovnaMapa
Dim datotekeJobi = My.Computer.FileSystem.GetFiles(delovnaMapa, FileIO.SearchOption.SearchTopLevelOnly, "*.GSI")
ListView2.Clear()
For Each datJob In datotekeJobi
ListView2.Items.Add(Path.GetFileName(datJob).ToString)
Next
Private Sub UvoziGsiJob()
If OpenFileDialogUvoziJob.ShowDialog = DialogResult.OK Then
Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + My.Settings.ProjektMapa.ToString + "\"
Dim fileUvoz = OpenFileDialogUvoziJob.FileName
Dim fileIme = Path.GetFileName(OpenFileDialogUvoziJob.FileName)
Dim fileIzvoz = delovnaMapa + fileIme
My.Computer.FileSystem.CopyFile(fileUvoz, fileIzvoz, True)
OpenFileDialogUvoziJob.FileName = fileIzvoz
End If
OpenFileDialogUvoziJob.Dispose()
End Sub
Private Sub ButtonDelovni_Click(sender As Object, e As EventArgs) Handles ButtonDelovni.Click, ToolStripButton5.Click
Private Sub NastaviDelovniProj()
LabelDeloProj.Text = LabelIzbProj.Text
LabelDeloMapa.Text = LabelIzbProjMapa.Text
My.Settings.Projekt = LabelDeloProj.Text
@ -107,6 +109,81 @@ Public Class FormGsiJobs
End If
End Sub
Private Sub NaloziJob()
LabelDeloProj.Text = LabelIzbProj.Text
LabelDeloMapa.Text = LabelIzbProjMapa.Text
My.Settings.Projekt = LabelDeloProj.Text
My.Settings.ProjektMapa = LabelDeloMapa.Text
My.Settings.Save()
If LabelDeloProj.Text = "Virtualna Kartica" Then
Form1.ToolStripLabel2.Text = LabelDeloProj.Text
Form1.ToolStripLabel2.Image = My.Resources.icons8_micro_sd_50
Else
Form1.ToolStripLabel2.Text = LabelDeloProj.Text
Form1.ToolStripLabel2.Image = My.Resources.icons8_browse_folder_50_2
End If
Form1.datJob = TextBoxJobDat.Text
Form1.NaloziGsiJob()
Me.Close()
End Sub
Private Sub ListViewProj_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewProj.SelectedIndexChanged
Dim izbran As ListView.SelectedListViewItemCollection = Me.ListViewProj.SelectedItems
Dim item As ListViewItem
Dim ime As String = ""
Dim mapa As String = ""
For Each item In izbran
ime = item.SubItems(0).Text
mapa = item.SubItems(1).Text
Next
LabelIzbProj.Text = ime.ToString
LabelIzbProjMapa.Text = mapa.ToString
Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + mapa.ToString
projektIzbran = ime.ToString
projektIzbranMapa = delovnaMapa
Dim datotekeJobi = My.Computer.FileSystem.GetFiles(delovnaMapa, FileIO.SearchOption.SearchTopLevelOnly, "*.GSI")
ListView2.Clear()
For Each datJob In datotekeJobi
ListView2.Items.Add(Path.GetFileName(datJob).ToString).SubItems.Add(Path.GetFullPath(datJob))
Next
End Sub
Private Sub ListViewProj_DoubleClick(sender As Object, e As EventArgs) Handles ListViewProj.DoubleClick
NastaviDelovniProj()
Me.Close()
End Sub
Private Sub ButtonDelovni_Click(sender As Object, e As EventArgs) Handles ButtonDelovni.Click, ToolStripButton5.Click
NastaviDelovniProj()
End Sub
Private Sub ListView2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView2.SelectedIndexChanged
Dim izbran As ListView.SelectedListViewItemCollection = Me.ListView2.SelectedItems
Dim item As ListViewItem
Dim ime As String = ""
Dim mapa As String = ""
For Each item In izbran
ime = item.SubItems(0).Text
mapa = item.SubItems(1).Text
Next
LabelJobIme.Text = ime.ToString
TextBoxJobDat.Text = mapa.ToString
If LabelJobIme.Text > "" Then
ButtonNalJob2.Enabled = True
Else
ButtonNalJob2.Enabled = False
End If
'Dim delovnaJob = My.Application.Info.DirectoryPath.ToString + "\" + mapa.ToString
'projektIzbran = ime.ToString
'projektIzbranMapa = delovnaMapa
'Dim datotekeJobi = My.Computer.FileSystem.GetFiles(delovnaMapa, FileIO.SearchOption.SearchTopLevelOnly, "*.GSI")
End Sub
Private Sub ListView2_DoubleClick(sender As Object, e As EventArgs) Handles ListView2.DoubleClick
NaloziJob()
End Sub
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
DialogNovProj.ShowDialog()
@ -116,11 +193,13 @@ Public Class FormGsiJobs
Process.Start(projektIzbranMapa)
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
Private Sub TSButtonUvozi_Click(sender As Object, e As EventArgs) Handles TSButtonUvozi.Click
UvoziGsiJob()
End Sub
Private Sub TSButonNalozi_Click(sender As Object, e As EventArgs) Handles TSButonNalozi.Click, ButtonNalJob2.Click
NaloziJob()
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
End Sub
End Class

658
FormIzracunMeasure.Designer.vb generated Normal file
View File

@ -0,0 +1,658 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FormIzracunMeasure
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormIzracunMeasure))
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.TextBox7 = New System.Windows.Forms.TextBox()
Me.TextBox5 = New System.Windows.Forms.TextBox()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.TextBox9 = New System.Windows.Forms.TextBox()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.TextBox8 = New System.Windows.Forms.TextBox()
Me.TextBox6 = New System.Windows.Forms.TextBox()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label13 = New System.Windows.Forms.Label()
Me.TextBox10 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.MyApplicationBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
Me.LabelIzrHz = New System.Windows.Forms.Label()
Me.LabelIzrDs = New System.Windows.Forms.Label()
Me.LabelIzrV = New System.Windows.Forms.Label()
Me.LabelIzrDhVis = New System.Windows.Forms.Label()
Me.LabelIzrDh = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label15 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
Me.Label18 = New System.Windows.Forms.Label()
Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.TextBox11 = New System.Windows.Forms.TextBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout()
CType(Me.MyApplicationBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TableLayoutPanel2.SuspendLayout()
Me.TableLayoutPanel3.SuspendLayout()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.ColumnCount = 4
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 15.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 35.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 15.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 35.0!))
Me.TableLayoutPanel1.Controls.Add(Me.Label9, 1, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Label10, 3, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Label7, 0, 5)
Me.TableLayoutPanel1.Controls.Add(Me.TextBox7, 1, 5)
Me.TableLayoutPanel1.Controls.Add(Me.TextBox5, 1, 4)
Me.TableLayoutPanel1.Controls.Add(Me.TextBox3, 1, 3)
Me.TableLayoutPanel1.Controls.Add(Me.TextBox1, 1, 2)
Me.TableLayoutPanel1.Controls.Add(Me.Label5, 0, 4)
Me.TableLayoutPanel1.Controls.Add(Me.Label3, 0, 3)
Me.TableLayoutPanel1.Controls.Add(Me.Label1, 0, 2)
Me.TableLayoutPanel1.Controls.Add(Me.TextBox9, 3, 7)
Me.TableLayoutPanel1.Controls.Add(Me.ComboBox1, 3, 6)
Me.TableLayoutPanel1.Controls.Add(Me.TextBox8, 3, 5)
Me.TableLayoutPanel1.Controls.Add(Me.TextBox6, 3, 4)
Me.TableLayoutPanel1.Controls.Add(Me.TextBox4, 3, 3)
Me.TableLayoutPanel1.Controls.Add(Me.TextBox2, 3, 2)
Me.TableLayoutPanel1.Controls.Add(Me.Label11, 2, 7)
Me.TableLayoutPanel1.Controls.Add(Me.Label12, 2, 6)
Me.TableLayoutPanel1.Controls.Add(Me.Label8, 2, 5)
Me.TableLayoutPanel1.Controls.Add(Me.Label6, 2, 4)
Me.TableLayoutPanel1.Controls.Add(Me.Label4, 2, 3)
Me.TableLayoutPanel1.Controls.Add(Me.Label2, 2, 2)
Me.TableLayoutPanel1.Controls.Add(Me.Label13, 2, 1)
Me.TableLayoutPanel1.Controls.Add(Me.TextBox10, 3, 1)
Me.TableLayoutPanel1.Controls.Add(Me.Button1, 3, 8)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(12, 12)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 9
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 40.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(437, 245)
Me.TableLayoutPanel1.TabIndex = 0
'
'Label9
'
Me.Label9.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(68, 14)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(146, 16)
Me.Label9.TabIndex = 16
Me.Label9.Text = "Stojišče"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label10
'
Me.Label10.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(285, 14)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(149, 16)
Me.Label10.TabIndex = 17
Me.Label10.Text = "Merjena Točka"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label7
'
Me.Label7.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(19, 136)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(43, 13)
Me.Label7.TabIndex = 12
Me.Label7.Text = "H (inst.)"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'TextBox7
'
Me.TextBox7.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.TextBox7.Location = New System.Drawing.Point(68, 133)
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Size = New System.Drawing.Size(60, 20)
Me.TextBox7.TabIndex = 13
Me.TextBox7.Text = "0.000"
'
'TextBox5
'
Me.TextBox5.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.TextBox5.Location = New System.Drawing.Point(68, 108)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Size = New System.Drawing.Size(80, 20)
Me.TextBox5.TabIndex = 9
'
'TextBox3
'
Me.TextBox3.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.TextBox3.Location = New System.Drawing.Point(68, 83)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(99, 20)
Me.TextBox3.TabIndex = 5
'
'TextBox1
'
Me.TextBox1.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.TextBox1.Location = New System.Drawing.Point(68, 58)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(99, 20)
Me.TextBox1.TabIndex = 1
'
'Label5
'
Me.Label5.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(47, 111)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(15, 13)
Me.Label5.TabIndex = 8
Me.Label5.Text = "H"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label3
'
Me.Label3.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(47, 86)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(15, 13)
Me.Label3.TabIndex = 4
Me.Label3.Text = "N"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label1
'
Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(48, 61)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(14, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "E"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'TextBox9
'
Me.TextBox9.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.TextBox9.Enabled = False
Me.TextBox9.Location = New System.Drawing.Point(285, 183)
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.Size = New System.Drawing.Size(60, 20)
Me.TextBox9.TabIndex = 19
'
'ComboBox1
'
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Items.AddRange(New Object() {"Red Laser", "Leica Circ. Prism", "Leica Mini Prism", "Vnos konstante..."})
Me.ComboBox1.Location = New System.Drawing.Point(285, 158)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(149, 21)
Me.ComboBox1.TabIndex = 21
'
'TextBox8
'
Me.TextBox8.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.TextBox8.Location = New System.Drawing.Point(285, 133)
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Size = New System.Drawing.Size(60, 20)
Me.TextBox8.TabIndex = 15
Me.TextBox8.Text = "0.000"
'
'TextBox6
'
Me.TextBox6.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.TextBox6.Location = New System.Drawing.Point(285, 108)
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Size = New System.Drawing.Size(80, 20)
Me.TextBox6.TabIndex = 11
'
'TextBox4
'
Me.TextBox4.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.TextBox4.Location = New System.Drawing.Point(285, 83)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(99, 20)
Me.TextBox4.TabIndex = 7
'
'TextBox2
'
Me.TextBox2.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.TextBox2.Location = New System.Drawing.Point(285, 58)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(99, 20)
Me.TextBox2.TabIndex = 3
'
'Label11
'
Me.Label11.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label11.AutoSize = True
Me.Label11.Enabled = False
Me.Label11.Location = New System.Drawing.Point(230, 186)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(49, 13)
Me.Label11.TabIndex = 18
Me.Label11.Text = "Pr. cons."
Me.Label11.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label12
'
Me.Label12.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(222, 161)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(57, 13)
Me.Label12.TabIndex = 20
Me.Label12.Text = "Prizma/RL"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label8
'
Me.Label8.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(238, 136)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(41, 13)
Me.Label8.TabIndex = 14
Me.Label8.Text = "H (refl.)"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label6
'
Me.Label6.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(264, 111)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(15, 13)
Me.Label6.TabIndex = 10
Me.Label6.Text = "H"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label4
'
Me.Label4.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(264, 86)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(15, 13)
Me.Label4.TabIndex = 6
Me.Label4.Text = "N"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label2
'
Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(265, 61)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(14, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "E"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label13
'
Me.Label13.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(237, 36)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(42, 13)
Me.Label13.TabIndex = 22
Me.Label13.Text = "Ime/Št."
Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'TextBox10
'
Me.TextBox10.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.TextBox10.Location = New System.Drawing.Point(285, 33)
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Size = New System.Drawing.Size(100, 20)
Me.TextBox10.TabIndex = 23
'
'Button1
'
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.Button1.Image = Global.TPS1100_Convert.My.Resources.Resources.digital_24
Me.Button1.Location = New System.Drawing.Point(285, 208)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(149, 34)
Me.Button1.TabIndex = 24
Me.Button1.Text = "Izračunaj"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
Me.Button1.UseVisualStyleBackColor = True
'
'MyApplicationBindingSource
'
Me.MyApplicationBindingSource.DataSource = GetType(TPS1100_Convert.My.MyApplication)
'
'TableLayoutPanel2
'
Me.TableLayoutPanel2.ColumnCount = 5
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel2.Controls.Add(Me.LabelIzrHz, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.LabelIzrDs, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.LabelIzrV, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.LabelIzrDhVis, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.LabelIzrDh, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.Label14, 0, 0)
Me.TableLayoutPanel2.Controls.Add(Me.Label15, 1, 0)
Me.TableLayoutPanel2.Controls.Add(Me.Label16, 2, 0)
Me.TableLayoutPanel2.Controls.Add(Me.Label17, 3, 0)
Me.TableLayoutPanel2.Controls.Add(Me.Label18, 4, 0)
Me.TableLayoutPanel2.Location = New System.Drawing.Point(12, 263)
Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
Me.TableLayoutPanel2.RowCount = 2
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel2.Size = New System.Drawing.Size(591, 50)
Me.TableLayoutPanel2.TabIndex = 1
'
'LabelIzrHz
'
Me.LabelIzrHz.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzrHz.AutoSize = True
Me.LabelIzrHz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.LabelIzrHz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelIzrHz.Location = New System.Drawing.Point(3, 28)
Me.LabelIzrHz.Name = "LabelIzrHz"
Me.LabelIzrHz.Size = New System.Drawing.Size(112, 18)
Me.LabelIzrHz.TabIndex = 26
Me.LabelIzrHz.Text = "LabelIzrHz"
Me.LabelIzrHz.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'LabelIzrDs
'
Me.LabelIzrDs.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzrDs.AutoSize = True
Me.LabelIzrDs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.LabelIzrDs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelIzrDs.Location = New System.Drawing.Point(239, 28)
Me.LabelIzrDs.Name = "LabelIzrDs"
Me.LabelIzrDs.Size = New System.Drawing.Size(112, 18)
Me.LabelIzrDs.TabIndex = 25
Me.LabelIzrDs.Text = "LabelIzrDs"
Me.LabelIzrDs.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'LabelIzrV
'
Me.LabelIzrV.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzrV.AutoSize = True
Me.LabelIzrV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.LabelIzrV.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelIzrV.Location = New System.Drawing.Point(121, 28)
Me.LabelIzrV.Name = "LabelIzrV"
Me.LabelIzrV.Size = New System.Drawing.Size(112, 18)
Me.LabelIzrV.TabIndex = 24
Me.LabelIzrV.Text = "LabelIzrV"
Me.LabelIzrV.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'LabelIzrDhVis
'
Me.LabelIzrDhVis.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzrDhVis.AutoSize = True
Me.LabelIzrDhVis.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.LabelIzrDhVis.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelIzrDhVis.Location = New System.Drawing.Point(475, 28)
Me.LabelIzrDhVis.Name = "LabelIzrDhVis"
Me.LabelIzrDhVis.Size = New System.Drawing.Size(113, 18)
Me.LabelIzrDhVis.TabIndex = 23
Me.LabelIzrDhVis.Text = "LabelIzrDhVis"
Me.LabelIzrDhVis.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'LabelIzrDh
'
Me.LabelIzrDh.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzrDh.AutoSize = True
Me.LabelIzrDh.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.LabelIzrDh.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelIzrDh.Location = New System.Drawing.Point(357, 28)
Me.LabelIzrDh.Name = "LabelIzrDh"
Me.LabelIzrDh.Size = New System.Drawing.Size(112, 18)
Me.LabelIzrDh.TabIndex = 22
Me.LabelIzrDh.Text = "LabelIzrDh"
Me.LabelIzrDh.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label14
'
Me.Label14.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label14.AutoSize = True
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(3, 9)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(112, 16)
Me.Label14.TabIndex = 17
Me.Label14.Text = "Hz"
Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label15
'
Me.Label15.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label15.AutoSize = True
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label15.Location = New System.Drawing.Point(121, 9)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(112, 16)
Me.Label15.TabIndex = 18
Me.Label15.Text = "V"
Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label16
'
Me.Label16.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label16.AutoSize = True
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label16.Location = New System.Drawing.Point(239, 9)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(112, 16)
Me.Label16.TabIndex = 19
Me.Label16.Text = "D (poš.)"
Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label17
'
Me.Label17.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label17.AutoSize = True
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label17.Location = New System.Drawing.Point(357, 9)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(112, 16)
Me.Label17.TabIndex = 20
Me.Label17.Text = "D (hor.)"
Me.Label17.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label18
'
Me.Label18.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label18.AutoSize = True
Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label18.Location = New System.Drawing.Point(475, 9)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(113, 16)
Me.Label18.TabIndex = 21
Me.Label18.Text = "dH"
Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'TableLayoutPanel3
'
Me.TableLayoutPanel3.ColumnCount = 2
Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel3.Controls.Add(Me.Button2, 0, 0)
Me.TableLayoutPanel3.Controls.Add(Me.Button3, 1, 0)
Me.TableLayoutPanel3.Location = New System.Drawing.Point(12, 347)
Me.TableLayoutPanel3.Name = "TableLayoutPanel3"
Me.TableLayoutPanel3.RowCount = 1
Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel3.Size = New System.Drawing.Size(590, 40)
Me.TableLayoutPanel3.TabIndex = 2
'
'Button2
'
Me.Button2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_advance2_24
Me.Button2.Location = New System.Drawing.Point(3, 3)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(102, 34)
Me.Button2.TabIndex = 0
Me.Button2.Text = "Vstavi"
Me.Button2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Button3.Location = New System.Drawing.Point(512, 4)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 32)
Me.Button3.TabIndex = 1
Me.Button3.Text = "Prekliči"
Me.Button3.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
Me.Button3.UseVisualStyleBackColor = True
'
'TextBox11
'
Me.TextBox11.Font = New System.Drawing.Font("Courier New", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox11.Location = New System.Drawing.Point(47, 320)
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Size = New System.Drawing.Size(556, 21)
Me.TextBox11.TabIndex = 3
'
'Label19
'
Me.Label19.Location = New System.Drawing.Point(13, 320)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(28, 21)
Me.Label19.TabIndex = 4
Me.Label19.Text = "GSI"
Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'FormIzracunMeasure
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(614, 396)
Me.Controls.Add(Me.Label19)
Me.Controls.Add(Me.TextBox11)
Me.Controls.Add(Me.TableLayoutPanel3)
Me.Controls.Add(Me.TableLayoutPanel2)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.Name = "FormIzracunMeasure"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Izračun Meritve"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel1.PerformLayout()
CType(Me.MyApplicationBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.TableLayoutPanel2.ResumeLayout(False)
Me.TableLayoutPanel2.PerformLayout()
Me.TableLayoutPanel3.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
Friend WithEvents Label8 As Label
Friend WithEvents TextBox8 As TextBox
Friend WithEvents Label7 As Label
Friend WithEvents TextBox7 As TextBox
Friend WithEvents Label6 As Label
Friend WithEvents TextBox6 As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents TextBox5 As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents TextBox4 As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents TextBox3 As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents TextBox2 As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents TextBox1 As TextBox
Friend WithEvents Label9 As Label
Friend WithEvents Label10 As Label
Friend WithEvents Label11 As Label
Friend WithEvents Label12 As Label
Friend WithEvents TextBox9 As TextBox
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents MyApplicationBindingSource As BindingSource
Friend WithEvents Label13 As Label
Friend WithEvents TextBox10 As TextBox
Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
Friend WithEvents Label14 As Label
Friend WithEvents Label15 As Label
Friend WithEvents Label16 As Label
Friend WithEvents Label17 As Label
Friend WithEvents Label18 As Label
Friend WithEvents LabelIzrHz As Label
Friend WithEvents LabelIzrDs As Label
Friend WithEvents LabelIzrV As Label
Friend WithEvents LabelIzrDhVis As Label
Friend WithEvents LabelIzrDh As Label
Friend WithEvents Button1 As Button
Friend WithEvents TableLayoutPanel3 As TableLayoutPanel
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button
Friend WithEvents TextBox11 As TextBox
Friend WithEvents Label19 As Label
End Class

3068
FormIzracunMeasure.resx Normal file
View File

File diff suppressed because it is too large Load Diff

29
FormIzracunMeasure.vb Normal file
View File

@ -0,0 +1,29 @@
Public Class FormIzracunMeasure
Private Sub FormIzracunMeasure_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ComboBox1.SelectedIndex = 0
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim cb = ComboBox1.Text
Select Case cb
Case "Red Laser"
TextBox9.Text = "+0.0344"
TextBox9.Enabled = False
Label11.Enabled = False
Case "Leica Circ. Prism"
TextBox9.Text = "+0.0000"
TextBox9.Enabled = False
Label11.Enabled = False
Case "Leica Mini Prism"
TextBox9.Text = "+0.0175"
TextBox9.Enabled = False
Label11.Enabled = False
Case "Vnos konstante..."
TextBox9.Text = "+0.0000"
TextBox9.Enabled = True
Label11.Enabled = True
Case Else
End Select
End Sub
End Class

2
My Project/Application.Designer.vb generated
View File

@ -27,7 +27,7 @@ Namespace My
Me.IsSingleInstance = false
Me.EnableVisualStyles = false
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _

2
My Project/Application.myapp
View File

@ -3,7 +3,7 @@
<MySubMain>true</MySubMain>
<MainForm>Form1</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>1</ShutdownMode>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>false</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<MinimumSplashScreenDisplayTime>0</MinimumSplashScreenDisplayTime>

4
My Project/AssemblyInfo.vb
View File

@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.8.0.0")>
<Assembly: AssemblyFileVersion("2.8.0.0")>
<Assembly: AssemblyVersion("2.8.0.1")>
<Assembly: AssemblyFileVersion("2.8.0.1")>
<Assembly: NeutralResourcesLanguage("sl-SI")>

BIN
My Project/Icons/calculator.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 12 KiB

BIN
My Project/Icons/digital.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 6.4 KiB

BIN
My Project/Icons/digital_24.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 652 B

BIN
My Project/Icons/digital_32.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 713 B

BIN
My Project/Icons/icons8-advance-48.png
View File

Binary file not shown.
Side by Side Swipe Overlay

Before

Width:  |  Height:  |  Size: 671 B

After

Width:  |  Height:  |  Size: 953 B

BIN
My Project/Icons/icons8-advance2-24.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 514 B

BIN
My Project/Icons/icons8-advance2-48.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.0 KiB

60
My Project/Resources.Designer.vb generated
View File

@ -411,6 +411,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property calculator() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("calculator", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -421,6 +431,36 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property digital() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("digital", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property digital_24() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("digital_24", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property digital_32() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("digital_32", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -471,6 +511,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_advance2_24() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-advance2-24", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -921,6 +971,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_sd_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-sd-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>

42
My Project/Resources.resx
View File

@ -154,8 +154,8 @@
<data name="47" xml:space="preserve">
<value>Information 6</value>
</data>
<data name="icons8-file-GSI-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-file-GSI-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="ModernXP_41_Settings_icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\ModernXP-41-Settings-icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="73" xml:space="preserve">
<value>Remark 3</value>
@ -184,6 +184,9 @@
<data name="icons8-folder-tree-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-folder-tree-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="calculator" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\calculator.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-file-TXT-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-file-TXT-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -211,15 +214,24 @@
<data name="icons8_ok_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-ok-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-file-GSI-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-file-GSI-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="83" xml:space="preserve">
<value>Elevation</value>
</data>
<data name="icons8-sd-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-sd-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Circled_Right_2_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\Circled-Right-2-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-caps-lock-on-501" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-caps-lock-on-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-edit-text-file-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-edit-text-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="51" xml:space="preserve">
<value>PPM/mm</value>
</data>
@ -238,6 +250,9 @@
<data name="85" xml:space="preserve">
<value>St. Northing</value>
</data>
<data name="digital_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\digital_24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-checklist-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-checklist-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -247,6 +262,9 @@
<data name="icons8_information_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-information-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="digital" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\digital.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="43" xml:space="preserve">
<value>Information 2</value>
</data>
@ -256,9 +274,6 @@
<data name="icons8_clear_symbol_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-clear-symbol-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="81" xml:space="preserve">
<value>Easting</value>
</data>
<data name="icons8-support-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-support-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -313,6 +328,9 @@
<data name="icons8-error-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-error-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="digital_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\digital_32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="58" xml:space="preserve">
<value>Prism constant</value>
</data>
@ -352,8 +370,8 @@
<data name="README" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\README.md;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
</data>
<data name="ModernXP_41_Settings_icon" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\ModernXP-41-Settings-icon.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="81" xml:space="preserve">
<value>Easting</value>
</data>
<data name="icons8_connection_status_on_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-connection-status-on-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -376,6 +394,9 @@
<data name="46" xml:space="preserve">
<value>Information 5</value>
</data>
<data name="icons8-stationery-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-stationery-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="google-sheets" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\google-sheets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -418,10 +439,7 @@
<data name="12" xml:space="preserve">
<value>Serial number</value>
</data>
<data name="icons8-edit-text-file-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-edit-text-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-stationery-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-stationery-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="icons8-advance2-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-advance2-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

21
Podatki/CONVERT/GPS-GSI.FRT Normal file
View File

@ -0,0 +1,21 @@
@t:FRT
@i:GPS500
@v:1.00
@a:FormatManager generated
@c:Leica Geosystems AG
@d:ponedeljek, maj 26, 2008
@o:Format Manager 1.0
@l:GPS500_Standard
%NGPS-GSI
#WS
#LM
#TC
#PB
&W1.000000000000
&L1000.000000000000
&T1.000000000000
&P1.000000000000
@Dd1
@Df1.00
@Ds-
$1714000"*11%04.0f+%016.16s 81...0%#+017.0f 82...0%#+017.0f 83...0%#+017.0f "004001311011001011208201081208201082208201083;

21
Podatki/CONVERT/GPS-KOO.FRT Normal file
View File

@ -0,0 +1,21 @@
@t:FRT
@i:GPS500
@v:1.00
@a:Gregor Bilban
@c:Geoservis, d.o.o.
@d:sreda, september 28, 2005
@o:www.geoservis.si
@l:GPS500_Standard
%NGPS-KOO
#WG
#LM
#TC
#PB
&W1.000000000000
&L1.000000000000
&T1.000000000000
&P1.000000000000
@Dd1
@Df1.00
@Ds----
$1714000"%-1.0s %#-1.3f %#-1.3f %#-1.3f %-1.0s %-1.0s"011001011208201081208201082208201083011001041011001700;

26
Podatki/CONVERT/POROCILO.FRT Normal file
View File

@ -0,0 +1,26 @@
@t:FRT
@i:GPS500
@v:1.00
@a:Boris B.
@c:2B
@d:petek, april 25, 2014
@o:Podatki GPS500
@l:GPS500_Standard
%NPOROCILO
#WS
#LM
#TC
#PB
&W1.000000000000
&L1.000000000000
&T1.000000000000
&P1.000000000000
@Dd1
@Df1.00
@Ds--------
$1714000"%-1.0s %#-1.3f %#-1.3f %#-1.3f %-1.0f %-1.0f %#-1.4f E %-1.0f %-1.0f %#-1.4f N %#-1.3f %#-1.3f %-1.0s "011001011208011081208011082208011083002001708001001710010001712002001709001001711010001713208011701208011703011001700;
$1214000"ID Easting Northing Orth. h Lat (°') Lon (°') Ellip. h Geoid sep. Class"
$1722000"SdE: %#-1.3f SdN: %#-1.3f SdH: %#-1.3f"210201806210201807208201415;
$1728000"HDOP: %#-1.3f VDOP: %#-1.3f PDOP: %#-1.3f GDOP: %#-1.3f"008001431008001432008001430008001429;
$1727000"Datum/Ura: %02.0f.%02.0f.%04.0f/%2.0f:%02.0f:%#02.0f "003001436003005437003001439003001442003001441008001440;
$1734000"Koo. sistem: %-1.0sGeoid: %1.0s"011001443011001496;

BIN
Podatki/GPS/GEOID/SLO1.gem Normal file
View File

Binary file not shown.

BIN
Podatki/GPS/GEOID/SLOG2000.GEM Normal file
View File

Binary file not shown.

BIN
Podatki/GPS/GEOID/SLOV2016.GEM Normal file
View File

Binary file not shown.

184
Podatki/TPS/CONF/1102_BB.PAR Normal file
View File

@ -0,0 +1,184 @@
;*********************************************************
;WARNING!
;
;Do not edit this Application Configuration file manually
;(with Notepad, WordPad, etc.)
;Doing so may produce unexpected and undesirable results.
;*********************************************************
[Header]
DefFile=TPS1_220.def
DefID=D09.20215072401
TextFile=Tps1d220.men
TextID=T21080008522500
Release=2.21.00
ModifyDate=13.07.2017
ModifyTime=19:43:24
Author=TPS1100 Firmware
Comment=No comment
Theo=621317
ParamNum=145
RecMNum=6
MDlgLNum=1
ParFile=1102_BB.PAR
[Parameter]
CID25000=1@1@1@3@3
CID25001=1@1@1@3@0
CID25002=1@1@1@3@1
CID25003=1@0@1@3@1
CID25004=1@1@1@3@0
CID25005=0@1@1@3@0
CID25006=1@1@1@4@22222
CID25007=1@1@1@6@1.276814e+05
CID25008=1@1@1@6@5.663500e+05
CID25009=1@1@1@6@2.515385e+02
CID25010=1@1@1@6@0.000000e+00
CID25011=0@1@1@4@22222
CID25012=0@1@1@4@2054
CID25013=0@1@1@3@0
CID25014=0@1@1@3@0
CID25015=0@1@1@3@0
CID25016=1@1@1@3@3
CID25017=1@1@1@4@2055
CID25018=0@1@1@3@0
CID25019=0@1@1@3@0
CID25020=0@1@1@3@0
CID25021=0@1@1@3@0
CID25022=1@1@1@3@0
CID25023=1@1@1@3@1
CID25024=1@1@1@3@0
CID25025=1@1@1@3@0
CID25026=0@1@1@3@0
CID25027=0@1@1@4@621317
CID25028=0@1@1@4@TCRA1102plus
CID25029=1@1@1@4@ENGLISH
CID25030=1@1@1@3@0
CID25031=1@1@1@3@1
CID25032=1@1@1@3@0
CID25033=1@1@1@3@0
CID25034=1@1@1@3@0
CID25035=1@1@1@3@0
CID25036=1@0@1@3@1
CID25037=1@0@1@3@1
CID25038=1@1@1@1@1.570796e+00
CID25039=1@1@1@4@A:\GSI\1111.GSI
CID25040=1@1@1@3@3
CID25041=1@1@1@3@2
CID25042=1@1@1@3@0
CID25043=1@1@1@3@1
CID25044=1@1@1@0@15
CID25045=1@1@1@3@1
CID25046=1@1@1@4@1
CID25047=1@1@1@6@0.000000e+00
CID25048=0@0@1@4@90
CID25049=0@0@1@4@Measure
CID25050=0@0@0@4@
CID25051=0@0@0@4@
CID25052=0@0@0@4@
CID25053=0@0@0@4@
CID25054=0@0@0@4@
CID25055=0@0@0@4@
CID25056=0@0@0@4@
CID25057=0@0@0@4@
CID25058=0@0@1@4@90
CID25059=1@1@0@4@
CID25060=0@1@0@4@
CID25061=1@1@0@4@
CID25062=1@1@0@4@
CID25063=1@1@0@4@
CID25064=1@1@0@4@
CID25065=1@1@0@4@
CID25066=1@0@0@4@
CID25067=1@0@0@4@
CID25068=1@0@0@4@
CID25069=0@0@0@4@
CID25070=1@0@1@6@0.000000e+00
CID25071=1@0@1@6@0.000000e+00
CID25072=1@0@1@6@0.000000e+00
CID25073=1@1@1@3@1
CID25074=1@1@1@3@0
CID25075=1@1@1@8@19:43:25
CID25076=1@1@1@7@13.07.2017
CID25077=1@1@1@3@0
CID25078=1@1@1@3@2
CID25079=1@1@1@3@0
CID25080=1@1@1@0@300
CID25081=0@1@1@3@1
CID25082=1@1@1@3@1
CID25083=0@1@1@3@2
CID25084=0@1@1@3@1
CID25085=1@1@1@3@0
CID25086=1@1@1@3@0
CID25087=1@1@1@3@0
CID25088=1@1@1@4@2055
CID25089=0@1@0@6@5.663477e+05
CID25090=0@1@0@6@1.276808e+05
CID25091=0@1@0@6@2.520503e+02
CID25092=1@1@0@5@4.442087e+00
CID25093=0@1@0@5@1.361366e+00
CID25094=0@1@0@6@2.461348e+00
CID25095=0@1@0@6@2.407567e+00
CID25096=0@1@0@6@5.117905e-01
CID25097=0@1@1@4@Leica circ.prism
CID25098=0@1@1@0@0
CID25099=0@1@1@4@-0130+034
CID25100=0@0@0@4@0001+000
CID25101=0@1@1@1@-1.304666e+02
CID25102=0@1@1@1@8.729142e+00
CID25103=0@1@1@1@-1.391957e+02
CID25104=1@1@1@4@A:\GSI\1111.GSI
CID25105=1@1@1@4@A:\GSI\DEV_1-13.GSI
CID25106=1@1@1@4@A:\GSI\DEV_1-13.GSI
CID25107=1@1@1@4@A:\CODE\BORIS
CID25108=1@1@1@4@A:\CODE\BORIS
CID25109=0@1@0@3@0
CID25110=1@1@1@3@3
CID25111=0@1@1@3@0
CID25112=0@1@1@3@0
CID25113=1@1@1@4@MPR44
CID25114=1@1@0@4@
CID25115=1@1@0@4@
CID25116=1@1@1@1@4.400000e-03
CID25117=1@1@0@1@0.000000e+00
CID25118=1@1@0@1@0.000000e+00
CID25119=1@1@1@3@1
CID25120=1@1@1@3@0
CID25121=1@1@1@4@P08
CID25122=1@1@1@3@1
CID25123=1@1@0@0@0
CID25124=1@1@1@0@0
CID25125=1@1@1@3@0
CID25126=1@1@1@3@1
CID25127=1@1@1@3@1
CID25128=1@1@1@3@1
CID25129=1@1@1@3@2
CID25130=1@1@1@3@0
CID25131=1@1@1@0@0
CID25132=1@1@1@4@TXT
CID25133=1@1@1@4@GSI
CID25134=0@1@1@3@3
CID25135=1@1@1@3@1
CID25136=1@1@1@3@1
CID25137=1@1@1@3@1
CID25138=1@1@1@3@0
CID25139=1@1@1@3@0
CID25140=1@0@1@3@1
CID25141=1@1@1@1@5.235988e-01
CID25142=1@1@1@1@2.617994e-01
CID25143=1@1@1@3@1
CID25144=1@1@1@3@0
[RecMask]
CID7000=Station 16@1@1@6@6000@6026@6027@6028@6030@6029
CID7001=Polar (16)@1@1@12@6000@6005@6006@6007@6008@6030@6012@6009@6023@6024@6025@6004
CID7002=Cartesian (8)@0@1@6@6000@6023@6024@6025@6030@6012
CID7003=Polar+Cartes.(8)@0@1@8@6000@6005@6006@6007@6023@6024@6025@6010
CID7004=COSGEO@1@1@10@6000@6014@6015@6016@6023@6024@6025@6017@6030@6012
CID7005=Cartesian(8)CODE@0@1@7@6000@6014@6023@6024@6025@6030@6012
[MeasDlgList]
CID19000_0=SURVEY@1@1@10@25017@25047@25092@25093@25094@25095@25096@25089@25090@25091
CID19000_1=CODE@1@1@10@25017@25047@25059@25061@25062@25048@25049@25089@25090@25091
CID19000_2=OFFSET@1@1@10@25017@25047@25070@25071@25072@25073@25109@25089@25090@25091

BIN
Podatki/TPS1100.crf
View File

Binary file not shown.

BIN
Podatki/formatdrive.zip Normal file
View File

Binary file not shown.

20
Podatki/formatdrive/FormatDrive/FormatDrive.sln Normal file
View File

@ -0,0 +1,20 @@

Microsoft Visual Studio Solution File, Format Version 11.00
# Visual Studio 2010
Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "FormatDrive", "FormatDrive\FormatDrive.vbproj", "{E2CDA2A9-9F42-4074-9DD4-840D974C90B9}"
EndProject
Global
GlobalSection(SolutionConfigurationPlatforms) = preSolution
Debug|x86 = Debug|x86
Release|x86 = Release|x86
EndGlobalSection
GlobalSection(ProjectConfigurationPlatforms) = postSolution
{E2CDA2A9-9F42-4074-9DD4-840D974C90B9}.Debug|x86.ActiveCfg = Debug|x86
{E2CDA2A9-9F42-4074-9DD4-840D974C90B9}.Debug|x86.Build.0 = Debug|x86
{E2CDA2A9-9F42-4074-9DD4-840D974C90B9}.Release|x86.ActiveCfg = Release|x86
{E2CDA2A9-9F42-4074-9DD4-840D974C90B9}.Release|x86.Build.0 = Release|x86
EndGlobalSection
GlobalSection(SolutionProperties) = preSolution
HideSolutionNode = FALSE
EndGlobalSection
EndGlobal

6
Podatki/formatdrive/FormatDrive/FormatDrive/App.config Normal file
View File

@ -0,0 +1,6 @@
<?xml version="1.0" encoding="utf-8"?>
<configuration>
<startup>
<supportedRuntime version="v4.0" sku=".NETFramework,Version=v4.8"/>
</startup>
</configuration>

72
Podatki/formatdrive/FormatDrive/FormatDrive/Form1.Designer.vb generated Normal file
View File

@ -0,0 +1,72 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class Form1
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(16, 13)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(230, 30)
Me.Label1.TabIndex = 5
Me.Label1.Text = "Select the drive you want to FORMAT and click the FORMAT button"
'
'ComboBox1
'
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(71, 56)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(121, 21)
Me.ComboBox1.TabIndex = 4
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(90, 83)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(75, 23)
Me.Button1.TabIndex = 3
Me.Button1.Text = "Format"
Me.Button1.UseVisualStyleBackColor = True
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(265, 124)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.Button1)
Me.Name = "Form1"
Me.Text = "Form1"
Me.ResumeLayout(False)
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents ComboBox1 As System.Windows.Forms.ComboBox
Friend WithEvents Button1 As System.Windows.Forms.Button
End Class

120
Podatki/formatdrive/FormatDrive/FormatDrive/Form1.resx Normal file
View File

@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

31
Podatki/formatdrive/FormatDrive/FormatDrive/Form1.vb Normal file
View File

@ -0,0 +1,31 @@
Public Class Form1
Enum FormatType
Quick = 0
Normal = 1
End Enum
Enum Capacity
DefaultCapcity = 0
End Enum
Declare Function SHFormatDrive Lib "shell32" (ByVal hwnd As Int32, ByVal sDriveToFormat As String, ByVal s As Capacity, ByVal formattype As FormatType) As Int32
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'Show the Format dialog
SHFormatDrive(Me.Handle.ToInt32, ComboBox1.Text, CType(2, Capacity), FormatType.Normal)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'check if the current user is a member of the administrators
If My.User.IsInRole("administrators") = True Then
For Each drive In IO.DriveInfo.GetDrives
'get all removable and fixed drives
If drive.DriveType = IO.DriveType.Removable Or drive.DriveType = IO.DriveType.Fixed Then
'add all found drives into the combobox
ComboBox1.Items.Add(drive)
End If
Next
Else
MsgBox("You need administrator access to format a drive", MsgBoxStyle.Critical)
End
End If
End Sub
End Class

132
Podatki/formatdrive/FormatDrive/FormatDrive/FormatDrive.vbproj Normal file
View File

@ -0,0 +1,132 @@
<?xml version="1.0" encoding="utf-8"?>
<Project ToolsVersion="12.0" DefaultTargets="Build" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
<Platform Condition=" '$(Platform)' == '' ">x86</Platform>
<ProductVersion>
</ProductVersion>
<SchemaVersion>2.0</SchemaVersion>
<ProjectGuid>{E2CDA2A9-9F42-4074-9DD4-840D974C90B9}</ProjectGuid>
<OutputType>WinExe</OutputType>
<StartupObject>FormatDrive.My.MyApplication</StartupObject>
<RootNamespace>FormatDrive</RootNamespace>
<AssemblyName>FormatDrive</AssemblyName>
<FileAlignment>512</FileAlignment>
<MyType>WindowsForms</MyType>
<TargetFrameworkVersion>v4.8</TargetFrameworkVersion>
<TargetFrameworkProfile>
</TargetFrameworkProfile>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|x86' ">
<PlatformTarget>x86</PlatformTarget>
<DebugSymbols>true</DebugSymbols>
<DebugType>full</DebugType>
<DefineDebug>true</DefineDebug>
<DefineTrace>true</DefineTrace>
<OutputPath>bin\Debug\</OutputPath>
<DocumentationFile>FormatDrive.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|x86' ">
<PlatformTarget>x86</PlatformTarget>
<DebugType>pdbonly</DebugType>
<DefineDebug>false</DefineDebug>
<DefineTrace>true</DefineTrace>
<Optimize>true</Optimize>
<OutputPath>bin\Release\</OutputPath>
<DocumentationFile>FormatDrive.xml</DocumentationFile>
<NoWarn>42016,41999,42017,42018,42019,42032,42036,42020,42021,42022</NoWarn>
<Prefer32Bit>false</Prefer32Bit>
</PropertyGroup>
<PropertyGroup>
<OptionExplicit>On</OptionExplicit>
</PropertyGroup>
<PropertyGroup>
<OptionCompare>Binary</OptionCompare>
</PropertyGroup>
<PropertyGroup>
<OptionStrict>Off</OptionStrict>
</PropertyGroup>
<PropertyGroup>
<OptionInfer>On</OptionInfer>
</PropertyGroup>
<ItemGroup>
<Reference Include="System" />
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
<Reference Include="System.Xml.Linq" />
<Reference Include="System.Data.DataSetExtensions" />
</ItemGroup>
<ItemGroup>
<Import Include="Microsoft.VisualBasic" />
<Import Include="System" />
<Import Include="System.Collections" />
<Import Include="System.Collections.Generic" />
<Import Include="System.Data" />
<Import Include="System.Drawing" />
<Import Include="System.Diagnostics" />
<Import Include="System.Windows.Forms" />
<Import Include="System.Linq" />
<Import Include="System.Xml.Linq" />
</ItemGroup>
<ItemGroup>
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.Designer.vb">
<DependentUpon>Form1.vb</DependentUpon>
<SubType>Form</SubType>
</Compile>
<Compile Include="My Project\AssemblyInfo.vb" />
<Compile Include="My Project\Application.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Application.myapp</DependentUpon>
</Compile>
<Compile Include="My Project\Resources.Designer.vb">
<AutoGen>True</AutoGen>
<DesignTime>True</DesignTime>
<DependentUpon>Resources.resx</DependentUpon>
</Compile>
<Compile Include="My Project\Settings.Designer.vb">
<AutoGen>True</AutoGen>
<DependentUpon>Settings.settings</DependentUpon>
<DesignTimeSharedInput>True</DesignTimeSharedInput>
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="My Project\Resources.resx">
<Generator>VbMyResourcesResXFileCodeGenerator</Generator>
<LastGenOutput>Resources.Designer.vb</LastGenOutput>
<CustomToolNamespace>My.Resources</CustomToolNamespace>
<SubType>Designer</SubType>
</EmbeddedResource>
</ItemGroup>
<ItemGroup>
<None Include="App.config" />
<None Include="My Project\Application.myapp">
<Generator>MyApplicationCodeGenerator</Generator>
<LastGenOutput>Application.Designer.vb</LastGenOutput>
</None>
<None Include="My Project\Settings.settings">
<Generator>SettingsSingleFileGenerator</Generator>
<CustomToolNamespace>My</CustomToolNamespace>
<LastGenOutput>Settings.Designer.vb</LastGenOutput>
</None>
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />
<!-- To modify your build process, add your task inside one of the targets below and uncomment it.
Other similar extension points exist, see Microsoft.Common.targets.
<Target Name="BeforeBuild">
</Target>
<Target Name="AfterBuild">
</Target>
-->
</Project>

44
Podatki/formatdrive/FormatDrive/FormatDrive/My Project/Application.Designer.vb generated Normal file
View File

@ -0,0 +1,44 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
'NOTE: This file is auto-generated; do not modify it directly. To make changes,
' or if you encounter build errors in this file, go to the Project Designer
' (go to Project Properties or double-click the My Project node in
' Solution Explorer), and make changes on the Application tab.
'
Partial Friend Class MyApplication
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Public Sub New()
MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows)
Me.IsSingleInstance = false
Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Sub OnCreateMainForm()
Me.MainForm = Global.FormatDrive.Form1
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _
Protected Overrides Function OnInitialize(ByVal commandLineArgs As System.Collections.ObjectModel.ReadOnlyCollection(Of String)) As Boolean
Me.MinimumSplashScreenDisplayTime = 0
Return MyBase.OnInitialize(commandLineArgs)
End Function
End Class
End Namespace

11
Podatki/formatdrive/FormatDrive/FormatDrive/My Project/Application.myapp Normal file
View File

@ -0,0 +1,11 @@
<?xml version="1.0" encoding="utf-8"?>
<MyApplicationData xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<MySubMain>true</MySubMain>
<MainForm>Form1</MainForm>
<SingleInstance>false</SingleInstance>
<ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode>
<ApplicationType>0</ApplicationType>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit>
</MyApplicationData>

35
Podatki/formatdrive/FormatDrive/FormatDrive/My Project/AssemblyInfo.vb Normal file
View File

@ -0,0 +1,35 @@
Imports System
Imports System.Reflection
Imports System.Runtime.InteropServices
' General Information about an assembly is controlled through the following
' set of attributes. Change these attribute values to modify the information
' associated with an assembly.
' Review the values of the assembly attributes
<Assembly: AssemblyTitle("FormatDrive")>
<Assembly: AssemblyDescription("")>
<Assembly: AssemblyCompany("")>
<Assembly: AssemblyProduct("FormatDrive")>
<Assembly: AssemblyCopyright("Copyright © 2015")>
<Assembly: AssemblyTrademark("")>
<Assembly: ComVisible(False)>
'The following GUID is for the ID of the typelib if this project is exposed to COM
<Assembly: Guid("3e244846-2b50-4806-a47c-5429b320c2f9")>
' Version information for an assembly consists of the following four values:
'
' Major Version
' Minor Version
' Build Number
' Revision
'
' You can specify all the values or you can default the Build and Revision Numbers
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.0.0")>
<Assembly: AssemblyFileVersion("1.0.0.0")>

63
Podatki/formatdrive/FormatDrive/FormatDrive/My Project/Resources.Designer.vb generated Normal file
View File

@ -0,0 +1,63 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Imports System
Namespace My.Resources
'This class was auto-generated by the StronglyTypedResourceBuilder
'class via a tool like ResGen or Visual Studio.
'To add or remove a member, edit your .ResX file then rerun ResGen
'with the /str option, or rebuild your VS project.
'''<summary>
''' A strongly-typed resource class, for looking up localized strings, etc.
'''</summary>
<Global.System.CodeDom.Compiler.GeneratedCodeAttribute("System.Resources.Tools.StronglyTypedResourceBuilder", "17.0.0.0"), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.Microsoft.VisualBasic.HideModuleNameAttribute()> _
Friend Module Resources
Private resourceMan As Global.System.Resources.ResourceManager
Private resourceCulture As Global.System.Globalization.CultureInfo
'''<summary>
''' Returns the cached ResourceManager instance used by this class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager
Get
If Object.ReferenceEquals(resourceMan, Nothing) Then
Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("FormatDrive.Resources", GetType(Resources).Assembly)
resourceMan = temp
End If
Return resourceMan
End Get
End Property
'''<summary>
''' Overrides the current thread's CurrentUICulture property for all
''' resource lookups using this strongly typed resource class.
'''</summary>
<Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Friend Property Culture() As Global.System.Globalization.CultureInfo
Get
Return resourceCulture
End Get
Set
resourceCulture = value
End Set
End Property
End Module
End Namespace

117
Podatki/formatdrive/FormatDrive/FormatDrive/My Project/Resources.resx Normal file
View File

@ -0,0 +1,117 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

73
Podatki/formatdrive/FormatDrive/FormatDrive/My Project/Settings.Designer.vb generated Normal file
View File

@ -0,0 +1,73 @@
'------------------------------------------------------------------------------
' <auto-generated>
' This code was generated by a tool.
' Runtime Version:4.0.30319.42000
'
' Changes to this file may cause incorrect behavior and will be lost if
' the code is regenerated.
' </auto-generated>
'------------------------------------------------------------------------------
Option Strict On
Option Explicit On
Namespace My
<Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute(), _
Global.System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "17.10.0.0"), _
Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Partial Friend NotInheritable Class MySettings
Inherits Global.System.Configuration.ApplicationSettingsBase
Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings)
#Region "My.Settings Auto-Save Functionality"
#If _MyType = "WindowsForms" Then
Private Shared addedHandler As Boolean
Private Shared addedHandlerLockObject As New Object
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), Global.System.ComponentModel.EditorBrowsableAttribute(Global.System.ComponentModel.EditorBrowsableState.Advanced)> _
Private Shared Sub AutoSaveSettings(sender As Global.System.Object, e As Global.System.EventArgs)
If My.Application.SaveMySettingsOnExit Then
My.Settings.Save()
End If
End Sub
#End If
#End Region
Public Shared ReadOnly Property [Default]() As MySettings
Get
#If _MyType = "WindowsForms" Then
If Not addedHandler Then
SyncLock addedHandlerLockObject
If Not addedHandler Then
AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings
addedHandler = True
End If
End SyncLock
End If
#End If
Return defaultInstance
End Get
End Property
End Class
End Namespace
Namespace My
<Global.Microsoft.VisualBasic.HideModuleNameAttribute(), _
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
Global.System.Runtime.CompilerServices.CompilerGeneratedAttribute()> _
Friend Module MySettingsProperty
<Global.System.ComponentModel.Design.HelpKeywordAttribute("My.Settings")> _
Friend ReadOnly Property Settings() As Global.FormatDrive.My.MySettings
Get
Return Global.FormatDrive.My.MySettings.Default
End Get
End Property
End Module
End Namespace

7
Podatki/formatdrive/FormatDrive/FormatDrive/My Project/Settings.settings Normal file
View File

@ -0,0 +1,7 @@
<?xml version='1.0' encoding='utf-8'?>
<SettingsFile xmlns="http://schemas.microsoft.com/VisualStudio/2004/01/settings" CurrentProfile="(Default)" UseMySettingsClassName="true">
<Profiles>
<Profile Name="(Default)" />
</Profiles>
<Settings />
</SettingsFile>

33
SplashScreen1.Designer.vb generated
View File

@ -29,6 +29,7 @@ Partial Class SplashScreen1
Private Sub InitializeComponent()
Me.MainLayoutPanel = New System.Windows.Forms.TableLayoutPanel()
Me.DetailsLayoutPanel = New System.Windows.Forms.TableLayoutPanel()
Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
Me.Version = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Copyright = New System.Windows.Forms.Label()
@ -38,7 +39,6 @@ Partial Class SplashScreen1
Me.LinkLabel2 = New System.Windows.Forms.LinkLabel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.ApplicationTitle = New System.Windows.Forms.Label()
Me.LinkLabel3 = New System.Windows.Forms.LinkLabel()
Me.MainLayoutPanel.SuspendLayout()
Me.DetailsLayoutPanel.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
@ -90,15 +90,27 @@ Partial Class SplashScreen1
Me.DetailsLayoutPanel.Size = New System.Drawing.Size(276, 175)
Me.DetailsLayoutPanel.TabIndex = 1
'
'LinkLabel3
'
Me.LinkLabel3.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.LinkLabel3.AutoSize = True
Me.LinkLabel3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LinkLabel3.Location = New System.Drawing.Point(159, 126)
Me.LinkLabel3.Name = "LinkLabel3"
Me.LinkLabel3.Size = New System.Drawing.Size(117, 13)
Me.LinkLabel3.TabIndex = 7
Me.LinkLabel3.TabStop = True
Me.LinkLabel3.Text = "Zgodovina Razvoja"
'
'Version
'
Me.Version.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.Version.AutoSize = True
Me.Version.BackColor = System.Drawing.Color.Transparent
Me.Version.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Version.Location = New System.Drawing.Point(3, 15)
Me.Version.Font = New System.Drawing.Font("Microsoft Sans Serif", 11.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Version.Location = New System.Drawing.Point(3, 16)
Me.Version.Name = "Version"
Me.Version.Size = New System.Drawing.Size(131, 20)
Me.Version.Size = New System.Drawing.Size(140, 18)
Me.Version.TabIndex = 1
Me.Version.Text = "Version {0}.{1:00}"
'
@ -186,6 +198,7 @@ Partial Class SplashScreen1
Me.ApplicationTitle.Anchor = System.Windows.Forms.AnchorStyles.None
Me.ApplicationTitle.BackColor = System.Drawing.Color.Transparent
Me.ApplicationTitle.Font = New System.Drawing.Font("Gill Sans MT Condensed", 24.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ApplicationTitle.ForeColor = System.Drawing.Color.RoyalBlue
Me.ApplicationTitle.Location = New System.Drawing.Point(117, 24)
Me.ApplicationTitle.Name = "ApplicationTitle"
Me.ApplicationTitle.Size = New System.Drawing.Size(270, 59)
@ -193,18 +206,6 @@ Partial Class SplashScreen1
Me.ApplicationTitle.Text = "TPS1100 Convert"
Me.ApplicationTitle.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'LinkLabel3
'
Me.LinkLabel3.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.LinkLabel3.AutoSize = True
Me.LinkLabel3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LinkLabel3.Location = New System.Drawing.Point(159, 126)
Me.LinkLabel3.Name = "LinkLabel3"
Me.LinkLabel3.Size = New System.Drawing.Size(117, 13)
Me.LinkLabel3.TabIndex = 7
Me.LinkLabel3.TabStop = True
Me.LinkLabel3.Text = "Zgodovina Razvoja"
'
'SplashScreen1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)

83
TPS1100 Convert.vbproj
View File

@ -99,6 +99,7 @@
<Reference Include="System.Data" />
<Reference Include="System.Deployment" />
<Reference Include="System.Drawing" />
<Reference Include="System.IO.Compression.FileSystem" />
<Reference Include="System.Windows.Forms" />
<Reference Include="System.Xml" />
<Reference Include="System.Core" />
@ -121,12 +122,30 @@
</ItemGroup>
<ItemGroup>
<Compile Include="ApplicationEvents.vb" />
<Compile Include="DialogIzracunHzCor.Designer.vb">
<DependentUpon>DialogIzracunHzCor.vb</DependentUpon>
</Compile>
<Compile Include="DialogIzracunHzCor.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="DialogNovProj.Designer.vb">
<DependentUpon>DialogNovProj.vb</DependentUpon>
</Compile>
<Compile Include="DialogNovProj.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="DialogPripravaKartice.Designer.vb">
<DependentUpon>DialogPripravaKartice.vb</DependentUpon>
</Compile>
<Compile Include="DialogPripravaKartice.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="DialogZavarovanje.Designer.vb">
<DependentUpon>DialogZavarovanje.vb</DependentUpon>
</Compile>
<Compile Include="DialogZavarovanje.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Form1.vb">
<SubType>Form</SubType>
</Compile>
@ -152,6 +171,12 @@
<Compile Include="FormGsiJobs.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FormIzracunMeasure.Designer.vb">
<DependentUpon>FormIzracunMeasure.vb</DependentUpon>
</Compile>
<Compile Include="FormIzracunMeasure.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="FormKodaStojisce.Designer.vb">
<DependentUpon>FormKodaStojisce.vb</DependentUpon>
</Compile>
@ -195,9 +220,18 @@
</Compile>
</ItemGroup>
<ItemGroup>
<EmbeddedResource Include="DialogIzracunHzCor.resx">
<DependentUpon>DialogIzracunHzCor.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="DialogNovProj.resx">
<DependentUpon>DialogNovProj.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="DialogPripravaKartice.resx">
<DependentUpon>DialogPripravaKartice.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="DialogZavarovanje.resx">
<DependentUpon>DialogZavarovanje.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="Form1.resx">
<DependentUpon>Form1.vb</DependentUpon>
</EmbeddedResource>
@ -210,6 +244,9 @@
<EmbeddedResource Include="FormGsiJobs.resx">
<DependentUpon>FormGsiJobs.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FormIzracunMeasure.resx">
<DependentUpon>FormIzracunMeasure.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="FormKodaStojisce.resx">
<DependentUpon>FormKodaStojisce.vb</DependentUpon>
</EmbeddedResource>
@ -231,8 +268,11 @@
</ItemGroup>
<ItemGroup>
<Content Include="CHANGELOG.md">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<AdditionalFiles Include="Zavarovanja\_BeriMe.txt">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</AdditionalFiles>
<None Include="My Project\Icons\icons8-caps-lock-on-50.png" />
<None Include="My Project\Icons\google-sheets.png" />
<None Include="My Project\Icons\icons8-checklist-48.png" />
@ -252,11 +292,17 @@
<None Include="My Project\Icons\icons8-folder-tree-50.png" />
<None Include="My Project\Icons\icons8-edit-text-file-50.png" />
<None Include="My Project\Icons\icons8-stationery-50.png" />
<None Include="My Project\Icons\icons8-sd-50.png" />
<None Include="My Project\Icons\digital.png" />
<None Include="My Project\Icons\calculator.png" />
<None Include="My Project\Icons\digital_32.png" />
<None Include="My Project\Icons\digital_24.png" />
<None Include="My Project\Icons\icons8-advance2-24.png" />
<Content Include="tps1100_projekti.txt">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="tps1100_kode.txt">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="version.txt" />
<None Include="My Project\app.manifest" />
@ -274,22 +320,37 @@
<None Include="App.config" />
<None Include="My Project\Icons\icons8-rotate-48.png" />
<Content Include="Podatki\Navodila.pdf">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="README.md">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="Virtualna Kartica\GSI\TEST-JOB.GSI">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<AdditionalFiles Include="Podatki\TPS1100.crf">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
</AdditionalFiles>
<Content Include="Projekti\Test Projekt\TEST-JOB.GSI">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<None Include="TPS1100 Convert_1_TemporaryKey.pfx" />
<None Include="TPS1100 Convert_TemporaryKey.pfx" />
<AdditionalFiles Include="Virtualna Kartica\CODE\TPS1100.crf">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</AdditionalFiles>
<AdditionalFiles Include="Virtualna Kartica\CONVERT\GPS-GSI.FRT">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</AdditionalFiles>
<AdditionalFiles Include="Virtualna Kartica\CONVERT\GPS-KOO.FRT">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</AdditionalFiles>
<AdditionalFiles Include="Virtualna Kartica\CONVERT\POROCILO.FRT">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</AdditionalFiles>
<AdditionalFiles Include="Virtualna Kartica\DATA\GPS\GEOID\SLOV2016.GEM">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</AdditionalFiles>
<AdditionalFiles Include="Virtualna Kartica\TPS\CONF\1102_BB.PAR">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</AdditionalFiles>
</ItemGroup>
<ItemGroup>
<None Include="Icons\icons8-ok-50.png" />
@ -363,13 +424,13 @@
<None Include="My Project\Icons\icons8-support-50.png" />
<None Include="My Project\Icons\icons8-question-mark-48.png" />
<AdditionalFiles Include="Podatki\GSI_DataCodes.txt">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</AdditionalFiles>
<None Include="My Project\Icons\icons8-check-file-50.png" />
<None Include="My Project\Icons\icons8-menu-50.png" />
<None Include="My Project\Icons\icons8-program-50.png" />
<Content Include="Virtualna Kartica\DATA\TEST_tocke.txt">
<CopyToOutputDirectory>Always</CopyToOutputDirectory>
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
<Content Include="TPS1100CNVRT.ico" />
</ItemGroup>

BIN
Virtualna Kartica/CODE/TPS1100.crf Normal file
View File

Binary file not shown.

21
Virtualna Kartica/CONVERT/GPS-GSI.FRT Normal file
View File

@ -0,0 +1,21 @@
@t:FRT
@i:GPS500
@v:1.00
@a:FormatManager generated
@c:Leica Geosystems AG
@d:ponedeljek, maj 26, 2008
@o:Format Manager 1.0
@l:GPS500_Standard
%NGPS-GSI
#WS
#LM
#TC
#PB
&W1.000000000000
&L1000.000000000000
&T1.000000000000
&P1.000000000000
@Dd1
@Df1.00
@Ds-
$1714000"*11%04.0f+%016.16s 81...0%#+017.0f 82...0%#+017.0f 83...0%#+017.0f "004001311011001011208201081208201082208201083;

21
Virtualna Kartica/CONVERT/GPS-KOO.FRT Normal file
View File

@ -0,0 +1,21 @@
@t:FRT
@i:GPS500
@v:1.00
@a:Gregor Bilban
@c:Geoservis, d.o.o.
@d:sreda, september 28, 2005
@o:www.geoservis.si
@l:GPS500_Standard
%NGPS-KOO
#WG
#LM
#TC
#PB
&W1.000000000000
&L1.000000000000
&T1.000000000000
&P1.000000000000
@Dd1
@Df1.00
@Ds----
$1714000"%-1.0s %#-1.3f %#-1.3f %#-1.3f %-1.0s %-1.0s"011001011208201081208201082208201083011001041011001700;

26
Virtualna Kartica/CONVERT/POROCILO.FRT Normal file
View File

@ -0,0 +1,26 @@
@t:FRT
@i:GPS500
@v:1.00
@a:Boris B.
@c:2B
@d:petek, april 25, 2014
@o:Podatki GPS500
@l:GPS500_Standard
%NPOROCILO
#WS
#LM
#TC
#PB
&W1.000000000000
&L1.000000000000
&T1.000000000000
&P1.000000000000
@Dd1
@Df1.00
@Ds--------
$1714000"%-1.0s %#-1.3f %#-1.3f %#-1.3f %-1.0f %-1.0f %#-1.4f E %-1.0f %-1.0f %#-1.4f N %#-1.3f %#-1.3f %-1.0s "011001011208011081208011082208011083002001708001001710010001712002001709001001711010001713208011701208011703011001700;
$1214000"ID Easting Northing Orth. h Lat (°') Lon (°') Ellip. h Geoid sep. Class"
$1722000"SdE: %#-1.3f SdN: %#-1.3f SdH: %#-1.3f"210201806210201807208201415;
$1728000"HDOP: %#-1.3f VDOP: %#-1.3f PDOP: %#-1.3f GDOP: %#-1.3f"008001431008001432008001430008001429;
$1727000"Datum/Ura: %02.0f.%02.0f.%04.0f/%2.0f:%02.0f:%#02.0f "003001436003005437003001439003001442003001441008001440;
$1734000"Koo. sistem: %-1.0sGeoid: %1.0s"011001443011001496;

BIN
Virtualna Kartica/DATA/GPS/GEOID/SLOV2016.GEM Normal file
View File

Binary file not shown.

14
Virtualna Kartica/GSI/KA072024.GSI Normal file
View File

@ -0,0 +1,14 @@
*410001+0000000000000010
*110002+0000000000011111 84..10+0000000002000000 85..10+0000000002000000 86..10+0000000000600000 87..10+0000000000000100 88..10+0000000000000000
*110003+00000000000P6800 21.324+0000000006621340 22.324+0000000009349410 31..00+0000000000016677 32..10+0000000000016639 87..10+0000000000000100 58..16+0000000000000175 33..10-0000000000001213 81..00+0000000002015243 82..00+0000000002006672 83..00+0000000000598787 71....+0000000000000000
*110004+000000000000R301 21.324+0000000017409380 22.324+0000000009211300 31..00+0000000000020075 32..10+0000000000020060 87..10+0000000000000700 58..16+0000000000000175 33..10-0000000000001468 81..00+0000000002002041 82..00+0000000001980044 83..00+0000000000598532 71....+0000000000000000
*110005+000000000000R303 21.324+0000000021912240 22.324+0000000008955320 31..00+0000000000019652 32..10+0000000000019652 87..10+0000000000000000 58..16+0000000000000175 33..10+0000000000000026 81..00+0000000001987577 82..00+0000000001984772 83..00+0000000000600026 71....+0000000000000000
*110006+000000000000R304 21.324+0000000022401110 22.324+0000000009756550 31..00+0000000000014658 32..10+0000000000014517 87..10+0000000000000000 58..16+0000000000000344 33..10-0000000000002027 81..00+0000000001989912 82..00+0000000001989561 83..00+0000000000597973 71....+0000000000000000
*110007+00000000000P6800 21.324+0000000006622090 22.324+0000000009349420 31..00+0000000000016675 32..10+0000000000016638 87..10+0000000000000100 58..16+0000000000000175 33..10-0000000000001213 81..00+0000000002015243 82..00+0000000002006669 83..00+0000000000598787 71....+0000000000000000
*110008+0000000000022222 84..10+0000000002000000 85..10+0000000002000000 86..10+0000000000600000 87..10+0000000000000100 88..10+0000000000000000
*410009+0000000000000010
*110010+00000000000P6800 21.324+0000000031450500 22.324+0000000009208100 31..00+0000000000080327 32..10+0000000000080271 87..10+0000000000000100 58..16+0000000000000175 33..10-0000000000003094 81..00+0000000001943089 82..00+0000000002056609 83..00+0000000000596906 71....+0000000000000000
*110011+000000000000H101 21.324+0000000013228340 22.324+0000000009228010 31..00+0000000000039913 32..10+0000000000039876 87..10+0000000000000700 58..16+0000000000000175 33..10-0000000000002418 81..00+0000000002029411 82..00+0000000001973073 83..00+0000000000597582 71....+0000000000000000
*110012+000000000000H102 21.324+0000000014424520 22.324+0000000009312260 31..00+0000000000041954 32..10+0000000000041889 87..10+0000000000000700 58..16+0000000000000175 33..10-0000000000003047 81..00+0000000002024376 82..00+0000000001965934 83..00+0000000000596953 71....+0000000000000000
*110013+00000000000P6800 21.324+0000000031450440 22.324+0000000009208080 31..00+0000000000080327 32..10+0000000000080272 87..10+0000000000000100 58..16+0000000000000175 33..10-0000000000003093 81..00+0000000001943087 82..00+0000000002056607 83..00+0000000000596907 71....+0000000000000000
*110014+00000000000P6801 21.324+0000000013450510 22.324+0000000026751240 31..00+0000000000080327 32..10+0000000000080271 87..10+0000000000000100 58..16+0000000000000175 33..10-0000000000003104 81..00+0000000001943089 82..00+0000000002056609 83..00+0000000000596896 71....+0000000000000000

184
Virtualna Kartica/TPS/CONF/1102_BB.PAR Normal file
View File

@ -0,0 +1,184 @@
;*********************************************************
;WARNING!
;
;Do not edit this Application Configuration file manually
;(with Notepad, WordPad, etc.)
;Doing so may produce unexpected and undesirable results.
;*********************************************************
[Header]
DefFile=TPS1_220.def
DefID=D09.20215072401
TextFile=Tps1d220.men
TextID=T21080008522500
Release=2.21.00
ModifyDate=13.07.2017
ModifyTime=19:43:24
Author=TPS1100 Firmware
Comment=No comment
Theo=621317
ParamNum=145
RecMNum=6
MDlgLNum=1
ParFile=1102_BB.PAR
[Parameter]
CID25000=1@1@1@3@3
CID25001=1@1@1@3@0
CID25002=1@1@1@3@1
CID25003=1@0@1@3@1
CID25004=1@1@1@3@0
CID25005=0@1@1@3@0
CID25006=1@1@1@4@22222
CID25007=1@1@1@6@1.276814e+05
CID25008=1@1@1@6@5.663500e+05
CID25009=1@1@1@6@2.515385e+02
CID25010=1@1@1@6@0.000000e+00
CID25011=0@1@1@4@22222
CID25012=0@1@1@4@2054
CID25013=0@1@1@3@0
CID25014=0@1@1@3@0
CID25015=0@1@1@3@0
CID25016=1@1@1@3@3
CID25017=1@1@1@4@2055
CID25018=0@1@1@3@0
CID25019=0@1@1@3@0
CID25020=0@1@1@3@0
CID25021=0@1@1@3@0
CID25022=1@1@1@3@0
CID25023=1@1@1@3@1
CID25024=1@1@1@3@0
CID25025=1@1@1@3@0
CID25026=0@1@1@3@0
CID25027=0@1@1@4@621317
CID25028=0@1@1@4@TCRA1102plus
CID25029=1@1@1@4@ENGLISH
CID25030=1@1@1@3@0
CID25031=1@1@1@3@1
CID25032=1@1@1@3@0
CID25033=1@1@1@3@0
CID25034=1@1@1@3@0
CID25035=1@1@1@3@0
CID25036=1@0@1@3@1
CID25037=1@0@1@3@1
CID25038=1@1@1@1@1.570796e+00
CID25039=1@1@1@4@A:\GSI\1111.GSI
CID25040=1@1@1@3@3
CID25041=1@1@1@3@2
CID25042=1@1@1@3@0
CID25043=1@1@1@3@1
CID25044=1@1@1@0@15
CID25045=1@1@1@3@1
CID25046=1@1@1@4@1
CID25047=1@1@1@6@0.000000e+00
CID25048=0@0@1@4@90
CID25049=0@0@1@4@Measure
CID25050=0@0@0@4@
CID25051=0@0@0@4@
CID25052=0@0@0@4@
CID25053=0@0@0@4@
CID25054=0@0@0@4@
CID25055=0@0@0@4@
CID25056=0@0@0@4@
CID25057=0@0@0@4@
CID25058=0@0@1@4@90
CID25059=1@1@0@4@
CID25060=0@1@0@4@
CID25061=1@1@0@4@
CID25062=1@1@0@4@
CID25063=1@1@0@4@
CID25064=1@1@0@4@
CID25065=1@1@0@4@
CID25066=1@0@0@4@
CID25067=1@0@0@4@
CID25068=1@0@0@4@
CID25069=0@0@0@4@
CID25070=1@0@1@6@0.000000e+00
CID25071=1@0@1@6@0.000000e+00
CID25072=1@0@1@6@0.000000e+00
CID25073=1@1@1@3@1
CID25074=1@1@1@3@0
CID25075=1@1@1@8@19:43:25
CID25076=1@1@1@7@13.07.2017
CID25077=1@1@1@3@0
CID25078=1@1@1@3@2
CID25079=1@1@1@3@0
CID25080=1@1@1@0@300
CID25081=0@1@1@3@1
CID25082=1@1@1@3@1
CID25083=0@1@1@3@2
CID25084=0@1@1@3@1
CID25085=1@1@1@3@0
CID25086=1@1@1@3@0
CID25087=1@1@1@3@0
CID25088=1@1@1@4@2055
CID25089=0@1@0@6@5.663477e+05
CID25090=0@1@0@6@1.276808e+05
CID25091=0@1@0@6@2.520503e+02
CID25092=1@1@0@5@4.442087e+00
CID25093=0@1@0@5@1.361366e+00
CID25094=0@1@0@6@2.461348e+00
CID25095=0@1@0@6@2.407567e+00
CID25096=0@1@0@6@5.117905e-01
CID25097=0@1@1@4@Leica circ.prism
CID25098=0@1@1@0@0
CID25099=0@1@1@4@-0130+034
CID25100=0@0@0@4@0001+000
CID25101=0@1@1@1@-1.304666e+02
CID25102=0@1@1@1@8.729142e+00
CID25103=0@1@1@1@-1.391957e+02
CID25104=1@1@1@4@A:\GSI\1111.GSI
CID25105=1@1@1@4@A:\GSI\DEV_1-13.GSI
CID25106=1@1@1@4@A:\GSI\DEV_1-13.GSI
CID25107=1@1@1@4@A:\CODE\BORIS
CID25108=1@1@1@4@A:\CODE\BORIS
CID25109=0@1@0@3@0
CID25110=1@1@1@3@3
CID25111=0@1@1@3@0
CID25112=0@1@1@3@0
CID25113=1@1@1@4@MPR44
CID25114=1@1@0@4@
CID25115=1@1@0@4@
CID25116=1@1@1@1@4.400000e-03
CID25117=1@1@0@1@0.000000e+00
CID25118=1@1@0@1@0.000000e+00
CID25119=1@1@1@3@1
CID25120=1@1@1@3@0
CID25121=1@1@1@4@P08
CID25122=1@1@1@3@1
CID25123=1@1@0@0@0
CID25124=1@1@1@0@0
CID25125=1@1@1@3@0
CID25126=1@1@1@3@1
CID25127=1@1@1@3@1
CID25128=1@1@1@3@1
CID25129=1@1@1@3@2
CID25130=1@1@1@3@0
CID25131=1@1@1@0@0
CID25132=1@1@1@4@TXT
CID25133=1@1@1@4@GSI
CID25134=0@1@1@3@3
CID25135=1@1@1@3@1
CID25136=1@1@1@3@1
CID25137=1@1@1@3@1
CID25138=1@1@1@3@0
CID25139=1@1@1@3@0
CID25140=1@0@1@3@1
CID25141=1@1@1@1@5.235988e-01
CID25142=1@1@1@1@2.617994e-01
CID25143=1@1@1@3@1
CID25144=1@1@1@3@0
[RecMask]
CID7000=Station 16@1@1@6@6000@6026@6027@6028@6030@6029
CID7001=Polar (16)@1@1@12@6000@6005@6006@6007@6008@6030@6012@6009@6023@6024@6025@6004
CID7002=Cartesian (8)@0@1@6@6000@6023@6024@6025@6030@6012
CID7003=Polar+Cartes.(8)@0@1@8@6000@6005@6006@6007@6023@6024@6025@6010
CID7004=COSGEO@1@1@10@6000@6014@6015@6016@6023@6024@6025@6017@6030@6012
CID7005=Cartesian(8)CODE@0@1@7@6000@6014@6023@6024@6025@6030@6012
[MeasDlgList]
CID19000_0=SURVEY@1@1@10@25017@25047@25092@25093@25094@25095@25096@25089@25090@25091
CID19000_1=CODE@1@1@10@25017@25047@25059@25061@25062@25048@25049@25089@25090@25091
CID19000_2=OFFSET@1@1@10@25017@25047@25070@25071@25072@25073@25109@25089@25090@25091

1
Zavarovanja/_BeriMe.txt Normal file
View File

@ -0,0 +1 @@
To je mapa za shranjevanje zavarovanj kartic

2
version.txt
View File

@ -1 +1 @@
2.8.0.0
2.8.0.1