Improved change UI feature

2016-07-13 17:03:40 +08:00
parent 457fec8a9d
commit 0b70069416
25 changed files with 129 additions and 68 deletions
@@ -48,3 +48,4 @@ $RECYCLE.BIN/
 Network Trash Folder
 Temporary Items
 .apdisk
+*.exe
@@ -118,11 +118,11 @@ Public Class Form1
            MessageBox.Show("Already using " & m_UI.Version & " Nextest UI Version", "Change UI", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Exit Sub
        Else
-            Dim result As Integer
-            result = MessageBox.Show("Are you sure you want to change UI Version from " & m_UI.Version & " to " & sender.ToString, "Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
-            If result = vbNo Then
-                Exit Sub
-            End If
+            'Dim result As Integer
+            'result = MessageBox.Show("Are you sure you want to change UI Version from " & m_UI.Version & " to " & sender.ToString, "Confirmation", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
+            'If result = vbNo Then
+            '    Exit Sub
+            'End If
        End If

        frm_changeui.targetui = sender.ToString
@@ -187,7 +187,7 @@ Partial Class frm_changeui
        Me.Button1.Name = "Button1"
        Me.Button1.Size = New System.Drawing.Size(271, 26)
        Me.Button1.TabIndex = 26
-        Me.Button1.Text = "Cancel"
+        Me.Button1.Text = "Proceed"
        Me.Button1.UseVisualStyleBackColor = True
        '
        'frm_changeui
@@ -1,17 +1,18 @@
 Public Class frm_changeui
    Dim skip As Boolean = False
-    Dim ongoing As Boolean = True
+    Dim status As Integer = 0
    Public targetui As String

    Private Sub frm_changeui_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
-        If ongoing Then
+        If status = 1 Then
            If vbNo = MsgBox("Change UI is still in progress." & vbNewLine & "Are you sure you want to cancel?" & vbNewLine & "(This may cause unexpected behavior)", vbYesNo + vbExclamation, "Confirm") Then
                e.Cancel = True
            Else
-                bw_changeui.CancelAsync()
+                status = 0
                Form1.WindowState = FormWindowState.Normal
            End If
        Else
+            status = 0
            Form1.WindowState = FormWindowState.Normal
        End If

@@ -19,25 +20,14 @@

    Private Sub frm_changeui_Load(sender As Object, e As EventArgs) Handles Me.Load
        Form1.WindowState = FormWindowState.Minimized
-        bw_changeui.RunWorkerAsync()
    End Sub

-
-    Private Sub frm_changeui_Shown(sender As Object, e As EventArgs) Handles Me.Shown
-       
-    End Sub
-
-
    Private Sub lbl_skip_MouseUp(sender As Object, e As MouseEventArgs)
        skip = True
    End Sub

-    Private Sub Button1_Click(sender As Object, e As EventArgs)
-        Me.Close()
-    End Sub
-
-    Private Sub bw_changeui_DoWork(sender As Object, e As System.ComponentModel.DoWorkEventArgs) Handles bw_changeui.DoWork
-        ongoing = True
+    Private Sub change_ui()
+        status = 1
        lbl_caldata.Text = "Copying ""caldata_" & targetui.Replace(".", "") & """ to ""caldata"""
        lbl_caldata_warning.Text = ""
        lbl_testhead_warning.Text = ""
@@ -46,13 +36,16 @@
        lbl_caldata.ForeColor = Color.Gray
        Label3.ForeColor = Color.Gray
        Label4.ForeColor = Color.Gray
+
        Dim ping_result As Boolean = True
+        Dim mod_ctr As UInt64 = 0
        While (skip = False And ping_result = True)
-            If My.Computer.Network.IsAvailable Then
+            If My.Computer.Network.IsAvailable And mod_ctr Mod 10 = 0 Then
                ping_result = My.Computer.Network.Ping("10.1.1.1")
            End If
-            System.Threading.Thread.Sleep(1000)
+            System.Threading.Thread.Sleep(100)
            Application.DoEvents()
+            mod_ctr += 1
        End While

        If skip = True Then
@@ -62,38 +55,38 @@
            pic_chk1.BackColor = Color.LimeGreen
        End If

-
-
        skip = False

-
        Label1.ForeColor = Color.Gray
        lbl_caldata.ForeColor = Color.Black
        Label3.ForeColor = Color.Gray
        Label4.ForeColor = Color.Gray

-        Dim tempctr As Integer = 50
+        Dim tempctr As Integer = 30
        While (tempctr > 0)
            System.Threading.Thread.Sleep(100)
            Application.DoEvents()
            tempctr -= 1
        End While
-        'Copy caldata
+
+        'Copy caldata (Ugly code below, I know)
        Dim new_caldata_path As String = "c:\nextest\" & "caldata_" & targetui.Replace(".", "")
        Dim old_caldata_path As String = "c:\nextest\caldata"
-        Dim default_caldata_path As String = "c:\nextest\" & "caldata_" & targetui.Substring(0, 2) & "xxx"
-        If FileIO.FileSystem.DirectoryExists(new_caldata_path) And System.IO.Directory.GetFiles(new_caldata_path).Count > 0 Then
+        Dim def_caldata_path As String = "c:\nextest\" & "caldata_" & targetui.Substring(0, 2) & "xxx"
+        Try
+            If System.IO.Directory.GetFiles(new_caldata_path).Count > 0 Then
+
                If FileIO.FileSystem.DirectoryExists(old_caldata_path) Then
                    FileIO.FileSystem.DeleteDirectory(old_caldata_path, FileIO.DeleteDirectoryOption.DeleteAllContents)
-
                Else
                    FileIO.FileSystem.CreateDirectory(old_caldata_path)
                End If

                FileIO.FileSystem.CopyDirectory(new_caldata_path, old_caldata_path, True)
                pic_chk2.BackColor = Color.LimeGreen
-
-        ElseIf FileIO.FileSystem.DirectoryExists(default_caldata_path) And System.IO.Directory.GetFiles(default_caldata_path).Count > 0 Then
+            Else
+                Try
+                    If System.IO.Directory.GetFiles(def_caldata_path).Count > 0 Then
                        If FileIO.FileSystem.DirectoryExists(old_caldata_path) Then
                            FileIO.FileSystem.DeleteDirectory(old_caldata_path, FileIO.DeleteDirectoryOption.DeleteAllContents)

@@ -101,26 +94,60 @@
                            FileIO.FileSystem.CreateDirectory(old_caldata_path)
                        End If

-            FileIO.FileSystem.CopyDirectory(default_caldata_path, old_caldata_path, True)
-            pic_chk2.BackColor = Color.Black
-            lbl_caldata_warning.Text = "Copying from ""caldata_" & targetui.Substring(0, 2) & "xxx"" to ""caldata"""
+                        FileIO.FileSystem.CopyDirectory(def_caldata_path, old_caldata_path, True)
+                        pic_chk2.BackColor = Color.LimeGreen
+                        lbl_caldata.Text = "Copying from ""caldata_" & targetui.Substring(0, 2) & "xxx"" to ""caldata"""
                    Else
                        pic_chk2.BackColor = Color.Red
                        lbl_caldata_warning.Text = "No available caldata for " & targetui
-            MsgBox("No available caldata for " & targetui & vbNewLine & "Change UI will abort", vbOKOnly + vbCritical, "Abort")
-            ongoing = False
-            Me.Close()
+                        Button1.Text = "Close"
+                        status = 2
                        Exit Sub
                    End If
+                Catch ex2 As Exception
+                    pic_chk2.BackColor = Color.Red
+                    lbl_caldata_warning.Text = "No available caldata for " & targetui
+                    Button1.Text = "Close"
+                    status = 2
+                    Exit Sub
+                End Try
+            End If
+        Catch ex1 As Exception
+            Try
+                If System.IO.Directory.GetFiles(def_caldata_path).Count > 0 Then
+                    If FileIO.FileSystem.DirectoryExists(old_caldata_path) Then
+                        FileIO.FileSystem.DeleteDirectory(old_caldata_path, FileIO.DeleteDirectoryOption.DeleteAllContents)
+
+                    Else
+                        FileIO.FileSystem.CreateDirectory(old_caldata_path)
+                    End If
+
+                    FileIO.FileSystem.CopyDirectory(def_caldata_path, old_caldata_path, True)
+                    pic_chk2.BackColor = Color.LimeGreen
+                    lbl_caldata.Text = "Copying from ""caldata_" & targetui.Substring(0, 2) & "xxx"" to ""caldata"""
+                Else
+                    pic_chk2.BackColor = Color.Red
+                    lbl_caldata_warning.Text = "No available caldata for " & targetui
+                    Button1.Text = "Close"
+                    status = 2
+                    Exit Sub
+                End If
+            Catch ex2 As Exception
+                pic_chk2.BackColor = Color.Red
+                lbl_caldata_warning.Text = "No available caldata for " & targetui
+                Button1.Text = "Close"
+                status = 2
+                Exit Sub
+            End Try
+        End Try

        skip = False

-
        Label1.ForeColor = Color.Gray
        lbl_caldata.ForeColor = Color.Gray
        Label3.ForeColor = Color.Black
        Label4.ForeColor = Color.Gray
-        tempctr = 50
+        tempctr = 30
        While (tempctr > 0)
            System.Threading.Thread.Sleep(100)
            Application.DoEvents()
@@ -142,21 +169,27 @@
        Label3.ForeColor = Color.Gray
        Label4.ForeColor = Color.Black

-        tempctr = 40
+        tempctr = 30
        While (tempctr > 0)
            System.Threading.Thread.Sleep(100)
            Application.DoEvents()
            tempctr -= 1
        End While
-        ongoing = False
+
        pic_chk4.BackColor = Color.LimeGreen

        Button1.Text = "Close"
+        status = 2
    End Sub

-    Private Sub lbl_skip_Click(sender As Object, e As EventArgs)
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If status = 0 Then
+            Button1.Text = "Cancel"
+            Application.DoEvents()
+            change_ui()
+        Else
+            Me.Close()
+        End If

    End Sub
-
-
 End Class
@@ -14,7 +14,7 @@
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
-        <dsig:DigestValue>FBp3GJw6431bPYyCfW+sXfuh/jY=</dsig:DigestValue>
+        <dsig:DigestValue>tYPoBy7udcP1YDWq7pTHz5Roxx8=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
@@ -42,14 +42,14 @@
    </dependentAssembly>
  </dependency>
  <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="nxtuitrack.exe" size="71168">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="nxtuitrack.exe" size="71680">
      <assemblyIdentity name="nxtuitrack" version="2.1.0.0" language="neutral" processorArchitecture="x86" />
      <hash>
        <dsig:Transforms>
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
-        <dsig:DigestValue>Gs0cZ00hkvgR3ydyuF1RRjnmYBM=</dsig:DigestValue>
+        <dsig:DigestValue>pbp/++ayH18OpQ+efzKBU90kHzc=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
@@ -14,7 +14,7 @@
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
-        <dsig:DigestValue>FBp3GJw6431bPYyCfW+sXfuh/jY=</dsig:DigestValue>
+        <dsig:DigestValue>tYPoBy7udcP1YDWq7pTHz5Roxx8=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
@@ -42,14 +42,14 @@
    </dependentAssembly>
  </dependency>
  <dependency>
-    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="nxtuitrack.exe" size="71168">
+    <dependentAssembly dependencyType="install" allowDelayedBinding="true" codebase="nxtuitrack.exe" size="71680">
      <assemblyIdentity name="nxtuitrack" version="2.1.0.0" language="neutral" processorArchitecture="x86" />
      <hash>
        <dsig:Transforms>
          <dsig:Transform Algorithm="urn:schemas-microsoft-com:HashTransforms.Identity" />
        </dsig:Transforms>
        <dsig:DigestMethod Algorithm="http://www.w3.org/2000/09/xmldsig#sha1" />
-        <dsig:DigestValue>Gs0cZ00hkvgR3ydyuF1RRjnmYBM=</dsig:DigestValue>
+        <dsig:DigestValue>pbp/++ayH18OpQ+efzKBU90kHzc=</dsig:DigestValue>
      </hash>
    </dependentAssembly>
  </dependency>
@@ -32,3 +32,20 @@ D:\GitHub\nextesttracker\nxtuitracker\obj\Debug\nxtuitrack.Resources.resources
 D:\GitHub\nextesttracker\nxtuitracker\obj\Debug\nxtuitracker.vbproj.GenerateResource.Cache
 D:\GitHub\nextesttracker\nxtuitracker\obj\Debug\nxtuitrack.exe.manifest
 D:\GitHub\nextesttracker\nxtuitracker\obj\Debug\nxtuitrack.application
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\bin\Debug\nxtuitrack.exe.config
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\obj\Debug\nxtuitrack.exe
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\obj\Debug\nxtuitrack.xml
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\obj\Debug\nxtuitrack.pdb
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\bin\Debug\nxtuitrack.exe.manifest
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\bin\Debug\nxtuitrack.application
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\bin\Debug\nxtuitrack.exe
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\bin\Debug\nxtuitrack.pdb
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\bin\Debug\nxtuitrack.xml
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\obj\Debug\nxtuitrack.Form1.resources
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\obj\Debug\nxtuitrack.frm_env.resources
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\obj\Debug\nxtuitrack.frm_mini.resources
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\obj\Debug\nxtuitrack.frm_changeui.resources
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\obj\Debug\nxtuitrack.Resources.resources
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\obj\Debug\nxtuitracker.vbproj.GenerateResource.Cache
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\obj\Debug\nxtuitrack.exe.manifest
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\nxtuitracker\obj\Debug\nxtuitrack.application
@@ -28,3 +28,13 @@ D:\GitHub\nextesttracker\systemservice\obj\Debug\systemservice.vbproj.GenerateRe
 D:\GitHub\nextesttracker\systemservice\obj\Debug\systemservice.exe
 D:\GitHub\nextesttracker\systemservice\obj\Debug\systemservice.xml
 D:\GitHub\nextesttracker\systemservice\obj\Debug\systemservice.pdb
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\systemservice\bin\Debug\systemservice.exe.config
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\systemservice\bin\Debug\systemservice.exe
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\systemservice\bin\Debug\systemservice.pdb
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\systemservice\bin\Debug\systemservice.xml
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\systemservice\obj\Debug\systemservice.frm_system_svc.resources
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\systemservice\obj\Debug\systemservice.Resources.resources
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\systemservice\obj\Debug\systemservice.vbproj.GenerateResource.Cache
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\systemservice\obj\Debug\systemservice.exe
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\systemservice\obj\Debug\systemservice.xml
+C:\Users\yebreo1\Desktop\Yet Folder\GitHub\nextesttracker\systemservice\obj\Debug\systemservice.pdb