hexagon logo
Register Sign in
  • Replies 22 replies
  • Subscribers 31 subscribers
  • Views 409 views
  • Users 0 members are here
Options
Related

Runtime script with inexplicable results...

Chally72
I have a function in my scripts to calculate the runtime in seconds for a program, using the Timer value from windows, which returns the current time as seconds from midnight.

The blue code is my script run at the beginning of a part program. The red code is what is run at the end. (I've cut and pasted these sections from the scripts...they are too long.) In the event that a program runs through midnight, I have a section in the red code to correctly calculate runtime. I've tested this code in the excel editor while resetting my computer clock to 11:59 PM and running it through midnight, and it works. Unfortunately, this code does not work when running PC-DMIS through midnight. I get program times of more than 86400.

Any ideas why this is not calculating correctly only when run through PC-DMIS? 

[COLOR="Blue"]Sub Main()

Dim BeforeTime As String
BeforeTime = Timer
BeforeTime = CLng(BeforeTime)

End Sub[/COLOR]

[COLOR="Red"]
Sub Main()

Dim Aftertime As String
Aftertime = Timer
Aftertime = CLng(Aftertime)
Dim RunTime As String

If Aftertime < BeforeTime Then
RunTime = (86400 - BeforeTime) + Aftertime
Else
RunTime = Aftertime - BeforeTime
End If

End Sub[/COLOR]
Parents
  • This is what I use...

    Sub Main
    Dim AssetNumber As String
    Dim AssetLocation As String
    Dim PCDiLocation As String

    Dim StartDate As String
    Dim StartTime As String

    StartDate = Format(Date, "Short Date")
    StartTime = Format(Time, "Short Time")

    Open "c:\temp\CMMInit.txt" For Input As #1
    Input #1, PCDiLocation, AssetNumber, AssetLocation
    Close #1

    Open "c:\CMMAvail.txt" For Append As #1
    Print #1, AssetNumber & "," & AssetLocation & ",1," & StartDate & "," & StartTime
    Close #1

    End Sub


    I know what my average cycle time is for setting up and running a part program is. I just want to know if the machine is being use effectively.
Reply
  • This is what I use...

    Sub Main
    Dim AssetNumber As String
    Dim AssetLocation As String
    Dim PCDiLocation As String

    Dim StartDate As String
    Dim StartTime As String

    StartDate = Format(Date, "Short Date")
    StartTime = Format(Time, "Short Time")

    Open "c:\temp\CMMInit.txt" For Input As #1
    Input #1, PCDiLocation, AssetNumber, AssetLocation
    Close #1

    Open "c:\CMMAvail.txt" For Append As #1
    Print #1, AssetNumber & "," & AssetLocation & ",1," & StartDate & "," & StartTime
    Close #1

    End Sub


    I know what my average cycle time is for setting up and running a part program is. I just want to know if the machine is being use effectively.
Children
No Data
© 2024 Hexagon AB and/or its subsidiaries. Privacy Policy | Cloud Services Agreement