calcul d'integrale sur VB

Question

Salut tout le monde,
j'ai besoin de votre aide sur 2 points.
le premier est comment faire un calcul d'integrale sur VB?
le second est comment utiliser des variables de VB pour calculer une fonction sur Excel?
Merci pour votre aide

phanoudev · Answer

Pour le calcul de l'integral il faut que tu calcul la valeur de ta fonction a i puis a i+1 et tu multiplie par la difference en abcisse (tu obtient l'aire et il faut sommer les aires pour avoir l'integrale sur la bande souhaite). le code doit donner qqchose comme ca:

private sub trepz(byval xval() as integer, byval yval() as integer, byval size as integer)
       ' size c'est la borne sup de l'integrale ici elle est calcule de 0 a size
       ' yval c le tableau des valeurs de la fonction a calculer
       ' xval c l'abcisse correspondant a chaque yval

       dim a as integer
       dim sum as integer = 0     ' sum of the integral
       dim A as integer = 0  ' area of one subband
       
       for a=0 to size-1
           A = (xval(a+1)-xval(a))*((yval(a)+yval(a+1))/2)
           sum = sum+A
       next
       
       return sum
end sub

je programme en vb.net mais pour ce genre de fonction ca doit etre pareil je pense.

Pour la deuxieme quest desole mais je n'ai pas d'experience dans ce domaine...
bon courage A+

cs_chammi · Answer

Merci beaucoup pour ton aide,
j'ai une autre faveur &#224; te demander :)
si c'est possible de m'envoyer un lien pour un cours interessant de VB ou de VBA, pour trouver  tout ce qui concerne liens avec Excel.
je te suis vraiment reconnaissant

phanoudev · Answer

voici un lien vers du code pour fqire le lien entre vb et excel et vis versa, tu peux peut etre t'en inspirer
http://www.vbfrance.com/code.aspx?ID=3673
Sinon je ne connais pas de cours particulier sur ce domaine desole

econs · Answer

Salut,
Un tr&#232;s bon site pour apprendre le VBA :


http://bidou.developpez.com/faqvba/




Manu

cs_chammi · Answer

Merci pour votre aide les amis, cependant j'ai eu un probléme pour les instructions suivantes si qlqun peut m'aider :

Private Sub Form_Load() Dim xls As Excel.Workbook ' déclaration d'une variable objet de type classeur Excel Dim var Set xls = GetObject("D:\PFE 1 est.xls") 'instanciation de l'objet (qui devient ici le fichier excel indiqué) ' export de données With xls .Worksheets(1).Range("B6").Value = "1" .Worksheets(1).Range("B18").Value = "2" .Worksheets(1).Range("A18").Value = "3" End With ' worksheets(1) correspond à la feuille 1 du fichier Excel ' pour spécifier le nom d'une feuille mettre à la place sheets("nom de la feuille") ' import de données var = xls.Worksheets(1).Range("C2").Value
xls.Visible = True ' visible à l'écran xls.ShowWindowsInTaskbar = True ' visible dans la barre de tâches xls.DisplayFormulaBar = True ' affichage de la barre de formule xls.Caption = "Mon fichier Excel"
' une fois que vous avez fini d'utiliser la variable xls, pensez à la détruire Set xls = Nothing End Sub

je ne sais pas c quoi le probléme pour l'affichage, pour l'appel cava ca marche , mais pour l'affichage non merci , ---- mer

Calcul d'integrale sur VB

5 réponses

Discussions similaires