problème de procédure vb.net

Question

humm bon voialà ,
j'ai une premiere procédure qui effectue un certain traitement et qui après un certain résultat une seconde procédure doit effectuer un traitement sur le second résultat bon je mets les 2 procédure et l'appelle pour que ça soit un peu plus clair ^^
les variable globale : 
dim n as integer 

dim t as string
premiere procédure 
Private Sub de2à8()
        Dim f As Integer
        Dim s As String
        Dim tab(3) As String
        n = Console.ReadLine
        s = Val(n)
        s = StrReverse(s)
               For i = 1 To Len(s) Step +3
            f = 0
            For j = 0 To 2
                tab(j) = Mid(s, (i + j), 1)
                ' extrair 3 par 3 '
                If tab(j) = "1" Then
                    f = f + 2 ^ (j)
                                   End If
            Next
            For j = 0 To 2
                tab(j) = Nothing
                           Next
            t = t & f
            t = StrReverse(t)
                    Next
    End Sub 
Deuxieme procédure :

Private Sub de2()
        Dim s As String = ""
        n = Console.ReadLine
        While n / 2 > 0
            s = s & Convert.ToString(n Mod 2)
            If n Mod 2 = 1 Then
                n = (n - 1) / 2
            Else
                n = n / 2
            End If
        End While
        t = StrReverse(s)
    End Sub 
l'appelle :
  de8à2()
            n = Val(t)
            de2()
            Console.WriteLine(  t )

il me dit que la conversion de " n " dans la 2 eme procédure en type integer est impossible j'espère avoir était clair ^^'

lesdis · Answer

Bonjour,

Sur quel ligne?
Console.ReadLine renvoi un string, tu devrait plutôt mettre Cint(Console.ReadLine) 

Le must serait de faire une véirification pour qu'il n'y est que des caractères décimaux dans ce que tu reçoit.

Bonne Prog

Problème de procédure vb.net

1 réponse

Votre réponse

Discussions similaires