Recuperer commandes externes

Résolu
Droudrou2000 Messages postés 3 Date d'inscription mardi 4 février 2003 Statut Membre Dernière intervention 1 juin 2007 - 1 juin 2007 à 10:45
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 1 juin 2007 à 16:08
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

jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
1 juin 2007 à 10:51
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
3
Droudrou2000 Messages postés 3 Date d'inscription mardi 4 février 2003 Statut Membre Dernière intervention 1 juin 2007
1 juin 2007 à 14:29
merci beaucoup, je vais essayer de trouver un peu de doc sur cette reference
0
Droudrou2000 Messages postés 3 Date d'inscription mardi 4 février 2003 Statut Membre Dernière intervention 1 juin 2007
1 juin 2007 à 15:40
pourrait tu me mettre un exemple d'utilisation ?
Je dois dire que je rame un peu...
0
jrivet Messages postés 7393 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
1 juin 2007 à 16:08
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
0