Données de sortie dans un autre formulaire
Bonjour à tous!
Je suis actuellement en master Qualité et j'ai eu l'occasion de m'initier à la programmation et notamment sur VB.
J'ai pour projet de réaliser un programme de remise en forme.
Le programme permet à l’utilisateur de calculer son surplus calorique de la journée.
Le programme demande un temps en minute qu'a l'utilisateur pour pratiquer un sport. En fonction du temps donné et du surplus calorique, le programme calcul quels sports doit pratiquer l'utilisateur pour dépenser son surplus calorique.
J'ai réussi tant bien que mal à développer une bonne partie du codage.
Mais arrivant à la fin de mon programme ça coince!
Je souhaiterai en effet ajouter à mon programme un formulaire nommé "Résultats" qui s'affiche lorsqu'on clique sur cmdRésultat.
Ce formulaire possède une listbox nommée "lstchoixsport" qui afficherait le résultat des sports "resultat".
Dans ce programme j'arrive à afficher le formulaire résultat mais les sport n'apparaissent pas dans la listbox.
Voici mon code:
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
| Private Sub cmdRésultat_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdRésultat.Click
Dim sportOK(15) As String
Dim i As Integer
Dim j As Integer
Dim resultat As String
Dim lstchoixsport As String
Résultats.Show()
lstchoixsport = ""
j = 0
For i = 0 To 15
If tabSports(i).calparmin * Val(txtTempsdisponble.Text) > lblSurpluscalorique.Text Then
sportOK(j) = tabSports(i).nomsport
j = j + 1
End If
Next
resultat = lstchoixsport
For i = 0 To j - 1
resultat = resultat + sportOK(i) + " "
Next
lstchoixsport = resultat
End Sub |
Quelles solutions pouvez-vous m'apporter pour ce problème?
En vous remerciant!
