PDA

Visualizza la versione completa : VB:convertire un file ascii in binario


aleddadda
21-06-2002, 17:01
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
21-06-2002, 17:20
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
21-06-2002, 17:23
o cosi:
numero = 65
if int(numero) = numero Then
MsgBox "E' Intero"
else
MsgBox "Non lo "
end if

jabjoint
21-06-2002, 17:48
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

:ciauz:

jabjoint
21-06-2002, 18:41
:nonono:
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! :ciauz:

Loading