Re: [Programmer-VB] Minta tolong terjemahkan logika algoritma

Purwedi Kurniawan Thu, 05 Oct 2006 00:31:21 -0700

algoritma fungsi binernya yaaa sama dg algoritma cara manual kita ngubah desimal ke biner *kalau di kuliah biasanya di semester 1 dapet tuh*

bagi bil tsb dg 2, ambil sisa pembagiannya terus di mod 2, simpan hasil mod

ambil hasil pembagian tadi, bagi dg 2, ambil sisa pembagiannya terus di mod 2, simpan hasil mod ini (letakkan didepan hasil mod sebelumnya) dst

sampai hasil pembagian lebih kecil dari 2 (1 atau 0)

contoh sederhana:

10/2 = 5 sisa 0, 0 mod 2 = 0 ----> simpan 0

5/2 = 2 sisa 1, 1 mod 2 = 1 -----> simpan 1 0

2/2 = 1 sisa 0, 0 mod 2 = 0 -----> simpan 0 10

hasil pembagian (1) lebih kecil dari 2 -----> simpan 1 010

hasil akhir ----> 1010

kalau buat mbaliknya, tinggal di pangkatin aja

1010 biner ---> 1x2^3 + 0x2^2 + 1x2^1 + 0x2^0 = 8 + 0 + 2 + 0 = 10

best regards

[wwn]

On 10/4/06, ERIS RISO <[EMAIL PROTECTED]> wrote:

Kalo fungsi ini Mas.....

Function BINER4(ByVal angka As Integer) As String

    If angka > 1 Then

        Dim i As Integer

        Dim hasil(5) As Integer

        Dim SISA(5) As Integer



        i = 1

        Do

            hasil(i) = Int(angka / 2)

            SISA(i) = angka Mod 2

            angka = hasil(i)

            i = i + 1

            BINER4 = SISA(i - 1) & BINER4

        Loop Until hasil(i - 1) < 2

        BINER4 = hasil(i - 1) & BINER4

        BINER4 = String$(4 - Len(BINER4), "0") & BINER4

    ElseIf angka = 1 Then

        BINER4 = "0001"

    ElseIf angka = 0 Then

        BINER4 = "0000"

    End If

End Function

__._,_.___

Wahana Programmer Groups Links <*> Untuk mengunjungi sponsor milis ini, klik link berikut: http://wahanaprogrammer.net <*> Untuk menghubungi owner milis ini, kirim email ke: [EMAIL PROTECTED] <*> Konsultasi pemrogramman bisa chat disini: Yahoo! Messenger: wahanaprogrammer

SPONSORED LINKS

`Indonesia phone card`	`Programmer`	`Indonesia tour`
`Indonesia travel`	`Indonesia flower`

Your email settings: Individual Email|Traditional
Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Daily Digest | Switch to Fully Featured
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

__,_._,___

Re: [Programmer-VB] Minta tolong terjemahkan logika algoritma

Kirim email ke