iLogic: measure time elapsed during run rule

[Anonymous]

Hi,

I have a (simple?) question.

I have made a tool to design a product. But i'm wondering if i can measure the time it needs to run a certain rule.

Greetings

And have a nice weekend!

[MechMachineMan]

https://msdn.microsoft.com/en-us/library/system.timers.timer_methods(v=vs.110).aspx

So something like this, with necessary imports:

Public Class Form2

Private _elapseTimerRunning As Boolean = False
Private _elapseStartTime As DateTime

Private Sub Form2_Load(sender As Object, e As EventArgs) Handles Me.Load
    Timer1.Interval = 1000    Timer1.Enabled = True
End Sub

Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    txtTime.Text = Now.ToString("h:mm:ss tt")
    If _elapseTimerRunning = True Then
        Dim elapsedtime = DateTime.Now.Subtract(_elapseStartTime)        txtElapsed.Text = String.Format("{0}hr : {1}min : {2}sec", elapsedtime.Hours, elapsedtime.Minutes, elapsedtime.Seconds)
    End If
End Sub

Private Sub btnStart_Click(sender As Object, e As EventArgs) Handles btnStart.Click
    _elapseStartTime = DateTime.Now
    _elapseTimerRunning = True
End Sub

Private Sub btnStop_Click(sender As Object, e As EventArgs) Handles btnStop.Click
    _elapseTimerRunning = False
End Sub

[MechMachineMan]

Sorry, even better would be:

Imports System
Imports System.Diagnostics
Imports System.Threading


Class Program

Shared Sub Main(ByVal args() As String)
Dim stopWatch As New Stopwatch()
stopWatch.Start()
Thread.Sleep(10000)
stopWatch.Stop()
' Get the elapsed time as a TimeSpan value.
Dim ts As TimeSpan = stopWatch.Elapsed

' Format and display the TimeSpan value.
Dim elapsedTime As String = String.Format("{0:00}:{1:00}:{2:00}.{3:00}", ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
Console.WriteLine( "RunTime " + elapsedTime)

End Sub 'Main
End Class 'Program

[MechMachineMan · Accepted solution]

Fully working in Inventor so you can test yourself (I have tested it)

Imports System
Imports System.Diagnostics
Imports System.Threading

Sub Main
Dim stopWatch As New Stopwatch()
	stopWatch.Start()
	MsgBox("Hit OK to end timer")
	stopWatch.Stop()
' Get the elapsed time as a TimeSpan value.
Dim ts As TimeSpan = stopWatch.Elapsed

' Format and display the TimeSpan value.
Dim elapsedTime As String = String.Format("{0:00}:{1:00}:{2:00}.{3:00}", ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
MsgBox("RunTime " & elapsedTime)
'Console.WriteLine( "RunTime " + elapsedTime)

End Sub 'Main

[Anonymous]

Thanks!

i used following bits 🙂 works like a charm 🙂 just tested 😉

Dim stopWatch As New Stopwatch()
 stopWatch.Start()




~~~~SOME CODE HERE~~~





 stopWatch.Stop()
' Get the elapsed time as a TimeSpan value.
Dim ts As TimeSpan = stopWatch.Elapsed

' Format and display the TimeSpan value.
Dim elapsedTime As String = String.Format("{0:00}:{1:00}:{2:00}.{3:00}", ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds / 10)
MsgBox("RunTime " & elapsedTime)

Don't know why the imports are needed?

Cheers!

[MechMachineMan]

It worked for you without the imports? I have ran into issues not using
them before (I think) so I included them just in case, as I wasn't sure if
the timer class was already included in the inventor programming.

[Anonymous]

Yes it's running just fine 🙂

just removed the subs & voila 😄