Fungsi Terbilang Di MS Excel

Fungsi terbilang adalah salah satu add-ins untuk menterjemahkan angka menjadi kata-kata pada aplikasi MS Excel. 
Fungsi terbilang ini mampu menterjemahkan angka sampai 15 digit dan 2 angka dibelakang koma. 15 digit angka merupakan nilai yang dapat ditampung MS Excel sebelum dirubah ke nilai Exponen.



Lankah-langkahnya adalah sebagai berikut :

• Buka file Excel, masuk ke menu Tools » Macro » Visual Basic Editor atau dengan shortcut ", setelah Visual Basic Editor terbuka, Anda masuk ke menu Insert » Module, kemudian Paste-kan salah satu kode dibawah ini.

Public Function Terbilang(strAngka As String, _ Optional MataUang As String = "Rupiah") As String Dim strJmlHuruf$, intPecahan As Integer Dim strPecahan$, Urai$, Bil1$, strTot$, Bil2$ Dim X As Integer, Y As Integer, z As Integer On Error GoTo Pesan Dim strValid As String, huruf As String * 1 Dim i As Integer strValid = "1234567890" For i% = 1 To Len(strAngka) huruf = Chr(Asc(Mid(strAngka, i%, 1))) If InStr(strValid, huruf) = 0 Then Set AngkaTerbilang = Nothing MsgBox "Harus karakter angka!", _ vbCritical, "Terbilang Berpesan" Exit Function End If Next i% If strAngka = "" Then Exit Function If Len(Trim(strAngka)) > 15 Then GoTo Pesan strJmlHuruf = LTrim(strAngka) If (intPecahan = 0) Then strPecahan = "" Else strPecahan = "" End If X = 0 Y = 0 Urai = "" While (X < Len(strJmlHuruf)) X = X + 1 strTot = Mid(strJmlHuruf, X, 1) Y = Y + Val(strTot) z = Len(strJmlHuruf) - X + 1 Select Case Val(strTot) Case 1 If (z = 1 Or z = 7 Or z = 10 Or z = 13) Then Bil1 = "Satu " ElseIf (z = 4) Then If (X = 1) Then Bil1 = "Se" Else Bil1 = "Satu " End If ElseIf (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then X = X + 1 strTot = Mid(strJmlHuruf, X, 1) z = Len(strJmlHuruf) - X + 1 Bil2 = "" Select Case Val(strTot) Case 0: Bil1 = "Sepuluh " Case 1: Bil1 = "Sebelas " Case 2: Bil1 = "Dua Belas " Case 3: Bil1 = "Tiga Belas " Case 4: Bil1 = "Empat Belas " Case 5: Bil1 = "Lima Belas " Case 6: Bil1 = "Enam Belas " Case 7: Bil1 = "Tujuh Belas " Case 8: Bil1 = "Delapan Belas " Case 9: Bil1 = "Sembilan Belas " End Select Else Bil1 = "Se" End If Case 2: Bil1 = "Dua " Case 3: Bil1 = "Tiga " Case 4: Bil1 = "Empat " Case 5: Bil1 = "Lima " Case 6: Bil1 = "Enam " Case 7: Bil1 = "Tujuh " Case 8: Bil1 = "Delapan " Case 9: Bil1 = "Sembilan " Case Else Bil1 = "" End Select If (Val(strTot) > 0) Then If (z = 2 Or z = 5 Or z = 8 Or z = 11 Or z = 14) Then Bil2 = "Puluh " ElseIf (z = 3 Or z = 6 Or z = 9 Or z = 12 Or z = 15) Then Bil2 = "ratus " Else Bil2 = "" End If Else Bil2 = "" End If If (Y > 0) Then Select Case z Case 4: Bil2 = Bil2 + "ribu " Y = 0 Case 7: Bil2 = Bil2 + "Juta " Y = 0 Case 10: Bil2 = Bil2 + "Milyar " Y = 0 Case 13: Bil2 = Bil2 + "Trilyun " Y = 0 End Select End If Urai = Urai + Bil1 + Bil2 Wend Urai = Urai + strPecahan Terbilang = StrConv((Urai & MataUang), vbProperCase) Exit Function Pesan: Terbilang = "(maksimal 15 digit)" End Function

Public Function Terbilang(xbil As Double)<br /> Dim nilai, i, j, k, hasil$, HasilAkhir$, Bilangan#, Digit, Rp$, Bil$<br /> <br /> If IsNull(xbil) Then<br /> Terbilang = Null<br /> Exit Function<br /> End If<br /> <br /> 'Pengelompokan<br /> Dim Kel$(1 To 6), Angka$(1 To 9), Sat$(1 To 3)<br /> Kel$(1) = "Biliun "<br /> Kel$(2) = "Triliun "<br /> Kel$(3) = "Miliar "<br /> Kel$(4) = "Juta "<br /> Kel$(5) = "Ribu "<br /> Kel$(6) = ""<br /> <br /> 'Data angka<br /> Angka$(1) = "Satu "<br /> Angka$(2) = "Dua "<br /> Angka$(3) = "Tiga "<br /> Angka$(4) = "Empat "<br /> Angka$(5) = "Lima "<br /> Angka$(6) = "Enam "<br /> Angka$(7) = "Tujuh "<br /> Angka$(8) = "Delapan "<br /> Angka$(9) = "Sembilan "<br /> <br /> 'Satuan<br /> Sat$(1) = "Ratus "<br /> Sat$(2) = "Puluh "<br /> Sat$(3) = ""<br /> <br /> 'Mulai<br /> Bilangan# = Val(xbil)<br /> HasilAkhir$ = ""<br /> GoSub HitungHuruf<br /> If hasil$ <> "" Then<br /> HasilAkhir$ = hasil$ + "Rupiah"<br /> End If<br /> <br /> 'Hitung Pecahan<br /> Bilangan# = Fix((Bilangan# - Fix(Bilangan#) + 0.005) * 100#)<br /> If Bilangan# > 0 Then<br /> GoSub HitungHuruf<br /> If hasil$ <> "" Then<br /> HasilAkhir$ = HasilAkhir$ + " " + hasil$ + "Sen"<br /> End If<br /> End If<br /> <br /> Terbilang = HasilAkhir$<br /> Exit Function<br /> <br /> HitungHuruf:<br /> Rp$ = Right$(String$(18, "0") + LTrim$(Str$(Fix(Bilangan#))), 18)<br /> hasil$ = ""<br /> <br /> If Val(Rp$) = 0 Then Return<br /> <br /> 'Bilangan Bulat<br /> For i = 1 To 6<br /> Bil$ = Mid$(Rp$, i * 3 - 2, 3)<br /> <br /> If Val(Bil$) = 1 And i = 5 Then<br /> hasil$ = hasil$ + "Seribu "<br /> <br /> ElseIf Val(Bil$) <> 0 Then<br /> For j = 1 To 3<br /> Digit = Val(Mid$(Bil$, j, 1))<br /> If j = 2 And Right$(Bil$, 2) = "10" Then<br /> hasil$ = hasil$ + "Sepuluh "<br /> Exit For<br /> <br /> ElseIf j = 2 And Right$(Bil$, 2) = "11" Then<br /> hasil$ = hasil$ + "Sebelas "<br /> Exit For<br /> <br /> ElseIf j = 2 And Mid$(Bil$, 2, 1) = "1" Then<br /> hasil$ = hasil$ + Angka$(Val(Right$(Bil$, 1))) + "Belas "<br /> Exit For<br /> <br /> ElseIf Digit = 1 And j = 1 Then<br /> hasil$ = hasil$ + "Seratus "<br /> <br /> ElseIf Digit <> 0 Then<br /> hasil$ = hasil$ + Angka$(Digit) + Sat$(j)<br /> <br /> End If<br /> Next<br /> hasil$ = hasil$ + Kel$(i)<br /> End If<br /> Next<br /> Return<br /> End Function

'Fungsi Terbilang Dengan VBA Untuk MS Office Excel<br /> 'Created By : Dievend<br /> 'Adapted At : www.dievend.blogspot.com<br /> <br /> 'Fungsi Penterjemahan Masing-Masing Angka<br /> Private Function Dievend(Number)<br /> Cyber = Array("", "Satu", "Dua", "Tiga", "Empat", "Lima", "Enam", "Tujuh", "Delapan", "Sembilan")<br /> Dievend = Cyber(Number)<br /> End Function<br /> <br /> 'Mulai Penulisan Fungsi Terbilang<br /> Public Function Terbilang(Nilai, Optional Style = 4, Optional Satuan = "")<br /> Angka = Fix(Abs(Nilai))<br /> <br /> 'Desimal Dibelakang Koma<br /> Cyber1 = Mid(Abs(Nilai), Len(Angka) + 2, 1)<br /> Cyber2 = Mid(Abs(Nilai), Len(Angka) + 3, 1)<br /> <br /> If Cyber2 = "" Then<br /> If Cyber1 = "" Or Cyber1 = "0" Then<br /> Koma = ""<br /> Else<br /> Koma = " Koma " & Dievend(Cyber1)<br /> End If<br /> ElseIf Cyber2 = "0" Then<br /> If Cyber1 = "0" Then<br /> Koma = ""<br /> ElseIf Cyber1 = "1" Then<br /> Koma = " Koma Sepuluh"<br /> Else<br /> Koma = " Koma " & Dievend(Cyber1) & " Puluh"<br /> End If<br /> Else<br /> If Cyber1 = "0" Then<br /> Koma = " Koma Dievl " & Dievend(Cyber2)<br /> ElseIf Cyber1 = "1" Then<br /> If Cyber2 = "1" Then<br /> Koma = " Koma Sebelas"<br /> Else<br /> Koma = " Koma " & Dievend(Cyber2) & " Belas"<br /> End If<br /> Else<br /> Koma = " Koma " & Dievend(Cyber1) & " Puluh " & Dievend(Cyber2)<br /> End If<br /> End If<br /> <br /> 'Misahin Angka<br /> Diev1 = Left(Right(Angka, 1), 1)<br /> Diev2 = Left(Right(Angka, 2), 1)<br /> Diev3 = Left(Right(Angka, 3), 1)<br /> Diev4 = Left(Right(Angka, 4), 1)<br /> Diev5 = Left(Right(Angka, 5), 1)<br /> Diev6 = Left(Right(Angka, 6), 1)<br /> Diev7 = Left(Right(Angka, 7), 1)<br /> Diev8 = Left(Right(Angka, 8), 1)<br /> Diev9 = Left(Right(Angka, 9), 1)<br /> Diev10 = Left(Right(Angka, 10), 1)<br /> Diev11 = Left(Right(Angka, 11), 1)<br /> Diev12 = Left(Right(Angka, 12), 1)<br /> Diev13 = Left(Right(Angka, 13), 1)<br /> Diev14 = Left(Right(Angka, 14), 1)<br /> Diev15 = Left(Right(Angka, 15), 1)<br /> <br /> 'Satuan<br /> If Len(Angka) >= 1 Then<br /> If Len(Angka) = 1 And Diev1 = 1 Then<br /> Number1 = "Satu"<br /> ElseIf Len(Angka) = 1 And Diev1 = 0 Then<br /> Number1 = "Dievl"<br /> ElseIf Diev2 = "1" Then<br /> If Diev1 = "1" Then<br /> Number1 = "Sebelas"<br /> ElseIf Diev1 = "0" Then<br /> Number1 = "Sepuluh"<br /> Else<br /> Number1 = Dievend(Diev1) & " Belas"<br /> End If<br /> <br /> Else<br /> Number1 = Dievend(Diev1)<br /> End If<br /> Else<br /> Number1 = ""<br /> End If<br /> <br /> 'Puluhan<br /> If Len(Angka) >= 2 Then<br /> If Diev2 = 1 Or Diev2 = "0" Then<br /> Number2 = ""<br /> Else<br /> Number2 = Dievend(Diev2) & " Puluh "<br /> End If<br /> Else<br /> Number2 = ""<br /> End If<br /> <br /> 'Ratusan<br /> If Len(Angka) >= 3 Then<br /> If Diev3 = "1" Then<br /> Number3 = "Seratus "<br /> ElseIf Diev3 = "0" Then<br /> Number3 = ""<br /> Else<br /> Number3 = Dievend(Diev3) & " Ratus "<br /> End If<br /> Else<br /> Number3 = ""<br /> End If<br /> <br /> 'Ribuan<br /> If Len(Angka) >= 4 Then<br /> If Diev6 = "0" And Diev5 = "0" And Diev4 = "0" Then<br /> Number4 = ""<br /> ElseIf (Diev4 = "1" And Len(Angka) = 4) Or (Diev6 = "0" And Diev5 = "0" And Diev4 = "1") Then<br /> Number4 = "Seribu "<br /> ElseIf Diev5 = "1" Then<br /> If Diev4 = "1" Then<br /> Number4 = "Sebelas Ribu "<br /> ElseIf Diev4 = "0" Then<br /> Number4 = "Sepuluh Ribu "<br /> Else<br /> Number4 = Dievend(Diev4) & " Belas Ribu "<br /> End If<br /> <br /> Else<br /> Number4 = Dievend(Diev4) & " Ribu "<br /> End If<br /> Else<br /> Number4 = ""<br /> End If<br /> <br /> 'Puluhan Ribu<br /> If Len(Angka) >= 5 Then<br /> If Diev5 = "1" Or Diev5 = "0" Then<br /> Number5 = ""<br /> Else<br /> Number5 = Dievend(Diev5) & " Puluh "<br /> End If<br /> Else<br /> Number5 = ""<br /> End If<br /> <br /> 'Ratusan Ribu<br /> If Len(Angka) >= 6 Then<br /> If Diev6 = "1" Then<br /> Number6 = "Seratus "<br /> ElseIf Diev6 = "0" Then<br /> Number6 = ""<br /> Else<br /> Number6 = Dievend(Diev6) & " Ratus "<br /> End If<br /> Else<br /> Number6 = ""<br /> End If<br /> <br /> 'Jutaan<br /> If Len(Angka) >= 7 Then<br /> If Diev9 = "0" And Diev8 = "0" And Diev7 = "0" Then<br /> Number7 = ""<br /> ElseIf Diev7 = "1" And Len(Angka) = 7 Then<br /> Number7 = "Satu Juta "<br /> ElseIf Diev8 = "1" Then<br /> If Diev7 = "1" Then<br /> Number7 = "Sebelas Juta "<br /> ElseIf Diev7 = "0" Then<br /> Number7 = "Sepuluh Juta "<br /> Else<br /> Number7 = Dievend(Diev7) & " Belas Juta "<br /> End If<br /> <br /> Else<br /> Number7 = Dievend(Diev7) & " Juta "<br /> End If<br /> Else<br /> Number7 = ""<br /> End If<br /> <br /> 'Puluhan Juta<br /> If Len(Angka) >= 8 Then<br /> If Diev8 = "1" Or Diev8 = "0" Then<br /> Number8 = ""<br /> Else<br /> Number8 = Dievend(Diev8) & " puluh "<br /> End If<br /> Else<br /> Number8 = ""<br /> End If<br /> <br /> 'Ratusan Juta<br /> If Len(Angka) >= 9 Then<br /> If Diev9 = "1" Then<br /> Number9 = "Seratus "<br /> ElseIf Diev9 = "0" Then<br /> Number9 = ""<br /> Else<br /> Number9 = Dievend(Diev9) & " Ratus "<br /> End If<br /> Else<br /> Number9 = ""<br /> End If<br /> <br /> 'Milyar<br /> If Len(Angka) >= 10 Then<br /> If Diev12 = "0" And Diev11 = "0" And Diev10 = "0" Then<br /> Number10 = ""<br /> ElseIf Diev10 = "1" And Len(Angka) = 10 Then<br /> Number10 = "Satu Milyar "<br /> ElseIf Diev11 = "1" Then<br /> If Diev10 = "1" Then<br /> Number10 = "Sebelas Milyar "<br /> ElseIf Diev10 = "0" Then<br /> Number10 = "Sepuluh Milyar "<br /> Else<br /> Number10 = Dievend(Diev10) & " Belas Milyar "<br /> End If<br /> <br /> Else<br /> Number10 = Dievend(Diev10) & " Milyar "<br /> End If<br /> Else<br /> Number10 = ""<br /> End If<br /> <br /> 'Puluhan Milyar<br /> If Len(Angka) >= 11 Then<br /> If Diev11 = "1" Or Diev11 = "0" Then<br /> Number11 = ""<br /> Else<br /> Number11 = Dievend(Diev11) & " Puluh "<br /> End If<br /> Else<br /> Number11 = ""<br /> End If<br /> <br /> 'Ratusan Milyar<br /> If Len(Angka) >= 12 Then<br /> If Diev12 = "1" Then<br /> Number12 = "Seratus "<br /> ElseIf Diev12 = "0" Then<br /> Number12 = ""<br /> Else<br /> Number12 = Dievend(Diev12) & " Ratus "<br /> End If<br /> Else<br /> Number12 = ""<br /> End If<br /> <br /> 'Triliun<br /> If Len(Angka) >= 13 Then<br /> If Diev15 = "0" And Diev14 = "0" And Diev13 = "0" Then<br /> Number13 = ""<br /> ElseIf Diev13 = "1" And Len(Angka) = 13 Then<br /> Number13 = "Satu Triliun "<br /> ElseIf Diev14 = "1" Then<br /> If Diev13 = "1" Then<br /> Number13 = "Sebelas Triliun "<br /> ElseIf Diev13 = "0" Then<br /> Number13 = "Sepuluh Triliun "<br /> Else<br /> Number13 = Dievend(Diev13) & " Belas Triliun "<br /> End If<br /> <br /> Else<br /> Number13 = Dievend(Diev13) & " Triliun "<br /> End If<br /> Else<br /> Number13 = ""<br /> End If<br /> <br /> 'Puluhan Triliun<br /> If Len(Angka) >= 14 Then<br /> If Diev14 = "1" Or Diev14 = "0" Then<br /> Number14 = ""<br /> Else<br /> Number14 = Dievend(Diev14) & " Puluh "<br /> End If<br /> Else<br /> Number14 = ""<br /> End If<br /> <br /> 'Ratusan Triliun<br /> If Len(Angka) >= 15 Then<br /> If Diev15 = "1" Then<br /> Number15 = "Seratus "<br /> ElseIf Diev15 = "0" Then<br /> Number15 = ""<br /> Else<br /> Number15 = Dievend(Diev15) & " Ratus "<br /> End If<br /> Else<br /> Number15 = ""<br /> End If<br /> <br /> If Len(Angka) > 15 Then<br /> Bilang = "Digit Angka Terlalu Banyak"<br /> Else<br /> If IsNull(Nilai) Then<br /> Bilang = ""<br /> ElseIf Nilai < 0 Then Bilang = "minus " & Trim(Number15 & Number14 & Number13 & Number12 & Number11 & Number10 & Number9 & Number8 & Number7 _ & Number6 & Number5 & Number4 & Number3 & Number2 & Number1 & Koma & " " & Satuan) Else Bilang = Trim(Number15 & Number14 & Number13 & Number12 & Number11 & Number10 & Number9 & Number8 & Number7 _ & Number6 & Number5 & Number4 & Number3 & Number2 & Number1 & Koma & " " & Satuan) End If End If If Style = 4 Then Terbilang = StrConv(Left(Bilang, 1), 1) & StrConv(Mid(Bilang, 2, 1000), 2) Else Terbilang = StrConv(Bilang, Style) End If Terbilang = Replace(Terbilang, " ", " ", 1, 1000, vbTextCompare) End Function

• Kemudian click Save dan Close (Visual Basic editor). Sekarang fungsi buatan terbilang sudah siap digunakan.

• Fungsi diatas hanya berlaku untuk satu Workbook / satu file saja, kalau anda menginginkan fungsi buatan tersebut bisa diaplikasikan ke semua file Excel, anda harus menyimpan file tersebut menjadi File Add-in, caranya klik Save/Save as, setelah muncul kotak dialog, pada bagian Save as Type pilih Microsoft Office excel Add-ins, simpan dengan nama file "Terbilang",setelah disimpan sekarang anda klik menu Tools » add-Ins » klik Browse dan buka file "Terbilang" yang baru anda simpan.
• Untuk penulisan rumus secara lansung dengan Formula =Terbilang(Cels) » Enter, atau pilih Insert » Function, dari daftar dalam Function Category, pilihlah User Defined, sehingga dalam daftar di Function name muncul nama fungsi Terbilang.

• Selesai.

Computer & Tutorial. , MS Excel.

Bahasa Pemrograman HTML

Hyper Text Mark Up Languange ( HTML ) digunakan untuk membuat Web dengan Protocol yang digunakan HTTP ( Hyper Text Transfer Protocol ).

Sejalan perkembangan, sejumlah Script dan Objek dikembangkan untuk memperluas kemampuan HTML, antara lain PHP dan ASP sedangkan contoh yang berupa objek antara lain Applet ( Java ).

Perintah HTML berada didalam tanda <..>, yang digunakan untuk menampilkan fungsi² tertentu seperti fungsi link dan sebagainya.

Dinamakan Hyper Text karena kita bisa membaca isi dari sebuah dokumen / berita tanpa harus membacanya baris demi baris. Dan bisa melompat-lompat dari satu topic ke topic lainnya.

Dinamakan Mark Up Languange karena HTML mengandung tanda atau perintah tertentu untuk menentukan tampilan teks, gambar, dsb beserta fungsi² yan diinginkan.

Contoh : <b>Bahasa Pemrograman HTML</b>

Perintah <b> ini menyebabkan tulisan diatas menjadi tebal ( Bold ) ketika ditampilkan di browser. Browser merupakan sarana yan digunakan untuk membuka website. Jadi HTML memiliki perintah khusus yang disebut elemen, dan elemen² itu berada di antara tag awal < dan tag akhir />

Kerangka Dasar Homepage

Berikut ini adalah kerangka dasar dokumen HTML yang merupakan aturan dari W3 Consortium

<HTML>
<Head>***bagian dari head***</Head>
<Body>***bagian dari body***</Bdy>
</HTML>

Agar lebih jelasnya sekarang lansung saja di praktekin, Buka Notepad dan ketikkan Source Code program berikut :

<html>
<head>
<title> Bahasa Pemrograman HTML </title>
</head>
<body>
<h2>Belajar Bahasa Pemrograman HTML</h2>
HTML adalah dasar pembuatan website, dimana perintah² HTML dapat diketik pada Notepad ( Jika menggunakan S.O Windows ) atau Vi ( Jika menggunakan Linux ).
</body>
</html>

Simpan dengan ekstensi ***.html. Kemudian buka dengan Browser dan lihat hasilnya.

Computer & Tutorial. , Programming.

Mencari KPK & FPB Dengan MS. Excel

Masih ingat KPK & FPB, KPK (Kelipatan Persekutuan Terkecil) & FPB (Faktor Persekutuan Terbesar). Ini adalah pelajaran waktu SD dulu, yang dulu mungkin menghabiskan setengah halaman untuk mencarinya.

Sekarang saya jelaskan cara menyelesaikannya dengan MS. Excel, 

• Utuk mencari KPK, fungsi yang digunakan adalah LCM (Least Common Multiple of Integer). Maka penulisan rumusnya adalah =LCM(Angka;Angka;Angka)

          Example : 

            KPK : 10 20 & 30 

            Rumus =LCM(10;20;30) >> Enter

• Utuk mencari FPB, fungsi yang digunakan adalah GCD (Greatest Common Divisor). Maka penulisan rumusnya adalah =GCD(Angka;Angka;Angka)

          Example : 

            FPB : 10 20 & 30 

            Rumus =GCD(10;20;30) >> Enter

To be continue .....

Computer & Tutorial. , MS Excel.

Macam² Bahasa Pemrograman

Bahasa pemrograman adalah teknik komunikasi standar untuk mengekspresikan instruksi kepada komputer. Layaknya bahasa manusia, setiap bahasa memiliki tata tulis dan aturan tertentu. Bahasa pemrograman memfasilitasi seorang Programmer untuk secara spesifik apa yang akan dilakukan oleh komputer selanjutnya, bagaimana data tersebut disimpan dan dikirim, dan apa yang akan dilakukan apabila terjadi kondisi yang Variatif.

Berikut ini adalah beberapa macam bahasa Pemrograman :

• Bahasa Pemrograman HTML

Hyper Text Markup Language ( HTML ) adalah sebuah bahasa markup yang digunakan untuk membuat sebuah halaman web dan menampilkan berbagai informasi di dalam sebuah browser Internet.
HTML saat ini merupakan standar Internet yang didefinisikan dan dikendalikan penggunaannya oleh World Wide Web Consortium ( W3C ).
HTML berupa kode-kode tag yang menginstruksikan browser untuk menghasilkan tampilan sesuai dengan yang diinginkan.

• Bahasa Pemrograman PHP

PHP adalah bahasa pemrograman script. PHP pertama kali dibuat oleh Rasmus Lerdorf pada tahun 1995. Pada waktu itu PHP masih bernama FI ( Form Interpreted ), yang wujudnya berupa sekumpulan script yang digunakan untuk mengolah data form dari web.
PHP banyak dipakai untuk membuat situs web yang dinamis, walaupun tidak tertutup kemungkinan digunakan untuk pemakaian lain.
PHP biasanya berjalan pada sistem operasi linux ( PHP juga bisa dijalankan dengan hosting windows ).

• Bahasa Pemrograman ASP

ASP adalah singkatan dari Active Server Pages yang merupakan salah satu bahasa pemograman web untuk menciptakan halaman web yang dinamis.
ASP merupakan salah satu produk teknologi yang disediakan oleh Microsoft.
ASP bekerja pada web server dan merupakan Server Side Scripting.

• Bahasa Pemrograman XML

Extensible Markup Language (XML) adalah bahasa markup serbaguna yang direkomendasikan W3C untuk mendeskripsikan berbagai macam data.
XML menggunakan markup tags seperti halnya HTML namun penggunaannya tidak terbatas pada tampilan halaman web saja.
XML merupakan suatu metode dalam membuat penanda/markup pada sebuah dokumen.

• Bahasa Pemrograman WML

WML adalah kepanjangan dari Wireless Markup Language, yaitu bahasa pemrograman yang digunakan dalam aplikasi berbasis XML (Xtensible Markup Langauge).
WML ini adalah bahasa pemrograman yang digunakan dalam aplikasi wireless.
WML merupakan analogi dari HTML yang berjalan pada protocol nirkabel.

• Bahasa Pemrograman PERL

Perl adalah bahasa pemrograman untuk mesin dengan sistem operasi Unix ( SunOS, Linux, BSD, HP-UX ), juga tersedia untuk sistem operasi seperti DOS, Windows, PowerPC, BeOS, VMS, EBCDIC, dan PocketPC.
PERL merupakan bahasa pemograman yang mirip bahasa pemograman C.

• Bahasa Pemrograman CFM

CFM dibuat menggunakan tag Cold Fusion dengan software Adobe Cold Fusion / BlueDragon / Cold Fusion Studio.
Syntax ColdFusion berbasis html.

• Bahasa Pemrograman JavaScript

Javascript adalah bahasa Scripting yang handal yang berjalan pada sisi client.
JavaScript merupakan sebuah bahasa Scripting yang dikembangkan oleh Netscape.
Untuk menjalankan script yang ditulis dengan JavaScript kita membutuhkan JavaScript-enabled browser yaitu browser yang mampu menjalankan JavaScript.

• Bahasa Pemrograman CSS

Cascading Style Sheets ( CSS ) adalah suatu bahasa Stylesheet yang digunakan untuk mengatur tampilan suatu dokumen yang ditulis dalam bahasa markup.
Penggunaan yang paling umum dari CSS adalah untuk memformat halaman web yang ditulis dengan HTML dan XHTML.
Walaupun demikian, bahasanya sendiri dapat dipergunakan untuk semua jenis dokumen XML termasuk SVG dan XUL.
Spesifikasi CSS diatur oleh World Wide Web Consortium ( W3C ).

Computer & Tutorial. , Programming.

Memasang Camera 360 Di PC

Camera 360 adalah salah satu aplikasi Android yang sekarang ini sedang populernya. Walaupun aplikasi ini simple dengan ukuran yang kecil juga, namun fitur dan hasil editannya cukup memuaskan.

Namun sayangnya aplikasi ini hanya tersedia untuk Ponsel dengan OS Android, namun bagi yang tidak punya Ponsel OS Android tetap bisa menikmatinya dengan menginstalnya di Laptop/PC. Bagaimana caranya...? berikut akan saya jelaskan.

1. Buka Google Chrome lalu click " Disini "  
2. Kemudian akan tampil jendela Play Store.



3. Pada kolom search the store ketikan "Camera 360" atau click " Disini "



4. Kemudian click " + Free " kemudian muncul jendela notifikasi dan click " Add "



5. Setelah proses instalasi selesai aplikasi akan muncul di taskbar atau click " Disini "



6. Click aplikasinya kemudian Upload foto yang akan di edit.






7. Selesai.

Computer & Tutorial.

Bug Aneh Di MS. Excel 2007

Seberapa pintarkah MS Excel yang ada di PC anda...? Perhatikan gambar dibawah ini.

Misal 850,00 * 77,1. Hasil yang tampil adalah 100.000,00, sekarang coba jumlahkan dengan kalkulator maka hasil yang muncul adalah 65,535. Mengapa ini bisa terjadi...?

Excel menyimpan data dalam bentuk data biner. Artinya bilangan seperti 77.1 misalnya, akan disimpan oleh Excel sebagai :

0100 0000 0101 0011 0100 0110 0110 0110 0110 0110 0110 0110 0110 0110 0110 0110
 

Yang artinya "7", "7", ".", dan "1". Setelah disimpan ke dalam data biner, di dalam MS. Excel ada satu "Alat" untuk menampilkan data tersebut ke monitor anda. "Alat" inilah yang salah menampilkan data biner yang bernilai 65,535 sebagai 100,000. "Alat" ini juga salah mengubah data jika nilai suatu angka mendekati 65,535. Perhitungan = 77.1 * 850 menampilkan 100,000. Perhitungan = 77.1 * 850 + 2 menampilkan 65,537. Tapi perhitungan = 77.1 * 850 + 1 menampilkan 100,001.

Hal ini hanya kesalahan tampilan, jika anda menggunakan Marco fungsi "Terbilang", maka kalimat terbilang yang muncul, bukanlah "Seratus Ribu".

Untuk mengatasi masalah ini, silahkan instal aplikasi perbaikan yang telah diluncurkan oleh Microsoft.

Computer & Tutorial. , MS Excel.

Excel Function - Fungsi Tersembunyi Di MS. Excel

No	Fungsi	Keterangan
1	CUBEKPIMEMBER	Menunjukkan nama, properti, dan ukuran KPI [Key Performance Indicator] serta menampilkan nama dan properti KPI
2	CUBEMEMBER	Menampilkan anggota dalam hirarki cube
3	CUBEMEMBERPROPERTY	Menampilkan nilai dari properti anggota cube
4	CUBERANKEDMEMBER	Menampilkan urutan atau rangking member dalam suatu set
5	CUBESET	Mendefinisikan sebuah set member
6	CUBESETCOUNT	Menampilkan banyak item dalam suatu set
7	CUBEVALUE	Menampilkan nilai agregat dalam suatu cube
8	BESSELI	Menampilkan modified Bessel function In(x)
9	BESSELJ	Menampilkan the Bessel function Jn(x)
10	BESSELK	Menampilkan the modified Bessel function Kn(x)
11	BESSELY	Menampilkan the Bessel function Yn(x)
12	BIN2DEC	Mengubah angka biner menjadi desimal
13	BIN2HEX	Mengubah angka biner menjadi heksadesimal
14	BIN2OCT	Mengubah angka biner menjadi oktal
15	COMPLEX	Mengubah bilangan real dan koefisien imajiner menjadi bilangan kompleks
16	CONVERT	Mengubah angka dari suatu sistem ukuran menjadi sistem yang lain
17	DEC2BIN	Mengubah angka desimal menjadi biner
18	DEC2HEX	Mengubah angka desimal menjadi heksadesimal
19	DEC2OCT	Mengubah angka desimal menjadi oktal
20	DELTA	Menguji apakah kedua nilai sama
21	ERF	Mengembalikan fungsi error
22	ERFC	Mengembalikan fungsi error komplementer
23	GESTEP	Menguji apakah sebuah angka lebih besar dari ambang batasannya
24	HEX2BIN	Mengubah angka heksadesimal menjadi biner
25	HEX2DEC	Mengubah angka heksadesimal menjadi desimal
26	HEX2OCT	Mengubah angka heksadesimal menjadi oktal
27	IMABS	Menghasilkan angka absolut dari sebuah bilangan kompleks
28	IMAGINARY	Menampilkan koefisien imajiner dari bilangan kompleks
29	IMARGUMENT	Mengembalikan argumen theta, sudut yang diekspresikan dalam radian
30	IMCONJUGATE	Menghasilkan konjugasi kompleks dari bilangan kompleks
31	IMCOS	Menghasilkan cosinus dari bilangan kompleks
32	IMDIV	Menampilkan hasil bagi dari dua buah bilangan kompleks
33	IMEXP	Menampilkan nilai eksponensial dari sebuah bilangan kompleks
34	IMLN	Menghasilkan logaritma natural dari sebuah bilangan kompleks
35	IMLOG10	Menghasilkan logaritma 10 dari sebuah bilangan kompleks
36	IMLOG2	Menghasilkan logaritma 2 dari sebuah bilangan kompleks
37	IMPOWER	Menghasilkan bilangan kompleks yang dijadikan pangkat dari integer
38	IMPRODUCT	Menampilkan hasil kali bilangan kompleks (dari 2 buah sampai 29 buah)
39	IMREAL	Menampilkan koefisien riil dari bilangan kompleks
40	IMSIN	Menghasilkan sinus dari bilangan kompleks
41	IMSQRT	Menghasilkan akar kuadrat dari bilangan kompleks
42	IMSUB	Menampilkan selisih antara 2 bilangan kompleks
43	IMSUM	Menampilkan jumlah antara 2 bilangan kompleks
44	OCT2BIN	Mengubah angka oktal menjadi biner
45	OCT2DEC	Mengubah angka oktal menjadi desimal
46	OCT2HEX	Mengubah angka oktal menjadi heksadesimal
47	EUROCONVERT	Mengubah sebuah angka ke standard Euro
48	SQL.REQUEST	Melakukan koneksi dengan data eksternal dan melakukan query, menghasilkan sebuah array
49	SUMIFS	Menjumlahkan sesuai beberapa kriteria (di Excel versi lebih lama dapat digantikan dengan memodifikasi penggunaan dari SUMPRODUCT)
50	AVERAGEIF	Menampilkan rata-rata jika memenuhi kriteria tertentu (di Excel versi lebih lama dapat digantikan dengan formula CSE kombinasi AVERAGE dan IF)
51	AVERAGEIFS	Menampilkan rata-rata jika memenuhi beberapa kriteria tertentu
52	FINDB	Versi "double byte" dari FIND
53	LEFTB	Versi "double byte" dari LEFT
54	LENB	Versi "double byte" dari LEN
55	MIDB	Versi "double byte" dari MID
56	REPLACEB	Versi "double byte" dari REPLACE
57	RIGHTB	Versi "double byte" dari RIGHT
58	SEARCHB	Versi "double byte" dari SEARCH

Computer & Tutorial. , MS Excel.

Kode Warna

============================================================ ============================================================

#FFFFFF	#FFFFCC	#FFFF99	#FFFF66	#FFFF33	#FFFF00
#FFCCFF	#FFCCCC	#FFCC99	#FFCC66	#FFCC33	#FFCC00
#FF99FF	#FF99CC	#FF9999	#FF9966	#FF9933	#FF9900
#FF66FF	#FF66CC	#FF6699	#FF6666	#FF6633	#FF6600
#FF33FF	#FF33CC	#FF3399	#FF3366	#FF3333	#FF3300
#FF00FF	#FF00CC	#FF0099	#FF0066	#FF0033	#FF0000
#CCFFFF	#CCFFCC	#CCFF99	#CCFF66	#CCFF33	#CCFF00
#CCCCFF	#CCCCCC	#CCCC99	#CCCC66	#CCCC33	#CCCC00
#CC99FF	#CC99CC	#CC9999	#CC9966	#CC9933	#CC9900
#CC66FF	#CC66CC	#CC6699	#CC6666	#CC6633	#CC6600
#CC33FF	#CC33CC	#CC3399	#CC3366	#CC3333	#CC3300
#CC00FF	#CC00CC	#CC0099	#CC0066	#CC0033	#CC0000
#99FFFF	#99FFCC	#99FF99	#99FF66	#99FF33	#99FF00
#99CCFF	#99CCCC	#99CC99	#99CC66	#99CC33	#99CC00
#9999FF	#9999CC	#999999	#999966	#999933	#999900
#9966FF	#9966CC	#996699	#996666	#996633	#996600
#9933FF	#9933CC	#993399	#993366	#993333	#993300
#9900FF	#9900CC	#990099	#990066	#990033	#990000
#66FFFF	#66FFCC	#66FF99	#66FF66	#66FF33	#66FF00
#66CCFF	#66CCCC	#66CC99	#66CC66	#66CC33	#66CC00
#6699FF	#6699CC	#669999	#669966	#669933	#669900
#6666FF	#6666CC	#666699	#666666	#666633	#666600
#6633FF	#6633CC	#663399	#663366	#663333	#663300
#6600FF	#6600CC	#660099	#660066	#660033	#660000
#33FFFF	#33FFCC	#33FF99	#33FF66	#33FF33	#33FF00
#33CCFF	#33CCCC	#33CC99	#33CC66	#33CC33	#33CC00
#3399FF	#3399CC	#339999	#339966	#339933	#339900
#3366FF	#3366CC	#336699	#336666	#336633	#336600
#3333FF	#3333CC	#333399	#333366	#333333	#333300
#3300FF	#3300CC	#330099	#330066	#330033	#330000
#00FFFF	#00FFCC	#00FF99	#00FF66	#00FF33	#00FF00
#00CCFF	#00CCCC	#00CC99	#00CC66	#00CC33	#00CC00
#0099FF	#0099CC	#009999	#009966	#009933	#009900
#0066FF	#0066CC	#006699	#006666	#006633	#006600
#0033FF	#0033CC	#003399	#003366	#003333	#003300
#0000FF	#0000CC	#000099	#000066	#000033	#000000

Architecture And Design. , Blogger & Tutorial. , Computer & Tutorial. , Entertainment.