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

Wed, 04 Oct 2006 02:18:44 -0700

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

 

Function UbahIsi(ByVal strIsi As String) As String

    Dim pj As Integer

    Dim potongan() As String

    Dim empatan() As String

    Dim hasil() As String

    Dim tamp As String

   

    pj = Len(strIsi)

   

    ReDim potongan(pj + 1)

    ReDim empatan(pj + 1, 3)

    ReDim hasil(pj + 1, 3)

   

    tamp = String$(pj, "0")

   

    For i = 1 To pj

        tamp = tamp & BINER7(TOOTH(Mid(strIsi, pj - i + 1, 1)))

    Next i

   

    For i = pj To 1 Step -1

        potongan(i) = Mid(tamp, (8 * (i - 1)) + 1, 8)

        empatan(i, 1) = Mid(potongan(i), 1, 4)

        empatan(i, 2) = Mid(potongan(i), 5, 4)

        hasil(i, 1) = Hex$(DEBINER4(empatan(i, 1)))

        hasil(i, 2) = Hex$(DEBINER4(empatan(i, 2)))

        UbahIsi = UbahIsi & hasil(i, 1) & hasil(i, 2)

    Next i

   

End Function

 

From: [email protected] [mailto:[EMAIL PROTECTED] On Behalf Of Purwedi Kurniawan
Sent: 04 Oktober 2006 15:43
To: [email protected]
Subject: Re: [Programmer-VB] Minta tolong terjemahkan logika algoritma

di atas udah disebutkan kalau fungsi ini buat ngubah karakter komp ke hp, jd ya itulah di dia lakukan ^^
see insertion for details...
 
sincera
[poer]
 
PS: Kalau bisa signaturenya ga usah pake image mas, kasian teman2 yg bandwidthnya kecil.
 
.

__._,_.___

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

__,_._,___

Kirim email ke