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<http://www.box.net/shared/vggl65eq8klvqp8935ks> . 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 <[email protected]>* > gan/sis > gmana y membuat program d excel untuk mengkonversi bilanngan biner ke decimal > dan decimal ke biner > mohon bantuannya...
