Compare commits
14 Commits
Author | SHA1 | Date | |
---|---|---|---|
cb0a1fd7df | |||
f3a8af6e59 | |||
e9071a1b95 | |||
74bdecd726 | |||
02f70c402c | |||
ee60d54f7c | |||
e49fea6dc0 | |||
0ae2ce40f1 | |||
012c136c11 | |||
cf13ba2a22 | |||
5d3f2bedab | |||
b433dc6376 | |||
1692fa0f9d | |||
01cc5d14c3 |
|
@ -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>
|
||||
|
|
87
CHANGELOG.md
|
@ -2,9 +2,94 @@
|
|||
|
||||
Zapisnik razvoja programa TPS1100 Convert.
|
||||
|
||||
|
||||
---
|
||||
|
||||
## v2.7.0.6 (2024/06/26)
|
||||
## 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".
|
||||
|
|
452
DialogIzracunHzCor.Designer.vb
generated
Normal 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
85
DialogIzracunHzCor.vb
Normal 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
|
@ -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
75
DialogJobOdpri.vb
Normal 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
|
@ -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
79
DialogKartica.vb
Normal 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
|
@ -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
|
@ -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
|
@ -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
|
@ -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
175
DialogPripravaKartice.vb
Normal 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
|
@ -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
18
DialogProjektUvoz.vb
Normal 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
|
@ -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
54
DialogZavarovanje.vb
Normal 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
3029
Doc/Kodiranje-podatkov.html
Normal file
2951
Doc/Navodila-nastavitve.html
Normal file
2982
Doc/Navodila-orodja.html
Normal file
3068
Doc/Navodila-osnovna.html
Normal file
642
Form1.Designer.vb
generated
|
@ -31,54 +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.ToolStripButton1 = 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.PosodobitevToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.PripraviGSIToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.ToolStripSeparator7 = New System.Windows.Forms.ToolStripSeparator()
|
||||
Me.PosodobitevToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.InfoOAplikacijiToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
|
||||
Me.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
|
||||
|
@ -86,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)
|
||||
|
@ -105,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
|
||||
'
|
||||
|
@ -126,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.ToolStripButton1})
|
||||
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
|
||||
'
|
||||
|
@ -235,130 +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 ..."
|
||||
'
|
||||
'ToolStripButton1
|
||||
'
|
||||
Me.ToolStripButton1.Alignment = System.Windows.Forms.ToolStripItemAlignment.Right
|
||||
Me.ToolStripButton1.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_caps_lock_on_50
|
||||
Me.ToolStripButton1.ImageTransparentColor = System.Drawing.Color.Magenta
|
||||
Me.ToolStripButton1.Name = "ToolStripButton1"
|
||||
Me.ToolStripButton1.Size = New System.Drawing.Size(100, 34)
|
||||
Me.ToolStripButton1.Text = "Na Začetek"
|
||||
Me.ToolStripButton1.TextImageRelation = System.Windows.Forms.TextImageRelation.TextBeforeImage
|
||||
'
|
||||
'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(134, 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(134, 22)
|
||||
Me.PripraviGSIToolStripMenuItem1.Text = "&Pripravi GSI"
|
||||
'
|
||||
'ToolStripSeparator3
|
||||
'
|
||||
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
|
||||
Me.ToolStripSeparator3.Size = New System.Drawing.Size(131, 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(134, 22)
|
||||
Me.ShraniToolStripMenuItem.Text = "&Shrani..."
|
||||
'
|
||||
'ToolStripSeparator2
|
||||
'
|
||||
Me.ToolStripSeparator2.Name = "ToolStripSeparator2"
|
||||
Me.ToolStripSeparator2.Size = New System.Drawing.Size(131, 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(134, 22)
|
||||
Me.IzhodToolStripMenuItem.Text = "I&zhod"
|
||||
'
|
||||
'MenuToolStripMenuItem
|
||||
'
|
||||
Me.MenuToolStripMenuItem.DropDownItems.AddRange(New System.Windows.Forms.ToolStripItem() {Me.OdpriGSIToolStripMenuItem, Me.ToolStripSeparator6, Me.PosodobitevToolStripMenuItem, Me.PripraviGSIToolStripMenuItem, Me.ToolStripSeparator7, Me.InfoOAplikacijiToolStripMenuItem})
|
||||
Me.MenuToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_menu_50
|
||||
Me.MenuToolStripMenuItem.Name = "MenuToolStripMenuItem"
|
||||
Me.MenuToolStripMenuItem.Size = New System.Drawing.Size(81, 20)
|
||||
Me.MenuToolStripMenuItem.Text = "Program"
|
||||
'
|
||||
'OdpriGSIToolStripMenuItem
|
||||
'
|
||||
Me.OdpriGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_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)
|
||||
'
|
||||
'PosodobitevToolStripMenuItem
|
||||
'
|
||||
Me.PosodobitevToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_rotate_48
|
||||
Me.PosodobitevToolStripMenuItem.Name = "PosodobitevToolStripMenuItem"
|
||||
Me.PosodobitevToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
|
||||
Me.PosodobitevToolStripMenuItem.Text = "Posodobitev..."
|
||||
'
|
||||
'PripraviGSIToolStripMenuItem
|
||||
'
|
||||
Me.PripraviGSIToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_question_mark_48
|
||||
Me.PripraviGSIToolStripMenuItem.Name = "PripraviGSIToolStripMenuItem"
|
||||
Me.PripraviGSIToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
|
||||
Me.PripraviGSIToolStripMenuItem.Text = "Navodila"
|
||||
'
|
||||
'ToolStripSeparator7
|
||||
'
|
||||
Me.ToolStripSeparator7.Name = "ToolStripSeparator7"
|
||||
Me.ToolStripSeparator7.Size = New System.Drawing.Size(151, 6)
|
||||
'
|
||||
'InfoOAplikacijiToolStripMenuItem
|
||||
'
|
||||
Me.InfoOAplikacijiToolStripMenuItem.Image = Global.TPS1100_Convert.My.Resources.Resources.icons8_information_50
|
||||
Me.InfoOAplikacijiToolStripMenuItem.Name = "InfoOAplikacijiToolStripMenuItem"
|
||||
Me.InfoOAplikacijiToolStripMenuItem.Size = New System.Drawing.Size(154, 22)
|
||||
Me.InfoOAplikacijiToolStripMenuItem.Text = "Info o aplikaciji"
|
||||
'
|
||||
'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)
|
||||
|
@ -376,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()
|
||||
|
||||
|
@ -386,35 +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 IzhodToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents PosodobitevToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents ToolStripSeparator7 As ToolStripSeparator
|
||||
Friend WithEvents ToolStripButton1 As ToolStripButton
|
||||
Friend WithEvents ToolStripMenuItem1 As ToolStripMenuItem
|
||||
Friend WithEvents ManagerToolStripMenuItem As ToolStripMenuItem
|
||||
Friend WithEvents 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
|
||||
|
|
54
Form1.resx
|
@ -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" > "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">
|
||||
|
|
327
Form1.vb
|
@ -1,5 +1,7 @@
|
|||
Imports System.IO
|
||||
' Made by Boris Bilc
|
||||
Imports System.IO
|
||||
Imports System.Runtime.InteropServices.ComTypes
|
||||
Imports System.Windows.Forms.VisualStyles.VisualStyleElement
|
||||
|
||||
Public Class Form1
|
||||
Public DatotekaLogfile As String = My.Settings.DatLogfile
|
||||
|
@ -10,7 +12,7 @@ Public Class Form1
|
|||
My.Settings.Save()
|
||||
End If
|
||||
My.Forms.Form1.Text = My.Application.Info.Title + " " + My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString
|
||||
RichTextBox1.AppendText(My.Settings.DatLogfile.ToString)
|
||||
RichTextBox1.AppendText(My.Settings.DatLogfile.ToString + vbCrLf + vbCrLf + "Verzija: " + My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString + "." + My.Application.Info.Version.Build.ToString + "." + My.Application.Info.Version.Revision.ToString)
|
||||
|
||||
If My.Settings.Pisava = "" Then
|
||||
My.Settings.Pisava = RichTextBox1.Font.Name
|
||||
|
@ -19,6 +21,12 @@ Public Class Form1
|
|||
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()
|
||||
|
@ -118,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
|
||||
|
@ -130,18 +139,100 @@ Public Class Form1
|
|||
' 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()
|
||||
|
@ -192,6 +283,7 @@ 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 = Color.LemonChiffon
|
||||
|
@ -220,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
|
||||
|
@ -294,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
|
||||
|
@ -302,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
|
||||
|
@ -350,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
|
||||
|
@ -423,6 +521,15 @@ Public Class Form1
|
|||
' 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
|
||||
|
@ -453,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
|
||||
|
@ -471,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
|
||||
|
@ -492,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
|
||||
|
@ -552,17 +699,30 @@ 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.LightGray
|
||||
Dim measuredPoints As Integer = 0
|
||||
|
@ -618,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
|
||||
|
||||
|
@ -696,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
|
||||
|
@ -707,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
|
||||
|
@ -722,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
|
||||
|
@ -747,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()
|
||||
|
||||
|
@ -789,12 +963,6 @@ Public Class Form1
|
|||
|
||||
End Sub
|
||||
|
||||
Private Sub IzhodToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles IzhodToolStripMenuItem.Click
|
||||
Me.Close()
|
||||
Application.Exit()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub PosodobitevToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles PosodobitevToolStripMenuItem.Click
|
||||
' Preveri verzijo programa iz Gitea - MultiBox
|
||||
Dim infoVerzija As String = My.Application.Info.Version.Major.ToString + "." + My.Application.Info.Version.Minor.ToString + "." + My.Application.Info.Version.Build.ToString + "." + My.Application.Info.Version.Revision.ToString
|
||||
|
@ -812,7 +980,11 @@ Public Class Form1
|
|||
|
||||
My.Computer.FileSystem.DeleteFile("version.txt")
|
||||
|
||||
If gitVerzija = infoVerzija Then
|
||||
Dim infoVerNum As Integer = CInt(infoVerzija.Replace(".", ""))
|
||||
Dim gitVerNum As Integer = CInt(gitVerzija.Replace(".", ""))
|
||||
Dim verDiff As Integer = gitVerNum - infoVerNum
|
||||
|
||||
If verDiff <= 0 Then
|
||||
Dim Msg, Style, Title, Response
|
||||
|
||||
Msg = "Trenutna verzija: " + infoVerzija + vbCrLf + vbCrLf + "Ni posodobitev..." ' Define message.
|
||||
|
@ -824,7 +996,7 @@ Public Class Form1
|
|||
Else
|
||||
Dim Msg, Style, Title, Response
|
||||
|
||||
Msg = "Trenutna verzija: " + infoVerzija + vbCrLf + "Nova verzija: " + gitVerzija + vbCrLf + vbCrLf + "Odprem stran za prenos?" ' Define message.
|
||||
Msg = "Trenutna verzija: " + infoVerzija.ToString + vbCrLf + "Nova verzija: " + gitVerzija.ToString + vbCrLf + vbCrLf + "Odprem stran za prenos?" ' Define message.
|
||||
Title = "Preverjanje posodobitev" ' Define title.
|
||||
Style = vbYesNo
|
||||
|
||||
|
@ -837,7 +1009,56 @@ Public Class Form1
|
|||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton1_Click_1(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
|
||||
Private Sub ManagerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ManagerToolStripMenuItem.Click, ToolStripButtonpROJ.Click
|
||||
FormGsiJobs.Show()
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click, 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
|
||||
|
|
148
Form2.Designer.vb
generated
|
@ -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,13 +145,13 @@ 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
|
||||
'
|
||||
|
@ -144,7 +159,7 @@ Partial Class Form2
|
|||
'
|
||||
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
|
||||
|
@ -152,7 +167,7 @@ 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
|
||||
'
|
||||
|
@ -160,7 +175,7 @@ Partial Class Form2
|
|||
'
|
||||
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
|
||||
|
@ -168,7 +183,7 @@ 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
|
||||
'
|
||||
|
@ -176,7 +191,7 @@ Partial Class Form2
|
|||
'
|
||||
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
|
||||
|
@ -184,7 +199,7 @@ 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
|
||||
'
|
||||
|
@ -192,7 +207,7 @@ Partial Class Form2
|
|||
'
|
||||
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
|
||||
|
@ -200,7 +215,7 @@ 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
|
||||
'
|
||||
|
@ -208,7 +223,7 @@ Partial Class Form2
|
|||
'
|
||||
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
|
||||
|
@ -216,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
|
||||
'
|
||||
|
@ -224,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..."
|
||||
'
|
||||
|
@ -255,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"
|
||||
|
@ -273,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()
|
||||
|
||||
|
@ -303,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
|
||||
|
|
|
@ -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>
|
||||
|
|
5
Form2.vb
|
@ -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
|
@ -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
190
FormGrafika.vb
Normal 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
|
@ -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
348
FormGsiJobs.vb
Normal 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
|
@ -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
95
FormIzracunMeasure.vb
Normal 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
|
|
@ -65,10 +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
|
||||
|
|
2
My Project/Application.Designer.vb
generated
|
@ -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()> _
|
||||
|
|
|
@ -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>
|
||||
|
|
|
@ -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.8")>
|
||||
<Assembly: AssemblyFileVersion("2.7.0.8")>
|
||||
<Assembly: AssemblyVersion("2.8.0.2")>
|
||||
<Assembly: AssemblyFileVersion("2.8.0.2")>
|
||||
<Assembly: NeutralResourcesLanguage("sl-SI")>
|
||||
|
|
BIN
My Project/Icons/calculator.png
Normal file
After Width: | Height: | Size: 12 KiB |
BIN
My Project/Icons/digital.png
Normal file
After Width: | Height: | Size: 6.4 KiB |
BIN
My Project/Icons/digital_24.png
Normal file
After Width: | Height: | Size: 652 B |
BIN
My Project/Icons/digital_32.png
Normal file
After Width: | Height: | Size: 713 B |
BIN
My Project/Icons/google-sheets.png
Normal file
After Width: | Height: | Size: 9.3 KiB |
BIN
My Project/Icons/icons8-add-to-collection-50.png
Normal file
After Width: | Height: | Size: 2.0 KiB |
Before Width: | Height: | Size: 671 B After Width: | Height: | Size: 953 B |
BIN
My Project/Icons/icons8-advance2-24.png
Normal file
After Width: | Height: | Size: 514 B |
BIN
My Project/Icons/icons8-advance2-48.png
Normal file
After Width: | Height: | Size: 1.0 KiB |
BIN
My Project/Icons/icons8-caps-lock-on-24.png
Normal file
After Width: | Height: | Size: 762 B |
BIN
My Project/Icons/icons8-close-24.png
Normal file
After Width: | Height: | Size: 894 B |
BIN
My Project/Icons/icons8-day-view-40.png
Normal file
After Width: | Height: | Size: 203 B |
BIN
My Project/Icons/icons8-document-50.png
Normal file
After Width: | Height: | Size: 599 B |
BIN
My Project/Icons/icons8-documents-folder-50.png
Normal file
After Width: | Height: | Size: 1.1 KiB |
BIN
My Project/Icons/icons8-edit-text-file-50.png
Normal file
After Width: | Height: | Size: 934 B |
BIN
My Project/Icons/icons8-error-24.png
Normal file
After Width: | Height: | Size: 714 B |
BIN
My Project/Icons/icons8-file-50.png
Normal file
After Width: | Height: | Size: 403 B |
BIN
My Project/Icons/icons8-file-GSI-50.png
Normal file
After Width: | Height: | Size: 2.5 KiB |
BIN
My Project/Icons/icons8-file-TXT-50.png
Normal file
After Width: | Height: | Size: 2.5 KiB |
BIN
My Project/Icons/icons8-folder-tree-50.png
Normal file
After Width: | Height: | Size: 1.5 KiB |
BIN
My Project/Icons/icons8-micro-sd-50.png
Normal file
After Width: | Height: | Size: 1.6 KiB |
BIN
My Project/Icons/icons8-move-to-folder-24.png
Normal file
After Width: | Height: | Size: 733 B |
BIN
My Project/Icons/icons8-print-48.png
Normal file
After Width: | Height: | Size: 471 B |
BIN
My Project/Icons/icons8-print-48_1.png
Normal file
After Width: | Height: | Size: 396 B |
BIN
My Project/Icons/icons8-print-94.png
Normal file
After Width: | Height: | Size: 16 KiB |
BIN
My Project/Icons/icons8-product-documents-24.png
Normal file
After Width: | Height: | Size: 835 B |
BIN
My Project/Icons/icons8-product-documents-50.png
Normal file
After Width: | Height: | Size: 1.1 KiB |
BIN
My Project/Icons/icons8-recycle-bin-24.png
Normal file
After Width: | Height: | Size: 1022 B |
BIN
My Project/Icons/icons8-recycle-bin-50.png
Normal file
After Width: | Height: | Size: 1.9 KiB |
BIN
My Project/Icons/icons8-remove-24.png
Normal file
After Width: | Height: | Size: 837 B |
BIN
My Project/Icons/icons8-remove-50.png
Normal file
After Width: | Height: | Size: 1.2 KiB |
BIN
My Project/Icons/icons8-rename-20.png
Normal file
After Width: | Height: | Size: 550 B |
BIN
My Project/Icons/icons8-rename-24.png
Normal file
After Width: | Height: | Size: 708 B |
BIN
My Project/Icons/icons8-sd-50.png
Normal file
After Width: | Height: | Size: 1.6 KiB |
BIN
My Project/Icons/icons8-sd-import-50.png
Normal file
After Width: | Height: | Size: 3.1 KiB |
BIN
My Project/Icons/icons8-sd-import2-50.png
Normal file
After Width: | Height: | Size: 3.3 KiB |
BIN
My Project/Icons/icons8-sdb-50.png
Normal file
After Width: | Height: | Size: 2.3 KiB |
BIN
My Project/Icons/icons8-sdb-import-50.png
Normal file
After Width: | Height: | Size: 2.7 KiB |
BIN
My Project/Icons/icons8-table-48.png
Normal file
After Width: | Height: | Size: 1.2 KiB |
BIN
My Project/Icons/icons8-tree-structure-50.png
Normal file
After Width: | Height: | Size: 613 B |
BIN
My Project/Icons/microsoft.png
Normal file
After Width: | Height: | Size: 791 B |
470
My Project/Resources.Designer.vb
generated
|
@ -411,6 +411,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property calculator() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("calculator", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -421,6 +431,36 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property digital() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("digital", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property digital_24() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("digital_24", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property digital_32() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("digital_32", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -431,6 +471,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property google_sheets() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("google-sheets", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -451,6 +501,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_add_to_collection_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-add-to-collection-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -461,6 +521,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_advance2_24() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-advance2-24", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -481,6 +551,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_caps_lock_on_24() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-caps-lock-on-24", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -491,6 +571,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_caps_lock_on_501() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-caps-lock-on-501", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -501,6 +591,26 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_check_file_501() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-check-file-501", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_checklist_48() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-checklist-48", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -511,6 +621,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_close_24() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-close-24", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -531,6 +651,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_compare_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-compare-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -541,6 +671,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_day_view_40() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-day-view-40", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -591,6 +731,66 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_edit_text_file_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-edit-text-file-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_error_24() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-error-24", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_error_48() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-error-48", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_file_GSI_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-file-GSI-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_file_path_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-file-path-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_file_TXT_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-file-TXT-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -601,6 +801,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_folder_tree_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-folder-tree-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -641,6 +851,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_list_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-list-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -651,6 +871,36 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_mesh_48() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-mesh-48", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_micro_sd_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-micro-sd-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_move_to_folder_24() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-move-to-folder-24", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -661,6 +911,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_my_location_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-my-location-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -701,6 +961,56 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_print_48() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-print-48", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_print_48_1() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-print-48_1", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_print_94() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-print-94", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_product_documents_24() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-product-documents-24", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_product_documents_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-product-documents-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -721,6 +1031,76 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_recycle_bin_24() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-recycle-bin-24", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_recycle_bin_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-recycle-bin-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_remove_24() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-remove-24", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_remove_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-remove-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_rename_20() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-rename-20", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_rename_24() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-rename-24", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_rename_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-rename-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -741,6 +1121,66 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_scroll_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-scroll-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_sd_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-sd-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_sd_import_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-sd-import-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_sd_import2_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-sd-import2-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_sdb_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-sdb-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_sdb_import_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-sdb-import-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -751,6 +1191,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_stationery_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-stationery-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -761,6 +1211,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_table_48() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-table-48", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
@ -771,6 +1231,16 @@ Namespace My.Resources
|
|||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
Friend ReadOnly Property icons8_tree_structure_50() As System.Drawing.Bitmap
|
||||
Get
|
||||
Dim obj As Object = ResourceManager.GetObject("icons8-tree-structure-50", resourceCulture)
|
||||
Return CType(obj,System.Drawing.Bitmap)
|
||||
End Get
|
||||
End Property
|
||||
|
||||
'''<summary>
|
||||
''' Looks up a localized resource of type System.Drawing.Bitmap.
|
||||
'''</summary>
|
||||
|
|
|
@ -130,11 +130,17 @@
|
|||
<data name="icons8-send-file-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-send-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-move-to-folder-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-move-to-folder-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="58" xml:space="preserve">
|
||||
<value>Prism constant</value>
|
||||
</data>
|
||||
<data name="icons8-question-mark-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-question-mark-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="icons8-compare-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-compare-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8_info_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-info-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="49" xml:space="preserve">
|
||||
<value>Information 8</value>
|
||||
|
@ -157,18 +163,45 @@
|
|||
<data name="icons8_done_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-done-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="digital_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\digital_24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8_unavailable_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-unavailable-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-rotate-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-rotate-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8_folder_50_2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-folder-50-2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="icons8-micro-sd-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-micro-sd-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-table-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-table-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-sd-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-sd-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="calculator" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\calculator.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-print-94" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-print-94.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-file-TXT-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-file-TXT-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-sdb-import-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-sdb-import-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="TPS1100CNVRT_logo" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\TPS1100CNVRT_logo.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-remove-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-remove-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-my-location-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-my-location-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="76" xml:space="preserve">
|
||||
<value>Remark 6</value>
|
||||
</data>
|
||||
|
@ -184,23 +217,44 @@
|
|||
<data name="icons8_ok_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-ok-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-file-GSI-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-file-GSI-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="83" xml:space="preserve">
|
||||
<value>Elevation</value>
|
||||
</data>
|
||||
<data name="icons8-sd-import-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-sd-import-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="Circled_Right_2_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\Circled-Right-2-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8_open_end_wrench_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-open-end-wrench-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="icons8-rename-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-rename-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8_info_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-info-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="icons8-caps-lock-on-501" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-caps-lock-on-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-edit-text-file-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-edit-text-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="82" xml:space="preserve">
|
||||
<value>Northing</value>
|
||||
</data>
|
||||
<data name="icons8-close-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-close-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="12" xml:space="preserve">
|
||||
<value>Serial number</value>
|
||||
</data>
|
||||
<data name="icons8_close_window_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-close-window-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="icons8_folder_50_2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-folder-50-2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-remove-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-remove-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8_add_new_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-add-new-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8_cancel_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-cancel-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
|
@ -211,29 +265,47 @@
|
|||
<data name="85" xml:space="preserve">
|
||||
<value>St. Northing</value>
|
||||
</data>
|
||||
<data name="59" xml:space="preserve">
|
||||
<value>PPM</value>
|
||||
<data name="icons8-checklist-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-checklist-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="86" xml:space="preserve">
|
||||
<value>St. Height</value>
|
||||
</data>
|
||||
<data name="icons8-product-documents-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-product-documents-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8_information_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-information-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="digital" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\digital.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-add-to-collection-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-add-to-collection-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="43" xml:space="preserve">
|
||||
<value>Information 2</value>
|
||||
</data>
|
||||
<data name="icons8_close_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-close-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-sdb-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-sdb-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8_clear_symbol_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-clear-symbol-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="81" xml:space="preserve">
|
||||
<value>Easting</value>
|
||||
</data>
|
||||
<data name="icons8_edit_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-edit-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-support-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-support-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="25" xml:space="preserve">
|
||||
<value>Horizontal Angle Correction</value>
|
||||
<data name="icons8-scroll-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-scroll-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="79" xml:space="preserve">
|
||||
<value>Remark 9</value>
|
||||
|
@ -241,11 +313,20 @@
|
|||
<data name="Save_as_24" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\Save-as-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="41" xml:space="preserve">
|
||||
<value>Code-Block ID</value>
|
||||
</data>
|
||||
<data name="74" xml:space="preserve">
|
||||
<value>Remark 4</value>
|
||||
</data>
|
||||
<data name="icons8_tools_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-tools-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="icons8-check-file-501" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-check-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-caps-lock-on-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-caps-lock-on-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-caps-lock-on-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-caps-lock-on-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8_drawing_compass_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-drawing-compass-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
|
@ -253,24 +334,39 @@
|
|||
<data name="icons8-menu-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-menu-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-error-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-error-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="44" xml:space="preserve">
|
||||
<value>Information 3</value>
|
||||
</data>
|
||||
<data name="icons8_land_surveying_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-land-surveying-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="46" xml:space="preserve">
|
||||
<value>Information 5</value>
|
||||
</data>
|
||||
<data name="72" xml:space="preserve">
|
||||
<value>Remark 2</value>
|
||||
</data>
|
||||
<data name="11" xml:space="preserve">
|
||||
<value>Point number</value>
|
||||
</data>
|
||||
<data name="31" xml:space="preserve">
|
||||
<value>Slope distance</value>
|
||||
</data>
|
||||
<data name="icons8_info_squared_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-info-squared-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-tree-structure-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-tree-structure-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-list-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-list-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-error-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-error-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="digital_32" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\digital_32.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-check-file-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-check-file-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
|
@ -286,26 +382,50 @@
|
|||
<data name="88" xml:space="preserve">
|
||||
<value>Instrument height</value>
|
||||
</data>
|
||||
<data name="icons8-program-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-program-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="icons8_tools_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-tools-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-file-path-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-file-path-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="42" xml:space="preserve">
|
||||
<value>Information 1</value>
|
||||
</data>
|
||||
<data name="icons8-question-mark-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-question-mark-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="19" xml:space="preserve">
|
||||
<value>Time</value>
|
||||
</data>
|
||||
<data name="icons8-print-48_1" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-print-48_1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8_no_entry_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-no-entry-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-program-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-program-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-recycle-bin-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-recycle-bin-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8_save_as_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-save-as-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-move-to-folder-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-move-to-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="icons8-sd-import2-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-sd-import2-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-day-view-40" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-day-view-40.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="README" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>..\README.md;System.String, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089;utf-8</value>
|
||||
</data>
|
||||
<data name="81" xml:space="preserve">
|
||||
<value>Easting</value>
|
||||
<data name="icons8_open_end_wrench_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-open-end-wrench-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-folder-tree-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-folder-tree-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8_connection_status_on_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-connection-status-on-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
|
@ -325,17 +445,29 @@
|
|||
<data name="icons8_advance_48" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-advance-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="46" xml:space="preserve">
|
||||
<value>Information 5</value>
|
||||
<data name="icons8-product-documents-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-product-documents-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="82" xml:space="preserve">
|
||||
<value>Northing</value>
|
||||
<data name="icons8-stationery-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-stationery-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="google-sheets" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\google-sheets.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="87" xml:space="preserve">
|
||||
<value>Reflector height</value>
|
||||
</data>
|
||||
<data name="icons8_add_new_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-add-new-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="59" xml:space="preserve">
|
||||
<value>PPM</value>
|
||||
</data>
|
||||
<data name="icons8-rename-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-rename-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-move-to-folder-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-move-to-folder-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-advance2-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-advance2-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8_browse_folder_50_2" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-browse-folder-50-2.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
|
@ -346,11 +478,17 @@
|
|||
<data name="32" xml:space="preserve">
|
||||
<value>Horizontal distance</value>
|
||||
</data>
|
||||
<data name="icons8_edit_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-edit-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="icons8-mesh-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-mesh-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="41" xml:space="preserve">
|
||||
<value>Code-Block ID</value>
|
||||
<data name="icons8-recycle-bin-24" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-recycle-bin-24.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="31" xml:space="preserve">
|
||||
<value>Slope distance</value>
|
||||
</data>
|
||||
<data name="25" xml:space="preserve">
|
||||
<value>Horizontal Angle Correction</value>
|
||||
</data>
|
||||
<data name="21" xml:space="preserve">
|
||||
<value>Horizontal Angle</value>
|
||||
|
@ -358,10 +496,13 @@
|
|||
<data name="84" xml:space="preserve">
|
||||
<value>St. Easting</value>
|
||||
</data>
|
||||
<data name="42" xml:space="preserve">
|
||||
<value>Information 1</value>
|
||||
<data name="icons8_close_window_50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-close-window-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-caps-lock-on-50" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-caps-lock-on-50.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
<data name="icons8-print-48" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-print-48.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
<data name="icons8-rename-20" type="System.Resources.ResXFileRef, System.Windows.Forms">
|
||||
<value>Icons\icons8-rename-20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
|
||||
</data>
|
||||
</root>
|
24
My Project/Settings.Designer.vb
generated
|
@ -308,6 +308,30 @@ Namespace My
|
|||
Me("KodaStojisceOri") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("Virtualna Kartica")> _
|
||||
Public Property Projekt() As String
|
||||
Get
|
||||
Return CType(Me("Projekt"),String)
|
||||
End Get
|
||||
Set
|
||||
Me("Projekt") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<Global.System.Configuration.UserScopedSettingAttribute(), _
|
||||
Global.System.Diagnostics.DebuggerNonUserCodeAttribute(), _
|
||||
Global.System.Configuration.DefaultSettingValueAttribute("Virtualna Kartica\GSI")> _
|
||||
Public Property ProjektMapa() As String
|
||||
Get
|
||||
Return CType(Me("ProjektMapa"),String)
|
||||
End Get
|
||||
Set
|
||||
Me("ProjektMapa") = value
|
||||
End Set
|
||||
End Property
|
||||
End Class
|
||||
End Namespace
|
||||
|
||||
|
|
|
@ -65,5 +65,11 @@
|
|||
<Setting Name="KodaStojisceOri" Type="System.String" Scope="User">
|
||||
<Value Profile="(Default)">3</Value>
|
||||
</Setting>
|
||||
<Setting Name="Projekt" Type="System.String" Scope="User">
|
||||
<Value Profile="(Default)">Virtualna Kartica</Value>
|
||||
</Setting>
|
||||
<Setting Name="ProjektMapa" Type="System.String" Scope="User">
|
||||
<Value Profile="(Default)">Virtualna Kartica\GSI</Value>
|
||||
</Setting>
|
||||
</Settings>
|
||||
</SettingsFile>
|
Before Width: | Height: | Size: 47 KiB After Width: | Height: | Size: 68 KiB |
Before Width: | Height: | Size: 79 KiB After Width: | Height: | Size: 102 KiB |
Before Width: | Height: | Size: 91 KiB After Width: | Height: | Size: 44 KiB |
27
README.md
|
@ -13,10 +13,17 @@ Enostavna priprava in izvoz podatkov meritev v različnih oblikah...
|
|||
Program uporablja kodiranje podatkov za prepoznavo posameznih elementov meritev.
|
||||
<br>
|
||||
|
||||
Aplikacija je še v razvoju, zato so nekatere možnosti omejene.<br>
|
||||
Prav tako je trenutno potreben točno določen vrstni red zapisa podatkov v GSI datotekah.
|
||||
Prenos aplikacije je dostopen preko te [**bližnjice**](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/releases/download/latest/TPS1100-Convert_2.7.0.9.zip).
|
||||
Za več informacij obišči stran [Releases](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/releases).
|
||||
|
||||
Zgodovino posodobite si lahko preberete [tukaj](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/src/branch/main/CHANGELOG.md)
|
||||
Dokumentacija in Navodila so na [Wiki](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/wiki).
|
||||
|
||||
|
||||
---
|
||||
|
||||
Aplikacija je v aktivnem razvoju.<br>
|
||||
|
||||
Zgodovino razvoja si preberite [CHANGELOG.md](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/src/branch/main/CHANGELOG.md)
|
||||
|
||||
Izdelal: Boris Bilc
|
||||
|
||||
|
@ -24,24 +31,10 @@ Programski jezik: VB.NET
|
|||
|
||||
---
|
||||
|
||||
## Kodiranje Podatkov
|
||||
|
||||
| Koda | Podatki |
|
||||
|------|------------------------|
|
||||
| 10 | Quick Set |
|
||||
| 20 | Set Azimuth |
|
||||
| 30 | Resection |
|
||||
| 40 | Free Station |
|
||||
| 50 | Ori. and Ht. Transfer |
|
||||
| 90 | Measured Data |
|
||||
| 99 | Imported/User Data |
|
||||
|
||||
|
||||
## Posnetki Programa
|
||||
|
||||
!["slika1"](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/My%20Project/img/screen1.png)
|
||||
!["slika2"](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/My%20Project/img/screen2.png)
|
||||
!["slika2a"](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/My%20Project/img/screen2a.png)
|
||||
!["slika2b"](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/My%20Project/img/screen2b.png)
|
||||
!["slika3"](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/My%20Project/img/screen3.png)
|
||||
!["slika3"](https://multibox.nohost.me/gitea/boris/TPS1100-Convert/raw/branch/main/My%20Project/img/screen4.png)
|
||||
|
|