ajuda conversor bin para decimal

[cassiobit]

oi pessoal sou novo por aqui,trabalho na area de eletronica automotiva ,sou novo tambem em programação ,estou desenvolvendo um programa conversor binario para decimal ,a função do programa e abrir um arquivo bin ler 2 posições do mesmo ,convertelas de bin para dec ,e apresentar no display como dec ,o codigo ate agora e

Private Sub cmdok_Click()

If (Right$(Dir1.Path, 1) = "\") Then

FileName$ = Dir1.Path + File1.FileName

Else

FileName$ = Dir1.Path + "\" + File1.FileName

End If

Open FileName$ For Binary As #1

Get #1, 0 + 1, FileName$

Text1.Text = FileName$

End Sub

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

preciso agora de uma função q converta o byte (0+1) em dec

alguém pode me ajudar

obrigado

[Graymalkin]

Mas, o byte já vem em decimal. O armazenamento dos bits em um arquivo binário se dá através de conjuntos de 8 bits (bytes), o que resulta numa sequência de valores decimais. No caso, o valor de cada byte estará entre 0 e 255. Então, qual é exatamente a sua dúvida?

Abraços,

Graymalkin