Droudrou2000
Messages postés3Date d'inscriptionmardi 4 février 2003StatutMembreDernière intervention 1 juin 2007
-
1 juin 2007 à 10:45
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDerniè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
A voir également:
'Mvn' n’est pas reconnu en tant que commande interne ou externe, un programme exécutable ou un fichier de commandes.
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 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]