Hello All,
Working on the above problem, I wrote the below Script for MP377 Pannel.
But the code is executing without providing me an output. There was no file generated on the HMI.
Can someone help me with this?
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''CREATE A FILE WITH NEW RESULT '''''''''''''''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim fo,FS, Path, Dataformat, file
Dim delimiter
Dim mode
Dim gap
Const NEU = 0
Dim csv
Dim Applicaiton ,WriteMethod
'Appeniding is used
mode = 8
delimiter=" ;"
gap = vbTab
csv = 1
'********************************************
'Code starts here
'*****************************************
'Path = " \Storage Card CF \TESTFILE.TXT"
'Path = " \flash \TESTFILE.TXT"
Path = "\STORAGE CARD USB\ CARTDIAL-curve "
file = " \STORAGE CARD USB\ CARTDIAL-curve\TESTFILE.TXT"
On Error Resume Next
'CREATE A FILE SYSTEM OBJECT
Set FS = CreateObject("filectl.filesystem")
'Create a file object
Set fo = CreateObject("FileCtl.File")
'Check if there is any error
If Err.Number <>0 Then
ShowSystemAlarm "Error#"& CStr(Err.Number) & "" & Err.Description
Err.Clear
Exit Sub
End If
'Check for the Director
If (FS.Dir(Path)<>"") Then FS.MKDIR(Path)
if fo.LOF = Neu then
'Open or Create a File
f
pen file, 8
'Wrting the Header
fo.LINEPRINT ( "Date" & gap & delimiter & "Part Id:" & gap & delimiter & "PeakForce" & gap & delimiter & "PeakForce Position" & gap & delimiter &_
"FinalForce " & gap & delimiter & "TransitionForce" & gap & delimiter & "S6.TransitionForceServoPostion"_
& gap & delimiter &"SmallDiaStartForce" & gap & delimiter& "SmallDiaStartPosition"& gap & delimiter &_
"SmallDiaEndPointForce"& gap & delimiter & "SmallDiaEndPointPositon" )
'write actual Data
fo.LINEPRINT( Now & gap & delimiter & SmartTags( "S6 CurrentETR.Data.PartID") & gap & delimiter & SmartTags( "S6.PeakForce") & gap & delimiter & SmartTags( "S6.PeakForcePostion" )& gap & delimiter &_
SmartTags("S6.FinalForce ") & gap & delimiter & SmartTags("S6.TransitionForce ") & gap & delimiter &SmartTags( "S6.TransitionForceServoPostion")_
& gap & delimiter & SmartTags("S6.smallDiaStartForce ") & gap & delimiter& "S6.smallDiaStartPosition"& gap & delimiter &_
"S6.SmallDIaENdForce"& gap & delimiter & "s6.SmallDIaENdForceServoPosition" )
If Err.Number <>0 Then
ShowSystemAlarm "Error#"& CStr(Err.Number) & "" & Err.Description
Err.Clear
Exit Sub
End If
'Close the file
fo.close
Else
If Err.Number <>0 Then
ShowSystemAlarm "Error#"& CStr(Err.Number) & "" & Err.Description
Err.Clear
Exit Sub
End If
'Open or Create a File
f
pen file, 8
'Write Data into the File
fo.LINEPRINT( Now & gap & delimiter & SmartTags( "S6 CurrentETR.Data.PartID") & gap & delimiter & SmartTags( "S6.PeakForce") & gap & delimiter & SmartTags( "S6.PeakForcePostion" )& gap & delimiter &_
SmartTags("S6.FinalForce ") & gap & delimiter & SmartTags("S6.TransitionForce ") & gap & delimiter &SmartTags( "S6.TransitionForceServoPostion")_
& gap & delimiter & SmartTags("S6.smallDiaStartForce ") & gap & delimiter& "S6.smallDiaStartPosition"& gap & delimiter &_
"S6.SmallDIaENdForce"& gap & delimiter & "s6.SmallDIaENdForceServoPosition" )
'Close the File
fo.close
End If
'
''Release the fileobject
Set fo = Nothing
'ShowSystemAlarm "Storage of the data was successful!"
SmartTags ("CreateCurveAnalysisDataRev01")= False
ShowSystemAlarm "File Saved in the Location" & Path
thanks for the help
ajay