EXPORT / IMPORT DES VARIABLES %MW
- itasoft
- Mi homme - Mi automate
- Messages : 7037
- Inscription : 20 oct. 2015, 10:15
- Localisation : Lyon
- Contact :
EXPORT / IMPORT DES VARIABLES %MW
slts,
Petite application Vijeo-designer exemple pour l'import / export de variables %MW via clef USB
la demander si le besoin s'en fait cruellement sentir.
AM
------------
Petite application Vijeo-designer exemple pour l'import / export de variables %MW via clef USB
la demander si le besoin s'en fait cruellement sentir.
AM
------------
Automaticien privé (de tout)
itasoft@free.fr
itasoft@free.fr
- Bruce33
- Créateur de langage
- Messages : 716
- Inscription : 28 oct. 2015, 06:54
- Localisation : Pas-de-Calais
Re: EXPORT / IMPORT DES VARIABLES %MW
Bonjour itasoft,
J'ai commencé à développer une application similaire il y a quelques jours.
Je suis donc intéressé par ta méthode de programmation !
J'ai commencé à développer une application similaire il y a quelques jours.
Je suis donc intéressé par ta méthode de programmation !
- itasoft
- Mi homme - Mi automate
- Messages : 7037
- Inscription : 20 oct. 2015, 10:15
- Localisation : Lyon
- Contact :
Re: EXPORT / IMPORT DES VARIABLES %MW
slts
J’ai plusieurs versions en fonction du besoin
V1-Sauvegarde de secours pour pouvoir les re importer en cas de perte , on ne peut pas les visualiser ni les modifier sous Excel
V2-Sauvegarde avec possibilité de les visualiser sous Excel mais sans pouvoir les modifier et les re importer dans l’API
V3-Sauvegarde avec possibilité de les visualiser sous Excel de les modifier et de les re importer dans l’API
En passant par une macro sous Excel
J’ai plusieurs versions en fonction du besoin
V1-Sauvegarde de secours pour pouvoir les re importer en cas de perte , on ne peut pas les visualiser ni les modifier sous Excel
V2-Sauvegarde avec possibilité de les visualiser sous Excel mais sans pouvoir les modifier et les re importer dans l’API
V3-Sauvegarde avec possibilité de les visualiser sous Excel de les modifier et de les re importer dans l’API
En passant par une macro sous Excel
Automaticien privé (de tout)
itasoft@free.fr
itasoft@free.fr
Re: EXPORT / IMPORT DES VARIABLES %MW
bonjour,
Petite question, tu n'aurai pas une moulinette pour passer du format ICE ver 984LL sur excel?
Petite question, tu n'aurai pas une moulinette pour passer du format ICE ver 984LL sur excel?
- itasoft
- Mi homme - Mi automate
- Messages : 7037
- Inscription : 20 oct. 2015, 10:15
- Localisation : Lyon
- Contact :
Re: EXPORT / IMPORT DES VARIABLES %MW
slts,
c'est quoi ces formats ??
c'est quoi ces formats ??
Automaticien privé (de tout)
itasoft@free.fr
itasoft@free.fr
Re: EXPORT / IMPORT DES VARIABLES %MW
Salut,
C'est quand tu passe de %MWXXX vers 4000XX
C'est quand tu passe de %MWXXX vers 4000XX
- itasoft
- Mi homme - Mi automate
- Messages : 7037
- Inscription : 20 oct. 2015, 10:15
- Localisation : Lyon
- Contact :
Re: EXPORT / IMPORT DES VARIABLES %MW
slts,
c'est l'adressage ModBus ex: %MW100 --> 40100 c'est ça ?
c'est l'adressage ModBus ex: %MW100 --> 40100 c'est ça ?
Automaticien privé (de tout)
itasoft@free.fr
itasoft@free.fr
- itasoft
- Mi homme - Mi automate
- Messages : 7037
- Inscription : 20 oct. 2015, 10:15
- Localisation : Lyon
- Contact :
Re: EXPORT / IMPORT DES VARIABLES %MW
Slts,
disons que J’ai une moulinette en VBA qui traite le fichier Export des Variables Elémentaires au format .txt
Dans ce ficher remplace l’adressage absolu des variables %MW0 à %MW9999 par l'adressage ModBus EX: %MW100 -> 40100
Et génère un fichier _RESULT.TXT à importer dans Unity avec écrasement
Copier les lignes de programme ci dessous et les coller dans le VBA de Excel et lancer cette macro
---------------------------------------
Sub Conversion_MW_Unity()
Dim TXT As String, sVAL As String, sOBJ As String, sNEW As String, fileNameSource As String, fileNameCible As String
Dim Number1 As Integer, Number2 As Integer
Dim iVAL As Long
Dim ya_Bon_Banania As Boolean
Dim TList() As String
'--------- fichier source à traiter à personnaliser -----------------------
fileNameSource = "D:\AFF\MCA_2019\variables_unity.txt"
fileNameCible = Replace(UCase(fileNameSource), ".TXT", "_RESULT.TXT")
Number2 = FreeFile
Open fileNameCible For Output As #Number2
Number1 = FreeFile
Open fileNameSource For Input As #Number1
While Not EOF(Number1)
Line Input #Number1, TXT
ya_Bon_Banania = InStr(TXT, "%MW") > 0 And InStr(TXT, ":X") = 0 And (InStr(TXT, "INT") > 0 or InStr(TXT, "DINT") > 0)
If ya_Bon_Banania Then
TList = Split(TXT, vbTab)
sOBJ = TList(1)
sVAL = Replace(sOBJ, "%MW", "")
iVAL = Val(sVAL)
If iVAL < 10000 Then
sNEW = "4" & Format(iVAL, "0000")
TXT = Replace(TXT, sOBJ, sNEW)
Print #Number2, TXT
End If
End If
Wend
Close #Number1
Close #Number2
End Sub
disons que J’ai une moulinette en VBA qui traite le fichier Export des Variables Elémentaires au format .txt
Dans ce ficher remplace l’adressage absolu des variables %MW0 à %MW9999 par l'adressage ModBus EX: %MW100 -> 40100
Et génère un fichier _RESULT.TXT à importer dans Unity avec écrasement
Copier les lignes de programme ci dessous et les coller dans le VBA de Excel et lancer cette macro
---------------------------------------
Sub Conversion_MW_Unity()
Dim TXT As String, sVAL As String, sOBJ As String, sNEW As String, fileNameSource As String, fileNameCible As String
Dim Number1 As Integer, Number2 As Integer
Dim iVAL As Long
Dim ya_Bon_Banania As Boolean
Dim TList() As String
'--------- fichier source à traiter à personnaliser -----------------------
fileNameSource = "D:\AFF\MCA_2019\variables_unity.txt"
fileNameCible = Replace(UCase(fileNameSource), ".TXT", "_RESULT.TXT")
Number2 = FreeFile
Open fileNameCible For Output As #Number2
Number1 = FreeFile
Open fileNameSource For Input As #Number1
While Not EOF(Number1)
Line Input #Number1, TXT
ya_Bon_Banania = InStr(TXT, "%MW") > 0 And InStr(TXT, ":X") = 0 And (InStr(TXT, "INT") > 0 or InStr(TXT, "DINT") > 0)
If ya_Bon_Banania Then
TList = Split(TXT, vbTab)
sOBJ = TList(1)
sVAL = Replace(sOBJ, "%MW", "")
iVAL = Val(sVAL)
If iVAL < 10000 Then
sNEW = "4" & Format(iVAL, "0000")
TXT = Replace(TXT, sOBJ, sNEW)
Print #Number2, TXT
End If
End If
Wend
Close #Number1
Close #Number2
End Sub
Automaticien privé (de tout)
itasoft@free.fr
itasoft@free.fr
Re: EXPORT / IMPORT DES VARIABLES %MW
bonjour,
Merci, il me reste plus qu'a devenir un pro de excel...mais c'est super sympa d'avoir pris du temps.
Merci encore
bye
Merci, il me reste plus qu'a devenir un pro de excel...mais c'est super sympa d'avoir pris du temps.
Merci encore
bye