Lire et ecrire dans une fenetre dos

Version imprimable

bonjour,

je cherche à écrire dans une fenêtre dos
voilà le code

Code:

1
2
3
4
5
6
7
8
9
10
Module Module1
 
    Sub Main()
        Dim st Integer
        st = Console.Read("texte")
        Console.Write(st)
 
    End Sub
 
End Module

Code:

1
2
3
4
Gravité	Code	Description	Projet	Fichier	Ligne	État de la suppression
Erreur	BC30205	Fin d'instruction attendue.	ConsoleApp9	C:\Users\jm18c\source\repos\ConsoleApp9\ConsoleApp9\Module1.vb	4	Actif
Gravité	Code	Description	Projet	Fichier	Ligne	État de la suppression
Erreur	BC32016	'Public Shared Overloads Function Read() As Integer' n'a aucun paramètre et son type de retour ne peut pas être indexé.	ConsoleApp9	C:\Users\jm18c\source\repos\ConsoleApp9\ConsoleApp9\Module1.vb	5	Actif

merci bcp

05/03/2018, 10h49
ZenZiTone

Bonjour,

Toutes les informations nécessaires sont disponibles dans la documentation MSDN :

Console.ReadLine()
Console.Read
Console.Write
Console.WriteLine

bonjour,
je comprend, j'ai regardé la doc
j'ai écrit ce script

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Module Module1
 
    Sub Main()
        Dim i As Integer
        Console.WriteLine("entrer une valeur")
        i = Console.Read()
 
        Console.Write(i)
        Console.WriteLine("")
        Call Shell("cmd /c pause")
 
    End Sub
 
End Module

le problème est que si je tape 3 cela éecrit le code ascii mais pas l'integer

il y a cette solution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Module Module1
 
    Sub Main()
        Dim i As Integer
        Console.WriteLine("entrer une valeur")
        Dim ch As String
        i = Console.Read()
        ch = Convert.ToChar(i)
        Console.Write(ch)
        Console.WriteLine("")
        Call Shell("cmd /c pause")
 
    End Sub
 
End Module

merci

05/03/2018, 12h12
ZenZiTone

Citation:

Envoyé par jmc41320

le problème est que si je tape 3 cela ecrit le code ascii mais pas l'integer

La méthode Read retourne un entier, contrairement à la méthode ReadLine qui retourne une chaine de caractères et serait donc plus appropriée au traitement que tu souhaites faire.

merci bcp

J'ai essayé

Code:

1
2
3
4
5
 Dim i As Integer
        Console.Write("entrer une valeur")
        i = Console.Read()
        Console.Write(i)
        Console.WriteLine("")

mais cela ne retourne toujours pas un entier

J'ai même essayé avec cint

Code:

1
2
3
4
5
6
Dim i As Integer
        Console.Write("entrer une valeur")
        i = Console.Read()
        Dim j As Integer
        j = CInt(i)
        Console.Write(j)

mais toujours le code ascii

merci

09/03/2018, 12h20
ZenZiTone

~~Dim i = Console.Read()~~ => Dim i = ReadLine()

Cf mon dernier message...
15/03/2018, 09h24
jmc41320

merci
19/03/2018, 18h53
jmc41320

Dim i = ReadLine()

Erreur 1 'readline' n'est pas déclaré. Il peut être inaccessible en raison de son niveau de protection. C:\Users\jm18c\AppData\Local\Temporary Projects\ConsoleApplication1\Module1.vb 6 13 ConsoleApplication1
merci
19/03/2018, 18h56
jmc41320

merci