BunoCS
Messages postés15472Date d'inscriptionlundi 11 juillet 2005StatutModérateurDernière intervention25 mars 2024103 18 nov. 2010 à 09:11
Hello,
Comme son nom l'indique, Console.ReadLine() lit une ligne dans la console.
Tu ne peux rien libérer.
A moins que je n'ai mal compris la question?
@+
Buno
----------------------------------------
L'urgent est fait, l'impossible est en cours. Pour les miracles, prévoir un délai...
rilou007
Messages postés9Date d'inscriptionmardi 7 septembre 2010StatutMembreDernière intervention25 janvier 2011 19 nov. 2010 à 21:48
J'ai cree un programme qui peut lire 1 tableau d'entier pour 1 nombre d'element qui sera fixe par l'utilisateur:
[b][i]
Module Module1
Sub Main()
Dim ValeurEntree As String = ""
Dim ValeurEntreeInt As Byte = 0
Dim i As Byte
Dim Num As Byte = 1
Dim NbreEntree As Integer = 0
Do
Console.Write("Combien d'entier voulez vous entrer: ")
ValeurEntree = Console.ReadLine()
Loop Until IsNumeric(ValeurEntree)
ValeurEntreeInt = CInt(ValeurEntree)
'Dim Tableau()() As Integer = New Integer(ValeurEntree)() {}
Dim Tableau() As Integer = New Integer(ValeurEntreeInt) {}
For i = 0 To UBound(Tableau) - 1 Step 1
'Console.Clear()
If Num > 0 Then
Do
Console.WriteLine("Entrer le " & Num & "er entier: ")
NbreEntree = Console.Read()
Loop Until IsNumeric(NbreEntree)
Else
Do
Console.WriteLine("Entrer le " & Num & "eme entier: ")
NbreEntree = Console.Read()
Loop Until IsNumeric(NbreEntree)
End If
Num = Num + 1
Console.WriteLine(NbreEntree & "OK")
Tableau(i) = NbreEntree
NbreEntree = 0
Next
For i = 0 To UBound(Tableau) - 1
Console.WriteLine(" Est: " & Tableau(i))
Next
Console.Read()
End Sub
End Module/i/b Ca ne fonctionne pas bien, il semble Console.Read garde des valeurs en tampons.