appel de fonction

Question

bonjour,

Je dois developper un petit programme en utilisant une fonction permettant de donner le montant di capital grace au placement d'une somme d'argent, au taux, pendant un nbre d'année.

Voici le debut de mon programme:

Sub main()


s = MsgBox("Donner la somme d'argent:")
t = MsgBox("Donner le taux:")
n = MsgBox("Donner le nombre d'année:")


 


End Sub


Function capital(ByVal s As Integer, ByVal t As Integer, ByVal n As Integer) As Single


capital = s * ((1 - t) / 100) ^ 1 - n


End Function

Seulement je ne sais pas vraimant comment il faut faire pour appelé la fonction ( que je dois mettre avant End Sub)

Merci par avance de votre aide

jmfmarques · Answer

tout simplement capital(s,t,n) te retournera la valeur de la fonction !

Donc : resultat = capital(s,t,n)

Mais dis-moi un peu comment récupères-tu tes valeurs avec une msgbox ? Inputbox me paraitrait approprié

bricoyeye · Answer

salut
Call Capital

snooftow · Answer

Sub main()


s = InputBox("Donner la somme d'argent:")
t = InputBox("Donner le taux:")
n = InputBox("Donner le nombre d'année:")



resultat = capital(s,t,n)
msgbox (resultat)



End Sub


Function capital(ByVal s As Integer, ByVal t As Integer, ByVal n As Integer) As Single


capital = s * ((1 - t) / 100) ^ 1 - n


End Function

Le souci qui se passe c'est que lorsque le lance l'execution, j'ai le message comme quoi s, t, n ne sont pas declaré. Mais justement ces valeurs sont declarée avec la fonction Function, Non?

Merci d'avance pour votre aide

jmfmarques · Answer

Non !
Tu dois les déclarer
Rien te t'empêche d'ailleurs de remplacer s,t et n (leurs noms) dans la fonction.
resultat = capital(s,t,n)

et
Function capital(ByVal sa As Integer, ByVal ta As Integer, ByVal na As Integer) As Single

capital = sa* ((1 - ta) / 100) ^ 1 - na

End Function

Par contre s, t et n doivent être déclarés avant d'appeler la fonction

bricoyeye · Answer

doivent être déclarés comme public.

Public s As ...

jmfmarques · Answer

Eh, Bricoyeye !...
Pas nécessairement !
Il suffit d'aimmeures de ceci :

Private Sub Command1_Click()
   Dim s as integer, t as integer, n as integer
   s = InputBox("Donner la somme d'argent:")
   t = InputBox("Donner le taux:")
   n = InputBox("Donner le nombre d'année:")



 resultat = capital(s,t,n)
 msgbox (resultat)



End Sub

bricoyeye · Answer

Si c'est fait sur la même form.

mortalino · Answer

Bricoyeye, même si c'est appelé d'une autre Form, pas besoin du Public...
Tant que la fonction, elle, est publique, on peut l'appeler !
Tant que c'est déclaré (les variables) en Dim et DANS la même procédure / fonction appelant la Fonction publique, c'est parfait.

@++ 

<hr size="2" width="100%" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
<!--

bricoyeye · Answer

Oui, si la fonction est déclarée dans un module, mais si elle est déclérée  dans une autre form!!!
déclarée dans Form1 et appelée dans Form2 !!

jmfmarques · Answer

Tu sais quoi, Bricoyeye ?
Essaye d'appeler depuis la Form1 une fonction qui est dans Form2 en lui passant des paramètres et reviens ensuite vers nous..
Mais essaye toujours ce que tu dis

Appel de fonction

10 réponses

Votre réponse

Discussions similaires