Re: ]] XL-mania [[ program knverter

 

Walau pun di Excel sudah disediakan Fungsi-fungsi :

DEC2BIN   mengkonversi bilangan Decmal ke bilangan Biner (Binary)

BIN2DEC   mengkonversi bilangan Binary ke bilangan Decimal

tetapi 'kapasitasnya" (atau tepatnya angka yg dimasukkan sebagai 

argument tunggal nya) sangat terbatas.

Fungsi DEC2BIN di woksit Excel2003  seperti dibatasihasilnya max 9 digit (??)

yaitu hanya mengkonversi bilangan desimal -512 s/d + 511. 

Kasus seperti yg bapak tanyakan itu pernah muncul beberapa kali di milis.

Salah satunya dijawab oleh seorang member dengan membuatkan UDF.

(many thanks to sis siti)

Workbook-contoh-nya, kalau tidak salah, masih bisa diunduh di sini.

Misalnya gak ada ini pun gampang, karena banyak buku memuat coding 

seperti ini (bahkan juga mengenai bilangan Hexa) biasanya untuk anak-anak

mulai belajar logika sambil belajar VB6

Berikut ini saya kutipkan coding VBA nya (2 prosedur fungsi)

'------------------------

Function BinToDeci(ByVal BinVal As String) As Long

   '--siti Vi mengkonversi Bilangan Biner ke Desimal

   Dim vLong As Long, i As Long, p As Long

   p = Len(BinVal)

   For i = p To 1 Step -1

      If Mid$(BinVal, i, 1) = "1" Then

         If p - i > 30 Then

            vLong = vLong

         Else

            vLong = vLong + 2 ^ (p - i)

         End If

      ElseIf CByte(Mid(BinVal, i, 1)) >= 1 Then

         vLong = Error(13)

         Exit For

      End If

   Next

   BinToDeci = vLong

End Function

'------------------

Function DeciToBin(N) As String

   '--siti Vi mengkonversi Bilangan Desimal ke Binary

   Dim i As Integer, vBin As String

   If N > 2 ^ 31 Then

      DeciToBin = "Maaf, Max 2^31.."

      Exit Function

   End If

   Do

     vBin = IIf((N And 2 ^ i) = 2 ^ i, "1", "0") & vBin

     i = i + 1

   Loop Until 2 ^ i > N

   DeciToBin = vBin   

End Function

'------------------------

'kindest' rgds,

2011/10/25 Faddly A <a.faddly@yahoo.co.id>
> gan/sis
> gmana y membuat program d excel untuk mengkonversi bilanngan biner ke decimal
> dan decimal ke biner
> mohon bantuannya...

__._,_.___

Reply to sender | Reply to group | Reply via web post | Start a New Topic

Messages in this topic (4)

Recent Activity:

• New Members 76

Visit Your Group

+-:: XL-mania ::::::::::::::::::::----------------------------------+
| ayooo... coba cari XL-mania di linkedin.com                       |
| tanggal 3-4 oktober yahoogroup akan mengalami maintenance.        |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message,  melecehkan,  tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan  winzip  jika  perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke  |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/           |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau...  |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html           |
+-------------------------------------------------------------------+
| Message lama ada di :                                             |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id]  |
| http://www.mail-archive.com/xl-mania@yahoogroups.com              |
+-------------------------------------------------------------------+

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

Switch to: Text-Only, Daily Digest • Unsubscribe • Terms of Use

.

__,_._,___