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
'*******************************************
G code geschiedenis file maken
Moderator: Moderators
-
- Donateur
- Berichten: 499
- Lid geworden op: 10 mar 2014 13:09
- Locatie: genemuiden
Re: G code geschiedenis file maken
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.
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.
-
- Donateur
- Berichten: 499
- Lid geworden op: 10 mar 2014 13:09
- Locatie: genemuiden
Re: G code geschiedenis file maken
Het werkt prima alleen alles staat er 2x in (met de tijd 0 sec etc). Dus moet even kijken waar dat wegkomt.JoepS schreef: ↑30 okt 2020 08:57 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.