Bonjour,
j'ai un petit problème de code sur VB (voir http://www.developpez.net/forums/d74...e/#post4314762)
si quelqu'un peut me filer un coup de main le code que j'ai écrit bug.
Bonjour,
j'ai un petit problème de code sur VB (voir http://www.developpez.net/forums/d74...e/#post4314762)
si quelqu'un peut me filer un coup de main le code que j'ai écrit bug.
Pourrais tu mettre les lignes de code qui concerne ton problème s'il te plaît ?
A savoir le calcul de la moyenne cumulée ainsi que les infos sur les variables utilisés.
Oki voila le calcul de la frequentation moyenne :
frequentationMoyenne = moy_freq(nb_simu)
Txmoyfreq.Text = frequentationMoyenne
celui la il marche nickel chrome, il utilise une fonction moy freq qui est dans le module, et voila le calcul (qui plante) de la moyenne cumulée :
Dim freqtot As Integer
For i = 1 To no_sem
freqtot = moy_freq(no_sem)
Text2.Text = freqtot
Next i
Pour commencer :
C'est quoi no_sem ? Le numéro de la semaine en cours?
Ensuite moy_freq renvoit quoi ? la moyenne de la semaine no_sem?
no_sem c'est le numéro de la semaine courante depuis le début, nb_simu c'est le nombre de semaines de simulation le problème c'est que cette variable est limité donc je ne peux pas l'utiliser quand je relance l'appli.
Voila moy_freq :
Function moy_freq(nb_sem As Integer) As Byte
'retourne la moyenne de la fréquentation sur les nb_sem semaines passées
Dim t As Integer
Dim i As Integer
t = 0
For i = 1 To nb_sem
t = freq(i) + t
Next i
moy_freq = Int(t / nb_sem)
End Function
Ici, il ne faudrait pas faire :Dim freqtot As Integer
For i = 1 To no_sem
freqtot = moy_freq(no_sem)
Text2.Text = freqtot
Next i
freqtot = freqtot + moy_freq(no_sem)
et a la sortie de ta boucle feqtot = freqtot / nb_sem
Partager