fichier carte SD

Forum traitant des automates industriels de marque Siemens.
AnissaUchiha
Apprend le binaire
Apprend le binaire
Messages : 7
Inscription : 14 févr. 2019, 10:18

fichier carte SD

Message par AnissaUchiha »

Bonjour j'aimerai créer un fichier directement sur la carte SD de l'écran IHM. Quand je créer un dossier cela fonctionne mais pour créer un fichier je ne le voit pas apparaitre sur la carte SD pourtant j'ai suivi les instructions sur le site Siemens…


Code : Tout sélectionner

Sub CreationFichierTest()
Dim FileWay ,Folder, ObjectWay , FileName , File , FileExist, header , currentTIme 
Const NEU = 0
 
 
FileWay = "\Storage Card SD\TestAuditAnissa.csv"

On Error Resume Next 
' creation object
Set File = CreateObject ("FileCTL.FileSystem")

 
'verifie si une erreur est apparu
If Err.Number <> 0 Then 
	ShowSystemAlarm  "Error # " & CStr(Err.Number) & " " & Err.Description 
	Err.Clear 
	Exit Sub
End If 


File.open FileWay , 8

If Err.Number <> 0 Then 
	ShowSystemAlarm  "Error # " & CStr(Err.Number) & " " & Err.Description 
	Err.Clear 
	Exit Sub
End If 

currentTIme = Hour(Time) & ":" & Minute(Time) & ":" & Second(Time)

'ecrit les titres des colonnes si le fichier est nouveau  

If File.LOF = NEU Then 
	File.LinePrint ("Temps ; Utilisateur ; Position Drive Rot ; Position Drive Z")
End If 

' écrire les données dans colonnes
File.LineWrite( currentTIme & ";" & SmartTags("HMI_To_PLC_GroupeUtilisateur") & ";" & SmartTags("PLC_TO_HMI_Robot.Rot.CurrentPosition") & ";" & SmartTags("PLC_TO_HMI_Robot.Z.CurrentPosition"))  
File.Close

Set File = Nothing 

ShowSystemAlarm "Storage of data was successful! "


End Sub


Dans le fichier joint , l'endroit ou le fichier doit apparaitre



Merci
Pièces jointes
audit
audit
dehell
Codeur fou
Codeur fou
Messages : 236
Inscription : 19 janv. 2016, 09:24
Localisation : Alès

Re: fichier carte SD

Message par dehell »

Bonjour,
Quel événement déclenche ton script de création du fichier?
Il faut que tu sois sur que ton script est exécuté.
AnissaUchiha
Apprend le binaire
Apprend le binaire
Messages : 7
Inscription : 14 févr. 2019, 10:18

Re: fichier carte SD

Message par AnissaUchiha »

Bonjour le script s'exécute quand j'appuie sur ce bouton
Pièces jointes
Crapture.PNG
dehell
Codeur fou
Codeur fou
Messages : 236
Inscription : 19 janv. 2016, 09:24
Localisation : Alès

Re: fichier carte SD

Message par dehell »

En lisant ton script, tu crées une variable File , pour moi j'aurai utilisé un autre nom...
Repart et teste l'exemple Siemens puis adapte le...

https://support.industry.siemens.com/cs ... 0&lc=fr-WW
Répondre