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

Update - 2.8.0.2

Browse Source
This commit is contained in:
Boris Bilc 2024-07-25 03:01:25 +02:00
parent 74bdecd726
commit e9071a1b95
60 changed files with 11223 additions and 1779 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
CHANGELOG.md
View File

@ -3,6 +3,29 @@
Zapisnik razvoja programa TPS1100 Convert.
---
## Verzija - 2.8.0.2 (Release)
Datum: 2024/07/24
### Popravki:
- V oknu "Projekti" je popravljena ponastavitev vrednosti za izbran Job pri izbiri drugega projekt-a
### Novo/Dodano:
- Dodana funkcija in UI dialog za uvoz podatkov iz PC-kartice (DialogKartica)
- Dodana funkcija za uvoz projektov, ki so v mapi "/Projekti"
- Dodane funkcije za brisanje in arhiviranje projektov in jobov v oknu "Projekti"
- **Orodja -> PC-Kartica -> Priprava Kartice...** (DialogPripravaKartice)
+ Dodana geoida SLO1.gem in SLOG200.gem v pripravi kartice
### Razvoj/Priprave:
- Priprava funkcije in UI-ja za izračun podatkov meritve med dvema točkama (FormIzracunMeasure)
- Delo na funkciji za izračun orientacije
---
## v2.8.0.1 - Release

426
DialogIzracunHzCor.Designer.vb generated
View File

@ -22,13 +22,12 @@ Partial Class DialogIzracunHzCor
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DialogIzracunHzCor))
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()
@ -38,18 +37,15 @@ Partial Class DialogIzracunHzCor
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.TextBox1 = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.ButtonIzr = New System.Windows.Forms.Button()
Me.Label3 = New System.Windows.Forms.Label()
Me.MaskedTextBoxHzNov = New System.Windows.Forms.MaskedTextBox()
Me.MaskedTextBoxHzNovDms = New System.Windows.Forms.MaskedTextBox()
Me.MaskedTextBoxGsiHzNov = New System.Windows.Forms.MaskedTextBox()
Me.ButtonKopirajHzTxt = New System.Windows.Forms.Button()
Me.ButtonKopirajHzGsi = New System.Windows.Forms.Button()
Me.TableLayoutPanel1.SuspendLayout()
Me.TableLayoutPanel2.SuspendLayout()
Me.SuspendLayout()
@ -62,31 +58,42 @@ Partial Class DialogIzracunHzCor
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.Location = New System.Drawing.Point(456, 219)
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.Size = New System.Drawing.Size(187, 45)
Me.TableLayoutPanel1.TabIndex = 0
'
'OK_Button
'
Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.OK_Button.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.OK_Button.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.OK_Button.FlatAppearance.BorderSize = 0
Me.OK_Button.FlatStyle = System.Windows.Forms.FlatStyle.Flat
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.Size = New System.Drawing.Size(87, 39)
Me.OK_Button.TabIndex = 13
Me.OK_Button.Text = "Pomoč"
'
'Cancel_Button
'
Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Cancel_Button.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.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.Location = New System.Drawing.Point(76, 3)
Me.Cancel_Button.FlatAppearance.BorderSize = 0
Me.Cancel_Button.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Cancel_Button.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_24
Me.Cancel_Button.Location = New System.Drawing.Point(96, 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.Size = New System.Drawing.Size(88, 39)
Me.Cancel_Button.TabIndex = 14
Me.Cancel_Button.Text = "Zapri"
Me.Cancel_Button.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
'
'TableLayoutPanel2
'
@ -94,12 +101,10 @@ Partial Class DialogIzracunHzCor
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.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, 40.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)
@ -108,31 +113,27 @@ Partial Class DialogIzracunHzCor
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.TextBox1, 2, 1)
Me.TableLayoutPanel2.Controls.Add(Me.TextBox2, 2, 2)
Me.TableLayoutPanel2.Controls.Add(Me.Label3, 0, 4)
Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxHzNov, 1, 4)
Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxHzNovDms, 2, 4)
Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxGsiHzNov, 3, 4)
Me.TableLayoutPanel2.Controls.Add(Me.ButtonKopirajHzTxt, 2, 5)
Me.TableLayoutPanel2.Controls.Add(Me.ButtonKopirajHzGsi, 3, 5)
Me.TableLayoutPanel2.Controls.Add(Me.ButtonUpGsi, 3, 3)
Me.TableLayoutPanel2.Controls.Add(Me.ButtonIzr, 1, 3)
Me.TableLayoutPanel2.Location = New System.Drawing.Point(13, 13)
Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
Me.TableLayoutPanel2.RowCount = 8
Me.TableLayoutPanel2.RowCount = 7
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, 40.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.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.TableLayoutPanel2.Size = New System.Drawing.Size(630, 200)
Me.TableLayoutPanel2.TabIndex = 1
'
'Label4
@ -140,53 +141,26 @@ Partial Class DialogIzracunHzCor
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.Location = New System.Drawing.Point(255, 0)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(151, 18)
Me.Label4.Size = New System.Drawing.Size(120, 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.Enabled = False
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
Me.MaskedTextBoxDegHzCor.Size = New System.Drawing.Size(116, 20)
Me.MaskedTextBoxDegHzCor.TabIndex = 6
'
'MaskedTextBoxDegHz
'
@ -194,12 +168,13 @@ Partial Class DialogIzracunHzCor
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.Enabled = False
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
Me.MaskedTextBoxDegHz.Size = New System.Drawing.Size(116, 20)
Me.MaskedTextBoxDegHz.TabIndex = 5
'
'Label2
'
@ -232,8 +207,8 @@ Partial Class DialogIzracunHzCor
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.Size = New System.Drawing.Size(120, 18)
Me.Label5.TabIndex = 15
Me.Label5.Text = "Format DEG"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
'
@ -244,13 +219,13 @@ Partial Class DialogIzracunHzCor
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.Location = New System.Drawing.Point(383, 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
Me.MaskedTextBoxGsiHz.Size = New System.Drawing.Size(242, 19)
Me.MaskedTextBoxGsiHz.TabIndex = 2
'
'MaskedTextBoxGsiHzCor
'
@ -259,22 +234,22 @@ Partial Class DialogIzracunHzCor
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.Location = New System.Drawing.Point(383, 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
Me.MaskedTextBoxGsiHzCor.Size = New System.Drawing.Size(242, 19)
Me.MaskedTextBoxGsiHzCor.TabIndex = 3
'
'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.Location = New System.Drawing.Point(381, 0)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(184, 18)
Me.Label9.Size = New System.Drawing.Size(246, 18)
Me.Label9.TabIndex = 19
Me.Label9.Text = "Format GSI"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.BottomCenter
@ -287,151 +262,34 @@ Partial Class DialogIzracunHzCor
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.Location = New System.Drawing.Point(381, 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.Size = New System.Drawing.Size(246, 34)
Me.ButtonUpGsi.TabIndex = 4
Me.ButtonUpGsi.Text = "Prevedi izi GSI"
Me.ButtonUpGsi.UseVisualStyleBackColor = True
'
'ButtonUpDms
'TextBox1
'
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
Me.TextBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextBox1.BackColor = System.Drawing.SystemColors.Info
Me.TextBox1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
Me.TextBox1.Location = New System.Drawing.Point(255, 24)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(120, 20)
Me.TextBox1.TabIndex = 0
'
'ButtonUpDeg
'TextBox2
'
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
Me.TextBox2.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TextBox2.BackColor = System.Drawing.SystemColors.Info
Me.TextBox2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TextBox2.Cursor = System.Windows.Forms.Cursors.IBeam
Me.TextBox2.Location = New System.Drawing.Point(255, 56)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(120, 20)
Me.TextBox2.TabIndex = 1
'
'ButtonIzr
'
@ -443,11 +301,13 @@ Partial Class DialogIzracunHzCor
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.Image = Global.TPS1100_Convert.My.Resources.Resources.digital_24
Me.ButtonIzr.Location = New System.Drawing.Point(129, 85)
Me.ButtonIzr.Name = "ButtonIzr"
Me.ButtonIzr.Size = New System.Drawing.Size(151, 26)
Me.ButtonIzr.TabIndex = 9
Me.ButtonIzr.Size = New System.Drawing.Size(120, 34)
Me.ButtonIzr.TabIndex = 7
Me.ButtonIzr.Text = "IZRAČUN"
Me.ButtonIzr.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.ButtonIzr.UseVisualStyleBackColor = False
'
'Label3
@ -456,29 +316,110 @@ Partial Class DialogIzracunHzCor
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.Location = New System.Drawing.Point(3, 122)
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
'
'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.Cursor = System.Windows.Forms.Cursors.IBeam
Me.MaskedTextBoxHzNov.Enabled = False
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, 127)
Me.MaskedTextBoxHzNov.Margin = New System.Windows.Forms.Padding(5)
Me.MaskedTextBoxHzNov.Name = "MaskedTextBoxHzNov"
Me.MaskedTextBoxHzNov.ReadOnly = True
Me.MaskedTextBoxHzNov.Size = New System.Drawing.Size(116, 20)
Me.MaskedTextBoxHzNov.TabIndex = 8
'
'MaskedTextBoxHzNovDms
'
Me.MaskedTextBoxHzNovDms.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.MaskedTextBoxHzNovDms.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.MaskedTextBoxHzNovDms.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MaskedTextBoxHzNovDms.Font = New System.Drawing.Font("Lucida Console", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaskedTextBoxHzNovDms.Location = New System.Drawing.Point(257, 127)
Me.MaskedTextBoxHzNovDms.Margin = New System.Windows.Forms.Padding(5)
Me.MaskedTextBoxHzNovDms.Name = "MaskedTextBoxHzNovDms"
Me.MaskedTextBoxHzNovDms.PromptChar = Global.Microsoft.VisualBasic.ChrW(35)
Me.MaskedTextBoxHzNovDms.ReadOnly = True
Me.MaskedTextBoxHzNovDms.Size = New System.Drawing.Size(116, 20)
Me.MaskedTextBoxHzNovDms.TabIndex = 9
'
'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.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.MaskedTextBoxGsiHzNov.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
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(383, 127)
Me.MaskedTextBoxGsiHzNov.Margin = New System.Windows.Forms.Padding(5)
Me.MaskedTextBoxGsiHzNov.Name = "MaskedTextBoxGsiHzNov"
Me.MaskedTextBoxGsiHzNov.PromptChar = Global.Microsoft.VisualBasic.ChrW(35)
Me.MaskedTextBoxGsiHzNov.ReadOnly = True
Me.MaskedTextBoxGsiHzNov.Size = New System.Drawing.Size(242, 20)
Me.MaskedTextBoxGsiHzNov.TabIndex = 11
'
'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.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.ButtonKopirajHzTxt.FlatAppearance.BorderSize = 0
Me.ButtonKopirajHzTxt.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.ButtonKopirajHzTxt.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_rename_20
Me.ButtonKopirajHzTxt.Location = New System.Drawing.Point(255, 157)
Me.ButtonKopirajHzTxt.Name = "ButtonKopirajHzTxt"
Me.ButtonKopirajHzTxt.Size = New System.Drawing.Size(100, 26)
Me.ButtonKopirajHzTxt.TabIndex = 10
Me.ButtonKopirajHzTxt.Text = "Kopiraj"
Me.ButtonKopirajHzTxt.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
Me.ButtonKopirajHzTxt.UseVisualStyleBackColor = True
'
'ButtonKopirajHzGsi
'
Me.ButtonKopirajHzGsi.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ButtonKopirajHzGsi.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.ButtonKopirajHzGsi.FlatAppearance.BorderSize = 0
Me.ButtonKopirajHzGsi.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.ButtonKopirajHzGsi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_rename_20
Me.ButtonKopirajHzGsi.Location = New System.Drawing.Point(527, 157)
Me.ButtonKopirajHzGsi.Name = "ButtonKopirajHzGsi"
Me.ButtonKopirajHzGsi.Size = New System.Drawing.Size(100, 26)
Me.ButtonKopirajHzGsi.TabIndex = 12
Me.ButtonKopirajHzGsi.Text = "Kopiraj"
Me.ButtonKopirajHzGsi.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
Me.ButtonKopirajHzGsi.UseVisualStyleBackColor = True
'
'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.ClientSize = New System.Drawing.Size(655, 276)
Me.Controls.Add(Me.TableLayoutPanel2)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "DialogIzracunHzCor"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "DialogIzracunHzCor"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Izračun HzCor"
Me.TopMost = True
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel2.ResumeLayout(False)
Me.TableLayoutPanel2.PerformLayout()
@ -492,25 +433,20 @@ Partial Class DialogIzracunHzCor
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 MaskedTextBoxDegHzCor As MaskedTextBox
Friend WithEvents MaskedTextBoxHzNovDms 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 MaskedTextBoxGsiHzNov As MaskedTextBox
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
Friend WithEvents TextBox1 As TextBox
Friend WithEvents TextBox2 As TextBox
End Class

2945
DialogIzracunHzCor.resx
View File

File diff suppressed because it is too large Load Diff

71
DialogIzracunHzCor.vb
View File

@ -14,53 +14,72 @@ Public Class DialogIzracunHzCor
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
Dim hzMer = TextBox1.Text
Dim hzMerData = Split(hzMer, ".")
Dim hzMerDeg As Double = hzMerData(0)
Dim hzMerMin As Double = Microsoft.VisualBasic.Left(hzMerData(1), 2) / 60
Dim hzMerSec As Double = Microsoft.VisualBasic.Mid(hzMerData(1), 3) / 3600
Dim hzMerDecDeg As Double = hzMerDeg + hzMerMin + hzMerSec
MaskedTextBoxDegHz.Text = Format(hzMerDecDeg, "0.000000").ToString
' 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
Dim hzPop = TextBox2.Text
Dim hzPopData = Split(hzPop, ".")
Dim hzPopDeg As Double = hzPopData(0)
Dim hzPopMin As Double = Microsoft.VisualBasic.Left(hzPopData(1).ToString, 2) / 60
Dim hzPopSec As Double = Microsoft.VisualBasic.Mid(hzPopData(1), 3) / 3600
Dim hzPopDecDeg As Double = hzPopDeg + hzPopMin + hzPopSec
MaskedTextBoxDegHzCor.Text = Format(hzPopDecDeg, "0.000000").ToString
' Izračunaj nov Azi in izpiši v obeh formatih
Dim hzNov As Double = 0
Dim hzNovDecDeg As Double = hzMer + hzPop
Dim hzNovDecDeg As Double = hzMerDecDeg + hzPopDecDeg
If hzNovDecDeg >= 360 Then
hzNovDecDeg = hzNovDecDeg - 360
End If
MaskedTextBoxHzNov.Text = Format(hzNovDecDeg, "0.000000").ToString
Dim hzNov = MaskedTextBoxHzNov.Text
Dim hzNovData = Split(hzNov, ".")
Dim hzNovDeg As Double = Int(hzNov)
Dim hzNovMin As Double = (hzNov - hzNovDeg) * 60
Dim hzNovMinInt As Double = Int(hzNovMin)
Dim hzNovSec As Double = Format(((hzNovMin - hzNovMinInt) * 60), "00")
Dim hzNovDms As String = hzNovDeg.ToString + "." + hzNovMinInt.ToString + hzNovSec.ToString
Dim hzNovDmsGsi As String = "21.324+00000000" + Format(hzNovDeg, "000").ToString + Format(hzNovMinInt, "00").ToString + Format(hzNovSec, "00").ToString + "0 "
MaskedTextBoxHzNovDms.Text = hzNovDms
MaskedTextBoxGsiHzNov.Text = hzNovDmsGsi
'If hzNovDms >= 360 Then
' hzNovDms = hzNovDms - 360
'End If
'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, ".")
TextBox1.Text = Format(hzMerNumData, "0.0000").ToString
'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)
'Dim hzMerMin As Double = hzMerData(1) * 60
'Dim hzMerMinInt As Integer = Int(hzMerMin)
'Dim hzMerSec As Double = Format(((hzMerMin - hzMerMinInt) * 60), "0")
'Dim hzMerDms As String = hzMerDeg.ToString + "." + hzMerMinInt.ToString + hzMerSec.ToString
'MaskedTextBoxDegHz.Text = hzMerDms.ToString
' 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, ".")
TextBox2.Text = Format(hzMPopNumData, "0.0000").ToString
'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)
'Dim hzPopMin As Double = hzPopData(1) * 60
'Dim hzPopMinInt As Double = Int(hzPopMin)
'Dim hzPopSec As Double = Format(((hzPopMin - hzPopMinInt) * 60), "0")
'Dim hzPopDms As Double = hzPopDeg.ToString + "." + hzPopMinInt.ToString + hzPopSec.ToString
'MaskedTextBoxDegHzCor.Text = hzPopDms.ToString
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

221
DialogKartica.Designer.vb generated Normal file
View File

@ -0,0 +1,221 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DialogKartica
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(DialogKartica))
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.OK_Button = New System.Windows.Forms.Button()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.ListViewGsiJob = New System.Windows.Forms.ListView()
Me.ColumnHeader1 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.cbPgon = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.ColumnHeader2 = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.Label4 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
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(12, 263)
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(210, 46)
Me.TableLayoutPanel1.TabIndex = 0
'
'OK_Button
'
Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.OK_Button.FlatAppearance.BorderSize = 0
Me.OK_Button.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.OK_Button.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_24
Me.OK_Button.Location = New System.Drawing.Point(9, 3)
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(86, 39)
Me.OK_Button.TabIndex = 3
Me.OK_Button.Text = "Uvozi"
Me.OK_Button.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.OK_Button.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
'
'Cancel_Button
'
Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Cancel_Button.FlatAppearance.BorderSize = 0
Me.Cancel_Button.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Cancel_Button.Location = New System.Drawing.Point(124, 3)
Me.Cancel_Button.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(67, 40)
Me.Cancel_Button.TabIndex = 4
Me.Cancel_Button.Text = "Prekini"
'
'ListViewGsiJob
'
Me.ListViewGsiJob.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.ListViewGsiJob.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeader1, Me.ColumnHeader2})
Me.ListViewGsiJob.FullRowSelect = True
Me.ListViewGsiJob.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
Me.ListViewGsiJob.HideSelection = False
Me.ListViewGsiJob.LabelWrap = False
Me.ListViewGsiJob.Location = New System.Drawing.Point(12, 83)
Me.ListViewGsiJob.MultiSelect = False
Me.ListViewGsiJob.Name = "ListViewGsiJob"
Me.ListViewGsiJob.ShowGroups = False
Me.ListViewGsiJob.ShowItemToolTips = True
Me.ListViewGsiJob.Size = New System.Drawing.Size(210, 136)
Me.ListViewGsiJob.SmallImageList = Me.ImageList1
Me.ListViewGsiJob.TabIndex = 1
Me.ListViewGsiJob.UseCompatibleStateImageBehavior = False
Me.ListViewGsiJob.View = System.Windows.Forms.View.List
'
'ColumnHeader1
'
Me.ColumnHeader1.Text = "Datoteka"
Me.ColumnHeader1.Width = 140
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "icons8-scroll-50.png")
Me.ImageList1.Images.SetKeyName(1, "icons8-file-GSI-50.png")
'
'cbPgon
'
Me.cbPgon.FlatStyle = System.Windows.Forms.FlatStyle.Popup
Me.cbPgon.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbPgon.FormattingEnabled = True
Me.cbPgon.ItemHeight = 16
Me.cbPgon.Location = New System.Drawing.Point(110, 31)
Me.cbPgon.Name = "cbPgon"
Me.cbPgon.Size = New System.Drawing.Size(112, 24)
Me.cbPgon.TabIndex = 0
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(66, 36)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(38, 13)
Me.Label1.TabIndex = 3
Me.Label1.Text = "Pogon"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(12, 67)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(47, 13)
Me.Label2.TabIndex = 4
Me.Label2.Text = "GSI Jobi"
'
'PictureBox1
'
Me.PictureBox1.Anchor = System.Windows.Forms.AnchorStyles.None
Me.PictureBox1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_sdb_import_50
Me.PictureBox1.InitialImage = Global.TPS1100_Convert.My.Resources.Resources.icons8_sd_50
Me.PictureBox1.Location = New System.Drawing.Point(12, 12)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(48, 52)
Me.PictureBox1.TabIndex = 5
Me.PictureBox1.TabStop = False
'
'Label3
'
Me.Label3.Location = New System.Drawing.Point(12, 241)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(210, 19)
Me.Label3.TabIndex = 6
Me.Label3.Text = "Datum zapisa:"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'ColumnHeader2
'
Me.ColumnHeader2.Text = "Datum"
Me.ColumnHeader2.Width = 100
'
'Label4
'
Me.Label4.Location = New System.Drawing.Point(12, 222)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(210, 19)
Me.Label4.TabIndex = 6
Me.Label4.Text = "Ddatoteka..."
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'DialogKartica
'
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(234, 321)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.PictureBox1)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.cbPgon)
Me.Controls.Add(Me.ListViewGsiJob)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "DialogKartica"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Kartica"
Me.TopMost = True
Me.TableLayoutPanel1.ResumeLayout(False)
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
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 ListViewGsiJob As ListView
Friend WithEvents cbPgon As ComboBox
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents ColumnHeader1 As ColumnHeader
Friend WithEvents ImageList1 As ImageList
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label3 As Label
Friend WithEvents ColumnHeader2 As ColumnHeader
Friend WithEvents Label4 As Label
End Class

3131
DialogKartica.resx Normal file
View File

File diff suppressed because it is too large Load Diff

79
DialogKartica.vb Normal file
View File

@ -0,0 +1,79 @@
Imports System.IO
Imports System.Windows.Forms
Public Class DialogKartica
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
' Uvozi izbrano datoteko v aktivni projekt
Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + My.Settings.ProjektMapa.ToString + "\"
Dim izbran As ListView.SelectedListViewItemCollection = Me.ListViewGsiJob.SelectedItems
Dim item As ListViewItem
Dim ime As String = ""
Dim mapa As String = ""
Dim datdatum As String = ""
For Each item In izbran
ime = item.SubItems(0).Text
mapa = item.SubItems(1).Text
datdatum = My.Computer.FileSystem.GetFileInfo(mapa).LastWriteTime
Dim fileUvoz = mapa
Dim fileIme = ime
Dim fileIzvoz = delovnaMapa + fileIme
My.Computer.FileSystem.CopyFile(fileUvoz, fileIzvoz, True)
Form1.datJob = fileIzvoz
Next
Form1.NaloziGsiJob()
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 DialogKartica_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 = True Then
'add all found drives into the combobox
cbPgon.Items.Add(drive)
End If
Next
End Sub
Private Sub cbPgon_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbPgon.SelectedIndexChanged
Dim delovnaMapa = cbPgon.Text + "GSI"
ListViewGsiJob.Clear()
If My.Computer.FileSystem.DirectoryExists(delovnaMapa) Then
Dim ix As Integer = 0
Dim datotekeJobi = My.Computer.FileSystem.GetFiles(delovnaMapa, FileIO.SearchOption.SearchTopLevelOnly, "*.GSI")
For Each datJob In datotekeJobi
Dim datdatum = My.Computer.FileSystem.GetFileInfo(datJob).LastWriteTime
ListViewGsiJob.Items.Add(Path.GetFileName(datJob).ToString, 1).SubItems.Add(Path.GetFullPath(datJob))
ListViewGsiJob.Items.Item(ix).ToolTipText = datdatum.ToString
ix = ix + 1
Next
End If
End Sub
Private Sub ListViewGsiJob_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewGsiJob.SelectedIndexChanged
Dim izbran As ListView.SelectedListViewItemCollection = Me.ListViewGsiJob.SelectedItems
Dim item As ListViewItem
Dim ime As String = ""
Dim mapa As String = ""
Dim datdatum As String = ""
For Each item In izbran
ime = item.SubItems(0).Text
mapa = item.SubItems(1).Text
datdatum = My.Computer.FileSystem.GetFileInfo(mapa).LastWriteTime
Next
Label3.Text = "Datum zapisa: " + datdatum.ToString
Label4.Text = "Datoteka: " + mapa.ToString
End Sub
End Class

33
DialogPripravaKartice.Designer.vb generated
View File

@ -37,8 +37,9 @@ Partial Class DialogPripravaKartice
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
Me.TextBoxPogonIme = New System.Windows.Forms.TextBox()
Me.ProgressBar1 = New System.Windows.Forms.ProgressBar()
Me.Label7 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout()
Me.TableLayoutPanel2.SuspendLayout()
Me.SuspendLayout()
@ -232,15 +233,6 @@ Partial Class DialogPripravaKartice
Me.Label6.Text = "Format"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'ProgressBar1
'
Me.ProgressBar1.ForeColor = System.Drawing.Color.YellowGreen
Me.ProgressBar1.Location = New System.Drawing.Point(12, 157)
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(340, 16)
Me.ProgressBar1.Step = 1
Me.ProgressBar1.TabIndex = 6
'
'TextBoxPogonIme
'
Me.TextBoxPogonIme.Anchor = System.Windows.Forms.AnchorStyles.Left
@ -250,11 +242,31 @@ Partial Class DialogPripravaKartice
Me.TextBoxPogonIme.Size = New System.Drawing.Size(100, 21)
Me.TextBoxPogonIme.TabIndex = 7
'
'ProgressBar1
'
Me.ProgressBar1.ForeColor = System.Drawing.Color.YellowGreen
Me.ProgressBar1.Location = New System.Drawing.Point(58, 157)
Me.ProgressBar1.Name = "ProgressBar1"
Me.ProgressBar1.Size = New System.Drawing.Size(294, 16)
Me.ProgressBar1.Step = 1
Me.ProgressBar1.TabIndex = 6
'
'Label7
'
Me.Label7.Anchor = System.Windows.Forms.AnchorStyles.None
Me.Label7.Location = New System.Drawing.Point(9, 154)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(43, 22)
Me.Label7.TabIndex = 7
Me.Label7.Text = "Prostor"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'DialogPripravaKartice
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(364, 231)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.ProgressBar1)
Me.Controls.Add(Me.TableLayoutPanel2)
Me.Controls.Add(Me.Label2)
@ -291,4 +303,5 @@ Partial Class DialogPripravaKartice
Friend WithEvents Label5 As Label
Friend WithEvents Label6 As Label
Friend WithEvents TextBoxPogonIme As TextBox
Friend WithEvents Label7 As Label
End Class

63
DialogPripravaKartice.vb
View File

@ -21,8 +21,12 @@ Public Class DialogPripravaKartice
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 fileUvozGeoid1 = delovnaMapa + "\Virtualna Kartica\DATA\GPS\GEOID\SLO1.GEM"
Dim fileIzvozGeoid1 = karticaMapa + "DATA\GPS\GEOID\SLO1.GEM"
Dim fileUvozGeoid2 = delovnaMapa + "\Virtualna Kartica\DATA\GPS\GEOID\SLOG2000.GEM"
Dim fileIzvozGeoid2 = karticaMapa + "DATA\GPS\GEOID\SLOG2000.GEM"
Dim fileUvozGeoid3 = delovnaMapa + "\Virtualna Kartica\DATA\GPS\GEOID\SLOV2016.GEM"
Dim fileIzvozGeoid3 = 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"
@ -36,8 +40,16 @@ Public Class DialogPripravaKartice
My.Computer.FileSystem.CopyFile(fileUvozCode, fileIzvozCode, True)
End If
If My.Computer.FileSystem.FileExists(fileUvozGeoid) Then
My.Computer.FileSystem.CopyFile(fileUvozGeoid, fileIzvozGeoid, True)
If My.Computer.FileSystem.FileExists(fileUvozGeoid1) Then
My.Computer.FileSystem.CopyFile(fileUvozGeoid1, fileIzvozGeoid1, True)
End If
If My.Computer.FileSystem.FileExists(fileUvozGeoid2) Then
My.Computer.FileSystem.CopyFile(fileUvozGeoid2, fileIzvozGeoid2, True)
End If
If My.Computer.FileSystem.FileExists(fileUvozGeoid3) Then
My.Computer.FileSystem.CopyFile(fileUvozGeoid3, fileIzvozGeoid3, True)
End If
If My.Computer.FileSystem.FileExists(fileUvozTps) Then
@ -64,18 +76,35 @@ Public Class DialogPripravaKartice
My.Computer.FileSystem.CreateDirectory(karticaMapa + "LOG")
End If
Process.Start(karticaMapa)
End Sub
Private Sub Button_Pripravi_Click(ByVal sender As Object, e As EventArgs) Handles Button_Pripravi.Click
PripravaKartice()
Dim karticaMapa As String = ComboBox1.Text
Dim kartica As String = ComboBox1.Text.Replace("\", "")
Dim karticaTip As String = LabelTip.Text
Dim karticaLabel As String = TextBoxPogonIme.Text
MsgBox("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", vbOKOnly, "Priprava Kartice")
Dim msgPriprava = MsgBox("Priprava pogona: " + kartica + " [" + karticaLabel + "]" + vbCrLf + vbCrLf +
"Na kartico bodo naloženi podatki za TPS110x in GPS500." + vbCrLf +
"Nadaljujem?",
vbYesNo + vbExclamation, "Formatiranje kartice...")
If msgPriprava = DialogResult.Yes Then
' Zaženi pripravo kartice
PripravaKartice()
' Priprava končana...
Dim msgPripravaOk = MsgBox("Kartica pripravljena... podatki naloženi." + vbCrLf + vbCrLf +
"- CODE: Kode za TPS1100" + vbCrLf +
"- CONVERT: Formati izvoza podatkov za GPS500" + vbCrLf +
"- DATA/GPS/GEOID: Geoidi za GPS500" + vbCrLf +
"- TPS/CONF: Nastavitve za TPS110x" + vbCrLf + vbCrLf +
"Odprem mapo kartice?",
vbYesNo + vbInformation, "Priprava Kartice")
If msgPripravaOk = DialogResult.Yes Then
Process.Start(karticaMapa)
End If
End If
Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
Dim d As DriveInfo
@ -101,15 +130,15 @@ Naloženo:
Private Sub Button_Format_Click(sender As Object, e As EventArgs) Handles Button_Format.Click
Dim kartica As String = ComboBox1.Text.Replace("\", "")
Dim karticaTip As String = LabelTip.Text
Dim kartivaLabel As String = TextBoxPogonIme.Text
Dim karticaLabel As String = TextBoxPogonIme.Text
Dim msgFormat = MsgBox("Formatiran bo pogona [" + kartica + "]. Nadaljujem?", vbOKCancel, "Formatiranje kartice...")
Dim msgFormat = MsgBox("Formatiranje pogona: " + kartica + " [" + karticaLabel + "]" + vbCrLf + "Vsi podatki na pogonu bodo izbrisani!" + vbCrLf + "Nadaljujem?", vbYesNo + vbExclamation, "Formatiranje kartice...")
If msgFormat = DialogResult.OK Then
Shell("cmd /c format " + kartica + " /fs:" + karticaTip + " /v:" + kartivaLabel + " /q", AppWinStyle.NormalFocus)
If msgFormat = DialogResult.Yes Then
Shell("cmd /c format " + kartica + " /fs:" + karticaTip + " /v:" + karticaLabel + " /q", AppWinStyle.NormalFocus)
ProgressBar1.Value = 0
Else
MsgBox("Postopek prekinjen.", vbOKOnly)
MsgBox("Postopek prekinjen.", vbOKOnly + vbInformation)
End If
End Sub

214
DialogProjektUvoz.Designer.vb generated Normal file
View File

@ -0,0 +1,214 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DialogProjektUvoz
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(DialogProjektUvoz))
Dim ListViewItem1 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Test Projekt", 1)
Dim ListViewItem2 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Mapa Projekt 2", 4)
Dim ListViewItem3 As System.Windows.Forms.ListViewItem = New System.Windows.Forms.ListViewItem("Mapa Projekt 3", 4)
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.OK_Button = New System.Windows.Forms.Button()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.ListView1 = New System.Windows.Forms.ListView()
Me.colProjIme = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
Me.PictureBox1 = New System.Windows.Forms.PictureBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.PictureBox2 = New System.Windows.Forms.PictureBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout()
Me.TableLayoutPanel2.SuspendLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).BeginInit()
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(276, 270)
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 = "OK"
'
'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 = "Cancel"
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "icons8-folder-tree-50.png")
Me.ImageList1.Images.SetKeyName(1, "icons8-folder-50-2.png")
Me.ImageList1.Images.SetKeyName(2, "icons8-error-48.png")
Me.ImageList1.Images.SetKeyName(3, "icons8-done-50.png")
Me.ImageList1.Images.SetKeyName(4, "icons8-close-50.png")
Me.ImageList1.Images.SetKeyName(5, "icons8-ok-50.png")
Me.ImageList1.Images.SetKeyName(6, "icons8-cancel-50.png")
'
'ListView1
'
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.colProjIme})
Me.ListView1.FullRowSelect = True
Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.Nonclickable
Me.ListView1.HideSelection = False
ListViewItem1.StateImageIndex = 0
Me.ListView1.Items.AddRange(New System.Windows.Forms.ListViewItem() {ListViewItem1, ListViewItem2, ListViewItem3})
Me.ListView1.LabelWrap = False
Me.ListView1.Location = New System.Drawing.Point(13, 13)
Me.ListView1.Name = "ListView1"
Me.ListView1.ShowGroups = False
Me.ListView1.Size = New System.Drawing.Size(257, 286)
Me.ListView1.SmallImageList = Me.ImageList1
Me.ListView1.TabIndex = 1
Me.ListView1.UseCompatibleStateImageBehavior = False
Me.ListView1.View = System.Windows.Forms.View.Details
'
'colProjIme
'
Me.colProjIme.Text = "Mape"
Me.colProjIme.Width = 235
'
'TableLayoutPanel2
'
Me.TableLayoutPanel2.ColumnCount = 2
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, 75.0!))
Me.TableLayoutPanel2.Controls.Add(Me.PictureBox1, 0, 0)
Me.TableLayoutPanel2.Controls.Add(Me.Label1, 1, 0)
Me.TableLayoutPanel2.Controls.Add(Me.PictureBox2, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.Label2, 1, 1)
Me.TableLayoutPanel2.Location = New System.Drawing.Point(277, 13)
Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
Me.TableLayoutPanel2.RowCount = 3
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 30.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.TableLayoutPanel2.Size = New System.Drawing.Size(145, 251)
Me.TableLayoutPanel2.TabIndex = 2
'
'PictureBox1
'
Me.PictureBox1.BackgroundImage = Global.TPS1100_Convert.My.Resources.Resources.icons8_folder_50_2
Me.PictureBox1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox1.Location = New System.Drawing.Point(3, 3)
Me.PictureBox1.Name = "PictureBox1"
Me.PictureBox1.Size = New System.Drawing.Size(30, 24)
Me.PictureBox1.TabIndex = 0
Me.PictureBox1.TabStop = False
'
'Label1
'
Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(39, 8)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(49, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Obstoječ"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'PictureBox2
'
Me.PictureBox2.BackgroundImage = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
Me.PictureBox2.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.PictureBox2.Location = New System.Drawing.Point(3, 33)
Me.PictureBox2.Name = "PictureBox2"
Me.PictureBox2.Size = New System.Drawing.Size(30, 24)
Me.PictureBox2.TabIndex = 0
Me.PictureBox2.TabStop = False
'
'Label2
'
Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(39, 38)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(57, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Ni naložen"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'DialogProjektUvoz
'
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(434, 311)
Me.Controls.Add(Me.TableLayoutPanel2)
Me.Controls.Add(Me.ListView1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "DialogProjektUvoz"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Uvoz Projektov"
Me.TopMost = True
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel2.ResumeLayout(False)
Me.TableLayoutPanel2.PerformLayout()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.PictureBox2, System.ComponentModel.ISupportInitialize).EndInit()
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 ImageList1 As ImageList
Friend WithEvents ListView1 As ListView
Friend WithEvents colProjIme As ColumnHeader
Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
Friend WithEvents PictureBox1 As PictureBox
Friend WithEvents Label1 As Label
Friend WithEvents PictureBox2 As PictureBox
Friend WithEvents Label2 As Label
End Class

3262
DialogProjektUvoz.resx Normal file
View File

File diff suppressed because it is too large Load Diff

18
DialogProjektUvoz.vb Normal file
View File

@ -0,0 +1,18 @@
Imports System.Windows.Forms
Public Class DialogProjektUvoz
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 ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
End Sub
End Class

135
Form1.Designer.vb generated
View File

@ -35,6 +35,7 @@ Partial Class Form1
Me.ToolStripButtonpROJ = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator8 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbKartica = New System.Windows.Forms.ToolStripButton()
Me.tsbOpenFile = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButtonPripravi = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator()
@ -67,9 +68,12 @@ Partial Class Form1
Me.OrodjaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PripraviKarticoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsbPripravaFormat = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbPripravaZav = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbMapaZav = New System.Windows.Forms.ToolStripMenuItem()
Me.IzračunToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsbPodMer = New System.Windows.Forms.ToolStripMenuItem()
Me.tsbHzCor = 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()
@ -91,11 +95,11 @@ Partial Class Form1
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, 123)
Me.RichTextBox1.Location = New System.Drawing.Point(9, 121)
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, 596)
Me.RichTextBox1.Size = New System.Drawing.Size(1233, 598)
Me.RichTextBox1.TabIndex = 1
Me.RichTextBox1.Text = resources.GetString("RichTextBox1.Text")
Me.RichTextBox1.WordWrap = False
@ -123,8 +127,8 @@ Partial Class Form1
'
Me.ToolStripStatusLabel1.Font = New System.Drawing.Font("Segoe UI", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
Me.ToolStripStatusLabel1.Name = "ToolStripStatusLabel1"
Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(189, 17)
Me.ToolStripStatusLabel1.Text = "2B geoinformatika d.o.o. / Boris Bilc"
Me.ToolStripStatusLabel1.Size = New System.Drawing.Size(157, 17)
Me.ToolStripStatusLabel1.Text = "Made by: Boris Bilc / MultiBox"
'
'ToolStripStatusLabel2
'
@ -150,11 +154,11 @@ Partial Class Form1
'
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.ToolStripButtonpROJ, Me.ToolStripButton2, Me.ToolStripSeparator8, 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.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButtonpROJ, Me.ToolStripButton2, Me.ToolStripSeparator8, Me.tsbKartica, 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, 28)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(5)
Me.ToolStrip1.Size = New System.Drawing.Size(1251, 62)
Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(10, 0, 10, 0)
Me.ToolStrip1.Size = New System.Drawing.Size(1251, 52)
Me.ToolStrip1.TabIndex = 0
Me.ToolStrip1.Text = "ToolStrip1"
'
@ -183,6 +187,15 @@ Partial Class Form1
Me.ToolStripSeparator8.Name = "ToolStripSeparator8"
Me.ToolStripSeparator8.Size = New System.Drawing.Size(6, 52)
'
'tsbKartica
'
Me.tsbKartica.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_sdb_import_50
Me.tsbKartica.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbKartica.Name = "tsbKartica"
Me.tsbKartica.Size = New System.Drawing.Size(47, 49)
Me.tsbKartica.Text = "Kartica"
Me.tsbKartica.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'tsbOpenFile
'
Me.tsbOpenFile.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
@ -283,10 +296,11 @@ Partial Class Form1
'
'MenuStrip1
'
Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.MenuToolStripMenuItem, Me.ToolStripMenuItem1, Me.OrodjaToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1251, 24)
Me.MenuStrip1.Size = New System.Drawing.Size(1251, 28)
Me.MenuStrip1.TabIndex = 3
Me.MenuStrip1.Text = "MenuStrip1"
'
@ -295,40 +309,40 @@ Partial Class Form1
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.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.Size = New System.Drawing.Size(85, 24)
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(180, 22)
Me.OdpriGSIToolStripMenuItem.Size = New System.Drawing.Size(153, 26)
Me.OdpriGSIToolStripMenuItem.Text = "Nastavitve"
Me.OdpriGSIToolStripMenuItem.ToolTipText = "Odpri Nastavitve aplikacije..."
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(177, 6)
Me.ToolStripSeparator6.Size = New System.Drawing.Size(150, 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(180, 22)
Me.PripraviGSIToolStripMenuItem.Size = New System.Drawing.Size(153, 26)
Me.PripraviGSIToolStripMenuItem.Text = "Navodila"
Me.PripraviGSIToolStripMenuItem.ToolTipText = "Odpri navodila za uporabo aplikacije..."
'
'ToolStripSeparator7
'
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
Me.ToolStripSeparator7.Size = New System.Drawing.Size(177, 6)
Me.ToolStripSeparator7.Size = New System.Drawing.Size(150, 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(180, 22)
Me.PosodobitevToolStripMenuItem.Size = New System.Drawing.Size(153, 26)
Me.PosodobitevToolStripMenuItem.Text = "Posodobitev..."
Me.PosodobitevToolStripMenuItem.ToolTipText = "Preveri za nove posodobitve..."
'
@ -336,20 +350,20 @@ Partial Class Form1
'
Me.InfoOAplikacijiToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_information_50
Me.InfoOAplikacijiToolStripMenuItem.Name = "InfoOAplikacijiToolStripMenuItem"
Me.InfoOAplikacijiToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.InfoOAplikacijiToolStripMenuItem.Size = New System.Drawing.Size(153, 26)
Me.InfoOAplikacijiToolStripMenuItem.Text = "Info"
Me.InfoOAplikacijiToolStripMenuItem.ToolTipText = "Pokaži podatke o aplikaciji..."
'
'ToolStripSeparator12
'
Me.ToolStripSeparator12.Name = "ToolStripSeparator12"
Me.ToolStripSeparator12.Size = New System.Drawing.Size(177, 6)
Me.ToolStripSeparator12.Size = New System.Drawing.Size(150, 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(180, 22)
Me.IzhodToolStripMenuItem.Size = New System.Drawing.Size(153, 26)
Me.IzhodToolStripMenuItem.Text = "I&zhod"
Me.IzhodToolStripMenuItem.ToolTipText = "Izhod iz programa..."
'
@ -358,27 +372,27 @@ Partial Class Form1
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.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.Size = New System.Drawing.Size(79, 24)
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.Size = New System.Drawing.Size(213, 26)
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)
Me.ToolStripSeparator10.Size = New System.Drawing.Size(210, 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.Size = New System.Drawing.Size(213, 26)
Me.ToolStripMenuItem2.Text = "&Odpri Job"
Me.ToolStripMenuItem2.ToolTipText = "Odpri GSI Job..."
'
@ -386,7 +400,7 @@ Partial Class Form1
'
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.Size = New System.Drawing.Size(213, 26)
Me.ToolStripMenuItem4.Text = "&Uvozi Job"
Me.ToolStripMenuItem4.ToolTipText = "Uvozi GSI v aktivni projekt..."
'
@ -394,30 +408,30 @@ Partial Class Form1
'
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.Size = New System.Drawing.Size(213, 26)
Me.tsbUvoziTocke.Text = "Uvozi Točke"
Me.tsbUvoziTocke.ToolTipText = "Uvozi TXT/KOO in pretvori v GSI format."
'
'ToolStripSeparator13
'
Me.ToolStripSeparator13.Name = "ToolStripSeparator13"
Me.ToolStripSeparator13.Size = New System.Drawing.Size(206, 6)
Me.ToolStripSeparator13.Size = New System.Drawing.Size(210, 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.Size = New System.Drawing.Size(213, 26)
Me.ShraniToolStripMenuItem.Text = "&Shrani..."
Me.ShraniToolStripMenuItem.ToolTipText = "Shrani podatke rezultata procesiranja..."
'
'OrodjaToolStripMenuItem
'
Me.OrodjaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PripraviKarticoToolStripMenuItem})
Me.OrodjaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.PripraviKarticoToolStripMenuItem, Me.IzračunToolStripMenuItem})
Me.OrodjaToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_support_50
Me.OrodjaToolStripMenuItem.Name = "OrodjaToolStripMenuItem"
Me.OrodjaToolStripMenuItem.Size = New System.Drawing.Size(71, 20)
Me.OrodjaToolStripMenuItem.Size = New System.Drawing.Size(75, 24)
Me.OrodjaToolStripMenuItem.Text = "Orodja"
Me.OrodjaToolStripMenuItem.ToolTipText = "Uvozi točke iz TXT v GSI"
'
@ -426,39 +440,59 @@ Partial Class Form1
Me.PripraviKarticoToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbPripravaFormat, Me.tsbPripravaZav, Me.ToolStripSeparator3, Me.tsbMapaZav})
Me.PripraviKarticoToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_sd_50
Me.PripraviKarticoToolStripMenuItem.Name = "PripraviKarticoToolStripMenuItem"
Me.PripraviKarticoToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.PripraviKarticoToolStripMenuItem.Size = New System.Drawing.Size(184, 26)
Me.PripraviKarticoToolStripMenuItem.Text = "PC-Kartica"
Me.PripraviKarticoToolStripMenuItem.ToolTipText = "Pripravi kartico instrumenta za delo..."
'
'tsbPripravaFormat
'
Me.tsbPripravaFormat.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_micro_sd_50
Me.tsbPripravaFormat.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_sd_import_50
Me.tsbPripravaFormat.Name = "tsbPripravaFormat"
Me.tsbPripravaFormat.Size = New System.Drawing.Size(180, 22)
Me.tsbPripravaFormat.Size = New System.Drawing.Size(181, 26)
Me.tsbPripravaFormat.Text = "Priprava Kartice"
Me.tsbPripravaFormat.ToolTipText = "Pripravi kartico za delo z instrumentom..."
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 6)
'
'tsbPripravaZav
'
Me.tsbPripravaZav.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_add_to_collection_50
Me.tsbPripravaZav.Name = "tsbPripravaZav"
Me.tsbPripravaZav.Size = New System.Drawing.Size(180, 22)
Me.tsbPripravaZav.Size = New System.Drawing.Size(181, 26)
Me.tsbPripravaZav.Text = "Zavarovanje Kartive"
Me.tsbPripravaZav.ToolTipText = "Zavaruj podatke kartice v zavarovanja..."
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(178, 6)
'
'tsbMapaZav
'
Me.tsbMapaZav.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_browse_folder_50_2
Me.tsbMapaZav.Name = "tsbMapaZav"
Me.tsbMapaZav.Size = New System.Drawing.Size(180, 22)
Me.tsbMapaZav.Text = "Pokaži Mapo..."
Me.tsbMapaZav.Size = New System.Drawing.Size(181, 26)
Me.tsbMapaZav.Text = "Odpri Zavarovanja"
Me.tsbMapaZav.ToolTipText = "Odpri mapo z zavarovanji podatkov..."
'
'IzračunToolStripMenuItem
'
Me.IzračunToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.tsbPodMer, Me.tsbHzCor})
Me.IzračunToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.digital_32
Me.IzračunToolStripMenuItem.Name = "IzračunToolStripMenuItem"
Me.IzračunToolStripMenuItem.Size = New System.Drawing.Size(184, 26)
Me.IzračunToolStripMenuItem.Text = "Izračun"
'
'tsbPodMer
'
Me.tsbPodMer.Name = "tsbPodMer"
Me.tsbPodMer.Size = New System.Drawing.Size(252, 22)
Me.tsbPodMer.Text = "Podatki Meritve (Stojišče > Točka)"
'
'tsbHzCor
'
Me.tsbHzCor.Name = "tsbHzCor"
Me.tsbHzCor.Size = New System.Drawing.Size(252, 22)
Me.tsbHzCor.Text = "Popravek Orientacije (HzCor)"
'
'FolderDialogKartica
'
Me.FolderDialogKartica.RootFolder = System.Environment.SpecialFolder.MyComputer
@ -467,21 +501,22 @@ Partial Class Form1
'ToolStrip2
'
Me.ToolStrip2.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
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.Location = New System.Drawing.Point(0, 80)
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.Padding = New System.Windows.Forms.Padding(5)
Me.ToolStrip2.Size = New System.Drawing.Size(1251, 37)
Me.ToolStrip2.Size = New System.Drawing.Size(1251, 41)
Me.ToolStrip2.TabIndex = 4
Me.ToolStrip2.Text = "ToolStrip2"
'
'ToolStripLabel2
'
Me.ToolStripLabel2.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ToolStripLabel2.ForeColor = System.Drawing.SystemColors.ControlText
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.Size = New System.Drawing.Size(84, 28)
Me.ToolStripLabel2.Text = "<projekt>"
Me.ToolStripLabel2.ToolTipText = "Izbran projekt"
'
@ -502,7 +537,7 @@ Partial Class Form1
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.Size = New System.Drawing.Size(29, 28)
Me.LabelDatoteka.ToolTipText = "Ni datoteke"
'
'tsbZacetek
@ -511,14 +546,14 @@ Partial Class Form1
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.Size = New System.Drawing.Size(94, 28)
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)
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 31)
'
'tsbSaveAs
'
@ -527,7 +562,7 @@ 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(83, 24)
Me.tsbSaveAs.Size = New System.Drawing.Size(87, 28)
Me.tsbSaveAs.Text = "Shrani ..."
'
'Form1
@ -614,4 +649,8 @@ Partial Class Form1
Friend WithEvents tsbPripravaZav As ToolStripMenuItem
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
Friend WithEvents tsbMapaZav As ToolStripMenuItem
Friend WithEvents IzračunToolStripMenuItem As ToolStripMenuItem
Friend WithEvents tsbPodMer As ToolStripMenuItem
Friend WithEvents tsbHzCor As ToolStripMenuItem
Friend WithEvents tsbKartica As ToolStripButton
End Class

18
Form1.vb
View File

@ -1032,11 +1032,6 @@ Public Class Form1
Application.Exit()
End Sub
Private Sub IzračunHzKotaToolStripMenuItem_Click(sender As Object, e As EventArgs)
DialogIzracunHzCor.ShowDialog()
End Sub
Private Sub tsbZacetek_Click(sender As Object, e As EventArgs) Handles tsbZacetek.Click
RichTextBox1.SelectionStart = 0
End Sub
@ -1053,4 +1048,17 @@ Public Class Form1
Dim mapaZav = My.Application.Info.DirectoryPath.ToString + "\Zavarovanja"
Process.Start(mapaZav)
End Sub
Private Sub tsbPodMer_Click(sender As Object, e As EventArgs) Handles tsbPodMer.Click
FormIzracunMeasure.Show()
End Sub
Private Sub tsbKartica_Click(sender As Object, e As EventArgs) Handles tsbKartica.Click
DialogKartica.ShowDialog()
End Sub
Private Sub tsbHzCor_Click(sender As Object, e As EventArgs) Handles tsbHzCor.Click
DialogIzracunHzCor.Show()
End Sub
End Class

21
Form2.Designer.vb generated
View File

@ -58,23 +58,25 @@ Partial Class Form2
Me.SkripteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.IzračunMeritveStMerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.IzračunOrientacijeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MyApplicationBindingSource2 = New System.Windows.Forms.BindingSource(Me.components)
Me.ToolStrip1.SuspendLayout()
Me.StatusStrip1.SuspendLayout()
CType(Me.MyApplicationBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.MyApplicationBindingSource1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.MenuStrip1.SuspendLayout()
CType(Me.MyApplicationBindingSource2, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'RichTextBoxEdit
'
Me.RichTextBoxEdit.BackColor = System.Drawing.Color.Ivory
Me.RichTextBoxEdit.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.RichTextBoxEdit.BorderStyle = System.Windows.Forms.BorderStyle.None
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, 67)
Me.RichTextBoxEdit.Location = New System.Drawing.Point(12, 68)
Me.RichTextBoxEdit.Name = "RichTextBoxEdit"
Me.RichTextBoxEdit.Size = New System.Drawing.Size(1160, 549)
Me.RichTextBoxEdit.Size = New System.Drawing.Size(1160, 548)
Me.RichTextBoxEdit.TabIndex = 2
Me.RichTextBoxEdit.Text = ""
Me.RichTextBoxEdit.WordWrap = False
@ -119,9 +121,10 @@ Partial Class Form2
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_scroll_50
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(37, 32)
Me.ToolStripLabel1.Text = "Koda:"
Me.ToolStripLabel1.Size = New System.Drawing.Size(54, 32)
Me.ToolStripLabel1.Text = "Koda"
'
'ComBoxKoda
'
@ -333,15 +336,19 @@ Partial Class Form2
Me.IzračunOrientacijeToolStripMenuItem.Size = New System.Drawing.Size(261, 22)
Me.IzračunOrientacijeToolStripMenuItem.Text = "Preračun Hz Orientacije (HzCor)"
'
'MyApplicationBindingSource2
'
Me.MyApplicationBindingSource2.DataSource = GetType(TPS1100_Convert.My.MyApplication)
'
'Form2
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1184, 641)
Me.Controls.Add(Me.RichTextBoxEdit)
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"
@ -355,6 +362,7 @@ Partial Class Form2
CType(Me.MyApplicationBindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
CType(Me.MyApplicationBindingSource2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -394,4 +402,5 @@ Partial Class Form2
Friend WithEvents SkripteToolStripMenuItem As ToolStripMenuItem
Friend WithEvents IzračunMeritveStMerToolStripMenuItem As ToolStripMenuItem
Friend WithEvents IzračunOrientacijeToolStripMenuItem As ToolStripMenuItem
Friend WithEvents MyApplicationBindingSource2 As BindingSource
End Class

3
Form2.resx
View File

@ -135,6 +135,9 @@
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>914, 17</value>
</metadata>
<metadata name="MyApplicationBindingSource2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>1029, 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>

1
FormGrafika.vb
View File

@ -12,6 +12,7 @@ Public Class FormGrafika
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
GrafikaIzris()
Form1.tsbSaveAs.Enabled = False
Form1.ShraniToolStripMenuItem.Enabled = False
End Sub
' Gumb: Zapri

322
FormGsiJobs.Designer.vb generated
View File

@ -24,14 +24,9 @@ Partial Class FormGsiJobs
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
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.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
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()
@ -50,44 +45,45 @@ Partial Class FormGsiJobs
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.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
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.ToolStrip2 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.ToolStrip3 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton6 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton7 = New System.Windows.Forms.ToolStripButton()
Me.ImageList1 = New System.Windows.Forms.ImageList(Me.components)
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.ProjektiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NovProjektToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UvoziProjekteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.OdpriMapoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton4 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton8 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton9 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStrip1.SuspendLayout()
Me.TableLayoutPanel1.SuspendLayout()
Me.TableLayoutPanel2.SuspendLayout()
Me.ToolStrip2.SuspendLayout()
Me.ToolStrip3.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'StatusStrip1
'
Me.StatusStrip1.Location = New System.Drawing.Point(0, 419)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(704, 22)
Me.StatusStrip1.SizingGrip = False
Me.StatusStrip1.TabIndex = 1
Me.StatusStrip1.Text = "StatusStrip1"
'
'ToolStrip1
'
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.TSButtonUvozi, Me.TSButonNalozi, Me.ToolStripSeparator2})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton5, Me.ToolStripSeparator3, Me.TSButonNalozi, Me.ToolStripSeparator2})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(5)
Me.ToolStrip1.Size = New System.Drawing.Size(704, 56)
@ -100,48 +96,15 @@ Partial Class FormGsiJobs
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.Size = New System.Drawing.Size(93, 43)
Me.ToolStripButton5.Text = "Nastavi Delovni"
Me.ToolStripButton5.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripButton4
'
Me.ToolStripButton4.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_folder_tree_50
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(73, 43)
Me.ToolStripButton4.Text = "Nov Projekt"
Me.ToolStripButton4.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 46)
'
'ToolStripButton3
'
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)
Me.ToolStripButton3.Text = "Odpri Mapo"
Me.ToolStripButton3.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 46)
'
'TSButtonUvozi
'
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..."
'
'TSButonNalozi
'
Me.TSButonNalozi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
@ -159,9 +122,9 @@ Partial Class FormGsiJobs
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(9, 56)
Me.Label1.Location = New System.Drawing.Point(12, 80)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(164, 26)
Me.Label1.Size = New System.Drawing.Size(161, 26)
Me.Label1.TabIndex = 8
Me.Label1.Text = "Projekt"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@ -169,7 +132,7 @@ Partial Class FormGsiJobs
'Label2
'
Me.Label2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label2.Location = New System.Drawing.Point(179, 56)
Me.Label2.Location = New System.Drawing.Point(179, 80)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(160, 26)
Me.Label2.TabIndex = 9
@ -179,7 +142,7 @@ Partial Class FormGsiJobs
'Label3
'
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(345, 56)
Me.Label3.Location = New System.Drawing.Point(345, 80)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(347, 26)
Me.Label3.TabIndex = 10
@ -206,7 +169,7 @@ Partial Class FormGsiJobs
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(345, 86)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(345, 109)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 7
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
@ -216,7 +179,7 @@ Partial Class FormGsiJobs
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(347, 181)
Me.TableLayoutPanel1.Size = New System.Drawing.Size(347, 189)
Me.TableLayoutPanel1.TabIndex = 11
'
'Label4
@ -304,11 +267,11 @@ Partial Class FormGsiJobs
'
Me.LabelIzbProj.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzbProj.AutoSize = True
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, 80)
Me.LabelIzbProj.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelIzbProj.ForeColor = System.Drawing.Color.DarkOrange
Me.LabelIzbProj.Location = New System.Drawing.Point(122, 79)
Me.LabelIzbProj.Name = "LabelIzbProj"
Me.LabelIzbProj.Size = New System.Drawing.Size(222, 15)
Me.LabelIzbProj.Size = New System.Drawing.Size(222, 16)
Me.LabelIzbProj.TabIndex = 1
Me.LabelIzbProj.Text = "(izberi projekt)"
Me.LabelIzbProj.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
@ -318,7 +281,7 @@ Partial Class FormGsiJobs
Me.Label10.Anchor = CType((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", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(3, 159)
Me.Label10.Location = New System.Drawing.Point(3, 163)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(113, 13)
Me.Label10.TabIndex = 8
@ -356,47 +319,14 @@ Partial Class FormGsiJobs
'
Me.LabelJobIme.Anchor = CType((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.DarkOrange
Me.LabelJobIme.Location = New System.Drawing.Point(122, 159)
Me.LabelJobIme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelJobIme.ForeColor = System.Drawing.Color.SteelBlue
Me.LabelJobIme.Location = New System.Drawing.Point(122, 161)
Me.LabelJobIme.Name = "LabelJobIme"
Me.LabelJobIme.Size = New System.Drawing.Size(222, 13)
Me.LabelJobIme.Size = New System.Drawing.Size(222, 16)
Me.LabelJobIme.TabIndex = 12
Me.LabelJobIme.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'ButtonNalJob2
'
Me.ButtonNalJob2.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
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, 67)
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(347, 59)
Me.ButtonNalJob2.TabIndex = 14
Me.ButtonNalJob2.Text = "Naloži Job"
Me.ButtonNalJob2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.ButtonNalJob2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.ButtonNalJob2.UseVisualStyleBackColor = True
'
'Label8
'
Me.Label8.Anchor = CType((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, 31)
Me.Label8.Margin = New System.Windows.Forms.Padding(3)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(341, 13)
Me.Label8.TabIndex = 15
Me.Label8.Text = "Naloži izbran Job za obdelavo"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'ListViewProj
'
Me.ListViewProj.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@ -406,19 +336,30 @@ Partial Class FormGsiJobs
Me.ListViewProj.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
Me.ListViewProj.HideSelection = False
Me.ListViewProj.LabelWrap = False
Me.ListViewProj.Location = New System.Drawing.Point(13, 86)
Me.ListViewProj.Location = New System.Drawing.Point(13, 109)
Me.ListViewProj.MultiSelect = False
Me.ListViewProj.Name = "ListViewProj"
Me.ListViewProj.Size = New System.Drawing.Size(160, 290)
Me.ListViewProj.Size = New System.Drawing.Size(160, 285)
Me.ListViewProj.SmallImageList = Me.ImageList1
Me.ListViewProj.TabIndex = 12
Me.ListViewProj.UseCompatibleStateImageBehavior = False
Me.ListViewProj.View = System.Windows.Forms.View.Details
Me.ListViewProj.View = System.Windows.Forms.View.List
'
'ProjektImeHeader
'
Me.ProjektImeHeader.Text = "Projekt Ime"
Me.ProjektImeHeader.Width = 140
'
'ImageList1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "icons8-file-GSI-50.png")
Me.ImageList1.Images.SetKeyName(1, "icons8-program-50.png")
Me.ImageList1.Images.SetKeyName(2, "icons8-sd-50.png")
Me.ImageList1.Images.SetKeyName(3, "icons8-product-documents-50.png")
Me.ImageList1.Images.SetKeyName(4, "icons8-documents-folder-50.png")
'
'ListView2
'
Me.ListView2.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
@ -428,10 +369,11 @@ Partial Class FormGsiJobs
Me.ListView2.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
Me.ListView2.HideSelection = False
Me.ListView2.LargeImageList = Me.ImageList1
Me.ListView2.Location = New System.Drawing.Point(179, 85)
Me.ListView2.Location = New System.Drawing.Point(179, 109)
Me.ListView2.MultiSelect = False
Me.ListView2.Name = "ListView2"
Me.ListView2.Size = New System.Drawing.Size(160, 290)
Me.ListView2.Size = New System.Drawing.Size(160, 285)
Me.ListView2.SmallImageList = Me.ImageList1
Me.ListView2.TabIndex = 13
Me.ListView2.UseCompatibleStateImageBehavior = False
Me.ListView2.View = System.Windows.Forms.View.List
@ -453,38 +395,22 @@ Partial Class FormGsiJobs
Me.TextBoxJobDat.BackColor = System.Drawing.SystemColors.Control
Me.TextBoxJobDat.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.TextBoxJobDat.Cursor = System.Windows.Forms.Cursors.IBeam
Me.TextBoxJobDat.Location = New System.Drawing.Point(10, 5)
Me.TextBoxJobDat.Location = New System.Drawing.Point(352, 306)
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(327, 20)
Me.TextBoxJobDat.Size = New System.Drawing.Size(333, 20)
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(345, 273)
Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
Me.TableLayoutPanel2.RowCount = 3
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle())
Me.TableLayoutPanel2.Size = New System.Drawing.Size(347, 143)
Me.TableLayoutPanel2.TabIndex = 14
'
'ToolStrip2
'
Me.ToolStrip2.AutoSize = False
Me.ToolStrip2.Dock = System.Windows.Forms.DockStyle.None
Me.ToolStrip2.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip2.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton2, Me.ToolStripButton1})
Me.ToolStrip2.Location = New System.Drawing.Point(13, 381)
Me.ToolStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.ToolStripSeparator1, Me.ToolStripButton1, Me.ToolStripButton2, Me.ToolStripSeparator6, Me.ToolStripButton9})
Me.ToolStrip2.Location = New System.Drawing.Point(13, 397)
Me.ToolStrip2.Name = "ToolStrip2"
Me.ToolStrip2.RenderMode = System.Windows.Forms.ToolStripRenderMode.Professional
Me.ToolStrip2.Size = New System.Drawing.Size(160, 35)
@ -519,11 +445,11 @@ Partial Class FormGsiJobs
Me.ToolStrip3.Dock = System.Windows.Forms.DockStyle.None
Me.ToolStrip3.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip3.ImageScalingSize = New System.Drawing.Size(24, 24)
Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton6, Me.ToolStripButton7})
Me.ToolStrip3.Location = New System.Drawing.Point(179, 381)
Me.ToolStrip3.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton4, Me.ToolStripSeparator5, Me.ToolStripButton7, Me.ToolStripButton6, Me.ToolStripButton8})
Me.ToolStrip3.Location = New System.Drawing.Point(179, 397)
Me.ToolStrip3.Name = "ToolStrip3"
Me.ToolStrip3.RenderMode = System.Windows.Forms.ToolStripRenderMode.Professional
Me.ToolStrip3.Size = New System.Drawing.Size(160, 38)
Me.ToolStrip3.Size = New System.Drawing.Size(160, 35)
Me.ToolStrip3.TabIndex = 15
Me.ToolStrip3.Text = "ToolStrip2"
'
@ -549,20 +475,114 @@ Partial Class FormGsiJobs
Me.ToolStripButton7.Text = "ToolStripButton1"
Me.ToolStripButton7.ToolTipText = "Arhiviraj Job"
'
'ImageList1
'MenuStrip1
'
Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
Me.ImageList1.Images.SetKeyName(0, "icons8-file-GSI-50.png")
Me.MenuStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ProjektiToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(704, 24)
Me.MenuStrip1.TabIndex = 16
Me.MenuStrip1.Text = "MenuStrip1"
'
'ProjektiToolStripMenuItem
'
Me.ProjektiToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NovProjektToolStripMenuItem, Me.UvoziProjekteToolStripMenuItem, Me.ToolStripSeparator4, Me.OdpriMapoToolStripMenuItem})
Me.ProjektiToolStripMenuItem.Name = "ProjektiToolStripMenuItem"
Me.ProjektiToolStripMenuItem.Size = New System.Drawing.Size(56, 20)
Me.ProjektiToolStripMenuItem.Text = "Projekt"
'
'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(184, 26)
Me.NovProjektToolStripMenuItem.Text = "Nov/Dodaj..."
Me.NovProjektToolStripMenuItem.ToolTipText = "Ustvari nov projekt..."
'
'UvoziProjekteToolStripMenuItem
'
Me.UvoziProjekteToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tree_structure_50
Me.UvoziProjekteToolStripMenuItem.Name = "UvoziProjekteToolStripMenuItem"
Me.UvoziProjekteToolStripMenuItem.Size = New System.Drawing.Size(184, 26)
Me.UvoziProjekteToolStripMenuItem.Text = "Uvozi Mape"
Me.UvoziProjekteToolStripMenuItem.ToolTipText = "Uvozi mape projektov..."
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(153, 6)
'
'OdpriMapoToolStripMenuItem
'
Me.OdpriMapoToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_opened_folder_50
Me.OdpriMapoToolStripMenuItem.Name = "OdpriMapoToolStripMenuItem"
Me.OdpriMapoToolStripMenuItem.Size = New System.Drawing.Size(184, 26)
Me.OdpriMapoToolStripMenuItem.Text = "Odpri Mapo..."
Me.OdpriMapoToolStripMenuItem.ToolTipText = "Odpri mapo z projekti..."
'
'ToolStripButton3
'
Me.ToolStripButton3.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton3.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_add_folder_50
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(28, 32)
Me.ToolStripButton3.Text = "Nov/Dodaj"
Me.ToolStripButton3.ToolTipText = "Nov/Dodaj"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 35)
'
'ToolStripButton4
'
Me.ToolStripButton4.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton4.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
Me.ToolStripButton4.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton4.Name = "ToolStripButton4"
Me.ToolStripButton4.Size = New System.Drawing.Size(28, 32)
Me.ToolStripButton4.Text = "Uvozi Job"
Me.ToolStripButton4.ToolTipText = "Uvozi Job"
'
'ToolStripSeparator5
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 35)
'
'ToolStripButton8
'
Me.ToolStripButton8.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripButton8.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton8.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
Me.ToolStripButton8.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton8.Name = "ToolStripButton8"
Me.ToolStripButton8.Size = New System.Drawing.Size(28, 32)
Me.ToolStripButton8.Text = "Naloži Job"
'
'ToolStripButton9
'
Me.ToolStripButton9.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton9.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_50
Me.ToolStripButton9.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton9.Name = "ToolStripButton9"
Me.ToolStripButton9.Size = New System.Drawing.Size(28, 32)
Me.ToolStripButton9.Text = "Nastavi kot delovni"
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(6, 35)
'
'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.TextBoxJobDat)
Me.Controls.Add(Me.ToolStrip3)
Me.Controls.Add(Me.ToolStrip2)
Me.Controls.Add(Me.TableLayoutPanel2)
Me.Controls.Add(Me.ListView2)
Me.Controls.Add(Me.ListViewProj)
Me.Controls.Add(Me.TableLayoutPanel1)
@ -570,8 +590,9 @@ Partial Class FormGsiJobs
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ToolStrip1)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.MinimumSize = New System.Drawing.Size(720, 480)
@ -583,26 +604,22 @@ Partial Class FormGsiJobs
Me.ToolStrip1.PerformLayout()
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel1.PerformLayout()
Me.TableLayoutPanel2.ResumeLayout(False)
Me.TableLayoutPanel2.PerformLayout()
Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout()
Me.ToolStrip3.ResumeLayout(False)
Me.ToolStrip3.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents StatusStrip1 As StatusStrip
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents TSButonNalozi As ToolStripButton
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents TSButtonUvozi As ToolStripButton
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents ToolStripButton4 As ToolStripButton
Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
Friend WithEvents Label4 As Label
Friend WithEvents LabelIzbProj As Label
@ -613,7 +630,6 @@ Partial Class FormGsiJobs
Friend WithEvents LabelDeloProj As Label
Friend WithEvents LabelDeloMapa As Label
Friend WithEvents Label10 As Label
Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents ButtonDelovni As Button
Friend WithEvents Label12 As Label
Friend WithEvents ListViewProj As ListView
@ -624,10 +640,7 @@ Partial Class FormGsiJobs
Friend WithEvents JobImeHeader 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
Friend WithEvents ToolStrip2 As ToolStrip
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents ToolStripButton1 As ToolStripButton
@ -635,4 +648,17 @@ Partial Class FormGsiJobs
Friend WithEvents ToolStripButton6 As ToolStripButton
Friend WithEvents ToolStripButton7 As ToolStripButton
Friend WithEvents ImageList1 As ImageList
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents ProjektiToolStripMenuItem As ToolStripMenuItem
Friend WithEvents NovProjektToolStripMenuItem As ToolStripMenuItem
Friend WithEvents UvoziProjekteToolStripMenuItem As ToolStripMenuItem
Friend WithEvents OdpriMapoToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents ToolStripButton4 As ToolStripButton
Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
Friend WithEvents ToolStripButton9 As ToolStripButton
Friend WithEvents ToolStripButton8 As ToolStripButton
Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
End Class

193
FormGsiJobs.resx
View File

@ -117,9 +117,6 @@
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="StatusStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>128, 17</value>
</metadata>
<metadata name="ToolStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>244, 17</value>
</metadata>
@ -130,42 +127,157 @@
<value>
AAEAAAD/////AQAAAAAAAAAMAgAAAFdTeXN0ZW0uV2luZG93cy5Gb3JtcywgVmVyc2lvbj00LjAuMC4w
LCBDdWx0dXJlPW5ldXRyYWwsIFB1YmxpY0tleVRva2VuPWI3N2E1YzU2MTkzNGUwODkFAQAAACZTeXN0
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAD8
BwAAAk1TRnQBSQFMAwEBAAEIAQABCAEAARABAAEQAQAE/wEJAQAI/wFCAU0BNgEEBgABNgEEAgABKAMA
AUADAAEQAwABAQEAAQgGAAEEGAABgAIAAYADAAKAAQABgAMAAYABAAGAAQACgAIAA8ABAAHAAdwBwAEA
AfABygGmAQABMwUAATMBAAEzAQABMwEAAjMCAAMWAQADHAEAAyIBAAMpAQADVQEAA00BAANCAQADOQEA
AYABfAH/AQACUAH/AQABkwEAAdYBAAH/AewBzAEAAcYB1gHvAQAB1gLnAQABkAGpAa0CAAH/ATMDAAFm
AwABmQMAAcwCAAEzAwACMwIAATMBZgIAATMBmQIAATMBzAIAATMB/wIAAWYDAAFmATMCAAJmAgABZgGZ
AgABZgHMAgABZgH/AgABmQMAAZkBMwIAAZkBZgIAApkCAAGZAcwCAAGZAf8CAAHMAwABzAEzAgABzAFm
AgABzAGZAgACzAIAAcwB/wIAAf8BZgIAAf8BmQIAAf8BzAEAATMB/wIAAf8BAAEzAQABMwEAAWYBAAEz
AQABmQEAATMBAAHMAQABMwEAAf8BAAH/ATMCAAMzAQACMwFmAQACMwGZAQACMwHMAQACMwH/AQABMwFm
AgABMwFmATMBAAEzAmYBAAEzAWYBmQEAATMBZgHMAQABMwFmAf8BAAEzAZkCAAEzAZkBMwEAATMBmQFm
AQABMwKZAQABMwGZAcwBAAEzAZkB/wEAATMBzAIAATMBzAEzAQABMwHMAWYBAAEzAcwBmQEAATMCzAEA
ATMBzAH/AQABMwH/ATMBAAEzAf8BZgEAATMB/wGZAQABMwH/AcwBAAEzAv8BAAFmAwABZgEAATMBAAFm
AQABZgEAAWYBAAGZAQABZgEAAcwBAAFmAQAB/wEAAWYBMwIAAWYCMwEAAWYBMwFmAQABZgEzAZkBAAFm
ATMBzAEAAWYBMwH/AQACZgIAAmYBMwEAA2YBAAJmAZkBAAJmAcwBAAFmAZkCAAFmAZkBMwEAAWYBmQFm
AQABZgKZAQABZgGZAcwBAAFmAZkB/wEAAWYBzAIAAWYBzAEzAQABZgHMAZkBAAFmAswBAAFmAcwB/wEA
AWYB/wIAAWYB/wEzAQABZgH/AZkBAAFmAf8BzAEAAcwBAAH/AQAB/wEAAcwBAAKZAgABmQEzAZkBAAGZ
AQABmQEAAZkBAAHMAQABmQMAAZkCMwEAAZkBAAFmAQABmQEzAcwBAAGZAQAB/wEAAZkBZgIAAZkBZgEz
AQABmQEzAWYBAAGZAWYBmQEAAZkBZgHMAQABmQEzAf8BAAKZATMBAAKZAWYBAAOZAQACmQHMAQACmQH/
AQABmQHMAgABmQHMATMBAAFmAcwBZgEAAZkBzAGZAQABmQLMAQABmQHMAf8BAAGZAf8CAAGZAf8BMwEA
AZkBzAFmAQABmQH/AZkBAAGZAf8BzAEAAZkC/wEAAcwDAAGZAQABMwEAAcwBAAFmAQABzAEAAZkBAAHM
AQABzAEAAZkBMwIAAcwCMwEAAcwBMwFmAQABzAEzAZkBAAHMATMBzAEAAcwBMwH/AQABzAFmAgABzAFm
ATMBAAGZAmYBAAHMAWYBmQEAAcwBZgHMAQABmQFmAf8BAAHMAZkCAAHMAZkBMwEAAcwBmQFmAQABzAKZ
AQABzAGZAcwBAAHMAZkB/wEAAswCAALMATMBAALMAWYBAALMAZkBAAPMAQACzAH/AQABzAH/AgABzAH/
ATMBAAGZAf8BZgEAAcwB/wGZAQABzAH/AcwBAAHMAv8BAAHMAQABMwEAAf8BAAFmAQAB/wEAAZkBAAHM
ATMCAAH/AjMBAAH/ATMBZgEAAf8BMwGZAQAB/wEzAcwBAAH/ATMB/wEAAf8BZgIAAf8BZgEzAQABzAJm
AQAB/wFmAZkBAAH/AWYBzAEAAcwBZgH/AQAB/wGZAgAB/wGZATMBAAH/AZkBZgEAAf8CmQEAAf8BmQHM
AQAB/wGZAf8BAAH/AcwCAAH/AcwBMwEAAf8BzAFmAQAB/wHMAZkBAAH/AswBAAH/AcwB/wEAAv8BMwEA
AcwB/wFmAQAC/wGZAQAC/wHMAQACZgH/AQABZgH/AWYBAAFmAv8BAAH/AmYBAAH/AWYB/wEAAv8BZgEA
ASEBAAGlAQADXwEAA3cBAAOGAQADlgEAA8sBAAOyAQAD1wEAA90BAAPjAQAD6gEAA/EBAAP4AQAB8AH7
Af8BAAGkAqABAAOAAwAB/wIAAf8DAAL/AQAB/wMAAf8BAAH/AQAC/wIAA/9EAAH/CegB/zUAAeEB/wKz
Af8CswH/AbkB/wH0NQAB4QHfAegBAgH/AYoB/wKzAf8B9DUAAeEB3wHoAQID/wHoAbMB/wH0NQAB4QHf
AegB2gHfAf8BswH/AbMB/wH0NQAB4QHfAugB/wGKAv8BswH/AfQ1AAHhAd8B6AECAf8BigH/ArMB/wH0
NQAB4Qn/AfQ1AAHhCf8B9DUAAeEF/wHfA7MB9TUAAeEG/wLOAfQ2AAHhBv8BzgH1NwAB4Qb/AfW1AAFC
AU0BPgcAAT4DAAEoAwABQAMAARADAAEBAQABAQUAAYAXAAP/AQAC/wYAAeABAwYAAeABAwYAAeABAwYA
AeABAwYAAeABAwYAAeABAwYAAeABAwYAAeABAwYAAeABAwYAAeABAwYAAeABBwYAAeABDwYAAeABHwYA
Av8GAAL/BgAL
ZW0uV2luZG93cy5Gb3Jtcy5JbWFnZUxpc3RTdHJlYW1lcgEAAAAERGF0YQcCAgAAAAkDAAAADwMAAAD+
IgAAAk1TRnQBSQFMAgEBBQEAAUABAAFAAQABFAEAARQBAAT/ASEBAAj/AUIBTQE2BwABNgMAASgDAAFQ
AwABKAMAAQEBAAEgBgABMv8A/wCYAAMFAQYDQwF2AUMCRAF3AUMCRAF3AUMCRAF3AUMCRAF3AUMCRAF3
AUMCRAF3AUMCRAF3AUMCRAF3AUMCRAF3AUMCRAF3AUMCRAF3AUMCRAF3AUMCRAF3AUMCRAF3AUMCRAF3
AzsBY/gAA0YBfQEvAcYB/gH/AS8BxgH+Af8BLwHGAf4B/wEvAcYB/gH/AS8BxgH+Af8BLwHGAf4B/wEv
AcYB/gH/AS8BxgH+Af8BLwHGAf4B/wEvAcYB/gH/AS8BxgH+Af8BLwHGAf4B/wEvAcYB/gH/AS8BxgH+
Af8BLwHGAf4B/wEvAcYB/gH/AS8BxgH+Af/4AANGAX4BNAHIAf4B/wE0AcgB/gH/ATQByAH+Af8BNAHI
Af4B/wE0AcgB/gH/AXEBxwG7Af8BzgHaAXIB/wHOAdoBcgH/Ac4B2gFyAf8BzgHaAXIB/wHMAdkBdAH/
ATgBwwHyAf8BNAHIAf4B/wE0AcgB/gH/ATQByAH+Af8BNAHIAf4B/wE0AcgB/gH/+AADRgF+ATkByQH+
Af8BOQHJAf4B/wE5AckB/gH/ATkByQH+Af8BOQHJAf4B/wG3AdUBhQL/AeYBUAL/AeYBUAL/AeYBUAL/
AeYBUAL/AeYBUAH/AVQBxQHaAf8BOQHJAf4B/wE5AckB/gH/ATkByQH+Af8BOQHJAf4B/wE5AckB/gH/
+AADRgF+AT4BywH+Af8BPgHLAf4B/wE+AcsB/gH/AT4BywH+Af8BPgHLAf4B/wG5AdUBhQL/AeYBUAL/
AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAH/AVgBxgHaAf8BPgHLAf4B/wE+AcsB/gH/AT4BywH+Af8BPgHL
Af4B/wE+AcsB/gH/+AADRgF+AUMBzAH+Af8BQwHMAf4B/wFDAcwB/gH/AUMBzAH+Af8BQwHMAf4B/wG6
AdYBhQL/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAH/AVwBxwHaAf8BQwHMAf4B/wFDAcwB/gH/
AUMBzAH+Af8BQwHMAf4B/wFDAcwB/gH/+AADRgF+AUgBzgH+Af8BSAHOAf4B/wFIAc4B/gH/AUgBzgH+
Af8BSAHOAf4B/wG8AdcBhQL/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAH/AWAByQHaAf8BSAHO
Af4B/wFIAc4B/gH/AUgBzgH+Af8BSAHOAf4B/wFIAc4B/gH/+AADRgF+AU0BzwL/AU0BzwL/AU0BzwL/
AU0BzwL/AU0BzwL/Ab4B1wGFAv8B5gFQAv8B5gFQAv8B5gFQAf8B6QGtAT8B/wHcAZABMgH/AVYBxgHm
Af8BTQHPAv8BTQHPAv8BTQHPAv8BTQHPAv8BTQHPAv/4AANGAX4BUgHRAv8BUgHRAv8BUgHRAv8BUgHR
Av8BUgHRAv8BvwHXAYUC/wHmAVAC/wHmAVAC/wHmAVAB/wHUAX4BLQH/AWEBwwHbAf8BUgHRAv8BUgHR
Av8BUgHRAv8BUgHRAv8BUgHRAv8BUgHRAv/4AANGAX4BVwHSAv8BVwHSAv8BVwHSAv8BVwHSAv8BVwHS
Av8BbQHJAdUB/wHEAdcBgQH/AcQB1wGBAf8BxAHXAYEB/wFlAcQB2wH/AVcB0gL/AVcB0gL/AVcB0gL/
AVcB0gL/AVcB0gL/AVcB0gL/AVcB0gL/+AADRgF+AVwB1AL/AVwB1AL/AVwB1AL/AVwB1AL/AVwB1AL/
AVwB1AL/AVwB1AL/AVwB1AL/AVwB1AL/AVwB1AL/AVwB1AL/AVwB1AL/AVwB1AL/AVwB1AL/AVwB1AL/
AVwB1AL/AVwB1AL/+AADQgF0AScBowHaAf8BJwGjAdoB/wEnAaMB2gH/AScBowHaAf8BJwGjAdoB/wEn
AaMB2gH/AScBowHaAf8BXQHSAf0B/wFhAdUC/wFhAdUC/wFhAdUC/wFhAdUC/wFhAdUC/wFhAdUC/wFh
AdUC/wFhAdUC/wFhAdUC//gAAUACQQFwAQABjQHPAf8BAAGNAc8B/wEAAY0BzwH/AQABjQHPAf8BAAGN
Ac8B/wEAAY0BzwH/AQABjQHPAf8BAwGQAdAB/wFgAdMB/AH/AWYB1wL/AWYB1wL/AWYB1wL/AWYB1wL/
AWYB1wL/AWYB1wL/AWYB1wL/AWYB1wL/+AABQAJBAXABAAGXAdoB/wEAAZcB2gH/AQABlwHaAf8BAAGX
AdoB/wEAAZcB2gH/AQABlwHaAf8BAAGXAdoB/wEAAZcB2gH/AyABLf8AGQADHwEsAVcBZwFtAdwBVwFm
AW4B3QFXAWYBbgHdAVcBZgFuAd0BVwFmAW4B3QFXAWYBbgHdAVoBZQFtAdoDLwFJ/wD/AP8A/wD/AP8A
/wBvAAH/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/
AeYBUAL/AeYBUAL/AeYBUAH/A0cBghAAAwUBBgE7AVsBaAF2ATwBXAFpAXcBPAFcAWkBdwE8AVwBaQF3
ATwBXAFpAXcBPAFcAWkBdwE8AVwBaQF3ATwBXAFpAXcBPAFcAWkBdwE8AVwBaQF3ATwBXAFpAXcBPAFc
AWkBdwE8AVwBaQF3ATwBXAFpAXcBPAFcAWkBdwE8AVwBaQF3ATYBTAFVAWMUAAFaAlgBugFpAV4BXQHd
AWkBXgFdAd0BaQFeAV0B3QFoAl0B3QFoAl0B3QFoAl0B3QFoAV0BWwHdAWgBXQFbAd0BaAFdAVsB3QFo
AV0BWwHdAWgCXQHcAyMBMxgAATIBxQH5AfwBMwHIAf4B/wEzAcgB/gH/ATMByAH+Af8BMwHIAf4B/wEz
AcgB/gH/ATMByAH+Af8BMwHIAf4B/wEzAcgB/gH/ATMByAH+Af8BMwHIAf4B/wEzAcgB/gH/ATMByAH+
Af8BMwHIAf4B/wFGAYcBngGpGAAB/wHmAVAC/wHmAVAB/wFqATkBDQH/AWoBOQENAf8BgwFaARoC/wHm
AVAB/wFqATkBDQH/AWoBOQENAf8BagE5AQ0C/wHmAVAB/wFqATkBDQL/AeYBUAH/AlEBUAGfEAABPwFj
AXABfQEvAcYB/gH/AS8BxgH+Af8BLwHGAf4B/wEvAcYB/gH/AS8BxgH+Af8BLwHGAf4B/wEvAcYB/gH/
AS8BxgH+Af8BLwHGAf4B/wEvAcYB/gH/AS8BxgH+Af8BLwHGAf4B/wEvAcYB/gH/AS8BxgH+Af8BLwHG
Af4B/wEvAcYB/gH/AS8BxgH+Af8UAAG0AUwBRAH/AbMBSwFEAf8BsgFKAUMB/wGyAUkBQgH/AbEBSAFB
Af8BsAFHAUAB/wGwAUYBPwH/Aa8BRQE+Af8BrgFEAT0B/wGuAUQBPAH/Aa0BQgE7Af8BrQFCATsB/wFR
AlABnxgAAT8BywH+Af8BPwHLAf4B/wE/AcsB/gH/AT8BywH+Af8BPwHLAf4B/wE/AcsB/gH/AT8BywH+
Af8BPwHLAf4B/wE/AcsB/gH/AT8BywH+Af8BPwHLAf4B/wE/AcsB/gH/AT8BywH+Af8BPwHLAf4B/wFG
AbIB2AHfGAAB/wHmAVAB/wH7AeIBTwH/AaUBggEpAv8B5gFQAf8BagE5AQ0C/wHmAVAB/wFqATkBDQL/
AeYBUAH/AWoBOQENAv8B5gFQAf8BagE5AQ0C/wHmAVAB/wJRAVABnxAAAUABZAFxAX4BNAHIAf4B/wE0
AcgB/gH/ATQByAH+Af8BNAHIAf4B/wE0AcgB/gH/ATQByAH+Af8BNAHIAf4B/wE0AcgB/gH/ATQByAH+
Af8BNAHIAf4B/wE0AcgB/gH/ATQByAH+Af8BNAHIAf4B/wE0AcgB/gH/ATQByAH+Af8BNAHIAf4B/wE0
AcgB/gH/FAABtQFNAUYB/wG0AUwBRQH/AbMBSwFEAf8BswFKAUMB/wGyAUoBQgH/AbEBSAFBAf8BsQFI
AUAB/wGwAUcBPwH/Aa8BRgE/Af8BrwFFAT4B/wGuAUQBPQH/Aa0BQwE8Af8BUQJQAZ8YAAFNAc8C/wFN
Ac8C/wFNAc8C/wFNAc8C/wFNAc8C/wFNAc8C/wFWAc0B8QH/AWwBxgHRAf8BTQHPAv8BTQHPAv8BTQHP
Av8BTQHPAv8BTQHPAv8BTQHPAv8BUAG0AdkB3xgAAf8B5gFQAf8B+wHiAU8B/wGlAYIBKQL/AeYBUAH/
AWoBOQENAv8B5gFQAv8B5gFQAv8B5gFQAf8BagE5AQ0C/wHmAVAB/wFqATkBDQL/AeYBUAH/AlEBUAGf
EAABQQFkAXEBfgE5AckB/gH/ATkByQH+Af8BOQHJAf4B/wFDAcAB7AH/Aa4BVQEbAf8BOQHJAf4B/wE5
AckB/gH/ATkByQH+Af8BOQHJAf4B/wHBAV8BHgH/AcABXgEdAf8BvwFdARwB/wG9AVwBGgH/AZ8BdAFP
Af8BOQHJAf4B/wE5AckB/gH/ATkByQH+Af8UAAG1AU4BRwH/AbUBTQFGAf8BtAFMAUUB/wG0AUwBRAH/
AbMBSwFDAf8BsgFKAUMB/wGyAUkBQQH/AbEBSAFBAf8BsAFHAUAB/wGwAUYBPwH/Aa8BRQE+Af8BrgFE
AT0B/wFRAlABnxgAAVkB0wL/AVkB0wL/AVkB0wL/AVkB0wL/AVkB0wL/AWsBzgHjAf8B5wGoASMB/wHm
AagBIgH/Ad8BqgEtAf8BWQHTAv8BWQHTAv8BWQHTAv8BWQHTAv8BWQHTAv8BWwG4AdkB3xgAAf8B5gFQ
Af8B+wHiAU8B/wGlAYIBKQH/AaABeQEmAf8BagE5AQ0C/wHmAVAC/wHmAVAB/wGtAYkBLAH/AeYBygFG
Av8B5gFQAf8BagE5AQ0C/wHmAVAB/wJRAVABnxAAAUIBZAFxAX4BPgHLAf4B/wE+AcsB/gH/AT4BywH+
Af8BdQGRAY4B/wGtAU8BFAH/AZEBYwFBAf8BPgHLAf4B/wE+AcsB/gH/AT4BywH+Af8BagGnAbQB/wFq
AacBswH/AWkBpwGzAf8BaQGmAbIB/wFcAbEByAH/AT4BywH+Af8BPgHLAf4B/wE+AcsB/gH/FAABtwFQ
AUgB/wG2AU8BRwH/AbUBTgFHAf8BtQFNAUUB/wG0AUwBRQH/AbMBSwFEAf8BswFKAUMB/wGyAUkBQgH/
AbEBSAFBAf8BsQFHAUAB/wGwAUcBPwH/Aa8BRgE+Af8BUQJQAZ8YAAFqAcEB2wHnAXcB0QHiAf8BdwHR
AeIB/wF3AdEB4gH/AXsB0AHbAf8B5wGsASYB/wHoAasBJQH/AecBqgEkAf8B5wGqASQB/wGnAb8BjwH/
AXcB0QHiAf8BdgHRAeIB/wF2AdEB4gH/AXYB0QHiAf8BXQGTAaYBsBgAAf8B5gFQAf8B+wHiAU8B/wGl
AYIBKQL/AeYBUAL/AeYBUAL/AeYBUAH/AdUBuAE+Af8BzQGuATsC/wHmAVAC/wHmAVAB/wFqATkBDQL/
AeYBUAH/AlEBUAGfEAABQwFkAXEBfgFDAcwB/gH/AUMBzAH+Af8BQwHMAf4B/wFDAcwB/gH/AXUBigGH
Af8BmwFFARIB/wG7AVsBGQH/AUMBzAH+Af8BQwHMAf4B/wFDAcwB/gH/AUMBzAH+Af8BQwHMAf4B/wFD
AcwB/gH/AUMBzAH+Af8BQwHMAf4B/wFDAcwB/gH/AUMBzAH+Af8UAAG3AVEBSQH/AbcBUAFJAf8BtgFP
AUgB/wG2AU4BRwH/AbUBTQFGAf8BtAFMAUUB/wGzAUsBRAH/AbMBSwFDAf8BsgFJAUIB/wGyAUkBQgH/
AbEBSAFAAf8BsAFHAUAB/wFRAlABnxgAAUkBQwE0AVUB6gGwASgB/wHpAa8BKAH/AekBrwEnAf8B6QGu
AScB/wHpAa0BJgH/AegBrQEmAf8B6AGsASYB/wHoAawBJQH/AegBqwElAf8B6AGrASQB/wHnAaoBJAH/
AecBqgEkAf8B5wGpASMB/xwAAf8B5gFQAf8B+wHiAU8B/wGlAYIBKQL/AeYBUAH/AWoBOQENAv8B5gFQ
Af8BagE5AQ0C/wHmAVAB/wG1AZABLwL/AeYBUAH/AWoBOQENAv8B5gFQAf8CUQFQAZ8QAAFEAWUBcQF+
AUgBzgH+Af8BSAHOAf4B/wFIAc4B/gH/AUgBzgH+Af8BSQHNAfwB/wG5AWABIwH/Ab0BXAEaAf8BZwGs
AbwB/wFIAc4B/gH/AUgBzgH+Af8BSAHOAf4B/wFIAc4B/gH/AUgBzgH+Af8BSAHOAf4B/wFIAc4B/gH/
AUgBzgH+Af8BSAHOAf4B/xQAAbgBUgFLAf8BuAFRAUoB/wG3AVEBSQH/AbYBTwFIAf8BtgFPAUcB/wG1
AU4BRgH/AbUBTQFGAf8BtAFMAUQB/wGzAUsBRAH/AbIBSgFDAf8BsgFJAUIB/wGxAUgBQQH/AVECUAGf
GAABSQFDATQBVQHrAbMBKgH/AeoBsgEqAf8B6gGxASkB/wHlAaoBJgH/AeMBqAEmAf8B4wGoASUB/wHj
AacBJQH/AeMBpgElAf8B5gGqASUB/wHpAa0BJgH/AegBrQEmAf8B6AGsASYB/wHoAawBJQH/HAAB/wHm
AVAB/wH7AeIBTwH/AaUBggEpAv8B5gFQAf8BagE5AQ0C/wHmAVAB/wFqATkBDQL/AeYBUAH/AWoBOQEN
Av8B5gFQAf8BagE5AQ0C/wHmAVAB/wJRAVABnxAAAUYBZQFxAX4BTQHPAv8BTQHPAv8BTQHPAv8BTwHO
Af0B/wHAAV4BHQH/Ab8BXgEcAf8BXAHAAeAB/wFNAc8C/wFNAc8C/wFNAc8C/wFNAc8C/wFNAc8C/wFN
Ac8C/wFNAc8C/wFNAc8C/wFNAc8C/wFNAc8C/xQAAbkBUwFMAf8BuQFTAUsB/wG4AVIBSgH/AbcBUQFJ
Af8BtwFQAUgB/wG2AU8BSAH/AbUBTgFHAf8BtQFNAUYB/wG0AUwBRQH/AbMBSwFEAf8BswFKAUMB/wGy
AUoBQgH/AVECUAGfGAABSQFDATQBVQHsAbQBLAH/AesBtAErAf8B6wGzASsB/wG5AXYBFQH/AbEBbAER
Af8BsQFsAREB/wGxAWwBEAH/AbEBbAEQAf8BxwGGARoB/wHpAa8BKAH/AekBrwEnAf8B6QGuAScB/wHp
Aa4BJwH/HAAB/wHmAVAC/wHmAVAB/wG1AZABLwH/AbUBkAEvAf8BwQGgATUC/wHmAVAB/wG1AZABLwH/
AbUBkAEvAf8BtQGQAS8C/wHmAVAB/wG1AZABLwL/AeYBUAH/AlEBUAGfEAABRwFmAXEBfgFSAdEC/wFS
AdEC/wFSAdEC/wGPAZQBhwH/AcEBXwEeAf8BcgGwAb4B/wFSAdEC/wFSAdEC/wFSAdEC/wFSAdEC/wFS
AdEC/wFSAdEC/wFSAdEC/wFSAdEC/wFSAdEC/wFSAdEC/wFSAdEC/xQAAboBVQFNAf8BugFUAUwB/wG5
AVMBTAH/AbgBUgFLAf8BuAFRAUoB/wG3AVABSQH/AbYBTwFIAf8BtgFOAUcB/wG1AU4BRgH/AbQBTQFF
Af8BtAFMAUQB/wGzAUsBQwH/AVECUAGfGAABSQFDATQBVQHtAbcBLgH/AewBtwEtAf8B7AG2AS0B/wHN
AY4BHgH/AcgBiAEbAf8ByAGHARsB/wHIAYcBGwH/AcgBhwEbAf8BxwGHARsB/wHMAYwBHAH/AeoBsgEq
Af8B6gGxASkB/wHqAbABKQH/HAAB/wHmAVAC/wHmAVAC/wHmAVAC/wHmAVAC/wHmAVAC/wHmAVAC/wHm
AVAC/wHmAVAC/wHmAVAC/wHmAVAC/wHmAVAC/wHmAVAB/wJRAVABnxAAAUgBZgFxAX4BVwHSAv8BVwHS
Av8BVwHSAv8BVwHSAv8BXQHMAfQB/wFXAdIC/wFXAdIC/wFXAdIC/wFXAdIC/wFXAdIC/wFXAdIC/wFX
AdIC/wFXAdIC/wFXAdIC/wFXAdIC/wFXAdIC/wFXAdIC/xQAAbsBVgFOAf8BuwFVAU4B/wG6AVQBTQH/
AbkBUwFMAf8BuAFSAUsB/wG4AVIBSgH/AbcBUQFJAf8BtwFQAUgB/wG2AU8BRwH/AbUBTgFHAf8BtQFN
AUUB/wG0AUwBRQH/AVECUAGfGAABSgFEATQBVQHtAbkBLwH/Ae0BuQEvAf8B7QG4AS4B/wHtAbgBLgH/
Ae0BtwEtAf8B7AG2AS0B/wHsAbYBLQH/AewBtQEsAf8B7AG1ASwB/wHrAbQBKwH/AesBswErAf8B6wGz
ASsB/wHrAbIBKgH/HAAB/wHmAVAC/wHmAVAC/wHmAVAC/wHmAVAC/wHmAVAC/wHmAVAC/wHmAVAC/wHm
AVAC/wHmAVAC/wHmAVAC/wHmAVAC/wHmAVAB/wJRAVABnxAAAUkBZgFxAX4BXAHUAv8BXAHUAv8BXAHU
Av8BXAHUAv8BXAHUAv8BXAHUAv8BXAHUAv8BXAHUAv8BXAHUAv8BXAHUAv8BXAHUAv8BXAHUAv8BXAHU
Av8BXAHUAv8BXAHUAv8BXAHUAv8BXAHUAv8UAAG8AVgBUAH/AbsBVgFPAf8BuwFWAU4B/wG6AVUBTQH/
AboBVAFMAf8BuQFTAUsB/wG4AVIBSwH/AbcBUQFJAf8BtwFQAUkB/wG2AU8BSAH/AbYBTgFHAf8BtQFN
AUYB/wFRAlABnxgAAUoBRAE1AVUB7wG8ATEB/wHuAbsBMQH/Ae4BuwEwAf8B7gG6ATAB/wHuAboBMAH/
Ae0BuQEvAf8B7QG5AS8B/wHtAbgBLgH/Ae0BtwEuAf8B7AG3AS0B/wHsAbYBLQH/AewBtgEtAf8B7AG1
ASwB/xwAAf8B5gFQAv8B5gFQAv8B5gFQAv8B5gFQAv8B5gFQAv8B5gFQAv8B5gFQAv8B5gFQAf8B1QF5
AS8B/wHVAXoBLgH/AdQBewEsAf8B0wF8ASoB/xQAAToBVAFgAXQBJwGjAdoB/wEnAaMB2gH/AScBowHa
Af8BJwGjAdoB/wEnAaMB2gH/AScBowHaAf8BJwGjAdoB/wFdAdIB/QH/AWEB1QL/AWEB1QL/AWEB1QL/
AWEB1QL/AWEB1QL/AWEB1QL/AWEB1QL/AWEB1QL/AWEB1QL/FAABvQFZAVEB/wG3AVUBTgH/AbgBVQFN
Af8BuAFVAU0B/wG0AVIBSgH/AbkBUwFMAf8BswFQAUkB/wG1AVEBSQH/AbUBUAFJAf8BsgFOAUcB/wG2
AU8BSAH/AbEBTAFFAf8BUQJQAZ8YAAFGAUEBMwFRAe8BvQEyAf8B7wG9ATIB/wHvAb0BMgH/Ae8BvAEx
Af8B7gG8ATEB/wHuAbsBMQH/Ae4BugEwAf8B7gG6ATAB/wHuAbkBLwH/Ae0BuQEvAf8B7QG4AS4B/wHt
AbgBLgH/Ae0BtwEuAf8cAAH/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/
AeYBUAH/AdUBegEuAf8B1AF7ASwB/wHTAXwBKgH/AyEBLxQAATQBTwFbAXABAAGNAc8B/wEAAY0BzwH/
AQABjQHPAf8BAAGNAc8B/wEAAY0BzwH/AQABjQHPAf8BAAGNAc8B/wEDAZAB0AH/AWAB0wH8Af8BZgHX
Av8BZgHXAv8BZgHXAv8BZgHXAv8BZgHXAv8BZgHXAv8BZgHXAv8BZgHXAv8UAAG5AVgBUAH/ATEBpAHR
Af8BbQF5AY0B/wF0AXgBiQH/AQsBwAH+Af8BqQFRAUwB/wELAcAB/gH/AWUBfwGXAf8BhwFjAWsB/wEh
Aa4B4gH/Aa8BTQFHAf8BLQGkAdIB/wFRAlABnxwAAeEBmQEYAf8B4QGaARkB/wHhAZoBGQH/AeEBmgEZ
Af8B4QGaARkB/wHhAZoBGQH/AeEBmgEZAf8B4QGaARkB/wHhAZkBGQH/AeEBmQEYAf8B4QGZARgB/wHh
AZkBGAH/AZABcQE4AakcAAH/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/AeYBUAL/
AeYBUAH/AdQBewEsAf8B0wF8ASoB/xwAATQBUQFeAXABAAGXAdoB/wEAAZcB2gH/AQABlwHaAf8BAAGX
AdoB/wEAAZcB2gH/AQABlwHaAf8BAAGXAdoB/wEAAZcB2gH/AR8BIwElAS00AAMdASgBsQFWAU8B/wFx
AX4BjgH/AXgBfQGLAf8BEgHLAv8BqgFTAU0B/wESAcsC/wFpAYYBmAH/AYoBZgFsAf8BKAG4AeQB/wGv
AU4BSAH/ATMBrQHUAf8BUQJQAZ8cAAHfAZcBFgH/Ad8BlwEWAf8B3wGXARYB/wHfAZcBFgH/Ad8BlwEW
Af8B3wGXARYB/wHfAZcBFgH/Ad8BlwEWAf8B3wGXARYB/wHfAZcBFgH/Ad8BlwEWAf8B3wGXARYB/wFG
AT8BMQFUHAAB/wHmAVAC/wHmAVAC/wHmAVAC/wHmAVAC/wHmAVAC/wHmAVAC/wHmAVAC/wHmAVAB/wHT
AXwBKgH/AyEBLxwAAR4BIwElASwBGQGRAcQB3AEYAZIBxQHdARgBkgHFAd0BGAGSAcUB3QEYAZIBxQHd
ARgBkgHFAd0BGwGQAcIB2gErATgBPgFJPAADMQFNAaYBYQFeAf8BpgFiAV8B/wGAAX0BhgH/AbUBVQFN
Af8BggF5AYEB/wGfAWMBYgH/AasBVgFRAf8BhgFyAXgB/wG1AVIBSwH/AYoBbQFyAf8DRwGAHAABaAFR
ATkBkwGgAVwBEAH/AaABXAEQAf8BoAFcARAB/wGgAVwBEAH/AaABXAEQAf8BoAFcARAB/wGgAVwBEAH/
AaABXAEQAf8BoAFcARAB/wGgAVwBEAH/AaABXAEQAf8gAANHAYEBYgFgAV0BzAFiAWABXQHMAWIBYAFd
AcwBYgFgAV0BzAFiAWABXQHMAWIBYAFdAcwBYgFgAV0BzNAABAIBjAFfASsByQGNAWABKgHMAY0BYAEq
AcwBjQFgASoBzAGNAWABKgHMAY0BYAEqAcwBjQFgASoBzAGNAWABKgHMAY0BYAEqAcwBjQFgASoBzAFz
AVgBNwGg/wD/AJIAAUIBTQE+BwABPgMAASgDAAFQAwABKAMAAQEBAAEBBQAB4AEBFgAD/wEAAv8B8AkA
Av8B8AkAAYABAAEQCQABgAEAARAJAAGAAQABEAkAAYABAAEQCQABgAEAARAJAAGAAQABEAkAAYABAAEQ
CQABgAEAARAJAAGAAQABEAkAAYABAAEQCQABgAEAARAJAAGAAQABEAkAAYABAAEQCQABgAEfAfAJAAGA
AT8B8AkAAv8B8AkAAv8B8AkAAv8B8AkACv8CAAr/AgAB8AEAAXgBAAEBAfABAAF+AQABAwIAAfABAAF4
AQABAQHwAQABfgEAAQMCAAHwAQABeAEAAQEB8AEAAX4BAAEDAgAB8AEAAXgBAAEBAfABAAF+AQABAwIA
AfABAAF4AQABAQHwAQABfgEAAQMCAAHwAQABeAEAAQEB8AEAAX4BAAEHAgAB8AEAAXgBAAEBAfABAAF+
AQABBwIAAfABAAF4AQABAQHwAQABfgEAAQcCAAHwAQABeAEAAQEB8AEAAX4BAAEHAgAB8AEAAXgBAAEB
AfABAAF+AQABBwIAAfABAAF4AQABAQHwAQABfgEAAQcCAAHwAQAB+AEAAQEB8AEAAX4BAAEHAgAB8AEA
AfgBAAEBAfABAAF/AQABBwIAAfABAwH4AQEB/wHwAQABfwEAAQcCAAHwAQMB+AEDAf8B+AEAAX8BAAEP
AgAB8AEPBv8BAAEPAgAK/wIACv8CAAs=
</value>
</data>
<metadata name="OpenFileDialogUvoziJob.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
@ -177,6 +289,9 @@
<metadata name="ToolStrip3.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>638, 17</value>
</metadata>
<metadata name="MenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>744, 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>

127
FormGsiJobs.vb
View File

@ -1,4 +1,7 @@
Imports System.IO
Imports System.IO.Compression
Imports System.Windows.Forms
Public Class FormGsiJobs
@ -18,7 +21,6 @@ Public Class FormGsiJobs
ProjektBeriNast()
End Sub
Public Sub ProjektBeriNast()
@ -35,11 +37,17 @@ Public Class FormGsiJobs
If (line(0) IsNot "") Then
Dim projIme As String = line(0)
Dim projMapa As String = line(1)
ListViewProj.Items.Add(projIme).SubItems.Add(projMapa)
If projIme = "Virtualna Kartica" Then
ListViewProj.Items.Item(i).ImageIndex = 2
Else
ListViewProj.Items.Item(i).ImageIndex = 1
End If
If projIme = My.Settings.Projekt Then
iselected = i
End If
i = i + 1
End If
@ -80,6 +88,28 @@ Public Class FormGsiJobs
End If
End Sub
Public Sub UvoziMapeProj()
Dim appPath As String = My.Application.Info.DirectoryPath.ToString
Dim mapaProjekti As String = "\Projekti"
Dim pathProjekti As String = appPath + mapaProjekti
Dim mapeSeznam = My.Computer.FileSystem.GetDirectories(pathProjekti)
Dim mapa
Dim i As Integer = 1
ListViewProj.Clear()
ListViewProj.Items.Add("Virtualna Kartica", 2).SubItems.Add("Virtualna Kartica\GSI")
For Each mapa In mapeSeznam
Dim projIme As String = Path.GetFullPath(mapa).Replace(pathProjekti + "\", "").ToString
Dim projMapa As String = "Projekti\" + projIme
ListViewProj.Items.Add(projIme, 1).SubItems.Add(projMapa)
i = i + 1
Next
End Sub
Private Sub UvoziGsiJob()
If OpenFileDialogUvoziJob.ShowDialog = DialogResult.OK Then
Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + My.Settings.ProjektMapa.ToString + "\"
@ -132,10 +162,13 @@ Public Class FormGsiJobs
Dim item As ListViewItem
Dim ime As String = ""
Dim mapa As String = ""
Dim ix As Integer = 0
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
@ -143,9 +176,13 @@ Public Class FormGsiJobs
projektIzbranMapa = delovnaMapa
Dim datotekeJobi = My.Computer.FileSystem.GetFiles(delovnaMapa, FileIO.SearchOption.SearchTopLevelOnly, "*.GSI")
ListView2.Clear()
LabelJobIme.Text = ""
TextBoxJobDat.Text = ""
For Each datJob In datotekeJobi
ListView2.Items.Add(Path.GetFileName(datJob).ToString).SubItems.Add(Path.GetFullPath(datJob))
ListView2.Items.Add(Path.GetFileName(datJob).ToString, 0).SubItems.Add(Path.GetFullPath(datJob))
ix = ix + 1
Next
If ime = "Virtualna Kartica" Then
ToolStripButton1.Enabled = False
ToolStripButton2.Enabled = False
@ -159,6 +196,30 @@ Public Class FormGsiJobs
End If
End Sub
Public Sub ArhivirajProjekt()
' Arhiviraj izbran jprojekt
Dim arhivCas = System.DateTime.Now.ToString("yyyyMMdd-HHmm")
Dim mapaZav = My.Application.Info.DirectoryPath.ToString + "\Zavarovanja\"
Dim arhivZav = mapaZav + "Projekt_" + projektIzbran + "_" + arhivCas + ".zip"
Dim msgArhivProj = MsgBox("Arhiviram projekt '" + projektIzbran + "'", vbYesNo + vbExclamation, "Arhiviranje Projekta")
If msgArhivProj = DialogResult.Yes Then
ZipFile.CreateFromDirectory(projektIzbranMapa, arhivZav, CompressionLevel.Optimal, False)
MessageBox.Show("Kartica zavarovana v: " + vbCrLf + arhivZav.ToString)
End If
End Sub
Public Sub OdstraniProjekt()
' Izbriši izbran projekt
Dim msgDelProj = MsgBox("Odstranim projekt [" + projektIzbran + "]?", vbYesNo + vbCritical, "Brisanje Projekta")
If msgDelProj = DialogResult.Yes Then
My.Computer.FileSystem.DeleteDirectory(projektIzbranMapa, FileIO.DeleteDirectoryOption.DeleteAllContents, FileIO.RecycleOption.SendToRecycleBin)
UvoziMapeProj()
ProjektiShraniNast()
End If
End Sub
Private Sub ListViewProj_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListViewProj.SelectedIndexChanged
PreberiJobe()
End Sub
@ -184,11 +245,9 @@ Public Class FormGsiJobs
LabelJobIme.Text = ime.ToString
TextBoxJobDat.Text = mapa.ToString
If LabelJobIme.Text = "" Then
ButtonNalJob2.Enabled = False
ToolStripButton6.Enabled = False
ToolStripButton7.Enabled = False
Else
ButtonNalJob2.Enabled = True
ToolStripButton6.Enabled = True
ToolStripButton7.Enabled = True
End If
@ -204,21 +263,8 @@ Public Class FormGsiJobs
End Sub
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
DialogNovProj.ShowDialog()
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
Process.Start(projektIzbranMapa)
End Sub
Private Sub TSButtonUvozi_Click(sender As Object, e As EventArgs) Handles TSButtonUvozi.Click
Private Sub TSButtonUvozi_Click(sender As Object, e As EventArgs)
UvoziGsiJob()
End Sub
Private Sub TSButonNalozi_Click(sender As Object, e As EventArgs) Handles TSButonNalozi.Click, ButtonNalJob2.Click
NaloziJob()
End Sub
@ -227,7 +273,7 @@ Public Class FormGsiJobs
Dim datIzb = TextBoxJobDat.Text
Dim datArh = datIzb.Replace(LabelJobIme.Text, "_ARHIV\" + LabelJobIme.Text)
Dim msgArh = MsgBox("Arhiviram job: " + LabelJobIme.Text, vbOKCancel, "Arhiviranje Job-a...")
Dim msgArh = MsgBox("Arhiviram job: " + LabelJobIme.Text, vbOKCancel + vbExclamation, "Arhiviranje Job-a...")
If msgArh = DialogResult.OK Then
If My.Computer.FileSystem.FileExists(datIzb) Then
My.Computer.FileSystem.MoveFile(datIzb, datArh, True)
@ -241,7 +287,7 @@ Public Class FormGsiJobs
' Izbriši izbran job
Dim datIzb = TextBoxJobDat.Text
Dim msgArh = MsgBox("Izbrišem job: " + LabelJobIme.Text, vbOKCancel, "Brisanje Job-a...")
Dim msgArh = MsgBox("Izbrišem job: " + LabelJobIme.Text, vbOKCancel + vbCritical, "Brisanje Job-a...")
If msgArh = DialogResult.OK Then
If My.Computer.FileSystem.FileExists(datIzb) Then
My.Computer.FileSystem.DeleteFile(datIzb, FileIO.UIOption.OnlyErrorDialogs, FileIO.RecycleOption.SendToRecycleBin)
@ -253,11 +299,50 @@ Public Class FormGsiJobs
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
' Arhiviraj izbran jprojekt
ArhivirajProjekt()
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
' Izbriši izbran projekt
OdstraniProjekt()
End Sub
Private Sub NovProjektToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles NovProjektToolStripMenuItem.Click
DialogNovProj.ShowDialog()
End Sub
Private Sub OdpriMapoToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OdpriMapoToolStripMenuItem.Click
Process.Start(projektIzbranMapa)
End Sub
Private Sub UvoziProjekteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles UvoziProjekteToolStripMenuItem.Click
UvoziMapeProj()
Dim msgUvoziMape = MsgBox("Shranim seznam projektov?" + vbCrLf + "Datoteka: tps1100_projekti.txt", vbOKCancel + vbExclamation, "Shranim Projekte?")
If msgUvoziMape = DialogResult.OK Then
ProjektiShraniNast()
End If
End Sub
Private Sub ArhivirajProjektToolStripMenuItem_Click(sender As Object, e As EventArgs)
ArhivirajProjekt()
End Sub
Private Sub NastaviDelovniProjektToolStripMenuItem_Click(sender As Object, e As EventArgs)
NastaviDelovniProj()
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
DialogNovProj.ShowDialog()
End Sub
Private Sub ToolStripButton4_Click(sender As Object, e As EventArgs) Handles ToolStripButton4.Click
UvoziGsiJob()
End Sub
Private Sub ToolStripButton9_Click(sender As Object, e As EventArgs) Handles ToolStripButton9.Click
NastaviDelovniProj()
End Sub
End Class

306
FormIzracunMeasure.Designer.vb generated
View File

@ -28,27 +28,27 @@ Partial Class FormIzracunMeasure
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.tbStnHins = New System.Windows.Forms.TextBox()
Me.tbStnH = New System.Windows.Forms.TextBox()
Me.tbStnN = New System.Windows.Forms.TextBox()
Me.tbStnE = 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.tbMerPrCons = New System.Windows.Forms.TextBox()
Me.cbPrizma = New System.Windows.Forms.ComboBox()
Me.tbMerHpriz = New System.Windows.Forms.TextBox()
Me.tbMerH = New System.Windows.Forms.TextBox()
Me.tbMerN = New System.Windows.Forms.TextBox()
Me.tbMerE = New System.Windows.Forms.TextBox()
Me.LabelPrCons = 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.tbMerIme = 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()
@ -65,7 +65,7 @@ Partial Class FormIzracunMeasure
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.tbGsiOut = New System.Windows.Forms.TextBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout()
CType(Me.MyApplicationBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
@ -83,29 +83,29 @@ Partial Class FormIzracunMeasure
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.tbStnHins, 1, 5)
Me.TableLayoutPanel1.Controls.Add(Me.tbStnH, 1, 4)
Me.TableLayoutPanel1.Controls.Add(Me.tbStnN, 1, 3)
Me.TableLayoutPanel1.Controls.Add(Me.tbStnE, 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.tbMerPrCons, 3, 7)
Me.TableLayoutPanel1.Controls.Add(Me.cbPrizma, 3, 6)
Me.TableLayoutPanel1.Controls.Add(Me.tbMerHpriz, 3, 5)
Me.TableLayoutPanel1.Controls.Add(Me.tbMerH, 3, 4)
Me.TableLayoutPanel1.Controls.Add(Me.tbMerN, 3, 3)
Me.TableLayoutPanel1.Controls.Add(Me.tbMerE, 3, 2)
Me.TableLayoutPanel1.Controls.Add(Me.LabelPrCons, 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.tbMerIme, 3, 1)
Me.TableLayoutPanel1.Controls.Add(Me.Button1, 3, 8)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(12, 12)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(255, 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!))
@ -157,38 +157,41 @@ Partial Class FormIzracunMeasure
Me.Label7.Text = "H (inst.)"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'TextBox7
'tbStnHins
'
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"
Me.tbStnHins.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.tbStnHins.Location = New System.Drawing.Point(68, 133)
Me.tbStnHins.Name = "tbStnHins"
Me.tbStnHins.Size = New System.Drawing.Size(60, 20)
Me.tbStnHins.TabIndex = 13
Me.tbStnHins.Text = "0.000"
'
'TextBox5
'tbStnH
'
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
Me.tbStnH.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.tbStnH.Location = New System.Drawing.Point(68, 108)
Me.tbStnH.Name = "tbStnH"
Me.tbStnH.Size = New System.Drawing.Size(80, 20)
Me.tbStnH.TabIndex = 9
Me.tbStnH.Text = "0.000"
'
'TextBox3
'tbStnN
'
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
Me.tbStnN.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.tbStnN.Location = New System.Drawing.Point(68, 83)
Me.tbStnN.Name = "tbStnN"
Me.tbStnN.Size = New System.Drawing.Size(99, 20)
Me.tbStnN.TabIndex = 5
Me.tbStnN.Text = "0.000"
'
'TextBox1
'tbStnE
'
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
Me.tbStnE.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.tbStnE.Location = New System.Drawing.Point(68, 58)
Me.tbStnE.Name = "tbStnE"
Me.tbStnE.Size = New System.Drawing.Size(99, 20)
Me.tbStnE.TabIndex = 1
Me.tbStnE.Text = "0.000"
'
'Label5
'
@ -223,68 +226,71 @@ Partial Class FormIzracunMeasure
Me.Label1.Text = "E"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'TextBox9
'tbMerPrCons
'
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
Me.tbMerPrCons.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.tbMerPrCons.Enabled = False
Me.tbMerPrCons.Location = New System.Drawing.Point(285, 183)
Me.tbMerPrCons.Name = "tbMerPrCons"
Me.tbMerPrCons.Size = New System.Drawing.Size(60, 20)
Me.tbMerPrCons.TabIndex = 19
'
'ComboBox1
'cbPrizma
'
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
Me.cbPrizma.FormattingEnabled = True
Me.cbPrizma.Items.AddRange(New Object() {"Red Laser", "Leica Circ. Prism", "Leica Mini Prism", "Vnos konstante..."})
Me.cbPrizma.Location = New System.Drawing.Point(285, 158)
Me.cbPrizma.Name = "cbPrizma"
Me.cbPrizma.Size = New System.Drawing.Size(149, 21)
Me.cbPrizma.TabIndex = 21
'
'TextBox8
'tbMerHpriz
'
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"
Me.tbMerHpriz.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.tbMerHpriz.Location = New System.Drawing.Point(285, 133)
Me.tbMerHpriz.Name = "tbMerHpriz"
Me.tbMerHpriz.Size = New System.Drawing.Size(60, 20)
Me.tbMerHpriz.TabIndex = 15
Me.tbMerHpriz.Text = "0.000"
'
'TextBox6
'tbMerH
'
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
Me.tbMerH.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.tbMerH.Location = New System.Drawing.Point(285, 108)
Me.tbMerH.Name = "tbMerH"
Me.tbMerH.Size = New System.Drawing.Size(80, 20)
Me.tbMerH.TabIndex = 11
Me.tbMerH.Text = "0.000"
'
'TextBox4
'tbMerN
'
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
Me.tbMerN.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.tbMerN.Location = New System.Drawing.Point(285, 83)
Me.tbMerN.Name = "tbMerN"
Me.tbMerN.Size = New System.Drawing.Size(99, 20)
Me.tbMerN.TabIndex = 7
Me.tbMerN.Text = "0.000"
'
'TextBox2
'tbMerE
'
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
Me.tbMerE.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.tbMerE.Location = New System.Drawing.Point(285, 58)
Me.tbMerE.Name = "tbMerE"
Me.tbMerE.Size = New System.Drawing.Size(99, 20)
Me.tbMerE.TabIndex = 3
Me.tbMerE.Text = "0.000"
'
'Label11
'LabelPrCons
'
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
Me.LabelPrCons.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.LabelPrCons.AutoSize = True
Me.LabelPrCons.Enabled = False
Me.LabelPrCons.Location = New System.Drawing.Point(230, 186)
Me.LabelPrCons.Name = "LabelPrCons"
Me.LabelPrCons.Size = New System.Drawing.Size(49, 13)
Me.LabelPrCons.TabIndex = 18
Me.LabelPrCons.Text = "Pr. cons."
Me.LabelPrCons.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label12
'
@ -352,13 +358,14 @@ Partial Class FormIzracunMeasure
Me.Label13.Text = "Ime/Št."
Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'TextBox10
'tbMerIme
'
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
Me.tbMerIme.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.tbMerIme.Location = New System.Drawing.Point(285, 33)
Me.tbMerIme.Name = "tbMerIme"
Me.tbMerIme.Size = New System.Drawing.Size(100, 20)
Me.tbMerIme.TabIndex = 23
Me.tbMerIme.Text = "TOCKA"
'
'Button1
'
@ -400,7 +407,7 @@ Partial Class FormIzracunMeasure
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.Size = New System.Drawing.Size(680, 50)
Me.TableLayoutPanel2.TabIndex = 1
'
'LabelIzrHz
@ -411,7 +418,7 @@ Partial Class FormIzracunMeasure
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.Size = New System.Drawing.Size(130, 18)
Me.LabelIzrHz.TabIndex = 26
Me.LabelIzrHz.Text = "LabelIzrHz"
Me.LabelIzrHz.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@ -422,9 +429,9 @@ Partial Class FormIzracunMeasure
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.Location = New System.Drawing.Point(275, 28)
Me.LabelIzrDs.Name = "LabelIzrDs"
Me.LabelIzrDs.Size = New System.Drawing.Size(112, 18)
Me.LabelIzrDs.Size = New System.Drawing.Size(130, 18)
Me.LabelIzrDs.TabIndex = 25
Me.LabelIzrDs.Text = "LabelIzrDs"
Me.LabelIzrDs.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@ -435,9 +442,9 @@ Partial Class FormIzracunMeasure
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.Location = New System.Drawing.Point(139, 28)
Me.LabelIzrV.Name = "LabelIzrV"
Me.LabelIzrV.Size = New System.Drawing.Size(112, 18)
Me.LabelIzrV.Size = New System.Drawing.Size(130, 18)
Me.LabelIzrV.TabIndex = 24
Me.LabelIzrV.Text = "LabelIzrV"
Me.LabelIzrV.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@ -448,9 +455,9 @@ Partial Class FormIzracunMeasure
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.Location = New System.Drawing.Point(547, 28)
Me.LabelIzrDhVis.Name = "LabelIzrDhVis"
Me.LabelIzrDhVis.Size = New System.Drawing.Size(113, 18)
Me.LabelIzrDhVis.Size = New System.Drawing.Size(130, 18)
Me.LabelIzrDhVis.TabIndex = 23
Me.LabelIzrDhVis.Text = "LabelIzrDhVis"
Me.LabelIzrDhVis.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@ -461,9 +468,9 @@ Partial Class FormIzracunMeasure
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.Location = New System.Drawing.Point(411, 28)
Me.LabelIzrDh.Name = "LabelIzrDh"
Me.LabelIzrDh.Size = New System.Drawing.Size(112, 18)
Me.LabelIzrDh.Size = New System.Drawing.Size(130, 18)
Me.LabelIzrDh.TabIndex = 22
Me.LabelIzrDh.Text = "LabelIzrDh"
Me.LabelIzrDh.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@ -476,7 +483,7 @@ Partial Class FormIzracunMeasure
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.Size = New System.Drawing.Size(130, 16)
Me.Label14.TabIndex = 17
Me.Label14.Text = "Hz"
Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@ -487,9 +494,9 @@ Partial Class FormIzracunMeasure
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.Location = New System.Drawing.Point(139, 9)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(112, 16)
Me.Label15.Size = New System.Drawing.Size(130, 16)
Me.Label15.TabIndex = 18
Me.Label15.Text = "V"
Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@ -500,9 +507,9 @@ Partial Class FormIzracunMeasure
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.Location = New System.Drawing.Point(275, 9)
Me.Label16.Name = "Label16"
Me.Label16.Size = New System.Drawing.Size(112, 16)
Me.Label16.Size = New System.Drawing.Size(130, 16)
Me.Label16.TabIndex = 19
Me.Label16.Text = "D (poš.)"
Me.Label16.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@ -513,9 +520,9 @@ Partial Class FormIzracunMeasure
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.Location = New System.Drawing.Point(411, 9)
Me.Label17.Name = "Label17"
Me.Label17.Size = New System.Drawing.Size(112, 16)
Me.Label17.Size = New System.Drawing.Size(130, 16)
Me.Label17.TabIndex = 20
Me.Label17.Text = "D (hor.)"
Me.Label17.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@ -526,9 +533,9 @@ Partial Class FormIzracunMeasure
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.Location = New System.Drawing.Point(547, 9)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(113, 16)
Me.Label18.Size = New System.Drawing.Size(130, 16)
Me.Label18.TabIndex = 21
Me.Label18.Text = "dH"
Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
@ -544,7 +551,7 @@ Partial Class FormIzracunMeasure
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.Size = New System.Drawing.Size(680, 40)
Me.TableLayoutPanel3.TabIndex = 2
'
'Button2
@ -561,7 +568,7 @@ Partial Class FormIzracunMeasure
'Button3
'
Me.Button3.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Button3.Location = New System.Drawing.Point(512, 4)
Me.Button3.Location = New System.Drawing.Point(602, 4)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 32)
Me.Button3.TabIndex = 1
@ -569,13 +576,13 @@ Partial Class FormIzracunMeasure
Me.Button3.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
Me.Button3.UseVisualStyleBackColor = True
'
'TextBox11
'tbGsiOut
'
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
Me.tbGsiOut.Font = New System.Drawing.Font("Courier New", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tbGsiOut.Location = New System.Drawing.Point(47, 320)
Me.tbGsiOut.Name = "tbGsiOut"
Me.tbGsiOut.Size = New System.Drawing.Size(645, 21)
Me.tbGsiOut.TabIndex = 3
'
'Label19
'
@ -590,16 +597,17 @@ Partial Class 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.BackColor = System.Drawing.SystemColors.Control
Me.ClientSize = New System.Drawing.Size(704, 396)
Me.Controls.Add(Me.Label19)
Me.Controls.Add(Me.TextBox11)
Me.Controls.Add(Me.tbGsiOut)
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.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "Izračun Meritve"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel1.PerformLayout()
@ -614,30 +622,30 @@ Partial Class FormIzracunMeasure
Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
Friend WithEvents Label8 As Label
Friend WithEvents TextBox8 As TextBox
Friend WithEvents tbMerHpriz As TextBox
Friend WithEvents Label7 As Label
Friend WithEvents TextBox7 As TextBox
Friend WithEvents tbStnHins As TextBox
Friend WithEvents Label6 As Label
Friend WithEvents TextBox6 As TextBox
Friend WithEvents tbMerH As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents TextBox5 As TextBox
Friend WithEvents tbStnH As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents TextBox4 As TextBox
Friend WithEvents tbMerN As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents TextBox3 As TextBox
Friend WithEvents tbStnN As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents TextBox2 As TextBox
Friend WithEvents tbMerE As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents TextBox1 As TextBox
Friend WithEvents tbStnE As TextBox
Friend WithEvents Label9 As Label
Friend WithEvents Label10 As Label
Friend WithEvents Label11 As Label
Friend WithEvents LabelPrCons As Label
Friend WithEvents Label12 As Label
Friend WithEvents TextBox9 As TextBox
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents tbMerPrCons As TextBox
Friend WithEvents cbPrizma As ComboBox
Friend WithEvents MyApplicationBindingSource As BindingSource
Friend WithEvents Label13 As Label
Friend WithEvents TextBox10 As TextBox
Friend WithEvents tbMerIme As TextBox
Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
Friend WithEvents Label14 As Label
Friend WithEvents Label15 As Label
@ -653,6 +661,6 @@ Partial Class FormIzracunMeasure
Friend WithEvents TableLayoutPanel3 As TableLayoutPanel
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button
Friend WithEvents TextBox11 As TextBox
Friend WithEvents tbGsiOut As TextBox
Friend WithEvents Label19 As Label
End Class

96
FormIzracunMeasure.vb
View File

@ -1,29 +1,95 @@
Public Class FormIzracunMeasure
Public g As Graphics
Dim stnE
Dim stnN
Dim stnH
Dim stnHinst
Dim merIme
Dim merE
Dim merN
Dim merH
Dim merHpriz
Dim merPriz
Dim merPrCons
Private Sub FormIzracunMeasure_Load(sender As Object, e As EventArgs) Handles MyBase.Load
ComboBox1.SelectedIndex = 0
g = Me.CreateGraphics()
cbPrizma.SelectedIndex = 0
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim cb = ComboBox1.Text
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbPrizma.SelectedIndexChanged
Dim cb = cbPrizma.Text
Select Case cb
Case "Red Laser"
TextBox9.Text = "+0.0344"
TextBox9.Enabled = False
Label11.Enabled = False
tbMerPrCons.Text = "+0.0344"
tbMerPrCons.Enabled = False
LabelPrCons.Enabled = False
Case "Leica Circ. Prism"
TextBox9.Text = "+0.0000"
TextBox9.Enabled = False
Label11.Enabled = False
tbMerPrCons.Text = "+0.0000"
tbMerPrCons.Enabled = False
LabelPrCons.Enabled = False
Case "Leica Mini Prism"
TextBox9.Text = "+0.0175"
TextBox9.Enabled = False
Label11.Enabled = False
tbMerPrCons.Text = "+0.0175"
tbMerPrCons.Enabled = False
LabelPrCons.Enabled = False
Case "Vnos konstante..."
TextBox9.Text = "+0.0000"
TextBox9.Enabled = True
Label11.Enabled = True
tbMerPrCons.Text = "+0.0000"
tbMerPrCons.Enabled = True
LabelPrCons.Enabled = True
Case Else
End Select
End Sub
Public Sub PrikazGrafike()
g.Clear(SystemColors.Control)
Dim deltaE = merE - stnE
Dim deltaN = merN - stnN
Dim fakt
If deltaE > deltaN Then
fakt = 120 / deltaE
Else
fakt = 120 / deltaN
End If
Dim izrE = deltaE * fakt
Dim izrN = deltaN * fakt
Dim grStnE As Single = 130
Dim grStnN As Single = 130
Dim grMerE As Single = izrE + 130
Dim grMerN As Single = izrN + 130
tbGsiOut.Text = "dE=" + deltaE.ToString + " dN=" + deltaN.ToString + " / f=" + fakt.ToString + " / iE=" + izrE.ToString + " iN=" + izrN.ToString + " gE=" + grMerE.ToString + " gN=" + grMerN.ToString
g.DrawLine(Pens.DarkBlue, New Point(grStnE, grStnN), New Point(grMerE, grMerN))
g.DrawRectangle(Pens.Gray, 10, 10, 240, 240)
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
stnE = CDbl(tbStnE.Text)
stnN = CDbl(tbStnN.Text)
stnH = CDbl(tbStnH.Text)
stnHinst = CDbl(tbStnHins.Text)
merIme = tbMerIme.Text.ToString
merE = CDbl(tbMerE.Text)
merN = CDbl(tbMerN.Text)
merH = CDbl(tbMerH.Text)
merHpriz = CDbl(tbMerHpriz.Text)
merPriz = cbPrizma.Text.ToString
merPrCons = CDbl(tbMerPrCons.Text)
PrikazGrafike()
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class

8
My Project/AssemblyInfo.vb
View File

@ -10,8 +10,8 @@ Imports System.Runtime.InteropServices
' Review the values of the assembly attributes
<Assembly: AssemblyTitle("TPS1100 Convert")>
<Assembly: AssemblyDescription("Program za konvertiranje GSI datotek")>
<Assembly: AssemblyCompany("2B geoinformatika, d.o.o.")>
<Assembly: AssemblyDescription("Program za procesiranje GSI podatkov")>
<Assembly: AssemblyCompany("MultiBox")>
<Assembly: AssemblyProduct("TPS1100 Convert")>
<Assembly: AssemblyCopyright("Copyright © 2024")>
<Assembly: AssemblyTrademark("")>
@ -32,6 +32,6 @@ Imports System.Runtime.InteropServices
' by using the '*' as shown below:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("2.8.0.1")>
<Assembly: AssemblyFileVersion("2.8.0.1")>
<Assembly: AssemblyVersion("2.8.0.2")>
<Assembly: AssemblyFileVersion("2.8.0.2")>
<Assembly: NeutralResourcesLanguage("sl-SI")>

BIN
My Project/Icons/icons8-day-view-40.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 203 B

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

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 471 B

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

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 396 B

BIN
My Project/Icons/icons8-print-94.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 16 KiB

BIN
My Project/Icons/icons8-rename-20.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 550 B

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

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 708 B

BIN
My Project/Icons/icons8-sd-import-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.1 KiB

BIN
My Project/Icons/icons8-sd-import2-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 3.3 KiB

BIN
My Project/Icons/icons8-sdb-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.3 KiB

BIN
My Project/Icons/icons8-sdb-import-50.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 2.7 KiB

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

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 1.2 KiB

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

@ -671,6 +671,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_day_view_40() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-day-view-40", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -951,6 +961,36 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_print_48() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-print-48", 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 icons8_print_48_1() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-print-48_1", 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 icons8_print_94() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-print-94", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -1031,6 +1071,26 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_rename_20() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-rename-20", 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 icons8_rename_24() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-rename-24", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -1081,6 +1141,46 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_sd_import_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-sd-import-50", 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 icons8_sd_import2_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-sd-import2-50", 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 icons8_sdb_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-sdb-50", 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 icons8_sdb_import_50() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-sdb-import-50", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
@ -1111,6 +1211,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property icons8_table_48() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("icons8-table-48", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Looks up a localized resource of type System.Drawing.Bitmap.
'''</summary>

153
My Project/Resources.resx
View File

@ -130,14 +130,11 @@
<data name="icons8-send-file-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-send-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="48" xml:space="preserve">
<value>Information 7</value>
<data name="icons8-move-to-folder-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-move-to-folder-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-mesh-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-mesh-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_undo_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-undo-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="58" xml:space="preserve">
<value>Prism constant</value>
</data>
<data name="icons8-compare-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-compare-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -178,18 +175,24 @@
<data name="icons8-micro-sd-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-micro-sd-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-table-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-table-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</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="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-print-94" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-print-94.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>
<data name="icons8-sdb-import-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-sdb-import-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="TPS1100CNVRT_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\TPS1100CNVRT_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -202,17 +205,14 @@
<data name="76" xml:space="preserve">
<value>Remark 6</value>
</data>
<data name="19" xml:space="preserve">
<value>Time</value>
</data>
<data name="icons8_do_not_disturb_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-do-not-disturb-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="75" xml:space="preserve">
<value>Remark 5</value>
</data>
<data name="icons8-product-documents-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-product-documents-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="51" xml:space="preserve">
<value>PPM/mm</value>
</data>
<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>
@ -223,29 +223,38 @@
<data name="83" xml:space="preserve">
<value>Elevation</value>
</data>
<data name="icons8-sd-import-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-sd-import-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-rename-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-rename-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="82" xml:space="preserve">
<value>Northing</value>
</data>
<data name="icons8-close-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-close-24.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 name="12" xml:space="preserve">
<value>Serial number</value>
</data>
<data name="icons8_folder_50_2" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-folder-50-2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-check-file-501" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-check-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="icons8-remove-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-remove-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_close_window_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-close-window-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="icons8_add_new_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-add-new-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_cancel_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-cancel-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -262,24 +271,36 @@
<data name="86" xml:space="preserve">
<value>St. Height</value>
</data>
<data name="icons8-product-documents-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-product-documents-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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="icons8-add-to-collection-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-add-to-collection-50.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>
<data name="icons8_close_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-close-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-sdb-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-sdb-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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_edit_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-edit-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</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>
@ -292,11 +313,14 @@
<data name="Save_as_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\Save-as-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="41" xml:space="preserve">
<value>Code-Block ID</value>
</data>
<data name="74" xml:space="preserve">
<value>Remark 4</value>
</data>
<data name="icons8_tools_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-tools-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="icons8-check-file-501" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-check-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-caps-lock-on-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-caps-lock-on-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -319,15 +343,15 @@
<data name="icons8_land_surveying_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-land-surveying-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="46" xml:space="preserve">
<value>Information 5</value>
</data>
<data name="72" xml:space="preserve">
<value>Remark 2</value>
</data>
<data name="11" xml:space="preserve">
<value>Point number</value>
</data>
<data name="31" xml:space="preserve">
<value>Slope distance</value>
</data>
<data name="icons8_info_squared_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-info-squared-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
@ -343,8 +367,11 @@
<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 name="icons8-check-file-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-check-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_undo_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-undo-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="TPS1100CNVRT" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\TPS1100CNVRT.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@ -352,38 +379,44 @@
<data name="33" xml:space="preserve">
<value>Height difference</value>
</data>
<data name="icons8-move-to-folder-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-move-to-folder-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="88" xml:space="preserve">
<value>Instrument height</value>
</data>
<data name="25" xml:space="preserve">
<value>Horizontal Angle Correction</value>
<data name="icons8_tools_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-tools-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-file-path-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-file-path-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="42" xml:space="preserve">
<value>Information 1</value>
</data>
<data name="icons8-question-mark-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-question-mark-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-check-file-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-check-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="19" xml:space="preserve">
<value>Time</value>
</data>
<data name="icons8-program-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-program-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="icons8-print-48_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-print-48_1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_no_entry_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-no-entry-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-program-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-program-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-recycle-bin-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-recycle-bin-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_save_as_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-save-as-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-remove-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-remove-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="icons8-sd-import2-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-sd-import2-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-move-to-folder-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-move-to-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="icons8-day-view-40" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-day-view-40.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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>
@ -391,14 +424,14 @@
<data name="icons8_open_end_wrench_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-open-end-wrench-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-product-documents-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-product-documents-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<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="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>
</data>
<data name="82" xml:space="preserve">
<value>Northing</value>
<data name="48" xml:space="preserve">
<value>Information 7</value>
</data>
<data name="71" xml:space="preserve">
<value>Remark 1</value>
@ -412,8 +445,8 @@
<data name="icons8_advance_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-advance-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="46" xml:space="preserve">
<value>Information 5</value>
<data name="icons8-product-documents-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-product-documents-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>
@ -430,8 +463,8 @@
<data name="icons8-rename-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-rename-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_add_new_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-add-new-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="icons8-move-to-folder-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-move-to-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<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>
@ -445,17 +478,17 @@
<data name="32" xml:space="preserve">
<value>Horizontal distance</value>
</data>
<data name="88" xml:space="preserve">
<value>Instrument height</value>
<data name="icons8-mesh-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-mesh-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-recycle-bin-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-recycle-bin-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8_edit_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-edit-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="31" xml:space="preserve">
<value>Slope distance</value>
</data>
<data name="41" xml:space="preserve">
<value>Code-Block ID</value>
<data name="25" xml:space="preserve">
<value>Horizontal Angle Correction</value>
</data>
<data name="21" xml:space="preserve">
<value>Horizontal Angle</value>
@ -463,13 +496,13 @@
<data name="84" xml:space="preserve">
<value>St. Easting</value>
</data>
<data name="42" xml:space="preserve">
<value>Information 1</value>
<data name="icons8_close_window_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-close-window-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="12" xml:space="preserve">
<value>Serial number</value>
<data name="icons8-print-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-print-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="icons8-add-to-collection-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-add-to-collection-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="icons8-rename-20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>Icons\icons8-rename-20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

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

@ -1,21 +0,0 @@
@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
View File

@ -1,21 +0,0 @@
@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
View File

@ -1,26 +0,0 @@
@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/SLOV2016.GEM
View File

Binary file not shown.

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

@ -1,184 +0,0 @@
;*********************************************************
;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/formatdrive.zip
View File

Binary file not shown.

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

@ -1,20 +0,0 @@

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
View File

@ -1,6 +0,0 @@
<?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
View File

@ -1,72 +0,0 @@
<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
View File

@ -1,120 +0,0 @@
<?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
View File

@ -1,31 +0,0 @@
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
View File

@ -1,132 +0,0 @@
<?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
View File

@ -1,44 +0,0 @@
'------------------------------------------------------------------------------
' <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
View File

@ -1,11 +0,0 @@
<?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
View File

@ -1,35 +0,0 @@
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
View File

@ -1,63 +0,0 @@
'------------------------------------------------------------------------------
' <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
View File

@ -1,117 +0,0 @@
<?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
View File

@ -1,73 +0,0 @@
'------------------------------------------------------------------------------
' <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
View File

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

2
SplashScreen1.vb
View File

@ -40,7 +40,7 @@ Public NotInheritable Class SplashScreen1
End Sub
Private Sub LinkLabel1_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Dim webAddress As String = "https://2bgeo.si/"
Dim webAddress As String = "https://multibox.nohost.me/website/index.php?SMExt=SMPages&SMPagesId=bd7c44583bb2b19ee6830ac6b0be3271"
Process.Start(webAddress)
End Sub

36
TPS1100 Convert.vbproj
View File

@ -134,6 +134,12 @@
<Compile Include="DialogJobOdpri.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="DialogKartica.Designer.vb">
<DependentUpon>DialogKartica.vb</DependentUpon>
</Compile>
<Compile Include="DialogKartica.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="DialogNovProj.Designer.vb">
<DependentUpon>DialogNovProj.vb</DependentUpon>
</Compile>
@ -146,6 +152,12 @@
<Compile Include="DialogPripravaKartice.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="DialogProjektUvoz.Designer.vb">
<DependentUpon>DialogProjektUvoz.vb</DependentUpon>
</Compile>
<Compile Include="DialogProjektUvoz.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="DialogZavarovanje.Designer.vb">
<DependentUpon>DialogZavarovanje.vb</DependentUpon>
</Compile>
@ -232,12 +244,18 @@
<EmbeddedResource Include="DialogJobOdpri.resx">
<DependentUpon>DialogJobOdpri.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="DialogKartica.resx">
<DependentUpon>DialogKartica.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="DialogNovProj.resx">
<DependentUpon>DialogNovProj.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="DialogPripravaKartice.resx">
<DependentUpon>DialogPripravaKartice.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="DialogProjektUvoz.resx">
<DependentUpon>DialogProjektUvoz.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="DialogZavarovanje.resx">
<DependentUpon>DialogZavarovanje.vb</DependentUpon>
</EmbeddedResource>
@ -332,6 +350,17 @@
<None Include="My Project\Icons\icons8-remove-24.png" />
<None Include="My Project\Icons\icons8-remove-50.png" />
<None Include="My Project\Icons\icons8-add-to-collection-50.png" />
<None Include="My Project\Icons\icons8-print-48.png" />
<None Include="My Project\Icons\icons8-print-48_1.png" />
<None Include="My Project\Icons\icons8-print-94.png" />
<None Include="My Project\Icons\icons8-sd-import-50.png" />
<None Include="My Project\Icons\icons8-sd-import2-50.png" />
<None Include="My Project\Icons\icons8-sdb-50.png" />
<None Include="My Project\Icons\icons8-sdb-import-50.png" />
<None Include="My Project\Icons\icons8-day-view-40.png" />
<None Include="My Project\Icons\icons8-table-48.png" />
<None Include="My Project\Icons\icons8-rename-24.png" />
<None Include="My Project\Icons\icons8-rename-20.png" />
<Content Include="tps1100_projekti.txt">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</Content>
@ -382,6 +411,12 @@
<AdditionalFiles Include="Virtualna Kartica\TPS\CONF\1102_BB.PAR">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</AdditionalFiles>
<AdditionalFiles Include="Virtualna Kartica\DATA\GPS\GEOID\SLO1.gem">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</AdditionalFiles>
<AdditionalFiles Include="Virtualna Kartica\DATA\GPS\GEOID\SLOG2000.GEM">
<CopyToOutputDirectory>PreserveNewest</CopyToOutputDirectory>
</AdditionalFiles>
</ItemGroup>
<ItemGroup>
<None Include="Icons\icons8-ok-50.png" />
@ -486,7 +521,6 @@
<WCFMetadata Include="Connected Services\" />
</ItemGroup>
<ItemGroup>
<Folder Include="Podatki\" />
<Folder Include="Resources\" />
</ItemGroup>
<Import Project="$(MSBuildToolsPath)\Microsoft.VisualBasic.targets" />

0
Podatki/GPS/GEOID/SLO1.gem → Virtualna Kartica/DATA/GPS/GEOID/SLO1.gem
View File

0
Podatki/GPS/GEOID/SLOG2000.GEM → Virtualna Kartica/DATA/GPS/GEOID/SLOG2000.GEM
View File

2
version.txt
View File

@ -1 +1 @@
2.8.0.1
2.8.0.2