PluginForm.vb

Imports System.Threading
Imports System.Windows.Forms

Friend Class PluginForm
    Private UC As Plugininterface.Entry
    Dim PluginMain As UCCNCplugin
    Friend WithEvents Settings As Settings
    Dim MustClose As Boolean = False
    Dim WheelDelta As Integer = 120
    Dim zpos As Double = 0
    Dim stp As Double = 0.0001
    Dim direction As Direction = Direction.X

    Dim deftbcolor As Drawing.Color



    Public Sub New(CallerPluginMain As UCCNCplugin)
        Me.UC = CallerPluginMain.UC
        Me.PluginMain = CallerPluginMain
        InitializeComponent()

    End Sub

    Public Shared Sub Main()

    End Sub

    Private Sub PluginForm_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        WheelDelta = SystemInformation.MouseWheelScrollDelta


        deftbcolor = BTN_Settings.BackColor

        LoadSettings()

        updateLabels()

    End Sub

    Public Sub LoadSettings() Handles Settings.SettingsChanged
        Me.Settings = Me.PluginMain.Settings

        If Me.Settings.imperial Then
            BTN_00001.Visible = True
            BTN_1.Visible = False

            If stp >= 1 Then stp = 0.1
        Else
            BTN_00001.Visible = False
            BTN_1.Visible = True

            If stp = 0.0001 Then stp = 0.001
        End If

        updateLabels()
    End Sub

    Private Sub PluginForm_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        ' Do not close the form when the red X button is pressed
        ' But start a Thread which will stop the Loop call from the UCCNC
        ' to prevent the form closing while there is a GUI update in the Loop event
        If Not MustClose Then
            e.Cancel = True
            Dim thrClose As New Thread(Sub() Closeform())
            thrClose.CurrentCulture = Thread.CurrentThread.CurrentCulture ' Preserve regional settings
            thrClose.Start()
        Else
            ' Form is closing here...
        End If
    End Sub
    Delegate Sub CloseformDeletage()

    Public Sub Closeform()

        If Me.InvokeRequired Then
            Me.Invoke(New CloseformDeletage(AddressOf Closeform))
            Return
        End If

        ' Stop the Loop event to update the GUI
        PluginMain.LoopStop = True
        ' Wait until the loop exited
        While (PluginMain.LoopWorking)
            Thread.Sleep(10)
        End While
        ' Set the mustclose variable to true and call the .Close() function to close the Form
        MustClose = True
        Me.Close()
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs)

    End Sub

    Private Sub PictureBox1_MouseWheel(sender As Object, e As MouseEventArgs)

    End Sub

    Private Sub PluginForm_MouseWheel(sender As Object, e As MouseEventArgs) Handles Me.MouseWheel


    End Sub

    Private Sub jog(steps As Integer)
        Dim dist As Double = steps * stp

        UC.AddLinearMoveRel(CInt(direction), stp, Math.Abs(steps), Settings.feedrate, steps < 0)

        updateLabels()

    End Sub



    Delegate Sub DebugWriteLineDelegate(text As String)

    Sub DebugWriteLine(text As String)
        If (Me.InvokeRequired) Then
            Me.Invoke(New DebugWriteLineDelegate(AddressOf DebugWriteLine), text)
            Return
        End If
        txt_Debug.AppendText(text & vbNewLine)
    End Sub

    Private Sub updateLabels()
        BTN_00001.BackColor = deftbcolor
        BTN_0001.BackColor = deftbcolor
        BTN_001.BackColor = deftbcolor
        BTN_01.BackColor = deftbcolor
        BTN_1.BackColor = deftbcolor


        BTN_X.BackColor = deftbcolor
        BTN_Y.BackColor = deftbcolor
        BTN_Z.BackColor = deftbcolor

        If stp = 0.0001 Then
            BTN_00001.BackColor = Drawing.Color.Green
        End If
        If stp = 0.001 Then
            BTN_0001.BackColor = Drawing.Color.Green
        End If
        If stp = 0.01 Then
            BTN_001.BackColor = Drawing.Color.Green
        End If
        If stp = 0.1 Then
            BTN_01.BackColor = Drawing.Color.Green
        End If
        If stp = 1 Then
            BTN_1.BackColor = Drawing.Color.Green
        End If

        If direction = Direction.X Then
            BTN_X.BackColor = Drawing.Color.Green
        End If

        If direction = Direction.Y Then
            BTN_Y.BackColor = Drawing.Color.Green
        End If

        If direction = Direction.Z Then
            BTN_Z.BackColor = Drawing.Color.Green
        End If


    End Sub

    Private Sub BTN_X_Click(sender As Object, e As EventArgs) Handles BTN_X.Click
        direction = Direction.X
        updateLabels()
    End Sub
    Private Sub BTN_y_Click(sender As Object, e As EventArgs) Handles BTN_Y.Click
        direction = Direction.Y
        updateLabels()
    End Sub
    Private Sub BTN_z_Click(sender As Object, e As EventArgs) Handles BTN_Z.Click
        direction = Direction.Z
        updateLabels()
    End Sub

    Private Sub BTN_00001_Click(sender As Object, e As EventArgs) Handles BTN_00001.Click
        stp = 0.0001
        updateLabels()
    End Sub

    Private Sub BTN_0001_Click(sender As Object, e As EventArgs) Handles BTN_0001.Click
        stp = 0.001
        updateLabels()
    End Sub

    Private Sub BTN_001_Click(sender As Object, e As EventArgs) Handles BTN_001.Click
        stp = 0.01
        updateLabels()
    End Sub

    Private Sub BTN_01_Click(sender As Object, e As EventArgs) Handles BTN_01.Click
        stp = 0.1
        updateLabels()
    End Sub
    Private Sub BTN_1_Click(sender As Object, e As EventArgs) Handles BTN_1.Click
        stp = 1
        updateLabels()
    End Sub

    Private Sub MPG_BOX_Click(sender As Object, e As EventArgs) Handles MPG_BOX.Click

    End Sub

    Private Sub MPG_BOX_MouseWheel(sender As Object, e As MouseEventArgs) Handles MPG_BOX.MouseWheel
        Dim steps As Integer = e.Delta / WheelDelta
        jog(steps)
    End Sub

    Private Sub PluginForm_Activated(sender As Object, e As EventArgs) Handles Me.Activated
        LoadSettings()

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles BTN_Settings.Click
        Dim f = New ConfigForm(Me.PluginMain)
        f.ShowDialog()
        LoadSettings()
    End Sub

End Class

Public Enum Direction
    X
    Y
    Z
End Enum

Public Class Move
    Property direction As Direction
    Property distance As Double
End Class