Hello Guest it is March 29, 2024, 09:33:03 AM

Author Topic: Lua script that causes Mach4 not to terminate  (Read 1875 times)

0 Members and 1 Guest are viewing this topic.

Lua script that causes Mach4 not to terminate
« on: October 26, 2015, 07:16:04 PM »
I've a script with some dialog boxes that show up to remind the operator when certain maintenance should be performed.  I used to have this in the startup, but I've relegated it to a button.  For whatever reason when this is run Mach4 will NOT terminate properly when closed, you have to use the task manager.  I upgraded to the newest Mach4 today 10/26/15 with hopes it would correct the issue but it doesn't.

Are there any script monkeys out there that might spot what I'm doing wrong here, I've gone through it and tried different permutations of this code.  It's really quite simple, it's reading values from the profile that are written by other jobs that have run and prompting the operator to take care of whatever needs taken care of.

Thanks!

Again.. this currently run within a button:

    local MyInstance = mc.mcGetInstance()
    local DailyMaintenance={}
    DailyMaintenance = wx.wxDialog (wx.NULL, wx.wxID_ANY, "DailyMaintenance", wx.wxDefaultPosition, wx.wxDefaultSize, wx.wxCAPTION )
    DailyMaintenance:SetSizeHints( wx.wxDefaultSize, wx.wxDefaultSize )

    local bSizer2 = wx.wxBoxSizer( wx.wxVERTICAL )

    bSizer2:SetMinSize( wx.wxSize( 500,-1 ) )
    CheckHoses = wx.wxCheckBox( DailyMaintenance, wx.wxID_ANY, "Check Hoses, fittings and valves for wear or damage.", wx.wxPoint( -1,-1 ), wx.wxDefaultSize, 0 )
    bSizer2:Add( CheckHoses, 0, wx.wxALL, 5 )

    CheckwaterTrap = wx.wxCheckBox( DailyMaintenance, wx.wxID_ANY, "Ensure water trap is clear, and drain if necessary.", wx.wxDefaultPosition, wx.wxDefaultSize, 0 )
    bSizer2:Add( CheckwaterTrap, 0, wx.wxALL, 5 )

    Checkdebris = wx.wxCheckBox( DailyMaintenance, wx.wxID_ANY, "Wipe any excessive debris from ballscrews and guideways", wx.wxDefaultPosition, wx.wxDefaultSize, 0 )
    bSizer2:Add( Checkdebris, 0, wx.wxALL, 5 )

    local m_sdbSizer2 = wx.wxStdDialogButtonSizer()
    local m_sdbSizer2OK = wx.wxButton( DailyMaintenance, wx.wxID_OK, "" )
    m_sdbSizer2:AddButton( m_sdbSizer2OK )
    local m_sdbSizer2Cancel = wx.wxButton( DailyMaintenance, wx.wxID_CANCEL, "" )
    m_sdbSizer2:AddButton( m_sdbSizer2Cancel )
    m_sdbSizer2:Realize();

    bSizer2:Add( m_sdbSizer2, 1, wx.wxEXPAND, 5 )


    DailyMaintenance:SetSizer( bSizer2 )
    DailyMaintenance:Layout()
    bSizer2:Fit( DailyMaintenance )

    DailyMaintenance:Centre( wx.wxBOTH )

    -- Connect Events

    m_sdbSizer2Cancel:Connect( wx.wxEVT_COMMAND_BUTTON_CLICKED, function(event)
    DailyMaintenance:Destroy()
    end )

    m_sdbSizer2OK:Connect( wx.wxEVT_COMMAND_BUTTON_CLICKED, function(event)
    local a= CheckwaterTrap:GetValue()
    local b = CheckHoses:GetValue()
    local c = Checkdebris:GetValue()
    if ( a and b and c ) == true then                 
      mc.mcProfileWriteString(MyInstance , "DrumMaker", "DailyMaint", tostring(os.time()))
      DailyMaintenance:Destroy()
    else
      wx.wxMessageBox("You must mark all tasks as being completed to proceed")
    end
    end )


    -- create WeeklyMaintance
   local WeeklyMaintance={}
    WeeklyMaintance = wx.wxDialog (wx.NULL, wx.wxID_ANY, "Weekly Maintance", wx.wxDefaultPosition, wx.wxSize( 500,110 ), wx.wxCAPTION )
    WeeklyMaintance:SetSizeHints( wx.wxDefaultSize, wx.wxDefaultSize )

    local bSizer4 = wx.wxBoxSizer( wx.wxVERTICAL )

    bSizer4:SetMinSize( wx.wxSize( 500,-1 ) )
   local CheckWeeklyGrease = wx.wxCheckBox( WeeklyMaintance, wx.wxID_ANY, "Apply single shot of grease to each guideway grease fitting", wx.wxDefaultPosition, wx.wxDefaultSize, 0 )
    bSizer4:Add( CheckWeeklyGrease, 0, wx.wxALL, 5 )

    local CheckWeeklyGreaseBall = wx.wxCheckBox( WeeklyMaintance, wx.wxID_ANY, "Apply single shot of grease to each ball nut", wx.wxDefaultPosition, wx.wxDefaultSize, 0 )
    bSizer4:Add( CheckWeeklyGreaseBall, 0, wx.wxALL, 5 )

    local m_sdbSizer3 = wx.wxStdDialogButtonSizer()
    local m_sdbSizer3OK = wx.wxButton( WeeklyMaintance, wx.wxID_OK, "" )
    m_sdbSizer3:AddButton( m_sdbSizer3OK )
    local m_sdbSizer3Cancel = wx.wxButton( WeeklyMaintance, wx.wxID_CANCEL, "" )
    m_sdbSizer3:AddButton( m_sdbSizer3Cancel )
    m_sdbSizer3:Realize();

    bSizer4:Add( m_sdbSizer3, 1, wx.wxEXPAND, 5 )


    WeeklyMaintance:SetSizer( bSizer4 )
    WeeklyMaintance:Layout()

    WeeklyMaintance:Centre( wx.wxBOTH )

    -- Connect Events

    m_sdbSizer3Cancel:Connect( wx.wxEVT_COMMAND_BUTTON_CLICKED, function(event)
    WeeklyMaintance:Destroy()
    end )

    m_sdbSizer3OK:Connect( wx.wxEVT_COMMAND_BUTTON_CLICKED, function(event)
    local a= CheckWeeklyGrease:GetValue()
    local b = CheckWeeklyGreaseBall:GetValue()
    if ( a and b ) == true then     
      mc.mcProfileWriteString(MyInstance , "DrumMaker", "WeeklyMaint", tostring(os.time())) 
      WeeklyMaintance:Destroy()
    else
      wx.wxMessageBox("You must mark all tasks as being completed to proceed")
    end
    end )

    -- create MonthlyMaintenance
   local MonthlyMaintenance={}
    MonthlyMaintenance = wx.wxDialog (wx.NULL, wx.wxID_ANY, "Monthly Maintenance", wx.wxDefaultPosition, wx.wxSize( 500,-1 ), wx.wxCAPTION )
    MonthlyMaintenance:SetSizeHints( wx.wxDefaultSize, wx.wxDefaultSize )

    local bSizer3 = wx.wxBoxSizer( wx.wxVERTICAL )

    bSizer3:SetMinSize( wx.wxSize( 500,-1 ) )
    local CheckInspect = wx.wxCheckBox( MonthlyMaintenance, wx.wxID_ANY, "Closely inspect guideways and rails for excessive buildup of grease and debris", wx.wxDefaultPosition, wx.wxDefaultSize, 0 )
    bSizer3:Add( CheckInspect, 0, wx.wxALL, 5 )

    local m_sdbSizer3 = wx.wxStdDialogButtonSizer()
    local m_sdbSizer3OK = wx.wxButton( MonthlyMaintenance, wx.wxID_OK, "" )
    m_sdbSizer3:AddButton( m_sdbSizer3OK )
    local m_sdbSizer3Cancel = wx.wxButton( MonthlyMaintenance, wx.wxID_CANCEL, "" )
    m_sdbSizer3:AddButton( m_sdbSizer3Cancel )
    m_sdbSizer3:Realize();

    bSizer3:Add( m_sdbSizer3, 1, wx.wxEXPAND, 5 )


    MonthlyMaintenance:SetSizer( bSizer3 )
    MonthlyMaintenance:Layout()

    MonthlyMaintenance:Centre( wx.wxBOTH )

    -- Connect Events

    m_sdbSizer3Cancel:Connect( wx.wxEVT_COMMAND_BUTTON_CLICKED, function(event)
    MonthlyMaintenance:Destroy()
    end )

    m_sdbSizer3OK:Connect( wx.wxEVT_COMMAND_BUTTON_CLICKED, function(event)
    local a= CheckInspect:GetValue()
    if (a) then     
      mc.mcProfileWriteString(MyInstance , "DrumMaker", "MonthlyMaint", tostring(os.time())) 
      MonthlyMaintenance:Destroy()
    else
      wx.wxMessageBox("You must mark all tasks as being completed to proceed")
    end
    end )


   

    -- create StartUpVerify
   local StartUpVerify={}
    StartUpVerify = wx.wxDialog (wx.NULL, wx.wxID_ANY, "Starting up CNC machine", wx.wxDefaultPosition, wx.wxDefaultSize, wx.wxCAPTION + wx.wxSTAY_ON_TOP )
    StartUpVerify:SetSizeHints( wx.wxDefaultSize, wx.wxDefaultSize )

    local bSizer8 = wx.wxBoxSizer( wx.wxVERTICAL )

    local gSizer2 = wx.wxGridSizer( 1, 2, 0, 0 )

    local m_staticText13 = wx.wxStaticText( StartUpVerify, wx.wxID_ANY, "What tool number is presently in the spindle?", wx.wxDefaultPosition, wx.wxDefaultSize, 0 )
    m_staticText13:Wrap( -1 )
    gSizer2:Add( m_staticText13, 0, wx.wxALL, 5 )

    local MyToolNumber = wx.wxTextCtrl( StartUpVerify, wx.wxID_ANY, "", wx.wxDefaultPosition, wx.wxDefaultSize, 0 )
    gSizer2:Add( MyToolNumber, 0, wx.wxALL, 5 )


    bSizer8:Add( gSizer2, 1, wx.wxEXPAND, 5 )

    local StartupOK = wx.wxStdDialogButtonSizer()
    local StartupOKOK = wx.wxButton( StartUpVerify, wx.wxID_OK, "" )
    StartupOK:AddButton( StartupOKOK )
    StartupOK:Realize();

    bSizer8:Add( StartupOK, 1, wx.wxEXPAND, 5 )


    StartUpVerify:SetSizer( bSizer8 )
    StartUpVerify:Layout()
    bSizer8:Fit( StartUpVerify )

    StartUpVerify:Centre( wx.wxBOTH )

    -- Connect Events

    StartupOKOK:Connect( wx.wxEVT_COMMAND_BUTTON_CLICKED, function(event)
    local CurrentTool = mc.mcToolGetCurrent(MyInstance)
   local EnteredTool = tonumber(MyToolNumber:GetValue())   
    if CurrentTool == EnteredTool then
      StartUpVerify:Destroy()
   else
      wx.wxMessageBox("This is not the expected tool!\n\nThe system is expecting tool "..tostring(CurrentTool).."!\nMake sure tool number "..tostring(CurrentTool).." is in the spindle before enabling!","ERROR")
      StartUpVerify:Destroy()
   end
    end )
   
  local MyInstance = mc.mcGetInstance()

  local CurrentTime=os.time()
  local FirstUsed = tonumber((mc.mcProfileGetString(MyInstance,"DrumMaker","FirstUsed","0")))

  local LastUsed = tonumber((mc.mcProfileGetString(MyInstance,"DrumMaker","LastUsed","0")))
  local DrumCount = tonumber((mc.mcProfileGetString(MyInstance,"DrumMaker","DrumCount","0")))
  local TimeUsed = tonumber((mc.mcProfileGetString(MyInstance,"DrumMaker","TimeUsed","0")))
  local DailyMaint = tonumber((mc.mcProfileGetString(MyInstance,"DrumMaker","DailyMaint","0")))
  local WeeklyMaint = tonumber((mc.mcProfileGetString(MyInstance,"DrumMaker","WeeklyMaint","0")))
  local MonthlyMaint = tonumber((mc.mcProfileGetString(MyInstance,"DrumMaker","MonthlyMaint","0")))
  local LastUsedDate=os.date("*t",LastUsed)
  local TodayDate = os.date("*t")

  local RunDayCheck = not (os.date("%x",TodayDay)== os.date("%x",DailyMaint))
  local RunWeeklyCheck = ((TimeUsed - WeeklyMaint) > 144000 )
  local RunMonthlyCheck = ((CurrentTime - MonthlyMaint) > 3456000)
  local RunIdleCheck = ((CurrentTime - LastUsed) > 3456000)
     mc.mcProfileWriteString(MyInstance , "DrumMaker", "RunWarmUp", "N")   
  mc.mcProfileWriteString(MyInstance , "DrumMaker", "RunBreakIn", "N")   
  if RunDayCheck then
    DailyMaintenance:ShowModal()
  end
  if RunWeeklyCheck then
    WeeklyMaintance:ShowModal()
    mc.mcProfileWriteString(MyInstance , "DrumMaker", "WeeklyMaint", tostring(TimeUsed))   
  end
  if RunMonthlyCheck then
    MonthlyMaintenance:ShowModal()
  end
  StartUpVerify:ShowModal()
   


Re: Lua script that causes Mach4 not to terminate
« Reply #1 on: October 26, 2015, 08:17:50 PM »
Not sure, but did you try to make sure all is destroyed after the StartUpVerify:ShowModal()

    DailyMaintenance:Destroy()
    MonthlyMaintenance:Destroy()
    WeeklyMaintance:Destroy()

Re: Lua script that causes Mach4 not to terminate
« Reply #2 on: October 26, 2015, 11:07:58 PM »
I did try this and no longer see the mach4GUI running as a task after closing. Not sure it needs all this but gives you something to try.

     StartUpVerify:Close(true)
     StartUpVerify:Destroy()
     DailyMaintenance:Destroy()
     MonthlyMaintenance:Destroy()
     WeeklyMaintance:Destroy()
Re: Lua script that causes Mach4 not to terminate
« Reply #3 on: October 27, 2015, 10:01:53 AM »
Making sure all the dialogs were destroyed did the trick!

I earlier had that whole script in a function assuming when the function went away the garbage collection would remove those arrays.

Great catch guys!!!! Thanks!