Convertitore da binario a decimale in VB6

[jollyr0ger]

ciao a tutti

devo fare per scuola un programma per convertire codice binario in decimale e viceversa.
ma non so che funzioni usare.
mi potete aiutare?

grazie e ciao

[Johnny_Depp]

per il VB6 e VB.NET abbiamo una sezione (subforum) apposita. sposto la discussione là.

n.b. bisogna specificare la versione di VB (anche e soprattutto nel titolo...)

[jollyr0ger]

è visual basic 6.
devo trovare un modo perche' non so come fare.

ciao

[TrigunXX]

Cercati un algoritmo che faccia la conversione...io ho trovato queste ma non so se funzionano alla perfezione:

Private Function dectobin(n As Long) As String
  Dim q As Long, e As Integer, s As Integer
  q = 2 ^ e
  Do While q <= n
    If n And q Then
      s = s + 1
      dectobin = "1" & dectobin
    Else
      dectobin = "0" & dectobin
    End If
    e = e + 1: q = 2 ^ e
  Loop
  flagGo = s >= mint And s <= maxt
End Function

Private Function bintodec(s As String) As Long
  Dim n As Integer
  For n = Len(s) To 1 Step -1
  If Mid(s, n, 1) = "1" Then
    bintodec = bintodec + 2 ^ (n - 1)
  End If
  Next n
End Function