EXPORT / IMPORT DES VARIABLES %MW

Partie du forum pour tout ce qui concerne les interfaces homme machine ou IHM. Forum, conseil, astuce et entraide sur les interface homme machine ou IHM tels que les magelis, KEP, proface, XBT, .
Répondre
Avatar de l’utilisateur
itasoft
Mi homme - Mi automate
Mi homme - Mi automate
Messages : 7037
Inscription : 20 oct. 2015, 10:15
Localisation : Lyon
Contact :

EXPORT / IMPORT DES VARIABLES %MW

Message par itasoft »

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
------------
_1234.JPG
_1234.JPG (23.89 Kio) Consulté 3502 fois
Automaticien privé (de tout)
itasoft@free.fr
Avatar de l’utilisateur
Bruce33
Créateur de langage
Créateur de langage
Messages : 716
Inscription : 28 oct. 2015, 06:54
Localisation : Pas-de-Calais

Re: EXPORT / IMPORT DES VARIABLES %MW

Message par Bruce33 »

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 !
Avatar de l’utilisateur
itasoft
Mi homme - Mi automate
Mi homme - Mi automate
Messages : 7037
Inscription : 20 oct. 2015, 10:15
Localisation : Lyon
Contact :

Re: EXPORT / IMPORT DES VARIABLES %MW

Message par itasoft »

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
Automaticien privé (de tout)
itasoft@free.fr
Avatar de l’utilisateur
lolodu013
Codeur fou
Codeur fou
Messages : 261
Inscription : 05 mars 2016, 08:31

Re: EXPORT / IMPORT DES VARIABLES %MW

Message par lolodu013 »

bonjour,

Petite question, tu n'aurai pas une moulinette pour passer du format ICE ver 984LL sur excel?
Avatar de l’utilisateur
itasoft
Mi homme - Mi automate
Mi homme - Mi automate
Messages : 7037
Inscription : 20 oct. 2015, 10:15
Localisation : Lyon
Contact :

Re: EXPORT / IMPORT DES VARIABLES %MW

Message par itasoft »

slts,
c'est quoi ces formats ??
Automaticien privé (de tout)
itasoft@free.fr
Avatar de l’utilisateur
lolodu013
Codeur fou
Codeur fou
Messages : 261
Inscription : 05 mars 2016, 08:31

Re: EXPORT / IMPORT DES VARIABLES %MW

Message par lolodu013 »

Salut,

C'est quand tu passe de %MWXXX vers 4000XX
Capture.JPG
Avatar de l’utilisateur
itasoft
Mi homme - Mi automate
Mi homme - Mi automate
Messages : 7037
Inscription : 20 oct. 2015, 10:15
Localisation : Lyon
Contact :

Re: EXPORT / IMPORT DES VARIABLES %MW

Message par itasoft »

slts,
c'est l'adressage ModBus ex: %MW100 --> 40100 c'est ça ?
Automaticien privé (de tout)
itasoft@free.fr
Avatar de l’utilisateur
lolodu013
Codeur fou
Codeur fou
Messages : 261
Inscription : 05 mars 2016, 08:31

Re: EXPORT / IMPORT DES VARIABLES %MW

Message par lolodu013 »

yessss
Avatar de l’utilisateur
itasoft
Mi homme - Mi automate
Mi homme - Mi automate
Messages : 7037
Inscription : 20 oct. 2015, 10:15
Localisation : Lyon
Contact :

Re: EXPORT / IMPORT DES VARIABLES %MW

Message par itasoft »

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
Automaticien privé (de tout)
itasoft@free.fr
Avatar de l’utilisateur
lolodu013
Codeur fou
Codeur fou
Messages : 261
Inscription : 05 mars 2016, 08:31

Re: EXPORT / IMPORT DES VARIABLES %MW

Message par lolodu013 »

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
Répondre