Recuperer commandes externes

Résolu
Signaler
Messages postés
3
Date d'inscription
mardi 4 février 2003
Statut
Membre
Dernière intervention
1 juin 2007
-
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
-
Bonjour,

J'aimerai savoir si il y'avait un moyen de récuperer des commandes dans un fichier externe, je m'explique :

Dans mon programme, je lit un tableau de booleen de 5 cases

Puis j'attribue des sorties par rapport aux entrées actives
du genre :

D(0) = input(1) And input(3)
D(1) = Not(input(2) Or input(3))

Enfin j'ecrit les sorties

J'aimerai que les equations D(0), D(1), etc... soit contenus dans un fichier externe afin de pouvoir les modifier par la suite a souhait, on m'a conseillé d'utiliser une classe dynamique afin de recuperer ces valeurs, mais je n'ai pas tout compris...

Merci d'avance pour votre réponse

4 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
Si j'ai bien compris tu veux que ceci:
D(0) = input(1) And input(3)
D(1) = Not(input(2) Or input(3))

Soit contenu dans un fichier text de maniere à être modifiable sans avoir à recompiler l'EXE?

Il y a une référence Microsoft Script Control 1.0 qui peut te permettre de calculer des expression passer en chaine de caractere.

@+: =89254 Ju£i?n
Pensez: Réponse acceptée
Messages postés
3
Date d'inscription
mardi 4 février 2003
Statut
Membre
Dernière intervention
1 juin 2007

merci beaucoup, je vais essayer de trouver un peu de doc sur cette reference
Messages postés
3
Date d'inscription
mardi 4 février 2003
Statut
Membre
Dernière intervention
1 juin 2007

pourrait tu me mettre un exemple d'utilisation ?
Je dois dire que je rame un peu...
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
58
Salut,
c'est un exemple qui sort un epu de ton contexte mais c'est un copier coller d'un de mes codes pour que tu vois le proncipe de fonctionnement
Option Explicit

Private Const CALCUL_CODE As String = "Function Calcul(Fin): Fin=%1:End Function"

Private Sub Form_Load()
'Objet necessaire a l'interpretation d une fonction
Dim SCalcul As New ScriptControl
Dim StrFonction As String
'Valeur retournée par SCalcul
Dim ValDef
   
   StrFonction = "((360 - (267 * X / 180) + B) Mod 360)"
   'On remplace dans la formule B Par une valeur
   StrFonction = Replace(StrFonction, "B", 15)
   'On remplace dans la formule X Par une valeur
   StrFonction = Replace(StrFonction, "X", 60)
   'On remplace dans le code "Type" voir en haut %1 par la formule mofidier
   StrFonction = Replace(CALCUL_CODE, "%1", StrFonction)
   'parametre et usage de l'objet Script Control
   With SCalcul
       'Language utilise
       .Language = "VBScript"
       'Reset eventuel
       .Reset
       'Ajout du code dree
       Call .AddCode(StrFonction)
       'Execution du code ajouter (fonction Calcul)
       Call .Run("Calcul", ValDef)
       
   End With
   MsgBox ValDef
   'Destruction de l'objet
   Set SCalcul = Nothing
End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée