115 lines
9.6 KiB
VB.net
115 lines
9.6 KiB
VB.net
Imports System.IO
|
||
|
||
Public Class frmMain
|
||
'Dim Ini(100) As String
|
||
'Dim EndIni As Integer
|
||
|
||
Public Filepath As String = System.Environment.CurrentDirectory
|
||
|
||
|
||
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
|
||
'frmCommunicatie.Owner = Me
|
||
'ReadIni()
|
||
Try
|
||
frmCommunicatie.Visible = True
|
||
frmCommunicatie.WindowState = FormWindowState.Minimized
|
||
Catch ex As Exception
|
||
MessageBox.Show(ex.ToString)
|
||
End Try
|
||
|
||
End Sub
|
||
'Sub ReadIni()
|
||
' Dim x As Integer = 0
|
||
' If File.Exists(Filepath & "\Configtool.ini") Then
|
||
' FileOpen(1, Filepath & "\Configtool.ini", OpenMode.Input)
|
||
' While Not EOF(1)
|
||
' Ini(x) = LineInput(1)
|
||
' x += 1
|
||
' End While
|
||
' EndIni = x
|
||
' FileClose(1)
|
||
' Else
|
||
' MessageBox.Show("Configtool.ini niet gevonden, programma wordt nu afgesloten", "Fout", MessageBoxButtons.OK, MessageBoxIcon.Error)
|
||
' End If
|
||
'End Sub
|
||
|
||
Private Sub TreeView_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TreeView.DoubleClick
|
||
'Dim x
|
||
'For x = 0 To EndIni
|
||
' If Ini(x) = TreeView.SelectedNode.Tag Then
|
||
' OpenForm()
|
||
' Exit Sub
|
||
' End If
|
||
'Next
|
||
|
||
OpenForm()
|
||
|
||
'For Each item As String In TreeView.Nodes
|
||
' Debug.Write(item & " ")
|
||
'Next
|
||
|
||
|
||
'MessageBox.Show("Dit configuratiescherm is voor u niet toegankelijk", "Geblokkeerd", MessageBoxButtons.OK, MessageBoxIcon.Asterisk)
|
||
End Sub
|
||
Sub OpenForm()
|
||
Select Case TreeView.SelectedNode.Tag
|
||
Case "TEST1"
|
||
Me.WindowState = FormWindowState.Minimized
|
||
frmGeavanceerdeTest1.Visible = True
|
||
Case "TEST2"
|
||
Me.WindowState = FormWindowState.Minimized
|
||
frmGeavanceerdeTest2.Visible = True
|
||
Case "TEST3"
|
||
Me.WindowState = FormWindowState.Minimized
|
||
frmPATest2.Visible = True
|
||
Case "EEPROM1"
|
||
Me.WindowState = FormWindowState.Minimized
|
||
frmEEPROM.Visible = True
|
||
Case "H0408"
|
||
Me.WindowState = FormWindowState.Minimized
|
||
frmConfigH0408.Visible = True
|
||
Case "H0501"
|
||
Me.WindowState = FormWindowState.Minimized
|
||
frmConfigH0501.Visible = True
|
||
Case "H0502"
|
||
Me.WindowState = FormWindowState.Minimized
|
||
frmConfigH0502.Visible = True
|
||
Case "TIMEMACHINE"
|
||
Me.WindowState = FormWindowState.Minimized
|
||
frmH0504simple.Visible = True
|
||
'frmH0504simple.Tag = Filepath
|
||
frmH0504simple.Filepath = Filepath
|
||
Case "HELP"
|
||
Me.WindowState = FormWindowState.Minimized
|
||
frmHelp.Visible = True
|
||
End Select
|
||
End Sub
|
||
|
||
Private Sub TreeView_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView.AfterSelect
|
||
Select Case TreeView.SelectedNode.Tag
|
||
Case "H0501" : LabelInfo.Text = "Configuren van de standaard mini I/O box"
|
||
Case "H0502" : LabelInfo.Text = "Configuren van de PA interface"
|
||
Case "H0503" : LabelInfo.Text = "Configuren van de mini I/O box met analoge ingangen"
|
||
Case "H0504" : LabelInfo.Text = "Configuren van de UCS time machine"
|
||
Case "H0408" : LabelInfo.Text = "Configuren van de grote I/O box met RS232 interface"
|
||
Case "EEPROM1" : LabelInfo.Text = "EEPROM debug scherm met hex editor"
|
||
Case "TEST1" : LabelInfo.Text = "Testscherm UCS protocol 3.0"
|
||
Case "TEST2" : LabelInfo.Text = "Testscherm UCS protocol 1.1 en 2.0"
|
||
Case "TEST3" : LabelInfo.Text = "Testscherm PA systeem protocol 1.1 en 2.0"
|
||
Case "CONFIG" : LabelInfo.Text = "Dubbelklik op de optie hieronder om naar het gewenste scherm te gaan."
|
||
Case "HELP" : LabelInfo.Text = "Informatie m.b.t. protocollen en andere onzinnigheden"
|
||
Case "TIMEMACHINE" : LabelInfo.Text = "Time Machine configuratie, alleen geschikt voor tijdfuncties. Voor bit configuraties e.d. H0504 selecteren"
|
||
End Select
|
||
End Sub
|
||
|
||
Private Sub Label2_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label2.DoubleClick
|
||
If Label2.Tag = "" Then
|
||
Label2.Text = "ЮКС Конфигтул"
|
||
LabelInfo.Text = Filepath
|
||
Label2.Tag = "ru"
|
||
Else
|
||
Label2.Text = "UCS Configtool"
|
||
Label2.Tag = ""
|
||
End If
|
||
End Sub
|
||
End Class |