VB:convertire un file ascii in binario

[aleddadda]

Ciao a tutti e grazie in anticipo per la collaborazione, dunque ho un file in formato ascii e lo devo convertire in binario, sapete darmi qualche soluzione?


Grazie

[jabjoint]

65 | 2(base)
-------
32 | 1
16 | 0
8 | 0
4 | 0
2 | 0
1 | 0
\ | 1

Dovresti fare un programma che divida il tuo numero continuamente per 2 poi gli dice se nelal stringa è presente il "."
if instr(1, numero, ".") > 0 Then
'Non è intero
Resto = 1
else
'E' un intero
Resto = 0
end if

[jabjoint]

o cosi:
numero = 65
if int(numero) = numero Then
MsgBox "E' Intero"
else
MsgBox "Non lo è"
end if

[jabjoint]

Eccoti il codice:

Dim n As Integer
Dim r As String

Private Sub Command1_Click()
n = 72 'Inserisci cio' che vuoi! ;-)
While n <> 1
n2 = n / 2
If Int(n2) = n2 Then
r = r & 0
Else
r = r & 1
End If
n = n2
Wend
r = r & 1 & " = R"
MsgBox StrReverse(r)
End Sub

[jabjoint]

Ca**o avevo sbagliato! :gren:
Ora è giusto:

'Eccoti il codice:

Private Sub Command1_Click()
Dim n As Integer 'Queste le mettiamo dentro và!
Dim r As String '
n = 72 'Inserisci cio' che vuoi! ;-)
While n <> 1
n2 = n / 2
If Int(n2) = n2 Then
r = r & 0
Else
r = r & 1
End If
n = int(n2 ) '<--- Deve tornare intero se no lo divide male!
Wend
r = r & 1 & " = R"
MsgBox StrReverse(r)
End Sub

Ciao dimmi se ti soddisfa!