Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

konverzija , decimalno u binarno i obrnuto

[es] :: Visual Basic 6 :: konverzija , decimalno u binarno i obrnuto

[ Pregleda: 3258 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

djordje
Novi Sad

Član broj: 3704
Poruke: 1725
*.vdial.verat.net



+3 Profil

icon konverzija , decimalno u binarno i obrnuto24.08.2004. u 02:21 - pre 207 meseci
ima li ko kod za konvertovanje broja iz dec u bin i obrnuto? hitno mi treba, nemam vremena da mozgamd da pisem, a ne mogu da nadjem na forumu.
 
Odgovor na temu

mladenovicz
Zeljko Mladenovic
Xoran Technologies, Inc., Ann Arbor, MI,
USA / Software Engineer
Ann Arbor, MI, USA

Član broj: 6598
Poruke: 2065
*.bg.wifi.vline.verat.net.

Jabber: mladenovicz@elitesecurity.org
ICQ: 95144142
Sajt: yubc.net/~mz


Profil

icon Re: konverzija , decimalno u binarno i obrnuto24.08.2004. u 10:58 - pre 207 meseci
Code:

Public Function BinaryToDecimal(Binary As String) As Long
    Dim n As Long
    Dim s As Integer
    
    For s = 1 To Len(Binary)
        n = n + (Mid(Binary, Len(Binary) - s + 1, 1) * (2 ^ (s - 1)))
    Next s
    
    BinaryToDecimal = n
End Function

Public Function DecimalToBinary(DecimalNum As Long) As String
    Dim tmp As String
    Dim n As Long
    
    n = DecimalNum
    
    tmp = Trim(Str(n Mod 2))
    n = n \ 2
    
    Do While n <> 0
        tmp = Trim(Str(n Mod 2)) & tmp
        n = n \ 2
    Loop
    
    DecimalToBinary = tmp
End Function

 
Odgovor na temu

[es] :: Visual Basic 6 :: konverzija , decimalno u binarno i obrnuto

[ Pregleda: 3258 | Odgovora: 1 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.