cs_Alain Proviste
Messages postés908Date d'inscriptionjeudi 26 juillet 2001StatutModérateurDernière intervention 1 février 2015
-
15 mai 2004 à 23:31
Sharkiller
Messages postés71Date d'inscriptiondimanche 12 octobre 2003StatutMembreDernière intervention 9 janvier 2009
-
16 mai 2004 à 12:32
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Sharkiller
Messages postés71Date d'inscriptiondimanche 12 octobre 2003StatutMembreDernière intervention 9 janvier 2009 16 mai 2004 à 12:32
ouais, mais c'est aussi simple de laisser comme ça et de modifier juste les + :
List1.List(i) n & "x" & i & " " & (n * i)
là, ça marche :)
merci rene ;)
je vais mettre à jour du coup...
cs_rene38
Messages postés1858Date d'inscriptionsamedi 29 juin 2002StatutMembreDernière intervention17 octobre 201311 16 mai 2004 à 02:02
Pour éviter les incompatibilités, évitons les mélanges:
Private Sub Command1_Click()
List1.Clear
Dim n As Integer, t As Integer, i As Integer, Resultat As String
n = CInt(Text1.Text) n est un nombre entier
t = CInt(Text2.Text) t est un nombre entier
For i = 0 To t
'On définit Resultat comme un texte (une chaîne) composé de :
'le texte (CStr) représentant le nombre n ; le signe "x" ;
'le texte (CStr) représentant le nombre i ; le signe "=" ;
'le texte (CStr) représentant le résultat de la multiplication de n par i
'Le tout mis bout à bout (concaténé) et utilisant l'opérateur
'de concaténation "&" plutôt que le signe "+" trop ambigu :
Resultat CStr(n) & " x " & CStr(i) & " " & CStr(n * i)
'Il reste à afficher tout ça :
List1.List(i) = Resultat
Next i
End Sub
Sharkiller
Messages postés71Date d'inscriptiondimanche 12 octobre 2003StatutMembreDernière intervention 9 janvier 2009 16 mai 2004 à 00:13
non, ça me met le même message d'erreur...
cs_Alain Proviste
Messages postés908Date d'inscriptionjeudi 26 juillet 2001StatutModérateurDernière intervention 1 février 20152 16 mai 2004 à 00:06
ui je me suis trompé pardon
list1.additem n + "x" + i + " = " + (n * i)
Sharkiller
Messages postés71Date d'inscriptiondimanche 12 octobre 2003StatutMembreDernière intervention 9 janvier 2009 16 mai 2004 à 00:03
ça me met "Argument facultatif"
si je met "list1.list(i)=....." ça me met "type incompatible"
cs_Alain Proviste
Messages postés908Date d'inscriptionjeudi 26 juillet 2001StatutModérateurDernière intervention 1 février 20152 15 mai 2004 à 23:58
dans ce cas essaie plutot d'utiliser cette méthode :
list1.additem n + "x" + i + " " + (n * i)
Sharkiller
Messages postés71Date d'inscriptiondimanche 12 octobre 2003StatutMembreDernière intervention 9 janvier 2009 15 mai 2004 à 23:53
oups, désolé pour le 2° message...
Sharkiller
Messages postés71Date d'inscriptiondimanche 12 octobre 2003StatutMembreDernière intervention 9 janvier 2009 15 mai 2004 à 23:52
oui, c'est ce que j'ai voulu faire, j'ai voulu faire :
list1.list(i) n + "x" + i + " " + (n * i)
mais ça me met un message d'erreur :(
Sharkiller
Messages postés71Date d'inscriptiondimanche 12 octobre 2003StatutMembreDernière intervention 9 janvier 2009 15 mai 2004 à 23:51
oui, c'est ce que j'ai voulu faire, j'ai voulu faire :
list1.list(i) n + "x" + i + " " + (n * i)
mais ça me met un message d'erreur :(
cs_Alain Proviste
Messages postés908Date d'inscriptionjeudi 26 juillet 2001StatutModérateurDernière intervention 1 février 20152 15 mai 2004 à 23:31
tu peux mettre dans la liste
1 * 16 = 16
2 * 16 = 32
plutot que
16
32
16 mai 2004 à 12:32
List1.List(i) n & "x" & i & " " & (n * i)
là, ça marche :)
merci rene ;)
je vais mettre à jour du coup...
16 mai 2004 à 02:02
Private Sub Command1_Click()
List1.Clear
Dim n As Integer, t As Integer, i As Integer, Resultat As String
n = CInt(Text1.Text) n est un nombre entier
t = CInt(Text2.Text) t est un nombre entier
For i = 0 To t
'On définit Resultat comme un texte (une chaîne) composé de :
'le texte (CStr) représentant le nombre n ; le signe "x" ;
'le texte (CStr) représentant le nombre i ; le signe "=" ;
'le texte (CStr) représentant le résultat de la multiplication de n par i
'Le tout mis bout à bout (concaténé) et utilisant l'opérateur
'de concaténation "&" plutôt que le signe "+" trop ambigu :
Resultat CStr(n) & " x " & CStr(i) & " " & CStr(n * i)
'Il reste à afficher tout ça :
List1.List(i) = Resultat
Next i
End Sub
16 mai 2004 à 00:13
16 mai 2004 à 00:06
list1.additem n + "x" + i + " = " + (n * i)
16 mai 2004 à 00:03
si je met "list1.list(i)=....." ça me met "type incompatible"
15 mai 2004 à 23:58
list1.additem n + "x" + i + " " + (n * i)
15 mai 2004 à 23:53
15 mai 2004 à 23:52
list1.list(i) n + "x" + i + " " + (n * i)
mais ça me met un message d'erreur :(
15 mai 2004 à 23:51
list1.list(i) n + "x" + i + " " + (n * i)
mais ça me met un message d'erreur :(
15 mai 2004 à 23:31
1 * 16 = 16
2 * 16 = 32
plutot que
16
32
:)