G code geschiedenis file maken

[John Sellis]

weet iemand of hier wat voor is? wil graag een file aanmaken waar hij in opslaat welke g code is gelezen\uitgevoert.

ik had dit al gevonden maar die herschrijft het bestand steeds. ik wil gewoon per dag een logfile hebben.

https://www.machsupport.com/forum/index ... pic=7324.0


Here is the Start Timer, Date, Macro: M1002.m1s

'****************************
'M1002.m1s Store Start time point

Open "CostEstimate.txt" For Output As #2
Close #2

Kill "CostEstimate.txt"

Dim StartTime As String
Dim StartDate As String

StartTime = Time(Now)
StartDate = Date()

Open "TimeFile" For Output As #1 ' Open to write file.
Write #1, StartTime
Write #1, StartDate
Close #1

Code "G4 P0.5"
While IsMoving
Wend

Sec = Second(StartTime)
Min = Minute(StartTime)
Hr = Hour(StartTime)
Dy = Day(StartDate)

SetVar(100,Sec)
SetVar(101,Min)
SetVar(102,Hr)
SetVar(103,Dy)
'*****************************

Here is the End Timer, Date, Macro: M1003.m1s

'*****************************
'M1003.m1s Get End Time point and calc, and post file

Dim StartTime As String
Dim StartDate As String
Dim EndTime As String
Dim EndDate As String
Dim File As String
Dim Days

EndTime = Time(Now)
EndDate = Date()
SecEnd = Second(EndTime)
MinEnd = Minute(EndTime)
HrEnd = Hour(EndTime)
DyEnd = Day(EndDate)

SecStart = GetVar(100)
MinStart = GetVar(101)
HrStart = GetVar(102)
DyStart = GetVar(103)

File = FileName()

Open "TimeFile" For Input As #1 ' Open file.
Line Input #1, TextLine ' Read line into variable.
StartTime = TextLine ' get start time.
Line Input #1, TextLine ' Read line into variable.
StartDate = TextLine ' get start date.
Close #1 ' Close file.

Code "G4 P0.5"
While IsMoving
Wend

If HrEnd<HrStart Then
Hr=((24-HrStart)+(24-(24-HrEnd)))
Else
Hr=(HrEnd-HrStart)
End If

If MinEnd<MinStart Then
Min=((60-MinStart)+(60-(60-MinEnd)))
Else
Min=(MinEnd-MinStart)
End If

If SecEnd<SecStart Then
Sec=((60-SecStart)+(60-(60-SecEnd)))
Else
Sec=(SecEnd-SecStart)
End If

If (DyEnd-DyStart)= 0 Then
Days = 0
End If

If ((DyEnd-DyStart)=1) And (HrEnd<HrStart) Then
Days = 0
End If

If ((DyEnd-DyStart)=1) And (HrEnd>HrStart) Then
Days = 1
End If

If ((DyEnd-DyStart)>1) Then
Days = (DyEnd-DyStart)
End If

Kill "TimeFile"

Open "CostEstimate.txt" For Output As #2 ' Open to write file.
Write #2, "File Name: " & File
Write #2, "Start Time: " & StartTime, "Start Date: " & StartDate
Write #2, "End Time: " & EndTime, "End Date: " & EndDate
Write #2, "Total Time: " & " Days: " & Days & " Hours: " & Hr & " Mins: " & Min & " Secs: " & Sec
Close #2

Code "G4 P0.5"
While IsMoving
Wend
'*******************************************

[JoepS]

Zie https://docs.microsoft.com/en-us/office ... -statement

Tekst toevoegen aan een text file doe je met append. Dus je moet in de code ff Input en Output vervangen door Append en met trial en error even kijken hoe het tekstbestand eruit ziet na het uitvoeren van de macro. Misschien moet je hier en daar nog een "enter" plaatsen.

[John Sellis]

Zie https://docs.microsoft.com/en-us/office ... -statement

Tekst toevoegen aan een text file doe je met append. Dus je moet in de code ff Input en Output vervangen door Append en met trial en error even kijken hoe het tekstbestand eruit ziet na het uitvoeren van de macro. Misschien moet je hier en daar nog een "enter" plaatsen.

Het werkt prima alleen alles staat er 2x in (met de tijd 0 sec etc). Dus moet even kijken waar dat wegkomt.