Compare commits

...

22 Commits

Author SHA1 Message Date
cb0a1fd7df README update 2024-07-26 20:24:24 +02:00
f3a8af6e59 Posodobitev arhive Release 2.8.0.2 2024-07-26 19:07:32 +02:00
e9071a1b95 Update - 2.8.0.2 2024-07-25 03:01:25 +02:00
74bdecd726 Release upload - 2.8.0.1 2024-07-22 21:59:24 +02:00
02f70c402c Verzija 2.8.0.1 (Release) 2024-07-22 21:54:37 +02:00
ee60d54f7c Verzija 2.8.0.1 - update 2 2024-07-19 23:44:24 +02:00
e49fea6dc0 Verzija 2.8.0.1 (alpha) 2024-07-17 22:30:32 +02:00
0ae2ce40f1 Release upload 2024-07-11 01:40:37 +02:00
012c136c11 UI fix + Changelog update 2024-07-11 01:35:29 +02:00
cf13ba2a22 Verzija 2.8.0.0 RC 2024-07-11 01:26:11 +02:00
5d3f2bedab README fix 2024-06-29 04:54:10 +02:00
b433dc6376 README update 2024-06-29 04:53:20 +02:00
1692fa0f9d Release - 2.7.0.9 2024-06-29 01:14:46 +02:00
01cc5d14c3 Nov README 2024-06-29 00:14:05 +02:00
136e8ec019 Release - 2.7.0.8 2024-06-28 23:48:41 +02:00
efc3216f59 cleanup 2024-06-28 23:08:48 +02:00
d0f35aa0d2 Release - 2.7.0.6 2024-06-28 23:07:34 +02:00
33a9727b42 release publish - 2.7.0.6 2024-06-28 23:01:00 +02:00
0eed901b9e verzija 2.7.0.6 2024-06-28 22:54:29 +02:00
f2bda3a857 Release update - Code cleanup 2024-06-26 23:08:08 +02:00
9dff3a66d8 version.txt update 2024-06-26 23:03:46 +02:00
fd680d1a74 Release - 2.7.0.4 2024-06-26 22:53:12 +02:00
173 changed files with 49952 additions and 2326 deletions

View File

@ -70,6 +70,12 @@
<setting name="KodaStojisceOri" serializeAs="String">
<value>3</value>
</setting>
<setting name="Projekt" serializeAs="String">
<value>Virtualna Kartica</value>
</setting>
<setting name="ProjektMapa" serializeAs="String">
<value>Virtualna Kartica\GSI</value>
</setting>
</TPS1100_Convert.My.MySettings>
</userSettings>
</configuration>

View File

@ -2,6 +2,119 @@
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
Datum: 2024/07/19
- Popravljen izris grafike
- Popravki izvoza seznama točk
- Spremembe in popravki UI
- Glavnega meni aplikacije
- Indikatorji za trenutni projekt in odprto GSI datoteko presstavljena v novo vrstico
- Dodani razni meniji za nove funkcije
- Dopoljnjen UI za Projekte
- Dodan UI za nalaganje Job-a (Gumb: Odpri Job)
- Dodane funkcije za uvoz in nalaganje GSI joba iz menuja "Projekti..."
- Dodana funkcija za pripravo/formatiranje PC-kartice (kopira pred-pripravljene podatke iz Virtualna Kartica)
- Dodana funkcija za zavarovanje kartice v mapo "\Zavarovanja\..."
- Dodana funkcija za izračun orientacijskega kota (Azi = Hz + HzCor)
- Pripravljen UI za izračun meritve iz koordinat stojišča in merjene točke
- Popravki pri preverjanju za posodobitve
---
## v2.8.0.0 (2024/07/03) - Release Candidate
- Inteegracija projektov (Virtualna Kartica/Projekti)
- Priprava okna za urejanje projektov
- Dodana nastavitev My.Setting.Projekt (Privzeta vrednost: "Virtualna Kartica")
- Dodana nastavitev My.Setting.ProjektMapa (Privzeta vrednost: "\Virtualna Kartica")
- Dodana mapa "Virtualna Kartica" (Struktura mape kot na PC-Kartici)
- Dodana mapa "Projekti" za posebne projekte
- Preureditev podatkov v mapi ../Podatki
- Datoteke GSI se pred procesiranjem kopirajo v delovni projekt
- Izvorne datoteke izven delovne mape ostanejo originalne
- Pregled GSI jobov v projektih in nalaganje za procesiranje v TPS1100 Convert
- Dodana funkcija za uvoz GSI joba v delovni projekt
- Posodobljen izgled UI
- Popravki delovanja priprave GEO skripte in Zapisnika
- Dodane funkcije za pripravo podatkov za stojišča
---
## v2.7.1.0 (2024/07/03)
- Idejna zasnova za razvoj "Virtualna Kartica/Projekti"
---
## v2.7.0.9 (2024/06/29)
- Popravki nalaganja nastavitev iz datoteke "tps1100_kode.txt" pri zagonu aplikacije
- Popravki delovanja shranjevanja nastavitev v oknu za nastavitve
---
## v2.7.0.8 (2024/06/26)
- Preverjanje za posodobitev aplikacije
- Popravljeno branje decimalnega ločila v "Pripravi GSI".
---
## v2.7.0.5 (2024/06/26)
### Novo
- Dodan gumb za hiter pomik na začetek izpisa
- Uvoz/Priprava datoteke z kodiranjem "tps1100_kode.txt" pri zagonu
---
## v2.7.0.4 (2024/06/25)
### Novo
- Dodano preverjanje za posodobitve
---
## v2.7.0.3 (2024/06/20)

452
DialogIzracunHzCor.Designer.vb generated Normal file
View File

@ -0,0 +1,452 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DialogIzracunHzCor
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
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.MaskedTextBoxDegHzCor = New System.Windows.Forms.MaskedTextBox()
Me.MaskedTextBoxDegHz = New System.Windows.Forms.MaskedTextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.MaskedTextBoxGsiHz = New System.Windows.Forms.MaskedTextBox()
Me.MaskedTextBoxGsiHzCor = New System.Windows.Forms.MaskedTextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.ButtonUpGsi = New System.Windows.Forms.Button()
Me.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()
'
'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(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(187, 45)
Me.TableLayoutPanel1.TabIndex = 0
'
'OK_Button
'
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(87, 39)
Me.OK_Button.TabIndex = 13
Me.OK_Button.Text = "Pomoč"
'
'Cancel_Button
'
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.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(88, 39)
Me.Cancel_Button.TabIndex = 14
Me.Cancel_Button.Text = "Zapri"
Me.Cancel_Button.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
'
'TableLayoutPanel2
'
Me.TableLayoutPanel2.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel2.ColumnCount = 4
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 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.MaskedTextBoxDegHzCor, 1, 2)
Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxDegHz, 1, 1)
Me.TableLayoutPanel2.Controls.Add(Me.Label2, 0, 2)
Me.TableLayoutPanel2.Controls.Add(Me.Label1, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.Label5, 1, 0)
Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxGsiHz, 3, 1)
Me.TableLayoutPanel2.Controls.Add(Me.MaskedTextBoxGsiHzCor, 3, 2)
Me.TableLayoutPanel2.Controls.Add(Me.Label9, 3, 0)
Me.TableLayoutPanel2.Controls.Add(Me.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 = 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())
Me.TableLayoutPanel2.Size = New System.Drawing.Size(630, 200)
Me.TableLayoutPanel2.TabIndex = 1
'
'Label4
'
Me.Label4.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.Location = New System.Drawing.Point(255, 0)
Me.Label4.Name = "Label4"
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
'
'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(116, 20)
Me.MaskedTextBoxDegHzCor.TabIndex = 6
'
'MaskedTextBoxDegHz
'
Me.MaskedTextBoxDegHz.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MaskedTextBoxDegHz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MaskedTextBoxDegHz.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(116, 20)
Me.MaskedTextBoxDegHz.TabIndex = 5
'
'Label2
'
Me.Label2.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label2.Location = New System.Drawing.Point(3, 50)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(120, 32)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Popavek (HzCor)"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label1
'
Me.Label1.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label1.Location = New System.Drawing.Point(3, 18)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(120, 32)
Me.Label1.TabIndex = 0
Me.Label1.Text = "Merjen (Hz)"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label5
'
Me.Label5.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.Location = New System.Drawing.Point(129, 0)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(120, 18)
Me.Label5.TabIndex = 15
Me.Label5.Text = "Format DEG"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.BottomCenter
'
'MaskedTextBoxGsiHz
'
Me.MaskedTextBoxGsiHz.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MaskedTextBoxGsiHz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MaskedTextBoxGsiHz.Font = New System.Drawing.Font("Lucida Console", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaskedTextBoxGsiHz.Location = New System.Drawing.Point(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(242, 19)
Me.MaskedTextBoxGsiHz.TabIndex = 2
'
'MaskedTextBoxGsiHzCor
'
Me.MaskedTextBoxGsiHzCor.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.MaskedTextBoxGsiHzCor.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.MaskedTextBoxGsiHzCor.Font = New System.Drawing.Font("Lucida Console", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.MaskedTextBoxGsiHzCor.Location = New System.Drawing.Point(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(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(381, 0)
Me.Label9.Name = "Label9"
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
'
'ButtonUpGsi
'
Me.ButtonUpGsi.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ButtonUpGsi.AutoSize = True
Me.ButtonUpGsi.FlatAppearance.BorderColor = System.Drawing.SystemColors.ButtonShadow
Me.ButtonUpGsi.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.ButtonUpGsi.Location = New System.Drawing.Point(381, 85)
Me.ButtonUpGsi.Name = "ButtonUpGsi"
Me.ButtonUpGsi.Size = New System.Drawing.Size(246, 34)
Me.ButtonUpGsi.TabIndex = 4
Me.ButtonUpGsi.Text = "Prevedi izi GSI"
Me.ButtonUpGsi.UseVisualStyleBackColor = True
'
'TextBox1
'
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
'
'TextBox2
'
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
'
Me.ButtonIzr.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ButtonIzr.AutoSize = True
Me.ButtonIzr.BackColor = System.Drawing.SystemColors.ButtonFace
Me.ButtonIzr.FlatAppearance.BorderColor = System.Drawing.SystemColors.ButtonShadow
Me.ButtonIzr.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.ButtonIzr.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ButtonIzr.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(120, 34)
Me.ButtonIzr.TabIndex = 7
Me.ButtonIzr.Text = "IZRAČUN"
Me.ButtonIzr.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.ButtonIzr.UseVisualStyleBackColor = False
'
'Label3
'
Me.Label3.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label3.Location = New System.Drawing.Point(3, 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.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, 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.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()
Me.ResumeLayout(False)
End Sub
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents OK_Button As System.Windows.Forms.Button
Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents MaskedTextBoxDegHz As MaskedTextBox
Friend WithEvents 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 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 Cancel_Button As Button
Friend WithEvents TextBox1 As TextBox
Friend WithEvents TextBox2 As TextBox
End Class

3065
DialogIzracunHzCor.resx Normal file

File diff suppressed because it is too large Load Diff

85
DialogIzracunHzCor.vb Normal file
View File

@ -0,0 +1,85 @@
Imports System.Windows.Forms
Public Class DialogIzracunHzCor
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.OK
Me.Close()
End Sub
Private Sub Cancel_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Cancel_Button.Click
Me.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Close()
End Sub
Private Sub ButtonIzr_Click(sender As Object, e As EventArgs) Handles ButtonIzr.Click
' Pretvori DMS v decimalne stopinje za Hz
Dim hzMer = 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 = 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 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
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)
TextBox1.Text = Format(hzMerNumData, "0.0000").ToString
'Dim hzMerData = Split(hzMerNumData.ToString, ".")
'Dim hzMerDeg As Double = hzMerData(0)
'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)
TextBox2.Text = Format(hzMPopNumData, "0.0000").ToString
'Dim hzPopData = Split(hzMPopNumData.ToString, ".")
'Dim hzPopDeg As Double = hzPopData(0)
'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
'MaskedTextBoxDegHz.Text = Format(hzMerDecDeg.ToString, "0.000000").ToString
'MaskedTextBoxDegHzCor.Text = Format(hzPopDecDeg.ToString, "0.000000").ToString
End Sub
End Class

242
DialogJobOdpri.Designer.vb generated Normal file
View File

@ -0,0 +1,242 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DialogJobOdpri
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(DialogJobOdpri))
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.OK_Button = New System.Windows.Forms.Button()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.ButtonUvozi = New System.Windows.Forms.Button()
Me.ListView1 = New System.Windows.Forms.ListView()
Me.ColumnHeaderJob = CType(New System.Windows.Forms.ColumnHeader(), System.Windows.Forms.ColumnHeader)
Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
Me.LabelMapa = New System.Windows.Forms.Label()
Me.LabelDatum = New System.Windows.Forms.Label()
Me.LabelDatoteka = New System.Windows.Forms.Label()
Me.GroupBox1 = New System.Windows.Forms.GroupBox()
Me.ImageListJob = New System.Windows.Forms.ImageList(Me.components)
Me.Label1 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout()
Me.TableLayoutPanel2.SuspendLayout()
Me.GroupBox1.SuspendLayout()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.ColumnCount = 3
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 35.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 35.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 30.0!))
Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 2, 0)
Me.TableLayoutPanel1.Controls.Add(Me.ButtonUvozi, 1, 0)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(12, 298)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 100.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(380, 42)
Me.TableLayoutPanel1.TabIndex = 0
'
'OK_Button
'
Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None
Me.OK_Button.Enabled = False
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_product_documents_24
Me.OK_Button.Location = New System.Drawing.Point(21, 3)
Me.OK_Button.Name = "OK_Button"
Me.OK_Button.Size = New System.Drawing.Size(90, 35)
Me.OK_Button.TabIndex = 1
Me.OK_Button.Text = "Odpri Job"
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.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_24
Me.Cancel_Button.Location = New System.Drawing.Point(278, 3)
Me.Cancel_Button.Name = "Cancel_Button"
Me.Cancel_Button.Size = New System.Drawing.Size(90, 35)
Me.Cancel_Button.TabIndex = 3
Me.Cancel_Button.Text = "Prekliči"
Me.Cancel_Button.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
'
'ButtonUvozi
'
Me.ButtonUvozi.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom), System.Windows.Forms.AnchorStyles)
Me.ButtonUvozi.FlatAppearance.BorderSize = 0
Me.ButtonUvozi.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.ButtonUvozi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_24
Me.ButtonUvozi.Location = New System.Drawing.Point(154, 3)
Me.ButtonUvozi.Name = "ButtonUvozi"
Me.ButtonUvozi.Size = New System.Drawing.Size(90, 36)
Me.ButtonUvozi.TabIndex = 2
Me.ButtonUvozi.Text = "Uvozi Job"
Me.ButtonUvozi.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.ButtonUvozi.UseVisualStyleBackColor = True
'
'ListView1
'
Me.ListView1.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.ListView1.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ColumnHeaderJob})
Me.ListView1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ListView1.FullRowSelect = True
Me.ListView1.GridLines = True
Me.ListView1.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
Me.ListView1.HideSelection = False
Me.ListView1.LabelWrap = False
Me.ListView1.Location = New System.Drawing.Point(14, 14)
Me.ListView1.Margin = New System.Windows.Forms.Padding(5)
Me.ListView1.MultiSelect = False
Me.ListView1.Name = "ListView1"
Me.ListView1.ShowItemToolTips = True
Me.ListView1.Size = New System.Drawing.Size(177, 278)
Me.ListView1.SmallImageList = Me.ImageListJob
Me.ListView1.TabIndex = 0
Me.ListView1.UseCompatibleStateImageBehavior = False
Me.ListView1.View = System.Windows.Forms.View.List
'
'ColumnHeaderJob
'
Me.ColumnHeaderJob.Width = 155
'
'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.LabelDatoteka, 0, 0)
Me.TableLayoutPanel2.Controls.Add(Me.LabelDatum, 0, 1)
Me.TableLayoutPanel2.Location = New System.Drawing.Point(6, 19)
Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
Me.TableLayoutPanel2.RowCount = 2
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.Size = New System.Drawing.Size(181, 60)
Me.TableLayoutPanel2.TabIndex = 3
'
'LabelMapa
'
Me.LabelMapa.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelMapa.AutoSize = True
Me.LabelMapa.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.LabelMapa.Location = New System.Drawing.Point(243, 14)
Me.LabelMapa.Name = "LabelMapa"
Me.LabelMapa.Size = New System.Drawing.Size(16, 13)
Me.LabelMapa.TabIndex = 2
Me.LabelMapa.Text = "..."
'
'LabelDatum
'
Me.LabelDatum.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelDatum.AutoSize = True
Me.LabelDatum.Location = New System.Drawing.Point(3, 38)
Me.LabelDatum.Name = "LabelDatum"
Me.LabelDatum.Size = New System.Drawing.Size(175, 13)
Me.LabelDatum.TabIndex = 3
Me.LabelDatum.Text = "..."
'
'LabelDatoteka
'
Me.LabelDatoteka.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelDatoteka.AutoSize = True
Me.LabelDatoteka.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelDatoteka.Location = New System.Drawing.Point(3, 7)
Me.LabelDatoteka.Name = "LabelDatoteka"
Me.LabelDatoteka.Size = New System.Drawing.Size(175, 16)
Me.LabelDatoteka.TabIndex = 1
Me.LabelDatoteka.Text = "..."
'
'GroupBox1
'
Me.GroupBox1.Controls.Add(Me.TableLayoutPanel2)
Me.GroupBox1.Location = New System.Drawing.Point(199, 35)
Me.GroupBox1.Name = "GroupBox1"
Me.GroupBox1.Size = New System.Drawing.Size(193, 90)
Me.GroupBox1.TabIndex = 4
Me.GroupBox1.TabStop = False
Me.GroupBox1.Text = "Job"
'
'ImageListJob
'
Me.ImageListJob.ImageStream = CType(resources.GetObject("ImageListJob.ImageStream"), System.Windows.Forms.ImageListStreamer)
Me.ImageListJob.TransparentColor = System.Drawing.Color.Transparent
Me.ImageListJob.Images.SetKeyName(0, "icons8-file-GSI-50.png")
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(200, 14)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(37, 13)
Me.Label1.TabIndex = 5
Me.Label1.Text = "Mapa:"
'
'DialogJobOdpri
'
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(404, 352)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.LabelMapa)
Me.Controls.Add(Me.GroupBox1)
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 = "DialogJobOdpri"
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Odpri Job"
Me.TopMost = True
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel2.ResumeLayout(False)
Me.TableLayoutPanel2.PerformLayout()
Me.GroupBox1.ResumeLayout(False)
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 ListView1 As ListView
Friend WithEvents ColumnHeaderJob As ColumnHeader
Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
Friend WithEvents LabelMapa As Label
Friend WithEvents LabelDatoteka As Label
Friend WithEvents LabelDatum As Label
Friend WithEvents GroupBox1 As GroupBox
Friend WithEvents ButtonUvozi As Button
Friend WithEvents ImageListJob As ImageList
Friend WithEvents Label1 As Label
End Class

3104
DialogJobOdpri.resx Normal file

File diff suppressed because it is too large Load Diff

75
DialogJobOdpri.vb Normal file
View File

@ -0,0 +1,75 @@
Imports System.IO
Imports System.Windows.Forms
Imports System.Windows.Forms.ListViewItem
Public Class DialogJobOdpri
Dim mapa As String
Dim datime As String
Dim datmapa As String
Dim datdatum As String
Private Sub DialogJobOdpri_Load(sender As Object, e As EventArgs) Handles MyBase.Load
mapa = My.Settings.ProjektMapa.ToString
Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + mapa.ToString
Dim datotekeJobi = My.Computer.FileSystem.GetFiles(delovnaMapa, FileIO.SearchOption.SearchTopLevelOnly, "*.GSI")
Dim i As Integer = 0
ListView1.Clear()
For Each datJob In datotekeJobi
ListView1.Items.Add(Path.GetFileName(datJob).ToString).SubItems.Add(Path.GetFullPath(datJob))
ListView1.Items.Item(i).ImageIndex = 0
i = i + 1
Next
LabelMapa.Text = mapa.ToString
End Sub
Private Sub NaloziJob()
Form1.datJob = datmapa
Form1.NaloziGsiJob()
End Sub
Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
Dim izbran As ListView.SelectedListViewItemCollection = Me.ListView1.SelectedItems
Dim item As ListViewItem
For Each item In izbran
datime = item.SubItems(0).Text
datmapa = item.SubItems(1).Text
Next
datdatum = My.Computer.FileSystem.GetFileInfo(datmapa).LastWriteTime
If LabelDatoteka.Text = "" Then
OK_Button.Enabled = False
Else
OK_Button.Enabled = True
End If
LabelDatoteka.Text = datime.ToString
LabelDatum.Text = datdatum.ToString
End Sub
Private Sub ListView1_Selected_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick
NaloziJob()
Me.Close()
End Sub
Private Sub OK_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OK_Button.Click
NaloziJob()
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 ButtonUvozi_Click(sender As Object, e As EventArgs) Handles ButtonUvozi.Click
Form1.UvoziGsiJob()
Me.Close()
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

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

113
DialogNovProj.Designer.vb generated Normal file
View File

@ -0,0 +1,113 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DialogNovProj
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.OK_Button = New System.Windows.Forms.Button()
Me.Cancel_Button = New System.Windows.Forms.Button()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = System.Windows.Forms.AnchorStyles.Bottom
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(90, 49)
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"
'
'TextBox1
'
Me.TextBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBox1.Location = New System.Drawing.Point(80, 8)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(156, 22)
Me.TextBox1.TabIndex = 1
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(8, 11)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(66, 13)
Me.Label1.TabIndex = 2
Me.Label1.Text = "Ime Projekta"
'
'DialogNovProj
'
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(244, 86)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog
Me.MaximizeBox = False
Me.MinimizeBox = False
Me.Name = "DialogNovProj"
Me.Padding = New System.Windows.Forms.Padding(5)
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Nov Projekt"
Me.TopMost = True
Me.TableLayoutPanel1.ResumeLayout(False)
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 TextBox1 As TextBox
Friend WithEvents Label1 As Label
End Class

120
DialogNovProj.resx Normal file
View File

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

24
DialogNovProj.vb Normal file
View File

@ -0,0 +1,24 @@
Imports System.Windows.Forms
Public Class DialogNovProj
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
If (My.Computer.FileSystem.DirectoryExists("Projekti\" + TextBox1.Text)) Then
MessageBox.Show("Projekt z tem imenom že obstaja!")
Else
My.Computer.FileSystem.CreateDirectory("Projekti\" + TextBox1.Text)
FormGsiJobs.ListViewProj.Items.Add(TextBox1.Text).SubItems.Add("Projekti\" + TextBox1.Text)
FormGsiJobs.ProjektiShraniNast()
End If
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
End Class

307
DialogPripravaKartice.Designer.vb generated Normal file
View File

@ -0,0 +1,307 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class DialogPripravaKartice
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(DialogPripravaKartice))
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.Button_Pripravi = New System.Windows.Forms.Button()
Me.Button_Zapri = New System.Windows.Forms.Button()
Me.Button_Format = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.ComboBox1 = New System.Windows.Forms.ComboBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel()
Me.LabelSize = New System.Windows.Forms.Label()
Me.LabelTip = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
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()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.TableLayoutPanel1.ColumnCount = 4
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 30.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 30.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 10.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 30.0!))
Me.TableLayoutPanel1.Controls.Add(Me.Button_Pripravi, 1, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Button_Zapri, 3, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Button_Format, 0, 0)
Me.TableLayoutPanel1.Location = New System.Drawing.Point(12, 179)
Me.TableLayoutPanel1.Name = "TableLayoutPanel1"
Me.TableLayoutPanel1.RowCount = 1
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 40.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(340, 40)
Me.TableLayoutPanel1.TabIndex = 0
'
'Button_Pripravi
'
Me.Button_Pripravi.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.Button_Pripravi.AutoSize = True
Me.Button_Pripravi.Enabled = False
Me.Button_Pripravi.FlatAppearance.BorderSize = 0
Me.Button_Pripravi.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button_Pripravi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_24
Me.Button_Pripravi.Location = New System.Drawing.Point(105, 3)
Me.Button_Pripravi.Name = "Button_Pripravi"
Me.Button_Pripravi.Size = New System.Drawing.Size(96, 34)
Me.Button_Pripravi.TabIndex = 1
Me.Button_Pripravi.Text = "Pripravi"
Me.Button_Pripravi.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
'
'Button_Zapri
'
Me.Button_Zapri.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.Button_Zapri.AutoSize = True
Me.Button_Zapri.DialogResult = System.Windows.Forms.DialogResult.Cancel
Me.Button_Zapri.FlatAppearance.BorderSize = 0
Me.Button_Zapri.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button_Zapri.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_24
Me.Button_Zapri.Location = New System.Drawing.Point(241, 3)
Me.Button_Zapri.Name = "Button_Zapri"
Me.Button_Zapri.Size = New System.Drawing.Size(96, 34)
Me.Button_Zapri.TabIndex = 2
Me.Button_Zapri.Text = "Izhod"
Me.Button_Zapri.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
Me.Button_Zapri.UseVisualStyleBackColor = True
'
'Button_Format
'
Me.Button_Format.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.Button_Format.Enabled = False
Me.Button_Format.FlatAppearance.BorderSize = 0
Me.Button_Format.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button_Format.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_error_24
Me.Button_Format.Location = New System.Drawing.Point(3, 3)
Me.Button_Format.Name = "Button_Format"
Me.Button_Format.Size = New System.Drawing.Size(96, 34)
Me.Button_Format.TabIndex = 3
Me.Button_Format.Text = "Formatiraj"
Me.Button_Format.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.Button_Format.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label1.Location = New System.Drawing.Point(67, 13)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(241, 65)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Formatiranje in Priprava kartice.." & Global.Microsoft.VisualBasic.ChrW(13) & Global.Microsoft.VisualBasic.ChrW(10) & "Na kartico bodo naloženi podatki za TPS1100 i" &
"n GPS500."
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label2
'
Me.Label2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_micro_sd_50
Me.Label2.Location = New System.Drawing.Point(13, 13)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(48, 65)
Me.Label2.TabIndex = 2
'
'ComboBox1
'
Me.ComboBox1.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.ComboBox1.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ComboBox1.FormattingEnabled = True
Me.ComboBox1.Location = New System.Drawing.Point(3, 38)
Me.ComboBox1.Name = "ComboBox1"
Me.ComboBox1.Size = New System.Drawing.Size(62, 24)
Me.ComboBox1.TabIndex = 0
'
'Label3
'
Me.Label3.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(3, 8)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(62, 13)
Me.Label3.TabIndex = 3
Me.Label3.Text = "Pogon"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'TableLayoutPanel2
'
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, 35.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, 20.0!))
Me.TableLayoutPanel2.Controls.Add(Me.ComboBox1, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.LabelSize, 2, 1)
Me.TableLayoutPanel2.Controls.Add(Me.LabelTip, 3, 1)
Me.TableLayoutPanel2.Controls.Add(Me.Label3, 0, 0)
Me.TableLayoutPanel2.Controls.Add(Me.Label4, 1, 0)
Me.TableLayoutPanel2.Controls.Add(Me.Label5, 2, 0)
Me.TableLayoutPanel2.Controls.Add(Me.Label6, 3, 0)
Me.TableLayoutPanel2.Controls.Add(Me.TextBoxPogonIme, 1, 1)
Me.TableLayoutPanel2.Location = New System.Drawing.Point(12, 81)
Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
Me.TableLayoutPanel2.RowCount = 2
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, 40.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 20.0!))
Me.TableLayoutPanel2.Size = New System.Drawing.Size(340, 70)
Me.TableLayoutPanel2.TabIndex = 4
'
'LabelSize
'
Me.LabelSize.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.LabelSize.AutoSize = True
Me.LabelSize.Location = New System.Drawing.Point(190, 43)
Me.LabelSize.Name = "LabelSize"
Me.LabelSize.Size = New System.Drawing.Size(29, 13)
Me.LabelSize.TabIndex = 5
Me.LabelSize.Text = "(MB)"
Me.LabelSize.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelTip
'
Me.LabelTip.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelTip.AutoSize = True
Me.LabelTip.Location = New System.Drawing.Point(275, 43)
Me.LabelTip.Name = "LabelTip"
Me.LabelTip.Size = New System.Drawing.Size(62, 13)
Me.LabelTip.TabIndex = 6
Me.LabelTip.Text = "(TIP)"
Me.LabelTip.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(71, 8)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(113, 13)
Me.Label4.TabIndex = 3
Me.Label4.Text = "Ime"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label5
'
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(190, 8)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(79, 13)
Me.Label5.TabIndex = 3
Me.Label5.Text = "Velikost/Prosto"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label6
'
Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(275, 8)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(62, 13)
Me.Label6.TabIndex = 3
Me.Label6.Text = "Format"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'TextBoxPogonIme
'
Me.TextBoxPogonIme.Anchor = System.Windows.Forms.AnchorStyles.Left
Me.TextBoxPogonIme.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.TextBoxPogonIme.Location = New System.Drawing.Point(71, 39)
Me.TextBoxPogonIme.Name = "TextBoxPogonIme"
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)
Me.Controls.Add(Me.Label1)
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 = "DialogPripravaKartice"
Me.ShowInTaskbar = False
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent
Me.Text = "Priprava PC-Kartice"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel1.PerformLayout()
Me.TableLayoutPanel2.ResumeLayout(False)
Me.TableLayoutPanel2.PerformLayout()
Me.ResumeLayout(False)
End Sub
Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel
Friend WithEvents Button_Pripravi As System.Windows.Forms.Button
Friend WithEvents Button_Zapri As Button
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents ComboBox1 As ComboBox
Friend WithEvents Label3 As Label
Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
Friend WithEvents Button_Format As Button
Friend WithEvents LabelSize As Label
Friend WithEvents LabelTip As Label
Friend WithEvents ProgressBar1 As ProgressBar
Friend WithEvents Label4 As Label
Friend WithEvents Label5 As Label
Friend WithEvents Label6 As Label
Friend WithEvents TextBoxPogonIme As TextBox
Friend WithEvents Label7 As Label
End Class

3065
DialogPripravaKartice.resx Normal file

File diff suppressed because it is too large Load Diff

175
DialogPripravaKartice.vb Normal file
View File

@ -0,0 +1,175 @@
Imports System.IO
Imports System.Windows.Forms
Public Class DialogPripravaKartice
Private Sub DialogPripravaKartice_Load(sender As Object, e As EventArgs) Handles MyBase.Load
For Each drive In IO.DriveInfo.GetDrives
'get all removable and fixed drives
If drive.DriveType = IO.DriveType.Removable And drive.IsReady = True Then
'add all found drives into the combobox
ComboBox1.Items.Add(drive)
End If
Next
End Sub
' Funkcija za pripravo PC-kartice/delovne mape
Private Sub PripravaKartice()
' Pripravi datoteke in poti za kopiranje
Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString
Dim karticaMapa = ComboBox1.Text
Dim fileUvozCode = delovnaMapa + "\Virtualna Kartica\CODE\TPS1100.crf"
Dim fileIzvozCode = karticaMapa + "CODE\TPS1100.crf"
Dim 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"
Dim fileIzvozGpsGsi = karticaMapa + "CONVERT\GPS-GSI.FRT"
Dim fileUvozGpsKoo = delovnaMapa + "\Virtualna Kartica\CONVERT\GPS-KOO.FRT"
Dim fileIzvozGpsKoo = karticaMapa + "CONVERT\GPS-KOO.FRT"
Dim fileUvozGpsPor = delovnaMapa + "\Virtualna Kartica\CONVERT\POROCILO.FRT"
Dim fileIzvozGpsPor = karticaMapa + "CONVERT\POROCILO.FRT"
' Kopiraj datoteke na kartico
If My.Computer.FileSystem.FileExists(fileUvozCode) Then
My.Computer.FileSystem.CopyFile(fileUvozCode, fileIzvozCode, True)
End If
If My.Computer.FileSystem.FileExists(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
My.Computer.FileSystem.CopyFile(fileUvozTps, fileIzvozTps, True)
End If
If My.Computer.FileSystem.FileExists(fileUvozGpsGsi) Then
My.Computer.FileSystem.CopyFile(fileUvozGpsGsi, fileIzvozGpsGsi, True)
End If
If My.Computer.FileSystem.FileExists(fileUvozGpsKoo) Then
My.Computer.FileSystem.CopyFile(fileUvozGpsKoo, fileIzvozGpsKoo, True)
End If
If My.Computer.FileSystem.FileExists(fileUvozGpsPor) Then
My.Computer.FileSystem.CopyFile(fileUvozGpsPor, fileIzvozGpsPor, True)
End If
If My.Computer.FileSystem.DirectoryExists(karticaMapa + "GSI") = False Then
My.Computer.FileSystem.CreateDirectory(karticaMapa + "GSI")
End If
If My.Computer.FileSystem.DirectoryExists(karticaMapa + "LOG") = False Then
My.Computer.FileSystem.CreateDirectory(karticaMapa + "LOG")
End If
End Sub
Private Sub Button_Pripravi_Click(ByVal sender As Object, e As EventArgs) Handles Button_Pripravi.Click
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
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
Dim totalSize
Dim availSize
Dim usedSize
For Each d In allDrives
If d.Name = ComboBox1.Text Then
totalSize = Format(d.TotalSize / 1000 / 1000, "0")
availSize = Format(d.AvailableFreeSpace / 1000 / 1000, "0")
usedSize = totalSize - availSize
LabelSize.Text = totalSize.ToString + "/" + availSize.ToString + " MB"
TextBoxPogonIme.Text = d.VolumeLabel.ToString
LabelTip.Text = d.DriveFormat.ToString
ProgressBar1.Maximum = totalSize
ProgressBar1.Value = usedSize
End If
Next
End Sub
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 karticaLabel As String = TextBoxPogonIme.Text
Dim msgFormat = MsgBox("Formatiranje pogona: " + kartica + " [" + karticaLabel + "]" + vbCrLf + "Vsi podatki na pogonu bodo izbrisani!" + vbCrLf + "Nadaljujem?", vbYesNo + vbExclamation, "Formatiranje kartice...")
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 + vbInformation)
End If
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
Dim allDrives() As DriveInfo = DriveInfo.GetDrives()
Dim d As DriveInfo
Dim totalSize
Dim availSize
Dim usedSize
For Each d In allDrives
If d.Name = ComboBox1.Text Then
totalSize = Format(d.TotalSize / 1000 / 1000, "0")
availSize = Format(d.AvailableFreeSpace / 1000 / 1000, "0")
usedSize = totalSize - availSize
LabelSize.Text = totalSize.ToString + "/" + availSize.ToString + " MB"
TextBoxPogonIme.Text = d.VolumeLabel.ToString
LabelTip.Text = d.DriveFormat.ToString
ProgressBar1.Maximum = totalSize
ProgressBar1.Value = usedSize
End If
Next
Button_Format.Enabled = True
Button_Pripravi.Enabled = True
End Sub
Private Sub Button_Zapri_Click(sender As Object, e As EventArgs) Handles Button_Zapri.Click
Me.Close()
End Sub
End Class

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

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

215
DialogZavarovanje.Designer.vb generated Normal file
View File

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

3065
DialogZavarovanje.resx Normal file

File diff suppressed because it is too large Load Diff

54
DialogZavarovanje.vb Normal file
View File

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

3005
Doc/Home.html Normal file

File diff suppressed because it is too large Load Diff

3029
Doc/Kodiranje-podatkov.html Normal file

File diff suppressed because it is too large Load Diff

2951
Doc/Navodila-nastavitve.html Normal file

File diff suppressed because it is too large Load Diff

2982
Doc/Navodila-orodja.html Normal file

File diff suppressed because it is too large Load Diff

3068
Doc/Navodila-osnovna.html Normal file

File diff suppressed because it is too large Load Diff

618
Form1.Designer.vb generated
View File

@ -31,51 +31,75 @@ Partial Class Form1
Me.OpenFileDialog1 = New System.Windows.Forms.OpenFileDialog()
Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbFileName = New System.Windows.Forms.ToolStripTextBox()
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.LabelDatoteka = New System.Windows.Forms.ToolStripLabel()
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.ToolStripSeparator5 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripSeparator11 = New System.Windows.Forms.ToolStripSeparator()
Me.ButtonUrediDat = New System.Windows.Forms.ToolStripButton()
Me.tsbConvert = New System.Windows.Forms.ToolStripButton()
Me.tsbPointsOnly = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButtonGeo = New System.Windows.Forms.ToolStripButton()
Me.tsbPointsOnly = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator4 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbSaveAs = New System.Windows.Forms.ToolStripButton()
Me.ToolStripLabel1 = New System.Windows.Forms.ToolStripLabel()
Me.OpenFileDialogTocke = New System.Windows.Forms.OpenFileDialog()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DatotekaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OdpriGSIToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.PripraviGSIToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ShraniToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.IzhodToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.MenuToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OdpriGSIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator6 = New System.Windows.Forms.ToolStripSeparator()
Me.PripraviGSIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
Me.PosodobitevToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.InfoOAplikacijiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator12 = New System.Windows.Forms.ToolStripSeparator()
Me.IzhodToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem1 = New System.Windows.Forms.ToolStripMenuItem()
Me.ManagerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator10 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripMenuItem2 = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripMenuItem4 = New System.Windows.Forms.ToolStripMenuItem()
Me.tsbUvoziTocke = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator13 = New System.Windows.Forms.ToolStripSeparator()
Me.ShraniToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.OrodjaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PripraviKarticoToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.tsbPripravaFormat = New System.Windows.Forms.ToolStripMenuItem()
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()
Me.tsbFileName = New System.Windows.Forms.ToolStripTextBox()
Me.LabelDatoteka = New System.Windows.Forms.ToolStripLabel()
Me.tsbZacetek = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.tsbSaveAs = New System.Windows.Forms.ToolStripButton()
Me.StatusStrip1.SuspendLayout()
Me.ToolStrip1.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.ToolStrip2.SuspendLayout()
Me.SuspendLayout()
'
'RichTextBox1
'
Me.RichTextBox1.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.RichTextBox1.BackColor = System.Drawing.SystemColors.Control
Me.RichTextBox1.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.RichTextBox1.Cursor = System.Windows.Forms.Cursors.IBeam
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, 71)
Me.RichTextBox1.Margin = New System.Windows.Forms.Padding(0, 0, 0, 1)
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, 647)
Me.RichTextBox1.Size = New System.Drawing.Size(1233, 598)
Me.RichTextBox1.TabIndex = 1
Me.RichTextBox1.Text = resources.GetString("RichTextBox1.Text")
Me.RichTextBox1.WordWrap = False
@ -83,6 +107,7 @@ Partial Class Form1
'StatusStrip1
'
Me.StatusStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripProgressBar1, Me.ToolStripStatusLabel1, Me.ToolStripStatusLabel2})
Me.StatusStrip1.LayoutStyle = System.Windows.Forms.ToolStripLayoutStyle.HorizontalStackWithOverflow
Me.StatusStrip1.Location = New System.Drawing.Point(0, 719)
Me.StatusStrip1.Name = "StatusStrip1"
Me.StatusStrip1.Size = New System.Drawing.Size(1251, 22)
@ -102,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
'
@ -123,107 +148,412 @@ Partial Class Form1
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 37)
'
'tsbFileName
'
Me.tsbFileName.AutoSize = False
Me.tsbFileName.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.tsbFileName.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
Me.tsbFileName.Margin = New System.Windows.Forms.Padding(5, 0, 5, 0)
Me.tsbFileName.Name = "tsbFileName"
Me.tsbFileName.ReadOnly = True
Me.tsbFileName.Size = New System.Drawing.Size(200, 25)
Me.ToolStripSeparator1.Size = New System.Drawing.Size(6, 52)
'
'ToolStrip1
'
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(30, 30)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LabelDatoteka, Me.tsbFileName, Me.tsbOpenFile, Me.ToolStripButtonPripravi, Me.ToolStripSeparator5, Me.ButtonUrediDat, Me.ToolStripSeparator1, Me.tsbConvert, Me.tsbPointsOnly, Me.ToolStripButtonGeo, Me.ToolStripSeparator4, Me.tsbSaveAs})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 24)
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.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(10, 5, 10, 5)
Me.ToolStrip1.Size = New System.Drawing.Size(1251, 47)
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"
'
'LabelDatoteka
'ToolStripButtonpROJ
'
Me.LabelDatoteka.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.LabelDatoteka.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_window_50
Me.LabelDatoteka.Name = "LabelDatoteka"
Me.LabelDatoteka.Size = New System.Drawing.Size(30, 34)
Me.LabelDatoteka.Text = "Datoteka"
Me.LabelDatoteka.ToolTipText = "Ni datoteke"
Me.ToolStripButtonpROJ.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_tree_structure_50
Me.ToolStripButtonpROJ.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButtonpROJ.Name = "ToolStripButtonpROJ"
Me.ToolStripButtonpROJ.Size = New System.Drawing.Size(51, 49)
Me.ToolStripButtonpROJ.Text = "Projekti"
Me.ToolStripButtonpROJ.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ToolStripButtonpROJ.ToolTipText = "Urejenje projektov"
'
'ToolStripButton2
'
Me.ToolStripButton2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_product_documents_50
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(62, 49)
Me.ToolStripButton2.Text = "Odpri Job"
Me.ToolStripButton2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ToolStripButton2.ToolTipText = "Izberi Job iz projekta..."
'
'ToolStripSeparator8
'
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_opened_folder_50
Me.tsbOpenFile.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
Me.tsbOpenFile.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbOpenFile.Name = "tsbOpenFile"
Me.tsbOpenFile.Size = New System.Drawing.Size(91, 34)
Me.tsbOpenFile.Text = "Odpri GSI"
Me.tsbOpenFile.ToolTipText = "Izberi GSI datoteko..."
Me.tsbOpenFile.Size = New System.Drawing.Size(61, 49)
Me.tsbOpenFile.Text = "Uvozi Job"
Me.tsbOpenFile.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.tsbOpenFile.ToolTipText = "Uvozi GSI job v trenutni projekt..."
'
'ToolStripButtonPripravi
'
Me.ToolStripButtonPripravi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
Me.ToolStripButtonPripravi.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButtonPripravi.Name = "ToolStripButtonPripravi"
Me.ToolStripButtonPripravi.Size = New System.Drawing.Size(101, 34)
Me.ToolStripButtonPripravi.Text = "Pripravi GSI"
Me.ToolStripButtonPripravi.Size = New System.Drawing.Size(73, 49)
Me.ToolStripButtonPripravi.Text = "Uvozi Točke"
Me.ToolStripButtonPripravi.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ToolStripButtonPripravi.ToolTipText = "Pripravi GSI iz datoteke z točkami..."
'
'ToolStripSeparator5
'ToolStripSeparator11
'
Me.ToolStripSeparator5.Name = "ToolStripSeparator5"
Me.ToolStripSeparator5.Size = New System.Drawing.Size(6, 37)
Me.ToolStripSeparator11.Name = "ToolStripSeparator11"
Me.ToolStripSeparator11.Size = New System.Drawing.Size(6, 52)
'
'ButtonUrediDat
'
Me.ButtonUrediDat.Enabled = False
Me.ButtonUrediDat.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_edit_50
Me.ButtonUrediDat.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_design_48
Me.ButtonUrediDat.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ButtonUrediDat.Name = "ButtonUrediDat"
Me.ButtonUrediDat.Size = New System.Drawing.Size(69, 34)
Me.ButtonUrediDat.Size = New System.Drawing.Size(39, 49)
Me.ButtonUrediDat.Text = "Uredi"
Me.ButtonUrediDat.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ButtonUrediDat.ToolTipText = "Uredi podatke GSI datoteke..."
'
'tsbConvert
'
Me.tsbConvert.AutoSize = False
Me.tsbConvert.Enabled = False
Me.tsbConvert.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tsbConvert.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_land_surveying_48
Me.tsbConvert.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbConvert.Name = "tsbConvert"
Me.tsbConvert.Size = New System.Drawing.Size(128, 34)
Me.tsbConvert.Text = "Zapisnik Meritve"
Me.tsbConvert.Size = New System.Drawing.Size(55, 49)
Me.tsbConvert.Text = "Zapisnik"
Me.tsbConvert.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.tsbConvert.ToolTipText = "Izvozi zapisnik meritev."
'
'tsbPointsOnly
'
Me.tsbPointsOnly.Enabled = False
Me.tsbPointsOnly.Font = New System.Drawing.Font("Segoe UI Semibold", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tsbPointsOnly.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_connection_status_on_48
Me.tsbPointsOnly.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbPointsOnly.Name = "tsbPointsOnly"
Me.tsbPointsOnly.Size = New System.Drawing.Size(112, 34)
Me.tsbPointsOnly.Text = "Seznam Točk"
Me.tsbPointsOnly.ToolTipText = "Izvozi koordinate točk."
'
'ToolStripButtonGeo
'
Me.ToolStripButtonGeo.AutoSize = False
Me.ToolStripButtonGeo.Enabled = False
Me.ToolStripButtonGeo.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_drawing_compass_48
Me.ToolStripButtonGeo.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButtonGeo.Name = "ToolStripButtonGeo"
Me.ToolStripButtonGeo.Size = New System.Drawing.Size(103, 34)
Me.ToolStripButtonGeo.Text = "GEO Skripta"
Me.ToolStripButtonGeo.Size = New System.Drawing.Size(55, 49)
Me.ToolStripButtonGeo.Text = "GEO"
Me.ToolStripButtonGeo.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ToolStripButtonGeo.ToolTipText = "Priprava GEO skripte..."
'
'tsbPointsOnly
'
Me.tsbPointsOnly.AutoSize = False
Me.tsbPointsOnly.Enabled = False
Me.tsbPointsOnly.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_my_location_50
Me.tsbPointsOnly.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbPointsOnly.Name = "tsbPointsOnly"
Me.tsbPointsOnly.Size = New System.Drawing.Size(55, 49)
Me.tsbPointsOnly.Text = "Točke"
Me.tsbPointsOnly.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.tsbPointsOnly.ToolTipText = "Izvozi seznam koordinat točk..."
'
'ToolStripButton3
'
Me.ToolStripButton3.Enabled = False
Me.ToolStripButton3.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_mesh_48
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(48, 49)
Me.ToolStripButton3.Text = "Grafika"
Me.ToolStripButton3.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ToolStripButton3.ToolTipText = "Odpri grafiko z točkami..."
'
'ToolStripSeparator4
'
Me.ToolStripSeparator4.Name = "ToolStripSeparator4"
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 37)
Me.ToolStripSeparator4.Size = New System.Drawing.Size(6, 52)
'
'ToolStripLabel1
'
Me.ToolStripLabel1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripLabel1.Name = "ToolStripLabel1"
Me.ToolStripLabel1.Size = New System.Drawing.Size(0, 49)
'
'OpenFileDialogTocke
'
Me.OpenFileDialogTocke.Filter = "Datoteke točk|*.koo;*.txt|All files|*.*"
'
'MenuStrip1
'
Me.MenuStrip1.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, 28)
Me.MenuStrip1.TabIndex = 3
Me.MenuStrip1.Text = "MenuStrip1"
'
'MenuToolStripMenuItem
'
Me.MenuToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OdpriGSIToolStripMenuItem, Me.ToolStripSeparator6, Me.PripraviGSIToolStripMenuItem, Me.ToolStripSeparator7, Me.PosodobitevToolStripMenuItem, Me.InfoOAplikacijiToolStripMenuItem, Me.ToolStripSeparator12, Me.IzhodToolStripMenuItem})
Me.MenuToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_menu_50
Me.MenuToolStripMenuItem.Name = "MenuToolStripMenuItem"
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(153, 26)
Me.OdpriGSIToolStripMenuItem.Text = "Nastavitve"
Me.OdpriGSIToolStripMenuItem.ToolTipText = "Odpri Nastavitve aplikacije..."
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
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(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(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(153, 26)
Me.PosodobitevToolStripMenuItem.Text = "Posodobitev..."
Me.PosodobitevToolStripMenuItem.ToolTipText = "Preveri za nove posodobitve..."
'
'InfoOAplikacijiToolStripMenuItem
'
Me.InfoOAplikacijiToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_information_50
Me.InfoOAplikacijiToolStripMenuItem.Name = "InfoOAplikacijiToolStripMenuItem"
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(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(153, 26)
Me.IzhodToolStripMenuItem.Text = "I&zhod"
Me.IzhodToolStripMenuItem.ToolTipText = "Izhod iz programa..."
'
'ToolStripMenuItem1
'
Me.ToolStripMenuItem1.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ManagerToolStripMenuItem, Me.ToolStripSeparator10, Me.ToolStripMenuItem2, Me.ToolStripMenuItem4, Me.tsbUvoziTocke, Me.ToolStripSeparator13, Me.ShraniToolStripMenuItem})
Me.ToolStripMenuItem1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_folder_tree_50
Me.ToolStripMenuItem1.Name = "ToolStripMenuItem1"
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(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(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(213, 26)
Me.ToolStripMenuItem2.Text = "&Odpri Job"
Me.ToolStripMenuItem2.ToolTipText = "Odpri GSI Job..."
'
'ToolStripMenuItem4
'
Me.ToolStripMenuItem4.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_move_to_folder_50
Me.ToolStripMenuItem4.Name = "ToolStripMenuItem4"
Me.ToolStripMenuItem4.Size = New System.Drawing.Size(213, 26)
Me.ToolStripMenuItem4.Text = "&Uvozi Job"
Me.ToolStripMenuItem4.ToolTipText = "Uvozi GSI v aktivni projekt..."
'
'tsbUvoziTocke
'
Me.tsbUvoziTocke.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
Me.tsbUvoziTocke.Name = "tsbUvoziTocke"
Me.tsbUvoziTocke.Size = New System.Drawing.Size(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(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(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.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(75, 24)
Me.OrodjaToolStripMenuItem.Text = "Orodja"
Me.OrodjaToolStripMenuItem.ToolTipText = "Uvozi točke iz TXT v GSI"
'
'PripraviKarticoToolStripMenuItem
'
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(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_sdb_import_50
Me.tsbPripravaFormat.Name = "tsbPripravaFormat"
Me.tsbPripravaFormat.Size = New System.Drawing.Size(184, 26)
Me.tsbPripravaFormat.Text = "Priprava Kartice"
Me.tsbPripravaFormat.ToolTipText = "Pripravi kartico za delo z instrumentom..."
'
'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(184, 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(181, 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(184, 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
Me.FolderDialogKartica.ShowNewFolderButton = False
'
'ToolStrip2
'
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.ToolStripLabel2, Me.tsbFileName, Me.LabelDatoteka, Me.tsbZacetek, Me.ToolStripSeparator2, Me.tsbSaveAs})
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, 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(84, 28)
Me.ToolStripLabel2.Text = "<projekt>"
Me.ToolStripLabel2.ToolTipText = "Izbran projekt"
'
'tsbFileName
'
Me.tsbFileName.AutoSize = False
Me.tsbFileName.BackColor = System.Drawing.SystemColors.MenuBar
Me.tsbFileName.BorderStyle = System.Windows.Forms.BorderStyle.None
Me.tsbFileName.Font = New System.Drawing.Font("Segoe UI Semibold", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(238, Byte))
Me.tsbFileName.Margin = New System.Windows.Forms.Padding(5, 0, 0, 0)
Me.tsbFileName.Name = "tsbFileName"
Me.tsbFileName.ReadOnly = True
Me.tsbFileName.Size = New System.Drawing.Size(150, 25)
'
'LabelDatoteka
'
Me.LabelDatoteka.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.LabelDatoteka.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_window_50
Me.LabelDatoteka.Name = "LabelDatoteka"
Me.LabelDatoteka.Padding = New System.Windows.Forms.Padding(0, 0, 5, 0)
Me.LabelDatoteka.Size = New System.Drawing.Size(29, 28)
Me.LabelDatoteka.ToolTipText = "Ni datoteke"
'
'tsbZacetek
'
Me.tsbZacetek.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.tsbZacetek.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_50
Me.tsbZacetek.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbZacetek.Name = "tsbZacetek"
Me.tsbZacetek.Size = New System.Drawing.Size(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, 31)
'
'tsbSaveAs
'
@ -232,108 +562,15 @@ Partial Class Form1
Me.tsbSaveAs.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
Me.tsbSaveAs.ImageTransparentColor = System.Drawing.Color.Magenta
Me.tsbSaveAs.Name = "tsbSaveAs"
Me.tsbSaveAs.Size = New System.Drawing.Size(93, 34)
Me.tsbSaveAs.Size = New System.Drawing.Size(87, 28)
Me.tsbSaveAs.Text = "Shrani ..."
'
'OpenFileDialogTocke
'
Me.OpenFileDialogTocke.Filter = "Datoteke točk|*.koo;*.txt|All files|*.*"
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatotekaToolStripMenuItem, Me.MenuToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1251, 24)
Me.MenuStrip1.TabIndex = 3
Me.MenuStrip1.Text = "MenuStrip1"
'
'DatotekaToolStripMenuItem
'
Me.DatotekaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OdpriGSIToolStripMenuItem1, Me.PripraviGSIToolStripMenuItem1, Me.ToolStripSeparator3, Me.ShraniToolStripMenuItem, Me.ToolStripSeparator2, Me.IzhodToolStripMenuItem})
Me.DatotekaToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_program_50
Me.DatotekaToolStripMenuItem.Name = "DatotekaToolStripMenuItem"
Me.DatotekaToolStripMenuItem.Size = New System.Drawing.Size(82, 20)
Me.DatotekaToolStripMenuItem.Text = "&Datoteka"
'
'OdpriGSIToolStripMenuItem1
'
Me.OdpriGSIToolStripMenuItem1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_opened_folder_50
Me.OdpriGSIToolStripMenuItem1.Name = "OdpriGSIToolStripMenuItem1"
Me.OdpriGSIToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
Me.OdpriGSIToolStripMenuItem1.Text = "&Odpri GSI"
'
'PripraviGSIToolStripMenuItem1
'
Me.PripraviGSIToolStripMenuItem1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
Me.PripraviGSIToolStripMenuItem1.Name = "PripraviGSIToolStripMenuItem1"
Me.PripraviGSIToolStripMenuItem1.Size = New System.Drawing.Size(180, 22)
Me.PripraviGSIToolStripMenuItem1.Text = "&Pripravi GSI"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(177, 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(180, 22)
Me.ShraniToolStripMenuItem.Text = "&Shrani..."
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(177, 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.Text = "I&zhod"
'
'MenuToolStripMenuItem
'
Me.MenuToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OdpriGSIToolStripMenuItem, Me.ToolStripSeparator6, Me.PripraviGSIToolStripMenuItem, Me.InfoOAplikacijiToolStripMenuItem})
Me.MenuToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_menu_50
Me.MenuToolStripMenuItem.Name = "MenuToolStripMenuItem"
Me.MenuToolStripMenuItem.Size = New System.Drawing.Size(81, 20)
Me.MenuToolStripMenuItem.Text = "Program"
'
'OdpriGSIToolStripMenuItem
'
Me.OdpriGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_open_end_wrench_50
Me.OdpriGSIToolStripMenuItem.Name = "OdpriGSIToolStripMenuItem"
Me.OdpriGSIToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
Me.OdpriGSIToolStripMenuItem.Text = "Nastavitve"
'
'ToolStripSeparator6
'
Me.ToolStripSeparator6.Name = "ToolStripSeparator6"
Me.ToolStripSeparator6.Size = New System.Drawing.Size(151, 6)
'
'PripraviGSIToolStripMenuItem
'
Me.PripraviGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_question_mark_48
Me.PripraviGSIToolStripMenuItem.Name = "PripraviGSIToolStripMenuItem"
Me.PripraviGSIToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
Me.PripraviGSIToolStripMenuItem.Text = "Navodila"
'
'InfoOAplikacijiToolStripMenuItem
'
Me.InfoOAplikacijiToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_information_50
Me.InfoOAplikacijiToolStripMenuItem.Name = "InfoOAplikacijiToolStripMenuItem"
Me.InfoOAplikacijiToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
Me.InfoOAplikacijiToolStripMenuItem.Text = "Info o aplikaciji"
'
'Form1
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1251, 741)
Me.Controls.Add(Me.ToolStrip2)
Me.Controls.Add(Me.StatusStrip1)
Me.Controls.Add(Me.RichTextBox1)
Me.Controls.Add(Me.ToolStrip1)
@ -351,6 +588,8 @@ Partial Class Form1
Me.ToolStrip1.PerformLayout()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
Me.ToolStrip2.ResumeLayout(False)
Me.ToolStrip2.PerformLayout()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -361,32 +600,57 @@ Partial Class Form1
Friend WithEvents SaveFileDialog1 As SaveFileDialog
Friend WithEvents tsbOpenFile As ToolStripButton
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents tsbFileName As ToolStripTextBox
Friend WithEvents tsbConvert As ToolStripButton
Friend WithEvents tsbSaveAs As ToolStripButton
Friend WithEvents ToolStrip1 As ToolStrip
Friend WithEvents ToolStripStatusLabel1 As ToolStripStatusLabel
Friend WithEvents ToolStripStatusLabel2 As ToolStripStatusLabel
Friend WithEvents tsbPointsOnly As ToolStripButton
Friend WithEvents ToolStripSeparator4 As ToolStripSeparator
Friend WithEvents ButtonUrediDat As ToolStripButton
Friend WithEvents LabelDatoteka As ToolStripLabel
Friend WithEvents ToolStripProgressBar1 As ToolStripProgressBar
Friend WithEvents ToolStripButtonPripravi As ToolStripButton
Friend WithEvents OpenFileDialogTocke As OpenFileDialog
Friend WithEvents ToolStripButtonGeo As ToolStripButton
Friend WithEvents ToolStripSeparator5 As ToolStripSeparator
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents MenuToolStripMenuItem As ToolStripMenuItem
Friend WithEvents OdpriGSIToolStripMenuItem As ToolStripMenuItem
Friend WithEvents PripraviGSIToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator6 As ToolStripSeparator
Friend WithEvents InfoOAplikacijiToolStripMenuItem As ToolStripMenuItem
Friend WithEvents DatotekaToolStripMenuItem As ToolStripMenuItem
Friend WithEvents OdpriGSIToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents PripraviGSIToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
Friend WithEvents ShraniToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
Friend WithEvents PosodobitevToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator7 As ToolStripSeparator
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
Friend WithEvents ManagerToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripLabel1 As ToolStripLabel
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents ToolStripSeparator11 As ToolStripSeparator
Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents ToolStripSeparator8 As ToolStripSeparator
Friend WithEvents OrodjaToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator10 As ToolStripSeparator
Friend WithEvents ToolStripMenuItem2 As ToolStripMenuItem
Friend WithEvents ToolStripMenuItem4 As ToolStripMenuItem
Friend WithEvents IzhodToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator12 As ToolStripSeparator
Friend WithEvents PripraviKarticoToolStripMenuItem As ToolStripMenuItem
Friend WithEvents FolderDialogKartica As FolderBrowserDialog
Friend WithEvents ToolStripSeparator13 As ToolStripSeparator
Friend WithEvents ShraniToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStrip2 As ToolStrip
Friend WithEvents ToolStripLabel2 As ToolStripLabel
Friend WithEvents ToolStripButtonpROJ As ToolStripButton
Friend WithEvents tsbFileName As ToolStripTextBox
Friend WithEvents LabelDatoteka As ToolStripLabel
Friend WithEvents tsbZacetek As ToolStripButton
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
Friend WithEvents tsbSaveAs As ToolStripButton
Friend WithEvents tsbUvoziTocke As ToolStripMenuItem
Friend WithEvents tsbPripravaFormat As ToolStripMenuItem
Friend WithEvents tsbPripravaZav As ToolStripMenuItem
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

View File

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

450
Form1.vb
View File

@ -1,16 +1,18 @@
Imports System.IO
' Made by Boris Bilc
Imports System.IO
Imports System.Runtime.InteropServices.ComTypes
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
Public Class Form1
Public DatotekaLogfile As String = My.Settings.DatLogfile
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
If DatotekaLogfile = "" Then
DatotekaLogfile = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "tps1100_log.txt")
DatotekaLogfile = System.IO.Path.Combine(My.Computer.FileSystem.SpecialDirectories.MyDocuments, "TPS1100_zapisnik.txt")
My.Settings.DatLogfile = DatotekaLogfile
My.Settings.Save()
End If
My.Forms.Form1.Text = My.Application.Info.Title + " " + My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString
RichTextBox1.AppendText(My.Settings.DatLogfile.ToString)
RichTextBox1.AppendText(My.Settings.DatLogfile.ToString + vbCrLf + vbCrLf + "Verzija: " + My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString + "." + My.Application.Info.Version.Build.ToString + "." + My.Application.Info.Version.Revision.ToString)
If My.Settings.Pisava = "" Then
My.Settings.Pisava = RichTextBox1.Font.Name
@ -18,6 +20,92 @@ Public Class Form1
My.Settings.Save()
End If
RichTextBox1.Font = New Font(My.Settings.Pisava, My.Settings.PisavaVelikost)
NaloziNast()
ToolStripLabel2.Text = My.Settings.Projekt
If ToolStripLabel2.Text = "Virtualna Kartica" Then
ToolStripLabel2.Image = My.Resources.icons8_micro_sd_50
Else
ToolStripLabel2.Image = My.Resources.icons8_browse_folder_50_2
End If
End Sub
Public Sub NaloziNast()
' Uvoz nastavitev iz datototeke
If My.Computer.FileSystem.FileExists("tps1100_kode.txt") Then
Dim streamReader As StreamReader = New StreamReader("tps1100_kode.txt")
Do Until streamReader.EndOfStream
' Read and Split each line to separate it into fields
Dim line() As String = streamReader.ReadLine().Split("=")
Dim kodaIme As String
Dim kodaVal As String
kodaIme = Replace(line(0), " ", "")
kodaVal = Replace(line(1), " ", "")
If kodaIme = "DecimalnoLocilo" Then
My.Settings.DecimalnoLocilo = kodaVal
End If
If kodaIme = "StolpciTab" Then
My.Settings.Stolpci = kodaVal
End If
If kodaIme = "KodaStojisce" Then
My.Settings.KodaStojisce = kodaVal
End If
If kodaIme = "KodaStojisceInfo" Then
My.Settings.KodaStojisceInfo = kodaVal
End If
If kodaIme = "KodaStojisceOri" Then
My.Settings.KodaStojisceOri = kodaVal
End If
If kodaIme = "KodaQuickSet" Then
My.Settings.KodaQuickSet = kodaVal
End If
If kodaIme = "KodaSetAzi" Then
My.Settings.KodaSetAzi = kodaVal
End If
If kodaIme = "KodaResection" Then
My.Settings.KodaResection = kodaVal
End If
If kodaIme = "KodaFreeStation" Then
My.Settings.KodaFreeStation = kodaVal
End If
If kodaIme = "KodaOriHtTrans" Then
My.Settings.KodaOriHtTrans = kodaVal
End If
If kodaIme = "KodaMeasOri" Then
My.Settings.KodaMeasOri = kodaVal
End If
If kodaIme = "KodaMeas" Then
My.Settings.KodaMeas = kodaVal
End If
If kodaIme = "KodaUserImport" Then
My.Settings.KodaUserImport = kodaVal
End If
Loop
streamReader.Close()
streamReader.Dispose()
My.Settings.Save()
Else
' Izvoz kodiranja v TXT datoteko
Dim dataNast As String = ""
dataNast = dataNast + "DecimalnoLocilo = " + My.Settings.DecimalnoLocilo + vbCrLf
dataNast = dataNast + "StolpciTab = " + My.Settings.Stolpci.ToString + vbCrLf
dataNast = dataNast + "KodaStojisce = " + My.Settings.KodaStojisce + vbCrLf
dataNast = dataNast + "KodaStojisceInfo = " + My.Settings.KodaStojisceInfo + vbCrLf
dataNast = dataNast + "KodaStojisceOri = " + My.Settings.KodaStojisceOri + vbCrLf
dataNast = dataNast + "KodaQuickSet = " + My.Settings.KodaQuickSet + vbCrLf
dataNast = dataNast + "KodaSetAzi = " + My.Settings.KodaSetAzi + vbCrLf
dataNast = dataNast + "KodaResection = " + My.Settings.KodaResection + vbCrLf
dataNast = dataNast + "KodaFreeStation = " + My.Settings.KodaFreeStation + vbCrLf
dataNast = dataNast + "KodaOriHtTrans = " + My.Settings.KodaOriHtTrans + vbCrLf
dataNast = dataNast + "KodaMeasOri = " + My.Settings.KodaMeasOri + vbCrLf
dataNast = dataNast + "KodaMeas = " + My.Settings.KodaMeas + vbCrLf
dataNast = dataNast + "KodaUserImport = " + My.Settings.KodaUserImport + vbCrLf
My.Computer.FileSystem.WriteAllText("tps1100_kode.txt", dataNast, False)
End If
End Sub
Public Sub OdpriDatotekoGsi()
@ -38,6 +126,7 @@ Public Class Form1
My.Settings.Datoteka = OpenFileDialog1.SafeFileName
My.Settings.ZadnjaMapa = Path.GetDirectoryName(OpenFileDialog1.FileName)
tsbFileName.Text = My.Settings.Datoteka
tsbFileName.ToolTipText = OpenFileDialog1.FileName
ToolStripStatusLabel1.Text = My.Settings.ZadnjaMapa
tsbSaveAs.Text = "Shrani ..."
tsbSaveAs.Enabled = False
@ -47,20 +136,103 @@ Public Class Form1
ToolStripButtonGeo.Enabled = True
ButtonUrediDat.Enabled = True
RichTextBox1.BackColor = SystemColors.Info
' RichTextBox1.SelectionStart = 0
LabelDatoteka.Image = My.Resources.icons8_ok_50
My.Settings.Save()
Else
tsbFileName.Text = "Odpri GSI datoteko..."
RichTextBox1.Clear()
tsbSaveAs.Text = "Shrani ..."
tsbSaveAs.Enabled = False
ShraniToolStripMenuItem.Enabled = False
tsbConvert.Enabled = False
tsbPointsOnly.Enabled = False
' Else
' tsbFileName.Text = "Odpri GSI datoteko..."
' RichTextBox1.Clear()
' tsbSaveAs.Text = "Shrani ..."
' tsbSaveAs.Enabled = False
' ShraniToolStripMenuItem.Enabled = False
' tsbConvert.Enabled = False
' tsbPointsOnly.Enabled = False
End If
OpenFileDialog1.Dispose()
End Sub
Public datJob
Public Sub NaloziGsiJob()
RichTextBox1.Clear()
ToolStripProgressBar1.Value = 0
streamLines = 0
OpenFileDialog1.FileName = datJob
Dim streamReader As StreamReader = New StreamReader(OpenFileDialog1.FileName)
Do Until streamReader.EndOfStream
RichTextBox1.AppendText(streamReader.ReadLine + vbCrLf)
streamLines = streamLines + 1
Loop
ToolStripProgressBar1.Maximum = streamLines
streamReader.Close()
streamReader.Dispose()
My.Settings.Datoteka = OpenFileDialog1.SafeFileName
My.Settings.ZadnjaMapa = Path.GetDirectoryName(OpenFileDialog1.FileName)
tsbFileName.Text = My.Settings.Datoteka
tsbFileName.ToolTipText = OpenFileDialog1.FileName
ToolStripStatusLabel1.Text = My.Settings.ZadnjaMapa
tsbSaveAs.Text = "Shrani ..."
tsbSaveAs.Enabled = False
ShraniToolStripMenuItem.Enabled = False
tsbConvert.Enabled = True
tsbPointsOnly.Enabled = True
ToolStripButtonGeo.Enabled = True
ButtonUrediDat.Enabled = True
RichTextBox1.BackColor = SystemColors.Info
' RichTextBox1.SelectionStart = 0
LabelDatoteka.Image = My.Resources.icons8_ok_50
My.Settings.Save()
' Else
' tsbFileName.Text = "Odpri GSI datoteko..."
' RichTextBox1.Clear()
' tsbSaveAs.Text = "Shrani ..."
' tsbSaveAs.Enabled = False
' ShraniToolStripMenuItem.Enabled = False
' tsbConvert.Enabled = False
' tsbPointsOnly.Enabled = False
OpenFileDialog1.Dispose()
End Sub
Public Sub UvoziGsiJob()
If OpenFileDialog1.ShowDialog = DialogResult.OK Then
Dim delovnaMapa = My.Application.Info.DirectoryPath.ToString + "\" + My.Settings.ProjektMapa.ToString + "\"
Dim fileUvoz = OpenFileDialog1.FileName
Dim fileIme = Path.GetFileName(OpenFileDialog1.FileName)
Dim fileIzvoz = delovnaMapa + fileIme
My.Computer.FileSystem.CopyFile(fileUvoz, fileIzvoz, True)
OpenFileDialog1.FileName = fileIzvoz
RichTextBox1.Clear()
ToolStripProgressBar1.Value = 0
streamLines = 0
Dim streamReader As StreamReader = New StreamReader(OpenFileDialog1.FileName)
Do Until streamReader.EndOfStream
RichTextBox1.AppendText(streamReader.ReadLine + vbCrLf)
streamLines = streamLines + 1
Loop
ToolStripProgressBar1.Maximum = streamLines
streamReader.Close()
streamReader.Dispose()
My.Settings.Datoteka = OpenFileDialog1.SafeFileName
My.Settings.ZadnjaMapa = Path.GetDirectoryName(fileIzvoz)
tsbFileName.Text = My.Settings.Datoteka
ToolStripStatusLabel1.Text = fileUvoz.ToString + " -> " + fileIzvoz.ToString
tsbSaveAs.Text = "Shrani ..."
tsbSaveAs.Enabled = False
ShraniToolStripMenuItem.Enabled = False
tsbConvert.Enabled = True
tsbPointsOnly.Enabled = True
ToolStripButtonGeo.Enabled = True
ButtonUrediDat.Enabled = True
RichTextBox1.BackColor = SystemColors.Info
' RichTextBox1.SelectionStart = 0
LabelDatoteka.Image = My.Resources.icons8_ok_50
My.Settings.Save()
End If
OpenFileDialog1.Dispose()
End Sub
Public Sub PripraviDatotekoGsi()
If OpenFileDialogTocke.ShowDialog = DialogResult.OK Then
RichTextBox1.Clear()
@ -69,7 +241,7 @@ Public Class Form1
streamLines = streamLines + 1
Dim readLine As String = streamReader.ReadLine().Replace(" ", vbTab)
readLine = readLine.Replace(";", vbTab)
readLine = readLine.Replace(".", ",")
readLine = readLine.Replace(",", ".")
Dim line() As String = readLine.Split(vbTab)
Dim podPtId As String = "*11" + Format(streamLines, "0000") + "+" + line(0).PadLeft(16, "0") + " "
Dim izrE As Double = line(1) * 1000
@ -90,6 +262,7 @@ Public Class Form1
tsbSaveAs.Enabled = True
ShraniToolStripMenuItem.Enabled = True
tsbSaveAs.Text = "Shrani GSI"
' RichTextBox1.SelectionStart = 0
End If
End Sub
@ -110,9 +283,10 @@ Public Class Form1
Public streamLines As Integer = 0
Private Sub tsbConvert_Click(sender As Object, e As EventArgs) Handles tsbConvert.Click
ToolStripButton3.Enabled = False
ToolStripStatusLabel1.Text = "Procesiranje..."
RichTextBox1.Clear()
RichTextBox1.BackColor = SystemColors.Info
RichTextBox1.BackColor = Color.LemonChiffon
RichTextBox1.AppendText("TPS 1100 Zapisnik" + vbCrLf + "++++++++++++++++++++++" + vbCrLf)
ToolStripProgressBar1.Maximum = streamLines
' prepare StreamReader
@ -138,11 +312,13 @@ Public Class Form1
If Microsoft.VisualBasic.Left(line(1), 2) = "25" Then
RichTextBox1.AppendText(vbCrLf + "Station:" + vbCrLf + "****************" + vbCrLf)
RichTextBox1.AppendText("PtID" + dataStolpci + "HzCor" + dataStolpci + "StnE" + dataStolpci + "StnN" + dataStolpci + "StnH" + dataStolpci + "RefHt" + dataStolpci + "InstHt" + vbCrLf)
PodatkiStojisce = True
End If
If Microsoft.VisualBasic.Left(line(1), 2) = "84" Then
RichTextBox1.AppendText(vbCrLf + "Station:" + vbCrLf + "****************" + vbCrLf)
RichTextBox1.AppendText("PtID" + dataStolpci + "StnE" + dataStolpci + "StnN" + dataStolpci + "StnH" + dataStolpci + "RefHt" + dataStolpci + "InstHt" + vbCrLf)
PodatkiStojisce = True
End If
' Seaparate word index and data
For Each readLine As String In line
@ -212,7 +388,7 @@ Public Class Form1
PodatkiStojisce = True
End If
If dataKoda = My.Settings.KodaMeasOri Then
data = vbCrLf + "Meritve Orientacije" + vbCrLf + "----------------------" + vbCrLf + "PtID" + dataStolpci + "Azi" + dataStolpci + "V" + dataStolpci + "SD" + dataStolpci + "HD" + dataStolpci + "RefHt" + dataStolpci + "PrCons" + dataStolpci + "HtDif" + dataStolpci + "E" + dataStolpci + "N" + dataStolpci + "H" + dataStolpci + "PtCode"
data = vbCrLf + "Merjeno (Orientacije)" + vbCrLf + "----------------------" + vbCrLf + "PtID" + dataStolpci + "Azi" + dataStolpci + "V" + dataStolpci + "SD" + dataStolpci + "HD" + dataStolpci + "RefHt" + dataStolpci + "PrCons" + dataStolpci + "HtDif" + dataStolpci + "E" + dataStolpci + "N" + dataStolpci + "H" + dataStolpci + "PtCode"
PodatkiStojisce = False
End If
If dataKoda = My.Settings.KodaMeas Then
@ -220,19 +396,19 @@ Public Class Form1
PodatkiStojisce = False
End If
If dataKoda = My.Settings.KodaUserImport Then
data = vbCrLf + "Uvoz/Ročni vnos" + vbCrLf + "----------------------" + vbCrLf + "PtID" + dataStolpci + "E" + dataStolpci + "N" + dataStolpci + "H"
data = vbCrLf + "Uvoz/Vnos-Uporabnika" + vbCrLf + "----------------------" + vbCrLf + "PtID" + dataStolpci + "E" + dataStolpci + "N" + dataStolpci + "H"
PodatkiStojisce = False
End If
If dataKoda = My.Settings.KodaStojisce Then
data = vbCrLf + "Stojišče Info" + vbCrLf + "----------------------" + vbCrLf + "StID" + dataStolpci + "InstHt" + vbCrLf
data = vbCrLf + "Stojišče (Info)" + vbCrLf + "----------------------" + vbCrLf + "StID" + dataStolpci + "InstHt" + vbCrLf
PodatkiStojisce = False
End If
If dataKoda = My.Settings.KodaStojisceInfo Then
data = vbCrLf + "Temp.(°C)/Prit.(mbar)" + vbCrLf + "----------------------" + vbCrLf
data = vbCrLf + "Temperatura (°C) /Pritisk (mbar)" + vbCrLf + "----------------------" + vbCrLf
PodatkiStojisce = False
End If
If dataKoda = My.Settings.KodaStojisceOri Then
data = vbCrLf + "Orientacija Info" + vbCrLf + "----------------------" + vbCrLf + "OrID" + dataStolpci + "Hz" + vbCrLf
data = vbCrLf + "Orientacija (Info)" + vbCrLf + "----------------------" + vbCrLf + "OrID" + dataStolpci + "Hz" + vbCrLf
PodatkiStojisce = False
End If
If dataKoda = "STA_OFFS" Then
@ -268,7 +444,11 @@ Public Class Form1
data = ""
End If
ElseIf wordIndex = "72" Then ' Point Code
dataTmp = Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
If data = 0 Then
dataTmp = 0
Else
dataTmp = Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
End If
If dataKoda = My.Settings.KodaStojisce Then
Dim dataNum As Double
dataNum = dataTmp / 1000
@ -338,8 +518,18 @@ Public Class Form1
tsbSaveAs.Enabled = True
ShraniToolStripMenuItem.Enabled = True
tsbSaveAs.Text = "Shrani Zapisnik"
' RichTextBox1.SelectionStart = 0
End Sub
' Deklaracija vrednosti za pripravo grafike
Public kooEMin As Double
Public kooEMax As Double
Public kooNMin As Double
Public kooNMax As Double
Public kooEdelta As Double
Public kooNdelta As Double
Public kooFaktor
Private Sub tsbPointsOnly_Click(sender As Object, e As EventArgs) Handles tsbPointsOnly.Click
Dim dataStolpci As String = ""
If My.Settings.Stolpci = 0 Then
@ -349,7 +539,7 @@ Public Class Form1
End If
RichTextBox1.Clear()
RichTextBox1.BackColor = SystemColors.Info
RichTextBox1.BackColor = Color.PaleTurquoise
Dim measuredPoints As Integer = 0
Dim dataKoda As Integer = 0
Dim streamReader As StreamReader = New StreamReader(OpenFileDialog1.FileName)
@ -370,7 +560,7 @@ Public Class Form1
' measuredPoints = 1
'Else
If Microsoft.VisualBasic.Left(line(1), 2) = "25" Or Microsoft.VisualBasic.Left(line(1), 2) = "84" Then
measuredPoints = 2
measuredPoints = 1
End If
' Seaparate word index and data
For Each readLine As String In line
@ -388,11 +578,11 @@ Public Class Form1
If wordIndex = "41" Then
Dim dataInfo As String = Microsoft.VisualBasic.Right(readLine, 16).TrimStart("0"c)
If dataInfo = My.Settings.KodaMeas Then
measuredPoints = 1
ElseIf dataInfo = My.Settings.KodaUserImport Then
measuredPoints = 2
ElseIf dataInfo = My.Settings.KodaMeasOri Then
ElseIf dataInfo = My.Settings.KodaUserImport Then
measuredPoints = 3
ElseIf dataInfo = My.Settings.KodaMeasOri Then
measuredPoints = 4
Else
measuredPoints = 0
End If
@ -409,48 +599,88 @@ Public Class Form1
data = Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
RichTextBox1.AppendText(data)
i = i + 1
ElseIf wordIndex = "81" And measuredPoints >= 1 Then ' Target Easting
ElseIf wordIndex = "81" And measuredPoints >= 2 Then ' Target Easting
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
If kooEMax = 0 Then
kooEMax = numData
ElseIf kooEMax < numData Then
kooEMax = numData
End If
If kooEMin = 0 Then
kooEMin = numData
ElseIf kooEMin > numData Then
kooEMin = numData
End If
RichTextBox1.AppendText(dataStolpci + data)
ElseIf wordIndex = "82" And measuredPoints >= 1 Then ' Target Northing
ElseIf wordIndex = "82" And measuredPoints >= 2 Then ' Target Northing
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
If kooNMax = 0 Then
kooNMax = numData
ElseIf kooNMax < numData Then
kooNMax = numData
End If
If kooNMin = 0 Then
kooNMin = numData
ElseIf kooNMin > numData Then
kooNMin = numData
End If
RichTextBox1.AppendText(dataStolpci + data)
ElseIf wordIndex = "83" And measuredPoints >= 1 Then ' Target Height
ElseIf wordIndex = "83" And measuredPoints >= 2 Then ' Target Height
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
If measuredPoints = 1 Then
If measuredPoints = 2 Then
RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "MEAS")
ElseIf measuredPoints = 2 Then
RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "REF")
ElseIf measuredPoints = 3 Then
RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "REF")
ElseIf measuredPoints = 4 Then
RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "ORI")
End If
ElseIf wordIndex = "84" And measuredPoints >= 1 Then ' Station Easting
ElseIf wordIndex = "84" And measuredPoints = 1 Then ' Station Easting
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
If kooEMax = 0 Then
kooEMax = numData
ElseIf kooEMax < numData Then
kooEMax = numData
End If
If kooEMin = 0 Then
kooEMin = numData
ElseIf kooEMin > numData Then
kooEMin = numData
End If
RichTextBox1.AppendText(dataStolpci + data)
ElseIf wordIndex = "85" And measuredPoints >= 1 Then ' Station Northing
ElseIf wordIndex = "85" And measuredPoints = 1 Then ' Station Northing
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
If kooNMax = 0 Then
kooNMax = numData
ElseIf kooNMax < numData Then
kooNMax = numData
End If
If kooNMin = 0 Then
kooNMin = numData
ElseIf kooNMin > numData Then
kooNMin = numData
End If
RichTextBox1.AppendText(dataStolpci + data)
ElseIf wordIndex = "86" And measuredPoints >= 1 Then ' Station Height
ElseIf wordIndex = "86" And measuredPoints = 1 Then ' Station Height
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
@ -469,18 +699,32 @@ Public Class Form1
lin = lin + 1
ToolStripProgressBar1.Value = lin
Loop
kooEdelta = kooEMax - kooEMin
kooNdelta = kooNMax - kooNMin
If kooEdelta > kooNdelta Then
kooFaktor = 1000 / kooEdelta
Else
kooFaktor = 1000 / kooNdelta
End If
ToolStripStatusLabel1.Text = "Prebrano točk: " + i.ToString
SaveFileDialog1.Filter = "KOO|*.koo|TXT|*.txt|All files|*.*"
streamReader.Close()
tsbSaveAs.Enabled = True
ShraniToolStripMenuItem.Enabled = True
tsbSaveAs.Text = "Shrani Točke"
ToolStripButton3.Enabled = True
' RichTextBox1.SelectionStart = 0
End Sub
' Priprava GEO datoteke
Private Sub ToolStripButtonGeo_Click(sender As Object, e As EventArgs) Handles ToolStripButtonGeo.Click
ToolStripButton3.Enabled = False
RichTextBox1.Clear()
RichTextBox1.BackColor = Color.LemonChiffon
RichTextBox1.BackColor = Color.LightGray
Dim measuredPoints As Integer = 0
Dim dataKoda As String = ""
Dim streamReader As StreamReader = New StreamReader(OpenFileDialog1.FileName)
@ -534,7 +778,7 @@ Public Class Form1
infoOriHz = Microsoft.VisualBasic.Right(line(2), 17).TrimStart("0"c)
Dim numOriHz As Double
numOriHz = infoOriHz / 100000
izpisText = infoOri + " " + Format(numOriHz, "0.0000").ToString + vbCrLf
izpisText = infoOri.ToString + " " + Format(numOriHz, "0.0000").ToString + vbCrLf
measuredPoints = 0
End If
@ -612,6 +856,7 @@ Public Class Form1
izpisText = dataId + " " + Format(numAzi, "0.0000").ToString + vbCrLf
End If
' Priprava podatkov za Setup: Quick Set
If dataKoda = My.Settings.KodaQuickSet Then
If Microsoft.VisualBasic.Left(line(1), 2) = "84" Then
Dim dataSta As String
@ -623,10 +868,17 @@ Public Class Form1
izpisText = dataSta + " " + Format(numHi, "0.000").ToString + vbCrLf
End If
End If
' ElseIf dataKoda = My.Settings.KodaSetAzi Then
'
' ElseIf dataKoda = My.Settings.KodaResection Then
'
' Priprava podatkov za Setup: Set Azimut
If dataKoda = My.Settings.KodaSetAzi Then
End If
' Priprava podatkov za Setup: Resection
If dataKoda = My.Settings.KodaResection Then
End If
' Priprava podatkov za Setup: Free Station
If dataKoda = My.Settings.KodaFreeStation Then
If Microsoft.VisualBasic.Left(line(1), 2) = "25" Then
Dim dataSta As String
@ -638,7 +890,11 @@ Public Class Form1
izpisText = dataSta + " " + Format(numHi, "0.000").ToString + vbCrLf
End If
End If
' ElseIf dataKoda = My.Settings.KodaOriHtTrans Then
' Priprava podatkov za Setup: Set Azimut
If dataKoda = My.Settings.KodaOriHtTrans Then
End If
End If
RichTextBox1.AppendText(izpisText)
lin = lin + 1
@ -654,6 +910,7 @@ Public Class Form1
tsbSaveAs.Enabled = True
ShraniToolStripMenuItem.Enabled = True
tsbSaveAs.Text = "Shrani GEO"
'RichTextBox1.SelectionStart = 0
End Sub
Private Sub InfoOAplikacijiToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles InfoOAplikacijiToolStripMenuItem.Click
@ -662,38 +919,40 @@ Public Class Form1
End Sub
Private Sub PripraviGSIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PripraviGSIToolStripMenuItem.Click
Process.Start("Navodila.pdf")
Process.Start(My.Application.Info.DirectoryPath.ToString + "\Doc\Home.html")
End Sub
Private Sub OdpriGSIToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OdpriGSIToolStripMenuItem.Click
FormNastavitve.ShowDialog()
End Sub
Private Sub OdpriGSIToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles OdpriGSIToolStripMenuItem1.Click
OdpriDatotekoGsi()
Private Sub OdpriGSIToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItem4.Click
UvoziGsiJob()
' OdpriDatotekoGsi()
End Sub
Private Sub tsbOpenFile_Click(sender As Object, e As EventArgs) Handles tsbOpenFile.Click
OdpriDatotekoGsi()
UvoziGsiJob()
' OdpriDatotekoGsi()
ToolStripButton3.Enabled = False
End Sub
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ButtonUrediDat.Click
Form2.ShowDialog()
End Sub
Private Sub ToolStripButtonNast_Click(sender As Object, e As EventArgs)
FormNastavitve.ShowDialog()
End Sub
Private Sub ToolStripButtonPripravi_Click(sender As Object, e As EventArgs) Handles ToolStripButtonPripravi.Click
PripraviDatotekoGsi()
ToolStripButton3.Enabled = False
End Sub
Private Sub PripraviGSIToolStripMenuItem1_Click(sender As Object, e As EventArgs) Handles PripraviGSIToolStripMenuItem1.Click
Private Sub tsbUvoziTocke_Click(sender As Object, e As EventArgs) Handles tsbUvoziTocke.Click
PripraviDatotekoGsi()
ToolStripButton3.Enabled = False
End Sub
Private Sub tsbSaveAs_Click(sender As Object, e As EventArgs) Handles tsbSaveAs.Click
ShraniDatoteko()
@ -704,9 +963,102 @@ Public Class Form1
End Sub
Private Sub PosodobitevToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PosodobitevToolStripMenuItem.Click
' Preveri verzijo programa iz Gitea - MultiBox
Dim infoVerzija As String = My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString + "." + My.Application.Info.Version.Build.ToString + "." + My.Application.Info.Version.Revision.ToString
Dim gitVerzija As String = ""
My.Computer.Network.DownloadFile("https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/version.txt", "version.txt")
Dim verReader As StreamReader = New StreamReader("version.txt")
' Branje datoteke
Do Until verReader.EndOfStream
' Preberi vrstico z verzijo na git
gitVerzija = verReader.ReadLine()
Loop
verReader.Dispose()
verReader.Close()
My.Computer.FileSystem.DeleteFile("version.txt")
Dim infoVerNum As Integer = CInt(infoVerzija.Replace(".", ""))
Dim gitVerNum As Integer = CInt(gitVerzija.Replace(".", ""))
Dim verDiff As Integer = gitVerNum - infoVerNum
If verDiff <= 0 Then
Dim Msg, Style, Title, Response
Msg = "Trenutna verzija: " + infoVerzija + vbCrLf + vbCrLf + "Ni posodobitev..." ' Define message.
Title = "Preverjanje posodobitev" ' Define title.
Style = vbOKOnly
' Display message.
Response = MsgBox(Msg, Style, Title)
Else
Dim Msg, Style, Title, Response
Msg = "Trenutna verzija: " + infoVerzija.ToString + vbCrLf + "Nova verzija: " + gitVerzija.ToString + vbCrLf + vbCrLf + "Odprem stran za prenos?" ' Define message.
Title = "Preverjanje posodobitev" ' Define title.
Style = vbYesNo
' Display message.
Response = MsgBox(Msg, Style, Title)
If Response = vbYes Then ' User chose Yes.
Process.Start("https://multibox.nohost.me/gitea/boris/TPS1100-Convert/releases")
End If
End If
End Sub
Private Sub ManagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ManagerToolStripMenuItem.Click, ToolStripButtonpROJ.Click
FormGsiJobs.Show()
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click, ToolStripMenuItem2.Click
' OpenFileDialog1.InitialDirectory = My.Application.Info.DirectoryPath.ToString + "\" + My.Settings.ProjektMapa.ToString
' OdpriDatotekoGsi()
DialogJobOdpri.ShowDialog()
ToolStripButton3.Enabled = False
End Sub
Private Sub ToolStripButton3_Click(sender As Object, e As EventArgs) Handles ToolStripButton3.Click
FormGrafika.Show()
End Sub
Private Sub IzhodToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IzhodToolStripMenuItem.Click
Me.Close()
Application.Exit()
End Sub
Private Sub tsbZacetek_Click(sender As Object, e As EventArgs) Handles tsbZacetek.Click
RichTextBox1.SelectionStart = 0
End Sub
Private Sub tsbPripravaFormat_Click(sender As Object, e As EventArgs) Handles tsbPripravaFormat.Click
DialogPripravaKartice.ShowDialog()
End Sub
Private Sub tsbPripravaZav_Click(sender As Object, e As EventArgs) Handles tsbPripravaZav.Click
DialogZavarovanje.ShowDialog()
End Sub
Private Sub tsbMapaZav_Click(sender As Object, e As EventArgs) Handles tsbMapaZav.Click
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

153
Form2.Designer.vb generated
View File

@ -49,35 +49,48 @@ Partial Class Form2
Me.SaveFileDialog2 = New System.Windows.Forms.SaveFileDialog()
Me.MyApplicationBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.MyApplicationBindingSource1 = New System.Windows.Forms.BindingSource(Me.components)
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DatotekaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ShraniToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ShraniKotToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ZapriToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.SkripteToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.IzračunMeritveStMerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.IzračunOrientacijeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.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, 35)
Me.RichTextBoxEdit.Location = New System.Drawing.Point(12, 68)
Me.RichTextBoxEdit.Name = "RichTextBoxEdit"
Me.RichTextBoxEdit.Size = New System.Drawing.Size(1160, 581)
Me.RichTextBoxEdit.Size = New System.Drawing.Size(1160, 548)
Me.RichTextBoxEdit.TabIndex = 2
Me.RichTextBoxEdit.Text = ""
Me.RichTextBoxEdit.WordWrap = False
'
'ToolStrip1
'
Me.ToolStrip1.AutoSize = False
Me.ToolStrip1.GripStyle = System.Windows.Forms.ToolStripGripStyle.Hidden
Me.ToolStrip1.ImageScalingSize = New System.Drawing.Size(20, 20)
Me.ToolStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ToolStripButton3, Me.BtnShraniF2, Me.ToolStripSeparator3, Me.ToolStripLabel1, Me.ComBoxKoda, Me.ToolStripButton1, Me.ToolStripLabel2, Me.ToolStripTextBox1, Me.ToolStripLabel3, Me.ToolStripTextBox2, Me.ToolStripLabel6, Me.ToolStripTextBox5, Me.ToolStripLabel4, Me.ToolStripTextBox3, Me.ToolStripLabel5, Me.ToolStripTextBox4, Me.ToolStripSeparator2, Me.ToolStripButton2})
Me.ToolStrip1.Location = New System.Drawing.Point(0, 0)
Me.ToolStrip1.Location = New System.Drawing.Point(0, 25)
Me.ToolStrip1.Name = "ToolStrip1"
Me.ToolStrip1.Padding = New System.Windows.Forms.Padding(10, 5, 10, 0)
Me.ToolStrip1.Size = New System.Drawing.Size(1184, 32)
Me.ToolStrip1.Size = New System.Drawing.Size(1184, 40)
Me.ToolStrip1.TabIndex = 3
Me.ToolStrip1.Text = "ToolStrip1"
'
@ -87,7 +100,7 @@ Partial Class Form2
Me.ToolStripButton3.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(58, 24)
Me.ToolStripButton3.Size = New System.Drawing.Size(58, 32)
Me.ToolStripButton3.Text = "Zapri"
'
'BtnShraniF2
@ -97,26 +110,28 @@ Partial Class Form2
Me.BtnShraniF2.Image = Global.TPS1100_Convert.My.Resources.Resources.Save_as_24
Me.BtnShraniF2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.BtnShraniF2.Name = "BtnShraniF2"
Me.BtnShraniF2.Size = New System.Drawing.Size(73, 24)
Me.BtnShraniF2.Size = New System.Drawing.Size(73, 32)
Me.BtnShraniF2.Text = "Shrani..."
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 27)
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 35)
'
'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, 24)
Me.ToolStripLabel1.Text = "Koda:"
Me.ToolStripLabel1.Size = New System.Drawing.Size(54, 32)
Me.ToolStripLabel1.Text = "Koda"
'
'ComBoxKoda
'
Me.ComBoxKoda.AutoSize = False
Me.ComBoxKoda.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.ComBoxKoda.DropDownWidth = 200
Me.ComBoxKoda.FlatStyle = System.Windows.Forms.FlatStyle.Standard
Me.ComBoxKoda.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ComBoxKoda.Items.AddRange(New Object() {" ", "1 | Setup: Quick Set", "2 | Setup: Set Azimuth", "3 | Setup: Resection", "4 | Setup: Free Station", "5 | Setup: Ori. & Ht. Transfer", "6 | Measure: Orientation", "7 | Measure: Points", "8 | Points: User/Imported", "9 | Info: Station + Ht.", "10 | Info: Temp. + Press.", "11 | Info: Orientation + Hz"})
Me.ComBoxKoda.MaxDropDownItems = 15
@ -130,20 +145,21 @@ Partial Class Form2
Me.ToolStripButton1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_undo_48
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(65, 24)
Me.ToolStripButton1.Size = New System.Drawing.Size(65, 32)
Me.ToolStripButton1.Text = "Povrni"
'
'ToolStripLabel2
'
Me.ToolStripLabel2.Name = "ToolStripLabel2"
Me.ToolStripLabel2.Size = New System.Drawing.Size(36, 24)
Me.ToolStripLabel2.Size = New System.Drawing.Size(36, 32)
Me.ToolStripLabel2.Text = "PntID"
Me.ToolStripLabel2.Visible = False
'
'ToolStripTextBox1
'
Me.ToolStripTextBox1.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripTextBox1.Name = "ToolStripTextBox1"
Me.ToolStripTextBox1.Size = New System.Drawing.Size(90, 27)
Me.ToolStripTextBox1.Size = New System.Drawing.Size(90, 35)
Me.ToolStripTextBox1.Text = "NAME"
Me.ToolStripTextBox1.ToolTipText = "Ime točke"
Me.ToolStripTextBox1.Visible = False
@ -151,14 +167,15 @@ Partial Class Form2
'ToolStripLabel3
'
Me.ToolStripLabel3.Name = "ToolStripLabel3"
Me.ToolStripLabel3.Size = New System.Drawing.Size(41, 24)
Me.ToolStripLabel3.Size = New System.Drawing.Size(41, 32)
Me.ToolStripLabel3.Text = "H Inst."
Me.ToolStripLabel3.Visible = False
'
'ToolStripTextBox2
'
Me.ToolStripTextBox2.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripTextBox2.Name = "ToolStripTextBox2"
Me.ToolStripTextBox2.Size = New System.Drawing.Size(60, 27)
Me.ToolStripTextBox2.Size = New System.Drawing.Size(60, 35)
Me.ToolStripTextBox2.Text = "0.000"
Me.ToolStripTextBox2.ToolTipText = "Višina instrumenta (m)"
Me.ToolStripTextBox2.Visible = False
@ -166,14 +183,15 @@ Partial Class Form2
'ToolStripLabel6
'
Me.ToolStripLabel6.Name = "ToolStripLabel6"
Me.ToolStripLabel6.Size = New System.Drawing.Size(21, 24)
Me.ToolStripLabel6.Size = New System.Drawing.Size(21, 32)
Me.ToolStripLabel6.Text = "Hz"
Me.ToolStripLabel6.Visible = False
'
'ToolStripTextBox5
'
Me.ToolStripTextBox5.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripTextBox5.Name = "ToolStripTextBox5"
Me.ToolStripTextBox5.Size = New System.Drawing.Size(70, 27)
Me.ToolStripTextBox5.Size = New System.Drawing.Size(70, 35)
Me.ToolStripTextBox5.Text = "0.0000"
Me.ToolStripTextBox5.ToolTipText = "Hz /Azimut ""D.MMSS"""
Me.ToolStripTextBox5.Visible = False
@ -181,14 +199,15 @@ Partial Class Form2
'ToolStripLabel4
'
Me.ToolStripLabel4.Name = "ToolStripLabel4"
Me.ToolStripLabel4.Size = New System.Drawing.Size(73, 24)
Me.ToolStripLabel4.Size = New System.Drawing.Size(73, 32)
Me.ToolStripLabel4.Text = "Temperatura"
Me.ToolStripLabel4.Visible = False
'
'ToolStripTextBox3
'
Me.ToolStripTextBox3.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripTextBox3.Name = "ToolStripTextBox3"
Me.ToolStripTextBox3.Size = New System.Drawing.Size(50, 27)
Me.ToolStripTextBox3.Size = New System.Drawing.Size(50, 35)
Me.ToolStripTextBox3.Text = "20.0"
Me.ToolStripTextBox3.ToolTipText = "Temperatura (°C)"
Me.ToolStripTextBox3.Visible = False
@ -196,14 +215,15 @@ Partial Class Form2
'ToolStripLabel5
'
Me.ToolStripLabel5.Name = "ToolStripLabel5"
Me.ToolStripLabel5.Size = New System.Drawing.Size(39, 24)
Me.ToolStripLabel5.Size = New System.Drawing.Size(39, 32)
Me.ToolStripLabel5.Text = "Pritisk"
Me.ToolStripLabel5.Visible = False
'
'ToolStripTextBox4
'
Me.ToolStripTextBox4.Font = New System.Drawing.Font("Segoe UI", 9.0!)
Me.ToolStripTextBox4.Name = "ToolStripTextBox4"
Me.ToolStripTextBox4.Size = New System.Drawing.Size(60, 27)
Me.ToolStripTextBox4.Size = New System.Drawing.Size(60, 35)
Me.ToolStripTextBox4.Text = "1013"
Me.ToolStripTextBox4.ToolTipText = "Pritisk (mbar)"
Me.ToolStripTextBox4.Visible = False
@ -211,7 +231,7 @@ Partial Class Form2
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 27)
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 35)
'
'ToolStripButton2
'
@ -219,7 +239,7 @@ Partial Class Form2
Me.ToolStripButton2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_advance_48
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(62, 24)
Me.ToolStripButton2.Size = New System.Drawing.Size(62, 32)
Me.ToolStripButton2.Text = "Vstavi"
Me.ToolStripButton2.ToolTipText = "Vstavi vrstico..."
'
@ -250,15 +270,87 @@ Partial Class Form2
'
Me.MyApplicationBindingSource1.DataSource = GetType(TPS1100_Convert.My.MyApplication)
'
'MenuStrip1
'
Me.MenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DatotekaToolStripMenuItem, Me.SkripteToolStripMenuItem})
Me.MenuStrip1.Location = New System.Drawing.Point(0, 0)
Me.MenuStrip1.Name = "MenuStrip1"
Me.MenuStrip1.Size = New System.Drawing.Size(1184, 25)
Me.MenuStrip1.TabIndex = 5
Me.MenuStrip1.Text = "MenuStrip1"
'
'DatotekaToolStripMenuItem
'
Me.DatotekaToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ShraniToolStripMenuItem, Me.ShraniKotToolStripMenuItem, Me.ToolStripSeparator1, Me.ZapriToolStripMenuItem})
Me.DatotekaToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.Save_as_24
Me.DatotekaToolStripMenuItem.Name = "DatotekaToolStripMenuItem"
Me.DatotekaToolStripMenuItem.Size = New System.Drawing.Size(82, 21)
Me.DatotekaToolStripMenuItem.Text = "&Datoteka"
'
'ShraniToolStripMenuItem
'
Me.ShraniToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
Me.ShraniToolStripMenuItem.Name = "ShraniToolStripMenuItem"
Me.ShraniToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
Me.ShraniToolStripMenuItem.Text = "Shrani..."
'
'ShraniKotToolStripMenuItem
'
Me.ShraniKotToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_compare_50
Me.ShraniKotToolStripMenuItem.Name = "ShraniKotToolStripMenuItem"
Me.ShraniKotToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
Me.ShraniKotToolStripMenuItem.Text = "Shrani Kopijo"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(141, 6)
'
'ZapriToolStripMenuItem
'
Me.ZapriToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
Me.ZapriToolStripMenuItem.Name = "ZapriToolStripMenuItem"
Me.ZapriToolStripMenuItem.Size = New System.Drawing.Size(144, 22)
Me.ZapriToolStripMenuItem.Text = "Zapri"
'
'SkripteToolStripMenuItem
'
Me.SkripteToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.IzračunMeritveStMerToolStripMenuItem, Me.IzračunOrientacijeToolStripMenuItem})
Me.SkripteToolStripMenuItem.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.SkripteToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_stationery_50
Me.SkripteToolStripMenuItem.Name = "SkripteToolStripMenuItem"
Me.SkripteToolStripMenuItem.Size = New System.Drawing.Size(80, 21)
Me.SkripteToolStripMenuItem.Text = "Izračuni"
'
'IzračunMeritveStMerToolStripMenuItem
'
Me.IzračunMeritveStMerToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_land_surveying_48
Me.IzračunMeritveStMerToolStripMenuItem.Name = "IzračunMeritveStMerToolStripMenuItem"
Me.IzračunMeritveStMerToolStripMenuItem.Size = New System.Drawing.Size(261, 22)
Me.IzračunMeritveStMerToolStripMenuItem.Text = "Dodaj Meritev (Stoj. > Merjena)"
'
'IzračunOrientacijeToolStripMenuItem
'
Me.IzračunOrientacijeToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_drawing_compass_48
Me.IzračunOrientacijeToolStripMenuItem.Name = "IzračunOrientacijeToolStripMenuItem"
Me.IzračunOrientacijeToolStripMenuItem.Size = New System.Drawing.Size(261, 22)
Me.IzračunOrientacijeToolStripMenuItem.Text = "Preračun Hz Orientacije (HzCor)"
'
'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.RichTextBoxEdit)
Me.Controls.Add(Me.MenuStrip1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MainMenuStrip = Me.MenuStrip1
Me.Name = "Form2"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "TPS1100 Convert - Urejanje"
@ -268,6 +360,9 @@ Partial Class Form2
Me.StatusStrip1.PerformLayout()
CType(Me.MyApplicationBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.MyApplicationBindingSource1, System.ComponentModel.ISupportInitialize).EndInit()
Me.MenuStrip1.ResumeLayout(False)
Me.MenuStrip1.PerformLayout()
CType(Me.MyApplicationBindingSource2, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@ -298,4 +393,14 @@ Partial Class Form2
Friend WithEvents ToolStripTextBox4 As ToolStripTextBox
Friend WithEvents ToolStripLabel6 As ToolStripLabel
Friend WithEvents ToolStripTextBox5 As ToolStripTextBox
Friend WithEvents MenuStrip1 As MenuStrip
Friend WithEvents DatotekaToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ShraniKotToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ShraniToolStripMenuItem As ToolStripMenuItem
Friend WithEvents ToolStripSeparator1 As ToolStripSeparator
Friend WithEvents ZapriToolStripMenuItem As ToolStripMenuItem
Friend WithEvents SkripteToolStripMenuItem As ToolStripMenuItem
Friend WithEvents IzračunMeritveStMerToolStripMenuItem As ToolStripMenuItem
Friend WithEvents IzračunOrientacijeToolStripMenuItem As ToolStripMenuItem
Friend WithEvents MyApplicationBindingSource2 As BindingSource
End Class

View File

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

View File

@ -211,4 +211,9 @@ Public Class Form2
ToolStripTextBox5.Visible = False
End If
End Sub
Private Sub IzračunMeritveStMerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IzračunMeritveStMerToolStripMenuItem.Click
FormIzracunMeasure.Show()
End Sub
End Class

120
FormGrafika.Designer.vb generated Normal file
View File

@ -0,0 +1,120 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class FormGrafika
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()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormGrafika))
Me.Button1 = New System.Windows.Forms.Button()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Button2 = New System.Windows.Forms.Button()
Me.Label2 = New System.Windows.Forms.Label()
Me.SuspendLayout()
'
'Button1
'
Me.Button1.FlatAppearance.BorderColor = System.Drawing.SystemColors.ButtonShadow
Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_mesh_48
Me.Button1.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.Location = New System.Drawing.Point(1046, 13)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(165, 60)
Me.Button1.TabIndex = 0
Me.Button1.Text = "&Prikaži"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button1.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
Me.Button1.UseVisualStyleBackColor = True
'
'Label1
'
Me.Label1.Location = New System.Drawing.Point(1099, 152)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(39, 20)
Me.Label1.TabIndex = 1
Me.Label1.Text = "#"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.Location = New System.Drawing.Point(2147, 148)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(45, 22)
Me.Label4.TabIndex = 4
Me.Label4.Text = "Sojišča:"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Button2
'
Me.Button2.FlatAppearance.BorderColor = System.Drawing.SystemColors.ButtonShadow
Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.Button2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_24
Me.Button2.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button2.Location = New System.Drawing.Point(1046, 79)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(165, 36)
Me.Button2.TabIndex = 1
Me.Button2.Text = "&Zapri"
Me.Button2.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.Button2.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
Me.Button2.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(1046, 156)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(47, 13)
Me.Label2.TabIndex = 5
Me.Label2.Text = "Stojišča:"
'
'FormGrafika
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(1224, 1011)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
Me.MaximumSize = New System.Drawing.Size(1240, 1050)
Me.MinimumSize = New System.Drawing.Size(1240, 1050)
Me.Name = "FormGrafika"
Me.Padding = New System.Windows.Forms.Padding(10)
Me.SizeGripStyle = System.Windows.Forms.SizeGripStyle.Hide
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "TPS1100 - Grafika"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Button1 As Button
Friend WithEvents Label1 As Label
Friend WithEvents Label4 As Label
Friend WithEvents Button2 As Button
Friend WithEvents Label2 As Label
End Class

3065
FormGrafika.resx Normal file

File diff suppressed because it is too large Load Diff

190
FormGrafika.vb Normal file
View File

@ -0,0 +1,190 @@
Imports System.IO
Public Class FormGrafika
Public g As Graphics
Private Sub FormGrafika_Load(sender As Object, e As EventArgs) Handles MyBase.Load
g = Me.CreateGraphics()
End Sub
' Gumb: Prikaži
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
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Me.Dispose()
Me.Close()
End Sub
Public Sub DrawLineMer(ByVal xPos As Single, ByVal yPos As Single, ByVal xPos2 As Single, ByVal yPos2 As Single)
g.DrawLine(Pens.LightGray, New Point(xPos, yPos), New Point(xPos2, yPos2))
End Sub
Public Sub GrafikaIzris()
Dim dataStolpci As String = ""
If My.Settings.Stolpci = 0 Then
dataStolpci = " "
ElseIf My.Settings.Stolpci = 1 Then
dataStolpci = vbTab
End If
Form1.RichTextBox1.Clear()
Form1.RichTextBox1.BackColor = Color.PaleTurquoise
Form1.RichTextBox1.Text = "Koordinate točk v grafiki..." + vbCrLf
Dim streamReader As StreamReader = New StreamReader(Form1.OpenFileDialog1.FileName)
Dim i As Integer = 0
Dim lin As Integer = 0
' Pripravi variable za stojišče in merjene točke
Dim measuredPoints As Integer = 0
Dim stojiceSt As Integer = 0
Dim meritevSt As Integer = 0
Dim dataKoda As Integer = 0
Dim staX As Double = 0
Dim staY As Double = 0
Dim merX As Double = 0
Dim merY As Double = 0
Dim imeToc As String = ""
g.DrawRectangle(Pens.Gray, 5, 5, 1000, 1000)
Do Until streamReader.EndOfStream
Form1.ToolStripProgressBar1.Value = i
' Read and Split each line to separate it into fields
Dim line() As String = streamReader.ReadLine().Split(" ")
' Remove * sign from index line
line(0) = Replace(line(0), "*", "")
If Microsoft.VisualBasic.Left(line(0), 2) = "41" Then
dataKoda = 1
Else
dataKoda = 0
End If
If Microsoft.VisualBasic.Left(line(1), 2) = "25" Or Microsoft.VisualBasic.Left(line(1), 2) = "84" Then
measuredPoints = 1
End If
' Seaparate word index and data
For Each readLine As String In line
If readLine = "" Then
' do nothing
Else
' wordindex is always 6 characters long and is read fron left to right
Dim wordIndex As String
Dim data As String
Dim numData As Double
wordIndex = Microsoft.VisualBasic.Left(readLine, 2)
data = Microsoft.VisualBasic.Right(readLine, 17)
If wordIndex = "41" Then
Dim dataInfo As String = Microsoft.VisualBasic.Right(readLine, 16).TrimStart("0"c)
If dataInfo = My.Settings.KodaMeas Then
measuredPoints = 2
ElseIf dataInfo = My.Settings.KodaMeasOri Then
measuredPoints = 3
ElseIf dataInfo = My.Settings.KodaUserImport Then
measuredPoints = 0
Else
measuredPoints = 0
End If
End If
If wordIndex = "11" And measuredPoints >= 1 Then
data = Microsoft.VisualBasic.Right(data, 16).TrimStart("0"c)
imeToc = data
Form1.RichTextBox1.AppendText(data)
i = i + 1
ElseIf wordIndex = "81" And measuredPoints >= 2 Then ' Target Easting
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
merX = (numData - Form1.kooEMin) * Form1.kooFaktor
Form1.RichTextBox1.AppendText(dataStolpci + CInt(merX).ToString)
ElseIf wordIndex = "82" And measuredPoints >= 2 Then ' Target Northing
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
merY = (numData - Form1.kooNMin) * Form1.kooFaktor
Form1.RichTextBox1.AppendText(dataStolpci + CInt(merY).ToString)
ElseIf wordIndex = "83" And measuredPoints >= 2 Then ' Target Height
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
If measuredPoints = 2 Then
Form1.RichTextBox1.AppendText(dataStolpci + "MEAS")
g.DrawRectangle(Pens.Blue, CInt(merX) + 19, CInt(merY) + 19, 2, 2)
g.DrawString(imeToc, DefaultFont, Brushes.Blue, CInt(merX) + 22, CInt(merY) + 22)
' ElseIf measuredPoints = 4 Then
' Form1.RichTextBox1.AppendText(dataStolpci + data + dataStolpci + "REF")
ElseIf measuredPoints = 3 Then
Form1.RichTextBox1.AppendText(dataStolpci + "ORI")
g.DrawRectangle(Pens.DarkMagenta, CInt(merX) + 19, CInt(merY) + 19, 2, 2)
g.DrawString(imeToc, DefaultFont, Brushes.Magenta, CInt(merX) + 22, CInt(merY) + 22)
DrawLineMer(CInt(staX) + 20, CInt(staY) + 20, CInt(merX) + 20, CInt(merY) + 20)
End If
If stojiceSt > 0 Then
meritevSt = meritevSt + 1
End If
ElseIf wordIndex = "84" And measuredPoints = 1 Then ' Station Easting
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
staX = (numData - Form1.kooEMin) * Form1.kooFaktor
Form1.RichTextBox1.AppendText(dataStolpci + CInt(staX).ToString)
ElseIf wordIndex = "85" And measuredPoints = 1 Then ' Station Northing
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
staY = (numData - Form1.kooNMin) * Form1.kooFaktor
Form1.RichTextBox1.AppendText(dataStolpci + CInt(staY).ToString)
ElseIf wordIndex = "86" And measuredPoints = 1 Then ' Station Height
numData = data / 1000
data = Format(numData, "0.000")
If My.Settings.DecimalnoLocilo = "Pika" Then
data = data.ToString.Replace(",", ".")
End If
Form1.RichTextBox1.AppendText(dataStolpci + "STA")
stojiceSt = stojiceSt + 1
meritevSt = 0
Label1.Text = stojiceSt.ToString
g.DrawRectangle(Pens.DarkOrange, CInt(staX) + 18, CInt(staY) + 18, 4, 4)
g.DrawString(imeToc, DefaultFont, Brushes.DarkOrange, CInt(staX) + 25, CInt(staY) + 25)
Else
numData = 0
data = ""
End If
End If
' If stojiceSt > 0 And meritevSt > 0 Then
'
' 'DrawLineMer(CInt(staX), CInt(staY), CInt(merX), CInt(merY))
' End If
Next
If dataKoda = 0 And measuredPoints >= 1 Then
Form1.RichTextBox1.AppendText(vbCrLf)
End If
lin = lin + 1
Form1.ToolStripProgressBar1.Value = lin
Loop
streamReader.Close()
End Sub
End Class

664
FormGsiJobs.Designer.vb generated Normal file
View File

@ -0,0 +1,664 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class FormGsiJobs
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(FormGsiJobs))
Me.ToolStrip1 = New System.Windows.Forms.ToolStrip()
Me.ToolStripButton5 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.TSButonNalozi = New System.Windows.Forms.ToolStripButton()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.LabelDeloProj = New System.Windows.Forms.Label()
Me.LabelDeloMapa = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.LabelIzbProjMapa = New System.Windows.Forms.Label()
Me.LabelIzbProj = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.ButtonDelovni = New System.Windows.Forms.Button()
Me.Label12 = New System.Windows.Forms.Label()
Me.LabelJobIme = New System.Windows.Forms.Label()
Me.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.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.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.ToolStrip2.SuspendLayout()
Me.ToolStrip3.SuspendLayout()
Me.MenuStrip1.SuspendLayout()
Me.SuspendLayout()
'
'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.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)
Me.ToolStrip1.Stretch = True
Me.ToolStrip1.TabIndex = 2
Me.ToolStrip1.Text = "ToolStrip1"
'
'ToolStripButton5
'
Me.ToolStripButton5.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_501
Me.ToolStripButton5.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton5.Name = "ToolStripButton5"
Me.ToolStripButton5.Size = New System.Drawing.Size(93, 43)
Me.ToolStripButton5.Text = "Nastavi Delovni"
Me.ToolStripButton5.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
Me.ToolStripSeparator3.Size = New System.Drawing.Size(6, 46)
'
'TSButonNalozi
'
Me.TSButonNalozi.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_send_file_50
Me.TSButonNalozi.ImageTransparentColor = System.Drawing.Color.Magenta
Me.TSButonNalozi.Name = "TSButonNalozi"
Me.TSButonNalozi.Size = New System.Drawing.Size(65, 43)
Me.TSButonNalozi.Text = "Naloži Job"
Me.TSButonNalozi.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
'
'ToolStripSeparator2
'
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
Me.ToolStripSeparator2.Size = New System.Drawing.Size(6, 46)
'
'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(12, 80)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(161, 26)
Me.Label1.TabIndex = 8
Me.Label1.Text = "Projekt"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'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, 80)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(160, 26)
Me.Label2.TabIndex = 9
Me.Label2.Text = "Job (GSI)"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'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, 80)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(347, 26)
Me.Label3.TabIndex = 10
Me.Label3.Text = "Podatki"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.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.TableLayoutPanel1.ColumnCount = 2
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle())
Me.TableLayoutPanel1.Controls.Add(Me.Label4, 0, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Label6, 0, 1)
Me.TableLayoutPanel1.Controls.Add(Me.LabelDeloProj, 1, 0)
Me.TableLayoutPanel1.Controls.Add(Me.LabelDeloMapa, 1, 1)
Me.TableLayoutPanel1.Controls.Add(Me.Label7, 0, 4)
Me.TableLayoutPanel1.Controls.Add(Me.Label5, 0, 3)
Me.TableLayoutPanel1.Controls.Add(Me.LabelIzbProjMapa, 1, 4)
Me.TableLayoutPanel1.Controls.Add(Me.LabelIzbProj, 1, 3)
Me.TableLayoutPanel1.Controls.Add(Me.Label10, 0, 6)
Me.TableLayoutPanel1.Controls.Add(Me.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, 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!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(347, 189)
Me.TableLayoutPanel1.TabIndex = 11
'
'Label4
'
Me.Label4.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label4.AutoSize = True
Me.Label4.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label4.Location = New System.Drawing.Point(3, 4)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(113, 16)
Me.Label4.TabIndex = 0
Me.Label4.Text = "Delovni Projekt"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label6
'
Me.Label6.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(3, 31)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(113, 13)
Me.Label6.TabIndex = 2
Me.Label6.Text = "Delovna Mapa"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelDeloProj
'
Me.LabelDeloProj.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelDeloProj.AutoSize = True
Me.LabelDeloProj.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelDeloProj.ForeColor = System.Drawing.Color.ForestGreen
Me.LabelDeloProj.Location = New System.Drawing.Point(122, 4)
Me.LabelDeloProj.Name = "LabelDeloProj"
Me.LabelDeloProj.Size = New System.Drawing.Size(222, 16)
Me.LabelDeloProj.TabIndex = 6
Me.LabelDeloProj.Text = "<delovni projekt>"
Me.LabelDeloProj.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelDeloMapa
'
Me.LabelDeloMapa.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelDeloMapa.AutoSize = True
Me.LabelDeloMapa.Location = New System.Drawing.Point(122, 31)
Me.LabelDeloMapa.Name = "LabelDeloMapa"
Me.LabelDeloMapa.Size = New System.Drawing.Size(222, 13)
Me.LabelDeloMapa.TabIndex = 7
Me.LabelDeloMapa.Text = "<delovna mapa>"
Me.LabelDeloMapa.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label7
'
Me.Label7.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(3, 106)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(113, 13)
Me.Label7.TabIndex = 5
Me.Label7.Text = "Lokacija"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label5
'
Me.Label5.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label5.AutoSize = True
Me.Label5.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.0!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label5.Location = New System.Drawing.Point(3, 80)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(113, 15)
Me.Label5.TabIndex = 4
Me.Label5.Text = "Izbran Projekt"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelIzbProjMapa
'
Me.LabelIzbProjMapa.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzbProjMapa.AutoSize = True
Me.LabelIzbProjMapa.Location = New System.Drawing.Point(122, 106)
Me.LabelIzbProjMapa.Name = "LabelIzbProjMapa"
Me.LabelIzbProjMapa.Size = New System.Drawing.Size(222, 13)
Me.LabelIzbProjMapa.TabIndex = 3
Me.LabelIzbProjMapa.Text = ".\"
Me.LabelIzbProjMapa.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelIzbProj
'
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.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, 16)
Me.LabelIzbProj.TabIndex = 1
Me.LabelIzbProj.Text = "(izberi projekt)"
Me.LabelIzbProj.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'Label10
'
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, 163)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(113, 13)
Me.Label10.TabIndex = 8
Me.Label10.Text = "Izbran Job"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'ButtonDelovni
'
Me.ButtonDelovni.BackgroundImage = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_50
Me.ButtonDelovni.BackgroundImageLayout = System.Windows.Forms.ImageLayout.Zoom
Me.ButtonDelovni.FlatAppearance.BorderSize = 0
Me.ButtonDelovni.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.ButtonDelovni.Location = New System.Drawing.Point(3, 53)
Me.ButtonDelovni.Name = "ButtonDelovni"
Me.ButtonDelovni.Size = New System.Drawing.Size(113, 19)
Me.ButtonDelovni.TabIndex = 10
Me.ButtonDelovni.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.ButtonDelovni.UseVisualStyleBackColor = True
'
'Label12
'
Me.Label12.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.Label12.AutoSize = True
Me.Label12.ForeColor = System.Drawing.SystemColors.ControlDarkDark
Me.Label12.Location = New System.Drawing.Point(122, 50)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(222, 25)
Me.Label12.TabIndex = 11
Me.Label12.Text = "Nastavi izbran projekt kot delovni"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'LabelJobIme
'
Me.LabelJobIme.Anchor = CType((System.Windows.Forms.AnchorStyles.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", 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, 16)
Me.LabelJobIme.TabIndex = 12
Me.LabelJobIme.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'ListViewProj
'
Me.ListViewProj.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.ListViewProj.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.ProjektImeHeader})
Me.ListViewProj.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ListViewProj.FullRowSelect = True
Me.ListViewProj.HeaderStyle = System.Windows.Forms.ColumnHeaderStyle.None
Me.ListViewProj.HideSelection = False
Me.ListViewProj.LabelWrap = False
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, 285)
Me.ListViewProj.SmallImageList = Me.ImageList1
Me.ListViewProj.TabIndex = 12
Me.ListViewProj.UseCompatibleStateImageBehavior = False
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
Me.ListView2.Columns.AddRange(New System.Windows.Forms.ColumnHeader() {Me.JobImeHeader})
Me.ListView2.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.ListView2.FullRowSelect = True
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, 109)
Me.ListView2.MultiSelect = False
Me.ListView2.Name = "ListView2"
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
'
'JobImeHeader
'
Me.JobImeHeader.Text = "Job"
Me.JobImeHeader.Width = 140
'
'OpenFileDialogUvoziJob
'
Me.OpenFileDialogUvoziJob.Filter = "GSI|*.GSI"
'
'TextBoxJobDat
'
Me.TextBoxJobDat.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.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(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(333, 20)
Me.TextBoxJobDat.TabIndex = 16
Me.TextBoxJobDat.WordWrap = False
'
'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.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)
Me.ToolStrip2.TabIndex = 15
Me.ToolStrip2.Text = "ToolStrip2"
'
'ToolStripButton2
'
Me.ToolStripButton2.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton2.Enabled = False
Me.ToolStripButton2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_remove_50
Me.ToolStripButton2.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton2.Name = "ToolStripButton2"
Me.ToolStripButton2.Size = New System.Drawing.Size(28, 32)
Me.ToolStripButton2.Text = "Odstrani Projekt"
Me.ToolStripButton2.ToolTipText = "Odstrani Projekt"
'
'ToolStripButton1
'
Me.ToolStripButton1.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton1.Enabled = False
Me.ToolStripButton1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_add_to_collection_50
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton1.Name = "ToolStripButton1"
Me.ToolStripButton1.Size = New System.Drawing.Size(28, 32)
Me.ToolStripButton1.Text = "ToolStripButton1"
Me.ToolStripButton1.ToolTipText = "Naredi zavarovanje projekta..."
'
'ToolStrip3
'
Me.ToolStrip3.AutoSize = False
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.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, 35)
Me.ToolStrip3.TabIndex = 15
Me.ToolStrip3.Text = "ToolStrip2"
'
'ToolStripButton6
'
Me.ToolStripButton6.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton6.Enabled = False
Me.ToolStripButton6.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_recycle_bin_50
Me.ToolStripButton6.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton6.Name = "ToolStripButton6"
Me.ToolStripButton6.Size = New System.Drawing.Size(28, 35)
Me.ToolStripButton6.Text = "ToolStripButton2"
Me.ToolStripButton6.ToolTipText = "Izbrišii Job"
'
'ToolStripButton7
'
Me.ToolStripButton7.DisplayStyle = System.Windows.Forms.ToolStripItemDisplayStyle.Image
Me.ToolStripButton7.Enabled = False
Me.ToolStripButton7.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_product_documents_50
Me.ToolStripButton7.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton7.Name = "ToolStripButton7"
Me.ToolStripButton7.Size = New System.Drawing.Size(28, 35)
Me.ToolStripButton7.Text = "ToolStripButton1"
Me.ToolStripButton7.ToolTipText = "Arhiviraj Job"
'
'MenuStrip1
'
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.ListView2)
Me.Controls.Add(Me.ListViewProj)
Me.Controls.Add(Me.TableLayoutPanel1)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.ToolStrip1)
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)
Me.Name = "FormGsiJobs"
Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterScreen
Me.Text = "TPS1100 - Projekti"
Me.TopMost = True
Me.ToolStrip1.ResumeLayout(False)
Me.ToolStrip1.PerformLayout()
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel1.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 ToolStrip1 As ToolStrip
Friend WithEvents TSButonNalozi As ToolStripButton
Friend WithEvents ToolStripSeparator2 As ToolStripSeparator
Friend WithEvents Label1 As Label
Friend WithEvents Label2 As Label
Friend WithEvents Label3 As Label
Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
Friend WithEvents Label4 As Label
Friend WithEvents LabelIzbProj As Label
Friend WithEvents Label6 As Label
Friend WithEvents LabelIzbProjMapa As Label
Friend WithEvents Label5 As Label
Friend WithEvents Label7 As Label
Friend WithEvents LabelDeloProj As Label
Friend WithEvents LabelDeloMapa As Label
Friend WithEvents Label10 As Label
Friend WithEvents ButtonDelovni As Button
Friend WithEvents Label12 As Label
Friend WithEvents ListViewProj As ListView
Friend WithEvents ListView2 As ListView
Friend WithEvents ProjektImeHeader As ColumnHeader
Friend WithEvents ToolStripButton5 As ToolStripButton
Friend WithEvents ToolStripSeparator3 As ToolStripSeparator
Friend WithEvents JobImeHeader As ColumnHeader
Friend WithEvents OpenFileDialogUvoziJob As OpenFileDialog
Friend WithEvents LabelJobIme As Label
Friend WithEvents TextBoxJobDat As TextBox
Friend WithEvents ToolStrip2 As ToolStrip
Friend WithEvents ToolStripButton2 As ToolStripButton
Friend WithEvents ToolStripButton1 As ToolStripButton
Friend WithEvents ToolStrip3 As ToolStrip
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

3240
FormGsiJobs.resx Normal file

File diff suppressed because it is too large Load Diff

348
FormGsiJobs.vb Normal file
View File

@ -0,0 +1,348 @@
Imports System.IO
Imports System.IO.Compression
Imports System.Windows.Forms
Public Class FormGsiJobs
Public projektAktiven
Public projektAktivenMapa
Public projektIzbran
Public projektIzbranMapa
Public jobIzbran
Public jobDatoteka
' Funkcije izvedene pri nalaganju okna
Private Sub FormGsiJobs_Load(sender As Object, e As EventArgs) Handles MyBase.Load
projektAktiven = My.Settings.Projekt.ToString
projektAktivenMapa = My.Settings.ProjektMapa.ToString
LabelDeloProj.Text = projektAktiven
LabelDeloMapa.Text = projektAktivenMapa
ProjektBeriNast()
End Sub
Public Sub ProjektBeriNast()
Dim datProjektiNast = "tps1100_projekti.txt"
Dim i As Integer = 0
Dim iselected As Integer = 0
' Uvoz nastavitev iz datototeke
If My.Computer.FileSystem.FileExists(datProjektiNast) Then
Dim streamReader As StreamReader = New StreamReader(datProjektiNast)
Do Until streamReader.EndOfStream
' Read and Split each line to separate it into fields
Dim line() As String = streamReader.ReadLine().Split("=")
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
Loop
streamReader.Close()
streamReader.Dispose()
My.Settings.Save()
ListViewProj.Items.Item(iselected).Selected = True
ListViewProj.Focus()
Else
' Izvoz kodiranja v TXT datoteko
Dim dataNast As String = ""
dataNast = dataNast + "Virtualna Kartica=Virtualna Kartica\GSI" + vbCrLf
dataNast = dataNast + "Test Projekt=Projekti\Test Projekt" + vbCrLf
My.Computer.FileSystem.WriteAllText(datProjektiNast, dataNast, False)
End If
End Sub
Public Sub ProjektiShraniNast()
Dim datProjektiNast = "tps1100_projekti.txt"
' Uvoz nastavitev iz datototeke
If My.Computer.FileSystem.FileExists(datProjektiNast) Then
Dim dataProj As ListView.ListViewItemCollection = Me.ListViewProj.Items
Dim item As ListViewItem
Dim ime As String = ""
Dim mapa As String = ""
Dim dataOut As String = ""
For Each item In dataProj
ime = item.SubItems(0).Text
mapa = item.SubItems(1).Text
dataOut = dataOut + ime + "=" + mapa + vbCrLf
Next
My.Computer.FileSystem.WriteAllText(datProjektiNast, dataOut, False)
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 + "\"
Dim fileUvoz = OpenFileDialogUvoziJob.FileName
Dim fileIme = Path.GetFileName(OpenFileDialogUvoziJob.FileName)
Dim fileIzvoz = delovnaMapa + fileIme
My.Computer.FileSystem.CopyFile(fileUvoz, fileIzvoz, True)
OpenFileDialogUvoziJob.FileName = fileIzvoz
End If
OpenFileDialogUvoziJob.Dispose()
End Sub
Private Sub NastaviDelovniProj()
LabelDeloProj.Text = LabelIzbProj.Text
LabelDeloMapa.Text = LabelIzbProjMapa.Text
My.Settings.Projekt = LabelDeloProj.Text
My.Settings.ProjektMapa = LabelDeloMapa.Text
My.Settings.Save()
If LabelDeloProj.Text = "Virtualna Kartica" Then
Form1.ToolStripLabel2.Text = LabelDeloProj.Text
Form1.ToolStripLabel2.Image = My.Resources.icons8_micro_sd_50
Else
Form1.ToolStripLabel2.Text = LabelDeloProj.Text
Form1.ToolStripLabel2.Image = My.Resources.icons8_browse_folder_50_2
End If
End Sub
Private Sub NaloziJob()
LabelDeloProj.Text = LabelIzbProj.Text
LabelDeloMapa.Text = LabelIzbProjMapa.Text
My.Settings.Projekt = LabelDeloProj.Text
My.Settings.ProjektMapa = LabelDeloMapa.Text
My.Settings.Save()
If LabelDeloProj.Text = "Virtualna Kartica" Then
Form1.ToolStripLabel2.Text = LabelDeloProj.Text
Form1.ToolStripLabel2.Image = My.Resources.icons8_micro_sd_50
Else
Form1.ToolStripLabel2.Text = LabelDeloProj.Text
Form1.ToolStripLabel2.Image = My.Resources.icons8_browse_folder_50_2
End If
Form1.datJob = TextBoxJobDat.Text
Form1.NaloziGsiJob()
Me.Close()
End Sub
Private Sub PreberiJobe()
Dim izbran As ListView.SelectedListViewItemCollection = Me.ListViewProj.SelectedItems
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
projektIzbran = ime.ToString
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, 0).SubItems.Add(Path.GetFullPath(datJob))
ix = ix + 1
Next
If ime = "Virtualna Kartica" Then
ToolStripButton1.Enabled = False
ToolStripButton2.Enabled = False
ToolStripButton6.Enabled = False
ToolStripButton7.Enabled = False
Else
ToolStripButton1.Enabled = True
ToolStripButton2.Enabled = True
ToolStripButton6.Enabled = False
ToolStripButton7.Enabled = False
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
Private Sub ListViewProj_DoubleClick(sender As Object, e As EventArgs) Handles ListViewProj.DoubleClick
NastaviDelovniProj()
Me.Close()
End Sub
Private Sub ButtonDelovni_Click(sender As Object, e As EventArgs) Handles ButtonDelovni.Click, ToolStripButton5.Click
NastaviDelovniProj()
End Sub
Private Sub ListView2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView2.SelectedIndexChanged
Dim izbran As ListView.SelectedListViewItemCollection = Me.ListView2.SelectedItems
Dim item As ListViewItem
Dim ime As String = ""
Dim mapa As String = ""
For Each item In izbran
ime = item.SubItems(0).Text
mapa = item.SubItems(1).Text
Next
LabelJobIme.Text = ime.ToString
TextBoxJobDat.Text = mapa.ToString
If LabelJobIme.Text = "" Then
ToolStripButton6.Enabled = False
ToolStripButton7.Enabled = False
Else
ToolStripButton6.Enabled = True
ToolStripButton7.Enabled = True
End If
'Dim delovnaJob = My.Application.Info.DirectoryPath.ToString + "\" + mapa.ToString
'projektIzbran = ime.ToString
'projektIzbranMapa = delovnaMapa
'Dim datotekeJobi = My.Computer.FileSystem.GetFiles(delovnaMapa, FileIO.SearchOption.SearchTopLevelOnly, "*.GSI")
End Sub
Private Sub ListView2_DoubleClick(sender As Object, e As EventArgs) Handles ListView2.DoubleClick
NaloziJob()
End Sub
Private Sub TSButtonUvozi_Click(sender As Object, e As EventArgs)
UvoziGsiJob()
End Sub
Private Sub ToolStripButton7_Click(sender As Object, e As EventArgs) Handles ToolStripButton7.Click
' Arhiviraj izbran job
Dim datIzb = TextBoxJobDat.Text
Dim datArh = datIzb.Replace(LabelJobIme.Text, "_ARHIV\" + LabelJobIme.Text)
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)
End If
' Ponovno osveži vsebino seznama
PreberiJobe()
End If
End Sub
Private Sub ToolStripButton6_Click(sender As Object, e As EventArgs) Handles ToolStripButton6.Click
' Izbriši izbran job
Dim datIzb = TextBoxJobDat.Text
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)
End If
' Ponovno osveži vsebino seznama
PreberiJobe()
End If
End Sub
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

666
FormIzracunMeasure.Designer.vb generated Normal file
View File

@ -0,0 +1,666 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class FormIzracunMeasure
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(FormIzracunMeasure))
Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.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.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.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()
Me.LabelIzrHz = New System.Windows.Forms.Label()
Me.LabelIzrDs = New System.Windows.Forms.Label()
Me.LabelIzrV = New System.Windows.Forms.Label()
Me.LabelIzrDhVis = New System.Windows.Forms.Label()
Me.LabelIzrDh = New System.Windows.Forms.Label()
Me.Label14 = New System.Windows.Forms.Label()
Me.Label15 = New System.Windows.Forms.Label()
Me.Label16 = New System.Windows.Forms.Label()
Me.Label17 = New System.Windows.Forms.Label()
Me.Label18 = New System.Windows.Forms.Label()
Me.TableLayoutPanel3 = New System.Windows.Forms.TableLayoutPanel()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.tbGsiOut = New System.Windows.Forms.TextBox()
Me.Label19 = New System.Windows.Forms.Label()
Me.TableLayoutPanel1.SuspendLayout()
CType(Me.MyApplicationBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TableLayoutPanel2.SuspendLayout()
Me.TableLayoutPanel3.SuspendLayout()
Me.SuspendLayout()
'
'TableLayoutPanel1
'
Me.TableLayoutPanel1.ColumnCount = 4
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 15.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 35.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 15.0!))
Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 35.0!))
Me.TableLayoutPanel1.Controls.Add(Me.Label9, 1, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Label10, 3, 0)
Me.TableLayoutPanel1.Controls.Add(Me.Label7, 0, 5)
Me.TableLayoutPanel1.Controls.Add(Me.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.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.tbMerIme, 3, 1)
Me.TableLayoutPanel1.Controls.Add(Me.Button1, 3, 8)
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!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 25.0!))
Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Absolute, 40.0!))
Me.TableLayoutPanel1.Size = New System.Drawing.Size(437, 245)
Me.TableLayoutPanel1.TabIndex = 0
'
'Label9
'
Me.Label9.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(68, 14)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(146, 16)
Me.Label9.TabIndex = 16
Me.Label9.Text = "Stojišče"
Me.Label9.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label10
'
Me.Label10.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label10.AutoSize = True
Me.Label10.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label10.Location = New System.Drawing.Point(285, 14)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(149, 16)
Me.Label10.TabIndex = 17
Me.Label10.Text = "Merjena Točka"
Me.Label10.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label7
'
Me.Label7.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(19, 136)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(43, 13)
Me.Label7.TabIndex = 12
Me.Label7.Text = "H (inst.)"
Me.Label7.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'tbStnHins
'
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"
'
'tbStnH
'
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"
'
'tbStnN
'
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"
'
'tbStnE
'
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
'
Me.Label5.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(47, 111)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(15, 13)
Me.Label5.TabIndex = 8
Me.Label5.Text = "H"
Me.Label5.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label3
'
Me.Label3.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(47, 86)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(15, 13)
Me.Label3.TabIndex = 4
Me.Label3.Text = "N"
Me.Label3.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label1
'
Me.Label1.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(48, 61)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(14, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "E"
Me.Label1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'tbMerPrCons
'
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
'
'cbPrizma
'
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
'
'tbMerHpriz
'
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"
'
'tbMerH
'
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"
'
'tbMerN
'
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"
'
'tbMerE
'
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"
'
'LabelPrCons
'
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
'
Me.Label12.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(222, 161)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(57, 13)
Me.Label12.TabIndex = 20
Me.Label12.Text = "Prizma/RL"
Me.Label12.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label8
'
Me.Label8.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(238, 136)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(41, 13)
Me.Label8.TabIndex = 14
Me.Label8.Text = "H (refl.)"
Me.Label8.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label6
'
Me.Label6.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(264, 111)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(15, 13)
Me.Label6.TabIndex = 10
Me.Label6.Text = "H"
Me.Label6.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label4
'
Me.Label4.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(264, 86)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(15, 13)
Me.Label4.TabIndex = 6
Me.Label4.Text = "N"
Me.Label4.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label2
'
Me.Label2.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(265, 61)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(14, 13)
Me.Label2.TabIndex = 2
Me.Label2.Text = "E"
Me.Label2.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'Label13
'
Me.Label13.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Label13.AutoSize = True
Me.Label13.Location = New System.Drawing.Point(237, 36)
Me.Label13.Name = "Label13"
Me.Label13.Size = New System.Drawing.Size(42, 13)
Me.Label13.TabIndex = 22
Me.Label13.Text = "Ime/Št."
Me.Label13.TextAlign = System.Drawing.ContentAlignment.MiddleRight
'
'tbMerIme
'
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
'
Me.Button1.BackgroundImageLayout = System.Windows.Forms.ImageLayout.None
Me.Button1.Image = Global.TPS1100_Convert.My.Resources.Resources.digital_24
Me.Button1.Location = New System.Drawing.Point(285, 208)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(149, 34)
Me.Button1.TabIndex = 24
Me.Button1.Text = "Izračunaj"
Me.Button1.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.Button1.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
Me.Button1.UseVisualStyleBackColor = True
'
'MyApplicationBindingSource
'
Me.MyApplicationBindingSource.DataSource = GetType(TPS1100_Convert.My.MyApplication)
'
'TableLayoutPanel2
'
Me.TableLayoutPanel2.ColumnCount = 5
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 20.0!))
Me.TableLayoutPanel2.Controls.Add(Me.LabelIzrHz, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.LabelIzrDs, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.LabelIzrV, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.LabelIzrDhVis, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.LabelIzrDh, 0, 1)
Me.TableLayoutPanel2.Controls.Add(Me.Label14, 0, 0)
Me.TableLayoutPanel2.Controls.Add(Me.Label15, 1, 0)
Me.TableLayoutPanel2.Controls.Add(Me.Label16, 2, 0)
Me.TableLayoutPanel2.Controls.Add(Me.Label17, 3, 0)
Me.TableLayoutPanel2.Controls.Add(Me.Label18, 4, 0)
Me.TableLayoutPanel2.Location = New System.Drawing.Point(12, 263)
Me.TableLayoutPanel2.Name = "TableLayoutPanel2"
Me.TableLayoutPanel2.RowCount = 2
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel2.Size = New System.Drawing.Size(680, 50)
Me.TableLayoutPanel2.TabIndex = 1
'
'LabelIzrHz
'
Me.LabelIzrHz.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzrHz.AutoSize = True
Me.LabelIzrHz.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.LabelIzrHz.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelIzrHz.Location = New System.Drawing.Point(3, 28)
Me.LabelIzrHz.Name = "LabelIzrHz"
Me.LabelIzrHz.Size = New System.Drawing.Size(130, 18)
Me.LabelIzrHz.TabIndex = 26
Me.LabelIzrHz.Text = "LabelIzrHz"
Me.LabelIzrHz.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'LabelIzrDs
'
Me.LabelIzrDs.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzrDs.AutoSize = True
Me.LabelIzrDs.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.LabelIzrDs.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelIzrDs.Location = New System.Drawing.Point(275, 28)
Me.LabelIzrDs.Name = "LabelIzrDs"
Me.LabelIzrDs.Size = New System.Drawing.Size(130, 18)
Me.LabelIzrDs.TabIndex = 25
Me.LabelIzrDs.Text = "LabelIzrDs"
Me.LabelIzrDs.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'LabelIzrV
'
Me.LabelIzrV.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzrV.AutoSize = True
Me.LabelIzrV.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.LabelIzrV.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelIzrV.Location = New System.Drawing.Point(139, 28)
Me.LabelIzrV.Name = "LabelIzrV"
Me.LabelIzrV.Size = New System.Drawing.Size(130, 18)
Me.LabelIzrV.TabIndex = 24
Me.LabelIzrV.Text = "LabelIzrV"
Me.LabelIzrV.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'LabelIzrDhVis
'
Me.LabelIzrDhVis.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzrDhVis.AutoSize = True
Me.LabelIzrDhVis.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.LabelIzrDhVis.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelIzrDhVis.Location = New System.Drawing.Point(547, 28)
Me.LabelIzrDhVis.Name = "LabelIzrDhVis"
Me.LabelIzrDhVis.Size = New System.Drawing.Size(130, 18)
Me.LabelIzrDhVis.TabIndex = 23
Me.LabelIzrDhVis.Text = "LabelIzrDhVis"
Me.LabelIzrDhVis.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'LabelIzrDh
'
Me.LabelIzrDh.Anchor = CType((System.Windows.Forms.AnchorStyles.Left Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.LabelIzrDh.AutoSize = True
Me.LabelIzrDh.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
Me.LabelIzrDh.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.LabelIzrDh.Location = New System.Drawing.Point(411, 28)
Me.LabelIzrDh.Name = "LabelIzrDh"
Me.LabelIzrDh.Size = New System.Drawing.Size(130, 18)
Me.LabelIzrDh.TabIndex = 22
Me.LabelIzrDh.Text = "LabelIzrDh"
Me.LabelIzrDh.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label14
'
Me.Label14.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label14.AutoSize = True
Me.Label14.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label14.Location = New System.Drawing.Point(3, 9)
Me.Label14.Name = "Label14"
Me.Label14.Size = New System.Drawing.Size(130, 16)
Me.Label14.TabIndex = 17
Me.Label14.Text = "Hz"
Me.Label14.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label15
'
Me.Label15.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label15.AutoSize = True
Me.Label15.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label15.Location = New System.Drawing.Point(139, 9)
Me.Label15.Name = "Label15"
Me.Label15.Size = New System.Drawing.Size(130, 16)
Me.Label15.TabIndex = 18
Me.Label15.Text = "V"
Me.Label15.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'Label16
'
Me.Label16.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label16.AutoSize = True
Me.Label16.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label16.Location = New System.Drawing.Point(275, 9)
Me.Label16.Name = "Label16"
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
'
'Label17
'
Me.Label17.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label17.AutoSize = True
Me.Label17.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label17.Location = New System.Drawing.Point(411, 9)
Me.Label17.Name = "Label17"
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
'
'Label18
'
Me.Label18.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
Me.Label18.AutoSize = True
Me.Label18.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label18.Location = New System.Drawing.Point(547, 9)
Me.Label18.Name = "Label18"
Me.Label18.Size = New System.Drawing.Size(130, 16)
Me.Label18.TabIndex = 21
Me.Label18.Text = "dH"
Me.Label18.TextAlign = System.Drawing.ContentAlignment.MiddleCenter
'
'TableLayoutPanel3
'
Me.TableLayoutPanel3.ColumnCount = 2
Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel3.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel3.Controls.Add(Me.Button2, 0, 0)
Me.TableLayoutPanel3.Controls.Add(Me.Button3, 1, 0)
Me.TableLayoutPanel3.Location = New System.Drawing.Point(12, 347)
Me.TableLayoutPanel3.Name = "TableLayoutPanel3"
Me.TableLayoutPanel3.RowCount = 1
Me.TableLayoutPanel3.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!))
Me.TableLayoutPanel3.Size = New System.Drawing.Size(680, 40)
Me.TableLayoutPanel3.TabIndex = 2
'
'Button2
'
Me.Button2.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_advance2_24
Me.Button2.Location = New System.Drawing.Point(3, 3)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(102, 34)
Me.Button2.TabIndex = 0
Me.Button2.Text = "Vstavi"
Me.Button2.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageBeforeText
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Anchor = System.Windows.Forms.AnchorStyles.Right
Me.Button3.Location = New System.Drawing.Point(602, 4)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(75, 32)
Me.Button3.TabIndex = 1
Me.Button3.Text = "Prekliči"
Me.Button3.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
Me.Button3.UseVisualStyleBackColor = True
'
'tbGsiOut
'
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
'
Me.Label19.Location = New System.Drawing.Point(13, 320)
Me.Label19.Name = "Label19"
Me.Label19.Size = New System.Drawing.Size(28, 21)
Me.Label19.TabIndex = 4
Me.Label19.Text = "GSI"
Me.Label19.TextAlign = System.Drawing.ContentAlignment.MiddleLeft
'
'FormIzracunMeasure
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.SystemColors.Control
Me.ClientSize = New System.Drawing.Size(704, 396)
Me.Controls.Add(Me.Label19)
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.CenterScreen
Me.Text = "Izračun Meritve"
Me.TableLayoutPanel1.ResumeLayout(False)
Me.TableLayoutPanel1.PerformLayout()
CType(Me.MyApplicationBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
Me.TableLayoutPanel2.ResumeLayout(False)
Me.TableLayoutPanel2.PerformLayout()
Me.TableLayoutPanel3.ResumeLayout(False)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents TableLayoutPanel1 As TableLayoutPanel
Friend WithEvents Label8 As Label
Friend WithEvents tbMerHpriz As TextBox
Friend WithEvents Label7 As Label
Friend WithEvents tbStnHins As TextBox
Friend WithEvents Label6 As Label
Friend WithEvents tbMerH As TextBox
Friend WithEvents Label5 As Label
Friend WithEvents tbStnH As TextBox
Friend WithEvents Label4 As Label
Friend WithEvents tbMerN As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents tbStnN As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents tbMerE As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents tbStnE As TextBox
Friend WithEvents Label9 As Label
Friend WithEvents Label10 As Label
Friend WithEvents LabelPrCons As Label
Friend WithEvents Label12 As Label
Friend WithEvents tbMerPrCons As TextBox
Friend WithEvents cbPrizma As ComboBox
Friend WithEvents MyApplicationBindingSource As BindingSource
Friend WithEvents Label13 As Label
Friend WithEvents tbMerIme As TextBox
Friend WithEvents TableLayoutPanel2 As TableLayoutPanel
Friend WithEvents Label14 As Label
Friend WithEvents Label15 As Label
Friend WithEvents Label16 As Label
Friend WithEvents Label17 As Label
Friend WithEvents Label18 As Label
Friend WithEvents LabelIzrHz As Label
Friend WithEvents LabelIzrDs As Label
Friend WithEvents LabelIzrV As Label
Friend WithEvents LabelIzrDhVis As Label
Friend WithEvents LabelIzrDh As Label
Friend WithEvents Button1 As Button
Friend WithEvents TableLayoutPanel3 As TableLayoutPanel
Friend WithEvents Button2 As Button
Friend WithEvents Button3 As Button
Friend WithEvents tbGsiOut As TextBox
Friend WithEvents Label19 As Label
End Class

3068
FormIzracunMeasure.resx Normal file

File diff suppressed because it is too large Load Diff

95
FormIzracunMeasure.vb Normal file
View File

@ -0,0 +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
g = Me.CreateGraphics()
cbPrizma.SelectedIndex = 0
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbPrizma.SelectedIndexChanged
Dim cb = cbPrizma.Text
Select Case cb
Case "Red Laser"
tbMerPrCons.Text = "+0.0344"
tbMerPrCons.Enabled = False
LabelPrCons.Enabled = False
Case "Leica Circ. Prism"
tbMerPrCons.Text = "+0.0000"
tbMerPrCons.Enabled = False
LabelPrCons.Enabled = False
Case "Leica Mini Prism"
tbMerPrCons.Text = "+0.0175"
tbMerPrCons.Enabled = False
LabelPrCons.Enabled = False
Case "Vnos konstante..."
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

View File

@ -70,8 +70,8 @@ Partial Class FormNastavitve
Me.SaveFileDialogNast = New System.Windows.Forms.SaveFileDialog()
Me.MenuStrip1 = New System.Windows.Forms.MenuStrip()
Me.DatotekaToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.IzvoziKodeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UvoziKodeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.IzvoziKodeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.PonastaviKodeToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator1 = New System.Windows.Forms.ToolStripSeparator()
Me.ZapriToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
@ -673,37 +673,37 @@ Partial Class FormNastavitve
Me.DatotekaToolStripMenuItem.Size = New System.Drawing.Size(82, 20)
Me.DatotekaToolStripMenuItem.Text = "&Datoteka"
'
'IzvoziKodeToolStripMenuItem
'
Me.IzvoziKodeToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
Me.IzvoziKodeToolStripMenuItem.Name = "IzvoziKodeToolStripMenuItem"
Me.IzvoziKodeToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.IzvoziKodeToolStripMenuItem.Text = "&Shrani Kode"
'
'UvoziKodeToolStripMenuItem
'
Me.UvoziKodeToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_opened_folder_50
Me.UvoziKodeToolStripMenuItem.Name = "UvoziKodeToolStripMenuItem"
Me.UvoziKodeToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.UvoziKodeToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
Me.UvoziKodeToolStripMenuItem.Text = "&Uvozi Kode"
'
'IzvoziKodeToolStripMenuItem
'
Me.IzvoziKodeToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_save_as_50
Me.IzvoziKodeToolStripMenuItem.Name = "IzvoziKodeToolStripMenuItem"
Me.IzvoziKodeToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
Me.IzvoziKodeToolStripMenuItem.Text = "&Shrani Kode"
'
'PonastaviKodeToolStripMenuItem
'
Me.PonastaviKodeToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_rotate_48
Me.PonastaviKodeToolStripMenuItem.Name = "PonastaviKodeToolStripMenuItem"
Me.PonastaviKodeToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.PonastaviKodeToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
Me.PonastaviKodeToolStripMenuItem.Text = "Ponastavi Kode"
'
'ToolStripSeparator1
'
Me.ToolStripSeparator1.Name = "ToolStripSeparator1"
Me.ToolStripSeparator1.Size = New System.Drawing.Size(177, 6)
Me.ToolStripSeparator1.Size = New System.Drawing.Size(152, 6)
'
'ZapriToolStripMenuItem
'
Me.ZapriToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_close_50
Me.ZapriToolStripMenuItem.Name = "ZapriToolStripMenuItem"
Me.ZapriToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ZapriToolStripMenuItem.Size = New System.Drawing.Size(155, 22)
Me.ZapriToolStripMenuItem.Text = "&Zapri"
'
'ButtonShraniZapri

View File

@ -65,9 +65,34 @@ Public Class FormNastavitve
My.Settings.Save()
ShraniNastDat()
Form1.DatotekaLogfile = My.Settings.DatLogfile
Form1.RichTextBox1.Font = New Font(My.Settings.Pisava, My.Settings.PisavaVelikost)
End Sub
Public Sub ShraniNastDat()
' Izvoz kodiranja v TXT datoteko
Dim dataNast As String = ""
dataNast = dataNast + "DecimalnoLocilo = " + My.Settings.DecimalnoLocilo + vbCrLf
dataNast = dataNast + "StolpciTab = " + My.Settings.Stolpci.ToString + vbCrLf
dataNast = dataNast + "KodaStojisce = " + My.Settings.KodaStojisce + vbCrLf
dataNast = dataNast + "KodaStojisceInfo = " + My.Settings.KodaStojisceInfo + vbCrLf
dataNast = dataNast + "KodaStojisceOri = " + My.Settings.KodaStojisceOri + vbCrLf
dataNast = dataNast + "KodaQuickSet = " + My.Settings.KodaQuickSet + vbCrLf
dataNast = dataNast + "KodaSetAzi = " + My.Settings.KodaSetAzi + vbCrLf
dataNast = dataNast + "KodaResection = " + My.Settings.KodaResection + vbCrLf
dataNast = dataNast + "KodaFreeStation = " + My.Settings.KodaFreeStation + vbCrLf
dataNast = dataNast + "KodaOriHtTrans = " + My.Settings.KodaOriHtTrans + vbCrLf
dataNast = dataNast + "KodaMeasOri = " + My.Settings.KodaMeasOri + vbCrLf
dataNast = dataNast + "KodaMeas = " + My.Settings.KodaMeas + vbCrLf
dataNast = dataNast + "KodaUserImport = " + My.Settings.KodaUserImport + vbCrLf
My.Computer.FileSystem.WriteAllText("tps1100_kode.txt", dataNast, False)
End Sub
Private Sub ButtonOdpriLog_Click(sender As Object, e As EventArgs) Handles ButtonOdpriLog.Click
' Pokaži pot do datoteke z zapisnikom procesiranja
If SaveFileDialogLog.ShowDialog = DialogResult.OK Then
@ -92,6 +117,8 @@ Public Class FormNastavitve
' Izvoz kodiranja v TXT datoteko
Dim dataNast As String = ""
dataNast = dataNast + "DecimalnoLocilo = " + My.Settings.DecimalnoLocilo + vbCrLf
dataNast = dataNast + "StolpciTab = " + My.Settings.Stolpci.ToString + vbCrLf
dataNast = dataNast + "KodaStojisce = " + My.Settings.KodaStojisce + vbCrLf
dataNast = dataNast + "KodaStojisceInfo = " + My.Settings.KodaStojisceInfo + vbCrLf
dataNast = dataNast + "KodaStojisceOri = " + My.Settings.KodaStojisceOri + vbCrLf

View File

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

View File

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

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.7.0.3")>
<Assembly: AssemblyFileVersion("2.7.0.3")>
<Assembly: AssemblyVersion("2.8.0.2")>
<Assembly: AssemblyFileVersion("2.8.0.2")>
<Assembly: NeutralResourcesLanguage("sl-SI")>

View File

@ -1,67 +0,0 @@
[WORD_INDEX]
11 = Pointnumber
12 = Serial number
13 = Instrument type
19 = Time
21 = Horizontal Angle
22 = Vertical Angle
25 = Horizontal Angle Correction
31 = Slope distance
32 = Horizontal distance
33 = Height difference
41 = Code-Block ID
42 = Information 1
43 = Information 2
44 = Information 3
45 = Information 4
46 = Information 5
47 = Information 6
48 = Information 7
49 = Information 8
51 = PPM/mm
58 = Prism constant
59 = PPM
71 = Remark 1
72 = Remark 2
73 = Remark 3
74 = Remark 4
75 = Remark 5
76 = Remark 6
77 = Remark 7
78 = Remark 8
79 = Remark 9
81 = Easting
82 = Northing
83 = Elevation
84 = St. Easting
85 = St. Northing
86 = St. Height
87 = Reflector height
88 = Instrument height
[AUTOMATIC_INDEX_INFORMATION]
# POS : 4
0 = Automatic index OFF
1 = Automatic index OPERATING
3 = Automatic index OPERATING
[INPUT_MODE]
# POS : 5
0 = Original measured values transferred from the instrument
1 = Manual input from keyboard
2 = Measured value, Hz-Correction ON
3 = Measured value, Hz-Correction OFF
4 = Result of special function
[UNITS]
# POS : 6
0 = Meter # (last digit: 1mm / 0.000m)
1 = Feet # (last digit: 1/1000ft / 0.000ft)
2 = 400 gon
3 = 360° decimal # (DDD.DDDDD)
4 = 360° sexagesimal # (DDD.MMSSS)
5 = 6400 mil
6 = Meter # (last digit: 1/10mm)
7 = Feet # (last digit: 1/10000ft)
8 = Meter # (last digit: 1/100mm)

View File

@ -1,139 +0,0 @@
[WORD_INDEX]
11 = Pointnumber # 11 / block: 11....+00000H66
# PtNo=“H66“
12 = Serial number # 12 / block: 12....+00640054
# S.No. “640054”
13 = Instrument type # 13; 13....+00TCR305
# Instr. “TCR305”
19 = Time # 19 / block: 19....+02081029
# [MM.DD.hh.mm]
21 = Horizontal Angle # 21 / block: 21.102+17920860
# Hz „179.086“ gon
22 = Vertical Angle # 22 / block: 22.102+07567500
# V: „75.675“ gon
25 = Horizontal Angle Delta Azimuth # 22 / block: 22.102+07567500
# V: „75.675“ gon
31 = Slope distance # 31; e-g. 31..00+00003387
# Sdist: „3.387“ m
32 = Horizontal distance # 32 / block: 32..00+00003198
# Hdist: „3.198“ m
33 = Height difference # 33 / block: 33..00+00001119
# Hdiff: „1.119“ m
41 = Code-Block ID # 41 / block: 41....+00000013
# Code: „13“ m
42 = Information 1 # 42 / block: 42....+000TREES
# Info1: „TREES“
43 = Information 2 # 43 / block: 43....+000004.5
# Info2: „4.5“
44 = Information 3 # 44 / block: 44....+00CAT.02
# Info3: „CAT.02“
45 = Information 4 # 45 / block: 45....+000000NN
# Info4: „NN“
46 = Information 5 # 46 / block: 46....+000000NN
# Info5: „NN“
47 = Information 6 # 47 / block: 47....+000000NN
# Info6: „NN“
48 = Information 7 # 48 / block: 48....+000000NN
# Info7: „NN“
49 = Information 8 # 49 / block: 49....+000000NN
# Info8: „NN“
51 = PPM/mm # 51 / block: 51..1.+0000+034
# “0”ppm; “34”mm
58 = Prism constant # 58 / block: 58..16+00000020
# Prism „2“ mm
59 = PPM # 59 / block: 59..16+02200000
# PPM „220“
71 = Remark 1
# (or Attribute 1)
# 71 / block: 71....+0000REM1
# “REM1”
72 = Remark 2
# (or Attribute 2)
# 72 / block: 72....+0000REM2
# “REM2”
73 = Remark 3
# (or Attribute 3)
# 73 / block: 73....+0000REM3
# “REM3”
74 = Remark 4
# (or Attribute 4)
# 74 / block: 74....+0000REM4
# “REM4”
75 = Remark 5
# (or Attribute 5)
# 75 / block: 75....+0000REM5
# “REM5”
76 = Remark 6
# (or Attribute 6)
# 76 / block: 76....+0000REM6
# “REM6”
77 = Remark 7
# (or Attribute 7)
# 77 / block: 77....+0000REM7
# “REM7”
78 = Remark 8 # (or Attribute 8)
# 78 / block: 78....+0000REM8
# “REM8”
79 = Remark 9
# (or Attribute 9)
# 79 / block: 79....+0000REM9
# “REM9”
81 = Easting
# (E)
# 81 / block: 81..00+01999507
# E: “1999.507”m
82 = Northing
# (N)
# 82 / block: 82..00+00213159
# N: “2139.159”m
83 = Elevation
# (H)
# 83 / block: 83..00-00032881
# H: “32.881”m
84 = St. Easting
# (E0)
# 84 / block: 84..11+00393700
# E: “393.700”m
85 = St. Northing
# (N0)
# 85 / block: 85..11+06561220
# N: “6561.220”m
86 = St. Height
# (H0)
# 86 / block: 86..11+00065618
# H: “65.618”m
87 = Reflector height
# (hr)
# 87 / block: 87..11+00001700
# hr: “1.700” m
88 = Instrument height
# (hi)
# 88 / block: 88..11+00001550
# hi: “1.550” m
[AUTOMATIC_INDEX_INFORMATION]
# POS : 4
0 = Automatic index OFF
1 = Automatic index OPERATING
3 = Automatic index OPERATING
[INPUT_MODE]
# POS : 5
0 = Original measured values transferred from the instrument
1 = Manual input from keyboard
2 = Measured value, Hz-Correction ON
3 = Measured value, Hz-Correction OFF
4 = Result of special function
[UNITS]
# POS : 6
0 = Meter # (last digit: 1mm / 0.000m)
1 = Feet # (last digit: 1/1000ft / 0.000ft)
2 = 400 gon
3 = 360° decimal # (DDD.DDDDD)
4 = 360° sexagesimal # (DDD.MMSSS)
5 = 6400 mil
6 = Meter # (last digit: 1/10mm)
7 = Feet # (last digit: 1/10000ft)
8 = Meter # (last digit: 1/100mm)

View File

@ -1,8 +0,0 @@
[CODE]
10 = Quick Set
20 = Set Azimuth
30 = Resection
40 = Free Station
90 = Measured Data
99 = Imported Data

View File

@ -1,139 +0,0 @@
[WORD_INDEX]
11 = Pointnumber # 11 / block: 11....+00000H66
# PtNo=“H66“
12 = Serial number # 12 / block: 12....+00640054
# S.No. “640054”
13 = Instrument type # 13; 13....+00TCR305
# Instr. “TCR305”
19 = Time # 19 / block: 19....+02081029
# [MM.DD.hh.mm]
21 = Horizontal Angle # 21 / block: 21.102+17920860
# Hz „179.086“ gon
22 = Vertical Angle # 22 / block: 22.102+07567500
# V: „75.675“ gon
25 = Horizontal Angle Delta Azimuth # 22 / block: 22.102+07567500
# V: „75.675“ gon
31 = Slope distance # 31; e-g. 31..00+00003387
# Sdist: „3.387“ m
32 = Horizontal distance # 32 / block: 32..00+00003198
# Hdist: „3.198“ m
33 = Height difference # 33 / block: 33..00+00001119
# Hdiff: „1.119“ m
41 = Code-Block ID # 41 / block: 41....+00000013
# Code: „13“ m
42 = Information 1 # 42 / block: 42....+000TREES
# Info1: „TREES“
43 = Information 2 # 43 / block: 43....+000004.5
# Info2: „4.5“
44 = Information 3 # 44 / block: 44....+00CAT.02
# Info3: „CAT.02“
45 = Information 4 # 45 / block: 45....+000000NN
# Info4: „NN“
46 = Information 5 # 46 / block: 46....+000000NN
# Info5: „NN“
47 = Information 6 # 47 / block: 47....+000000NN
# Info6: „NN“
48 = Information 7 # 48 / block: 48....+000000NN
# Info7: „NN“
49 = Information 8 # 49 / block: 49....+000000NN
# Info8: „NN“
51 = PPM/mm # 51 / block: 51..1.+0000+034
# “0”ppm; “34”mm
58 = Prism constant # 58 / block: 58..16+00000020
# Prism „2“ mm
59 = PPM # 59 / block: 59..16+02200000
# PPM „220“
71 = Remark 1
# (or Attribute 1)
# 71 / block: 71....+0000REM1
# “REM1”
72 = Remark 2
# (or Attribute 2)
# 72 / block: 72....+0000REM2
# “REM2”
73 = Remark 3
# (or Attribute 3)
# 73 / block: 73....+0000REM3
# “REM3”
74 = Remark 4
# (or Attribute 4)
# 74 / block: 74....+0000REM4
# “REM4”
75 = Remark 5
# (or Attribute 5)
# 75 / block: 75....+0000REM5
# “REM5”
76 = Remark 6
# (or Attribute 6)
# 76 / block: 76....+0000REM6
# “REM6”
77 = Remark 7
# (or Attribute 7)
# 77 / block: 77....+0000REM7
# “REM7”
78 = Remark 8 # (or Attribute 8)
# 78 / block: 78....+0000REM8
# “REM8”
79 = Remark 9
# (or Attribute 9)
# 79 / block: 79....+0000REM9
# “REM9”
81 = Easting
# (E)
# 81 / block: 81..00+01999507
# E: “1999.507”m
82 = Northing
# (N)
# 82 / block: 82..00+00213159
# N: “2139.159”m
83 = Elevation
# (H)
# 83 / block: 83..00-00032881
# H: “32.881”m
84 = St. Easting
# (E0)
# 84 / block: 84..11+00393700
# E: “393.700”m
85 = St. Northing
# (N0)
# 85 / block: 85..11+06561220
# N: “6561.220”m
86 = St. Height
# (H0)
# 86 / block: 86..11+00065618
# H: “65.618”m
87 = Reflector height
# (hr)
# 87 / block: 87..11+00001700
# hr: “1.700” m
88 = Instrument height
# (hi)
# 88 / block: 88..11+00001550
# hi: “1.550” m
[AUTOMATIC_INDEX_INFORMATION]
# POS : 4
0 = Automatic index OFF
1 = Automatic index OPERATING
3 = Automatic index OPERATING
[INPUT_MODE]
# POS : 5
0 = Original measured values transferred from the instrument
1 = Manual input from keyboard
2 = Measured value, Hz-Correction ON
3 = Measured value, Hz-Correction OFF
4 = Result of special function
[UNITS]
# POS : 6
0 = Meter # (last digit: 1mm / 0.000m)
1 = Feet # (last digit: 1/1000ft / 0.000ft)
2 = 400 gon
3 = 360° decimal # (DDD.DDDDD)
4 = 360° sexagesimal # (DDD.MMSSS)
5 = 6400 mil
6 = Meter # (last digit: 1/10mm)
7 = Feet # (last digit: 1/10000ft)
8 = Meter # (last digit: 1/100mm)

View File

@ -1,8 +0,0 @@
[CODE]
10 = Quick Set
20 = Set Azimuth
30 = Resection
40 = Free Station
90 = Measured Data
99 = Imported Data

View File

@ -1,50 +0,0 @@
*410000+0000000000000099
*110001+00000000000GS001 81..00+0000000465423089 82..00+0000000110526243 83..00+0000000000301586
*110002+00000000000GS002 81..00+0000000465437688 82..00+0000000110547569 83..00+0000000000302107
*110003+00000000000GS003 81..00+0000000465472908 82..00+0000000110527226 83..00+0000000000302945
*410010+0000000000000040
*110004+00000000000GS001 21.324+0000000013831010 22.324+0000000008932340 31..00+0000000000029523 32..10+0000000000029522 87..10+0000000000002500 58..16+0000000000000175 33..10-0000000000000754 81..00+0000000531242578 82..00+0000000073008189 83..00+0000000000800864 71....+0000000000000000
*110005+00000000000GS002 21.324+0000000019023040 22.324+0000000010338410 31..00+0000000000007115 32..10+0000000000006914 87..10+0000000000000100 58..16+0000000000000175 33..10-0000000000000268 81..00+0000000531221776 82..00+0000000073023505 83..00+0000000000801350 71....+0000000000000000
*110006+00000000000GS003 21.324+0000000003614410 22.324+0000000009121020 31..00+0000000000034333 32..10+0000000000034324 87..10+0000000000000100 58..16+0000000000000175 33..10+0000000000000601 81..00+0000000531243315 82..00+0000000073057988 83..00+0000000000802219 71....+0000000000000000
*110007+0000000000011111 25.344+0000000008801190 84..40+0000000465444529 85..40+0000000110546554 86..40+0000000000302353 87..10+0000000000000100 88..10+0000000000001510
*410010+0000000000000090
*110008+00000000000GS003 21.324+0000000012415590 22.324+0000000009121020 31..00+0000000000034332 32..10+0000000000034323 87..10+0000000000000100 58..16+0000000000000175 33..10+0000000000000601 81..00+0000000465472895 82..00+0000000110527228 83..00+0000000000302954 71....+0000000000000000
*110009+00000000000GS001 21.324+0000000022632260 22.324+0000000008932390 31..00+0000000000029524 32..10+0000000000029523 87..10+0000000000002500 58..16+0000000000000175 33..10-0000000000000755 81..00+0000000465423100 82..00+0000000110526246 83..00+0000000000301598 71....+0000000000000000
*110010+00000000000GS002 21.324+0000000027824300 22.324+0000000010339390 31..00+0000000000007112 32..10+0000000000006911 87..10+0000000000000100 58..16+0000000000000175 33..10-0000000000000270 81..00+0000000465437693 82..00+0000000110547564 83..00+0000000000302084 71....+0000000000000000
*110011+0000000000000001 21.324+0000000011254090 22.324+0000000008815450 31..00+0000000000032800 32..10+0000000000032785 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000001205 81..00+0000000465474729 82..00+0000000110533795 83..00+0000000000303558 71....+0000000000000000
*110012+0000000000000002 21.324+0000000011144520 22.324+0000000008850390 31..00+0000000000020325 32..10+0000000000020321 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000620 81..00+0000000465463403 82..00+0000000110539024 83..00+0000000000302973 71....+0000000000000000
*110013+0000000000000003 21.324+0000000010859200 22.324+0000000008922510 31..00+0000000000011668 32..10+0000000000011667 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000336 81..00+0000000465455561 82..00+0000000110542757 83..00+0000000000302689 71....+0000000000000000
*110014+0000000000000004 21.324+0000000007358330 22.324+0000000009603030 31..00+0000000000001983 32..10+0000000000001972 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000001 81..00+0000000465446424 82..00+0000000110547098 83..00+0000000000302354 71....+0000000000000000
*110015+0000000000000005 21.324+0000000005042460 22.324+0000000010727030 31..00+0000000000004476 32..10+0000000000004270 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000000168 81..00+0000000465447834 82..00+0000000110549258 83..00+0000000000302521 71....+0000000000000000
*110016+0000000000000006 21.324+0000000003846420 22.324+0000000010921450 31..00+0000000000004204 32..10+0000000000003966 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000000116 81..00+0000000465447013 82..00+0000000110549645 83..00+0000000000302470 71....+0000000000000000
*110017+0000000000000007 21.324+0000000003747460 22.324+0000000010758590 31..00+0000000000004468 32..10+0000000000004249 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000000131 81..00+0000000465447133 82..00+0000000110549911 83..00+0000000000302484 71....+0000000000000000
*110018+0000000000000008 21.324+0000000033802160 22.324+0000000010150570 31..00+0000000000006199 32..10+0000000000006067 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000000237 81..00+0000000465442260 82..00+0000000110552180 83..00+0000000000302590 71....+0000000000000000
*110019+0000000000000009 21.324+0000000029836160 22.324+0000000010648530 31..00+0000000000005488 32..10+0000000000005254 87..10+0000000000000000 58..16+0000000000000344 33..10-0000000000000078 81..00+0000000465439917 82..00+0000000110549069 83..00+0000000000302276 71....+0000000000000000
*110020+0000000000000010 21.324+0000000028230220 22.324+0000000009248440 31..00+0000000000010785 32..10+0000000000010772 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000319 81..00+0000000465434013 82..00+0000000110548886 83..00+0000000000302034 71....+0000000000000000
*110021+0000000000000011 21.324+0000000005208020 22.324+0000000009428210 31..00+0000000000004313 32..10+0000000000004300 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000001174 81..00+0000000465447924 82..00+0000000110549193 83..00+0000000000303527 71....+0000000000000000
*110022+0000000000000012 21.324+0000000005044450 22.324+0000000008137520 31..00+0000000000004677 32..10+0000000000004627 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000891 81..00+0000000465448112 82..00+0000000110549481 83..00+0000000000303244 71....+0000000000000000
*110023+0000000000000013 21.324+0000000004322420 22.324+0000000007933420 31..00+0000000000011597 32..10+0000000000011405 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000002311 81..00+0000000465452362 82..00+0000000110554843 83..00+0000000000304664 71....+0000000000000000
*110024+0000000000000014 21.324+0000000004213390 22.324+0000000008007010 31..00+0000000000015065 32..10+0000000000014842 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000002796 81..00+0000000465454504 82..00+0000000110557544 83..00+0000000000305149 71....+0000000000000000
*110025+0000000000000015 21.324+0000000003346460 22.324+0000000008111590 31..00+0000000000017167 32..10+0000000000016965 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000002836 81..00+0000000465453962 82..00+0000000110560654 83..00+0000000000305190 71....+0000000000000000
*110026+0000000000000016 21.324+0000000001534560 22.324+0000000008200030 31..00+0000000000027304 32..10+0000000000027038 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000004010 81..00+0000000465451792 82..00+0000000110572598 83..00+0000000000306363 71....+0000000000000000
*110027+0000000000000017 21.324+0000000001558300 22.324+0000000008036540 31..00+0000000000028384 32..10+0000000000028004 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000004838 81..00+0000000465452236 82..00+0000000110573476 83..00+0000000000307192 71....+0000000000000000
*110028+0000000000000018 21.324+0000000001428410 22.324+0000000008121540 31..00+0000000000028412 32..10+0000000000028090 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000004476 81..00+0000000465451552 82..00+0000000110573751 83..00+0000000000306829 71....+0000000000000000
*110029+0000000000000019 21.324+0000000003416460 22.324+0000000008238380 31..00+0000000000027992 32..10+0000000000027761 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000003794 81..00+0000000465460165 82..00+0000000110569493 83..00+0000000000306147 71....+0000000000000000
*110030+0000000000000020 21.324+0000000004217270 22.324+0000000007814330 31..00+0000000000024595 32..10+0000000000024079 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000006522 81..00+0000000465460732 82..00+0000000110564366 83..00+0000000000308875 71....+0000000000000000
*110031+0000000000000021 21.324+0000000005331040 22.324+0000000007125310 31..00+0000000000015239 32..10+0000000000014445 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000006364 81..00+0000000465456144 82..00+0000000110555142 83..00+0000000000308718 71....+0000000000000000
*110032+0000000000000022 21.324+0000000008053160 22.324+0000000007227170 31..00+0000000000023186 32..10+0000000000022107 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000008500 81..00+0000000465466357 82..00+0000000110550055 83..00+0000000000310853 71....+0000000000000000
*110033+0000000000000023 21.324+0000000001902580 22.324+0000000007724330 31..00+0000000000039212 32..10+0000000000038269 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000010058 81..00+0000000465457019 82..00+0000000110582726 83..00+0000000000312411 71....+0000000000000000
*110034+0000000000000024 21.324+0000000003810480 22.324+0000000007832240 31..00+0000000000043712 32..10+0000000000042840 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000010195 81..00+0000000465471010 82..00+0000000110580229 83..00+0000000000312548 71....+0000000000000000
*110035+0000000000000031 21.324+0000000034458570 22.324+0000000009054050 31..00+0000000000005359 32..10+0000000000005358 87..10+0000000000000000 58..16+0000000000000344 33..10+0000000000001426 81..00+0000000465443141 82..00+0000000110551729 83..00+0000000000303779 71....+0000000000000000
*110036+0000000000000032 21.324+0000000029233050 22.324+0000000009558110 31..00+0000000000004488 32..10+0000000000004464 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000257 81..00+0000000465440407 82..00+0000000110548265 83..00+0000000000302097 71....+0000000000000000
*110037+0000000000000033 21.324+0000000027506040 22.324+0000000009425520 31..00+0000000000006362 32..10+0000000000006343 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000282 81..00+0000000465438211 82..00+0000000110547118 83..00+0000000000302072 71....+0000000000000000
*110038+0000000000000034 21.324+0000000027631400 22.324+0000000009349170 31..00+0000000000010047 32..10+0000000000010024 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000460 81..00+0000000465434570 82..00+0000000110547693 83..00+0000000000301894 71....+0000000000000000
*110039+0000000000000035 21.324+0000000027424370 22.324+0000000009425240 31..00+0000000000007978 32..10+0000000000007954 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000405 81..00+0000000465436599 82..00+0000000110547165 83..00+0000000000301948 71....+0000000000000000
*110040+0000000000000036 21.324+0000000027337580 22.324+0000000009552300 31..00+0000000000005445 32..10+0000000000005416 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000347 81..00+0000000465439124 82..00+0000000110546897 83..00+0000000000302006 71....+0000000000000000
*110041+0000000000000037 21.324+0000000026954060 22.324+0000000009916340 31..00+0000000000002914 32..10+0000000000002876 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000260 81..00+0000000465441653 82..00+0000000110546549 83..00+0000000000302094 71....+0000000000000000
*110042+0000000000000038 21.324+0000000013027410 22.324+0000000009545570 31..00+0000000000002638 32..10+0000000000002625 87..10+0000000000001300 58..16+0000000000000175 33..10-0000000000000055 81..00+0000000465446526 82..00+0000000110544850 83..00+0000000000302298 71....+0000000000000000
*110043+0000000000000039 21.324+0000000011808360 22.324+0000000009002460 31..00+0000000000011703 32..10+0000000000011703 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000201 81..00+0000000465454849 82..00+0000000110541033 83..00+0000000000302554 71....+0000000000000000
*110044+0000000000000040 21.324+0000000011708390 22.324+0000000008931290 31..00+0000000000017790 32..10+0000000000017789 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000358 81..00+0000000465460359 82..00+0000000110538438 83..00+0000000000302711 71....+0000000000000000
*110045+0000000000000041 21.324+0000000011609380 22.324+0000000008913070 31..00+0000000000031001 32..10+0000000000030998 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000633 81..00+0000000465472352 82..00+0000000110532887 83..00+0000000000302986 71....+0000000000000000
*110046+0000000000000042 21.324+0000000011526030 22.324+0000000008909420 31..00+0000000000032271 32..10+0000000000032268 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000682 81..00+0000000465473669 82..00+0000000110532696 83..00+0000000000303036 71....+0000000000000000
*110047+0000000000000043 21.324+0000000011346490 22.324+0000000008855450 31..00+0000000000032842 32..10+0000000000032836 87..10+0000000000001300 58..16+0000000000000175 33..10+0000000000000824 81..00+0000000465474578 82..00+0000000110533313 83..00+0000000000303177 71....+0000000000000000

View File

@ -1,44 +0,0 @@
GS001 465423.089 110526.243 301.586 REF
GS002 465437.688 110547.569 302.107 REF
GS003 465472.908 110527.226 302.945 REF
11111 465444.529 110546.554 302.353 STA
GS003 465472.895 110527.228 302.954 MEAS
GS001 465423.100 110526.246 301.598 MEAS
GS002 465437.693 110547.564 302.084 MEAS
1 465474.729 110533.795 303.558 MEAS
2 465463.403 110539.024 302.973 MEAS
3 465455.561 110542.757 302.689 MEAS
4 465446.424 110547.098 302.354 MEAS
5 465447.834 110549.258 302.521 MEAS
6 465447.013 110549.645 302.470 MEAS
7 465447.133 110549.911 302.484 MEAS
8 465442.260 110552.180 302.590 MEAS
9 465439.917 110549.069 302.276 MEAS
10 465434.013 110548.886 302.034 MEAS
11 465447.924 110549.193 303.527 MEAS
12 465448.112 110549.481 303.244 MEAS
13 465452.362 110554.843 304.664 MEAS
14 465454.504 110557.544 305.149 MEAS
15 465453.962 110560.654 305.190 MEAS
16 465451.792 110572.598 306.363 MEAS
17 465452.236 110573.476 307.192 MEAS
18 465451.552 110573.751 306.829 MEAS
19 465460.165 110569.493 306.147 MEAS
20 465460.732 110564.366 308.875 MEAS
21 465456.144 110555.142 308.718 MEAS
22 465466.357 110550.055 310.853 MEAS
23 465457.019 110582.726 312.411 MEAS
24 465471.010 110580.229 312.548 MEAS
31 465443.141 110551.729 303.779 MEAS
32 465440.407 110548.265 302.097 MEAS
33 465438.211 110547.118 302.072 MEAS
34 465434.570 110547.693 301.894 MEAS
35 465436.599 110547.165 301.948 MEAS
36 465439.124 110546.897 302.006 MEAS
37 465441.653 110546.549 302.094 MEAS
38 465446.526 110544.850 302.298 MEAS
39 465454.849 110541.033 302.554 MEAS
40 465460.359 110538.438 302.711 MEAS
41 465472.352 110532.887 302.986 MEAS
42 465473.669 110532.696 303.036 MEAS
43 465474.578 110533.313 303.177 MEAS

View File

@ -1,65 +0,0 @@
TPS 1100 Zapisnik
++++++++++++++++++++++++++++++++
Imported/User-Entered:
----------------------
PtID E N H
GS001 465423.089 110526.243 301.586
GS002 465437.688 110547.569 302.107
GS003 465472.908 110527.226 302.945
Setup: Free Station
=============================
PtID HZ V SD HD ReflHt PrCon HtDif PtCode
GS001 138.3101 89.3234 29.523 29.522 2.500 0.0175 -0.754
GS002 190.2304 103.3841 7.115 6.914 0.100 0.0175 -0.268
GS003 36.1441 91.2102 34.333 34.324 0.100 0.0175 0.601
Station:
****************
PtID HzCor StnE StnN StnH ReflHt InstHt
11111 88.0119 465444.529 110546.554 302.353 0.100 1.510
Measured:
----------------------
PtID HZ V SD HD ReflHt PrCon HtDif E N H PtCode
GS003 124.1559 91.2102 34.332 34.323 0.100 0.0175 0.601 465472.895 110527.228 302.954
GS001 226.3226 89.3239 29.524 29.523 2.500 0.0175 -0.755 465423.100 110526.246 301.598
GS002 278.2430 103.3939 7.112 6.911 0.100 0.0175 -0.270 465437.693 110547.564 302.084
1 112.5409 88.1545 32.800 32.785 1.300 0.0175 1.205 465474.729 110533.795 303.558
2 111.4452 88.5039 20.325 20.321 1.300 0.0175 0.620 465463.403 110539.024 302.973
3 108.5920 89.2251 11.668 11.667 1.300 0.0175 0.336 465455.561 110542.757 302.689
4 73.5833 96.0303 1.983 1.972 1.300 0.0175 0.001 465446.424 110547.098 302.354
5 50.4246 107.2703 4.476 4.270 0.000 0.0344 0.168 465447.834 110549.258 302.521
6 38.4642 109.2145 4.204 3.966 0.000 0.0344 0.116 465447.013 110549.645 302.470
7 37.4746 107.5859 4.468 4.249 0.000 0.0344 0.131 465447.133 110549.911 302.484
8 338.0216 101.5057 6.199 6.067 0.000 0.0344 0.237 465442.260 110552.180 302.590
9 298.3616 106.4853 5.488 5.254 0.000 0.0344 -0.078 465439.917 110549.069 302.276
10 282.3022 92.4844 10.785 10.772 1.300 0.0175 -0.319 465434.013 110548.886 302.034
11 52.0802 94.2821 4.313 4.300 0.000 0.0344 1.174 465447.924 110549.193 303.527
12 50.4445 81.3752 4.677 4.627 1.300 0.0175 0.891 465448.112 110549.481 303.244
13 43.2242 79.3342 11.597 11.405 1.300 0.0175 2.311 465452.362 110554.843 304.664
14 42.1339 80.0701 15.065 14.842 1.300 0.0175 2.796 465454.504 110557.544 305.149
15 33.4646 81.1159 17.167 16.965 1.300 0.0175 2.836 465453.962 110560.654 305.190
16 15.3456 82.0003 27.304 27.038 1.300 0.0175 4.010 465451.792 110572.598 306.363
17 15.5830 80.3654 28.384 28.004 1.300 0.0175 4.838 465452.236 110573.476 307.192
18 14.2841 81.2154 28.412 28.090 1.300 0.0175 4.476 465451.552 110573.751 306.829
19 34.1646 82.3838 27.992 27.761 1.300 0.0175 3.794 465460.165 110569.493 306.147
20 42.1727 78.1433 24.595 24.079 0.000 0.0344 6.522 465460.732 110564.366 308.875
21 53.3104 71.2531 15.239 14.445 0.000 0.0344 6.364 465456.144 110555.142 308.718
22 80.5316 72.2717 23.186 22.107 0.000 0.0344 8.500 465466.357 110550.055 310.853
23 19.0258 77.2433 39.212 38.269 0.000 0.0344 10.058 465457.019 110582.726 312.411
24 38.1048 78.3224 43.712 42.840 0.000 0.0344 10.195 465471.010 110580.229 312.548
31 344.5857 90.5405 5.359 5.358 0.000 0.0344 1.426 465443.141 110551.729 303.779
32 292.3305 95.5811 4.488 4.464 1.300 0.0175 -0.257 465440.407 110548.265 302.097
33 275.0604 94.2552 6.362 6.343 1.300 0.0175 -0.282 465438.211 110547.118 302.072
34 276.3140 93.4917 10.047 10.024 1.300 0.0175 -0.460 465434.570 110547.693 301.894
35 274.2437 94.2524 7.978 7.954 1.300 0.0175 -0.405 465436.599 110547.165 301.948
36 273.3758 95.5230 5.445 5.416 1.300 0.0175 -0.347 465439.124 110546.897 302.006
37 269.5406 99.1634 2.914 2.876 1.300 0.0175 -0.260 465441.653 110546.549 302.094
38 130.2741 95.4557 2.638 2.625 1.300 0.0175 -0.055 465446.526 110544.850 302.298
39 118.0836 90.0246 11.703 11.703 1.300 0.0175 0.201 465454.849 110541.033 302.554
40 117.0839 89.3129 17.790 17.789 1.300 0.0175 0.358 465460.359 110538.438 302.711
41 116.0938 89.1307 31.001 30.998 1.300 0.0175 0.633 465472.352 110532.887 302.986
42 115.2603 89.0942 32.271 32.268 1.300 0.0175 0.682 465473.669 110532.696 303.036
43 113.4649 88.5545 32.842 32.836 1.300 0.0175 0.824 465474.578 110533.313 303.177

View File

@ -1,44 +0,0 @@
GS001 465423.089 110526.243 301.586
GS002 465437.688 110547.569 302.107
GS003 465472.908 110527.226 302.945
11111 465444.529 110546.554 302.353
GS003 465472.895 110527.228 302.954
GS001 465423.100 110526.246 301.598
GS002 465437.693 110547.564 302.084
1 465474.729 110533.795 303.558
2 465463.403 110539.024 302.973
3 465455.561 110542.757 302.689
4 465446.424 110547.098 302.354
5 465447.834 110549.258 302.521
6 465447.013 110549.645 302.470
7 465447.133 110549.911 302.484
8 465442.260 110552.180 302.590
9 465439.917 110549.069 302.276
10 465434.013 110548.886 302.034
11 465447.924 110549.193 303.527
12 465448.112 110549.481 303.244
13 465452.362 110554.843 304.664
14 465454.504 110557.544 305.149
15 465453.962 110560.654 305.190
16 465451.792 110572.598 306.363
17 465452.236 110573.476 307.192
18 465451.552 110573.751 306.829
19 465460.165 110569.493 306.147
20 465460.732 110564.366 308.875
21 465456.144 110555.142 308.718
22 465466.357 110550.055 310.853
23 465457.019 110582.726 312.411
24 465471.010 110580.229 312.548
31 465443.141 110551.729 303.779
32 465440.407 110548.265 302.097
33 465438.211 110547.118 302.072
34 465434.570 110547.693 301.894
35 465436.599 110547.165 301.948
36 465439.124 110546.897 302.006
37 465441.653 110546.549 302.094
38 465446.526 110544.850 302.298
39 465454.849 110541.033 302.554
40 465460.359 110538.438 302.711
41 465472.352 110532.887 302.986
42 465473.669 110532.696 303.036
43 465474.578 110533.313 303.177

Binary file not shown.

After

Width:  |  Height:  |  Size: 12 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 6.4 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 652 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 713 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 9.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.0 KiB

Binary file not shown.

Before

Width:  |  Height:  |  Size: 671 B

After

Width:  |  Height:  |  Size: 953 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 514 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.0 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 762 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 894 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 203 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 599 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 934 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 714 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 403 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.5 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 733 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 471 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 396 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 16 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 835 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1022 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.9 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 837 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 550 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 708 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.6 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.1 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 3.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.3 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 2.7 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 1.2 KiB

Binary file not shown.

After

Width:  |  Height:  |  Size: 613 B

Binary file not shown.

After

Width:  |  Height:  |  Size: 791 B

Some files were not shown because too many files have changed in this diff Show More