Function Sayword

Membuat Function Sayword

Kali ini kita akan membuat funtion terbilang dalam bahasa inggris.
Asyik ga' tu?

Ni kodingnya :

Function SAYWORD(Angka As Double) As String
'SAYWORD = Ubah Angka menjadi Huruf dalam Bahasa Inggris

Dim StrAngka As String
Dim AngkaI(15) As Integer
Dim Nomor(9) As String
Dim Nomor1(9) As String
Dim Temp As String
Dim Hurufke(15) As String

Nomor(1) = "one "
Nomor(2) = "two "
Nomor(3) = "three "
Nomor(4) = "four "
Nomor(5) = "five "
Nomor(6) = "six "
Nomor(7) = "seven "
Nomor(8) = "eight "
Nomor(9) = "nine "
Nomor1(1) = ""
Nomor1(2) = "twen"
Nomor1(3) = "thir"
Nomor1(4) = "for"
Nomor1(5) = "fif"
Nomor1(6) = "six"
Nomor1(7) = "seven"
Nomor1(8) = "eigh"
Nomor1(9) = "nine"

StrAngka = Str(Angka)
Panjang = Len(Str(Angka)) - 1

'SAYWORD
'Tambahkan Angka 0000 didepan Angka Asli menjadi String
'dengan Variabel StrAngka
'contoh StrAngka = "000012345"

StrAngka = ""
For i = 1 To 15 - Panjang
StrAngka = "0" + StrAngka
Next i
StrAngka = StrAngka + Right(Str(Angka), Panjang)

'Ambil masing-masing Angka dari Belakang ke depan
'Digit 1 = Ones
'Digit 2 = Tens
'Digit 3 = Hundreds
'Digit 4 = Thousands
'Digit 5 = Ten Thousands
' dst......

For i = 1 To 15
AngkaI(i) = Val(Mid(StrAngka, 16 - i, 1))
Next i

'Ubah menjadi Huruf
'Satuan = digit Terakhir

If AngkaI(2) = 0 Then
Hurufke(1) = Nomor(AngkaI(1))
End If

If Angka = 0 Then
Hurufke(1) = "null"
End If

'Puluhan = digit ke 2 dari belakang
'Untuk digit ke 5, 8, 11 dst.... merupakan tens thousand, tens
'million dst..

For i = 2 To 15 Step 3

Select Case AngkaI(i)
Case 0 'Bila Angka Puluhan = 0 -> Temp = ""
Temp = ""
Case 1 'Bila Angka Puluhan = 1
'Check Angka dibelakangnya
Select Case AngkaI(i - 1)
Case 0 'Bila = 0 -> Temp = "ten"
Temp = "ten "
Case 1 'Bila = 1 -> Temp = "eleven"
Temp = "eleven "
Case 2
Temp = "twelve "
Case Else 'Bila Angka dibelakangnya > 2 -> Temp = "xxxteen"
Temp = Nomor1(AngkaI(i - 1)) + "teen "
End Select

Case Else

'Bila Angka puluhan > 1
'maka Temp = "xxx ty yyy"

Temp = Nomor1(AngkaI(i)) + "ty " + Nomor(AngkaI(i - 1))
End Select

Hurufke(i) = Temp

Next i

'Ratusan
'Digit Ke 3, 6, 9, ... dst merupakan hundred, hundred thousand, hundred million, dst..

For i = 3 To 15 Step 3

Select Case AngkaI(i)
Case 0
Temp = ""
Case Else
Temp = Nomor(AngkaI(i)) + "hundred "
End Select
Hurufke(i) = Temp
Next i

'Ribuan, Jutaan, Miliar, Triliun
'Digit ke 4 = Ribuan
'Digit ke 7 = Jutaan
'Digit ke 10 = Miliar
'Digit ke 13 = Triliun

For i = 4 To 15 Step 3
If AngkaI(i + 1) = 0 Then
Temp = Nomor(AngkaI(i))
Else
Temp = ""
End If

Select Case i
Case 4
Temp = Temp + "thousand "
Case 7
Temp = Temp + "million "
Case 10
Temp = Temp + "billion "
Case 13
Temp = Temp + "trillion "
End Select

'Check apakah Pada digit ke(i), ke (i+1) , ke (i+2)
'bila semuanya = 0 -> Hurufke(i) = ""
'Bila tidak -> Hurufke(i) = temp

If AngkaI(i) = 0 And AngkaI(i + 1) = 0 And AngkaI(i + 2) = 0 Then
Hurufke(i) = ""
Else
Hurufke(i) = Temp
End If

Next i

SAYWORD = ""

For i = 1 To 15
SAYWORD = SAYWORD + Hurufke(16 - i)
Next i

End Function

Silakan di coba ya.....!
Oh iya makasih komentarnya...
Klu ga' ada Visual Basic Editor?
Berarti anda belum menginstal visual basic!
Instal dulu ya....

Function Terbilang

Buat Function Terbilang yuk !!!

Function terbilang adalah function yang menyajikan tulisan angka menjadi huruf seperti "1" menjadi "satu" dan seterusnya. Setahuq di excel original, function terbilang belum ada, maka kita bisa menambahkannya sendiri. Mungkin function ini sangat dibutuhkan dalam pekerjaan kantor atau tugas kita nantinya. Untuk itu kita harus mulai membiasakan bekerja dengan funtion pada excel termasuk membuatnya. Biar ga' jadi pemakai aja! Untuk menambah funtion pada excel, anda bisa lihat pada menu "function pada excel". Kali ini aq kasih tau kode program untuk membuat function terbilang:


Kode Program:

Function TERBILANG(Angka As Double) As String
'Program TERBILANG dan TITIK
'TERBILANG = Ubah Angka menjadi Huruf
'TITIK = Pemberian Titik pada Ribuan

Dim Panjang As Integer
Dim AngkaI(15) As Integer
Dim Nomor(9), Hurufke(15) As String
Dim StrAngka, Temp As String

'Inisialisasi

Nomor(1) = "satu "
Nomor(2) = "dua "
Nomor(3) = "tiga "
Nomor(4) = "empat "
Nomor(5) = "lima "
Nomor(6) = "enam "
Nomor(7) = "tujuh "
Nomor(8) = "delapan "
Nomor(9) = "sembilan "
StrAngka = Str(Angka)
Panjang = Len(Str(Angka)) - 1

'TERBILANG: ubah angka jadi huruf
'Tambahkan Angka 0000 didepan Angka Asli menjadi string
'dengan Variabel StrAngka
'contoh StrAngka = "000012345"

StrAngka = ""
For i = 1 To 15 - Panjang
StrAngka = "0" + StrAngka
Next i
StrAngka = StrAngka + Right(Str(Angka), Panjang)

'Ambil masing-masing Angka dari Belakang ke depan
'Digit 1 = Satuan ; Digit 2 = Puluhan
‘Digit 3 = Ratusan ;Digit 4 = Ribuan
‘Digit 5 = Puluhan Ribu ; dst......

For i = 1 To 15
AngkaI(i) = Val(Mid(StrAngka, 16 - i, 1))
Next i

'Ubah menjadi Huruf
'Satuan = digit Terakhir

If AngkaI(2) = 0 Then
Hurufke(1) = Nomor(AngkaI(1))

End If

If Angka = 0 Then
Hurufke(1) = "nol"
End If

'Puluhan = digit ke 2 dari belakang, Untuk digit ke 5,8,11 dst...
‘merupakan puluhan ribu, puluhan juta dst..

For i = 2 To 15 Step 3
Select Case AngkaI(i)
Case 0 'Bila Angka Puluhan = 0 -> Temp = ""
Temp = ""
Case 1 'Bila Angka Puluhan = 1

'Check Angka dibelakangnya

Select Case AngkaI(i - 1)
Case 0 'Bila = 0 -> Temp = "sepuluh"
Temp = "sepuluh "
Case 1 'Bila = 1 -> Temp = "sebelas
Temp = "sebelas "
Case Else 'Bila Angka dibelakangnya > 1 -> Temp = "xxxbelas"
Temp = Nomor(AngkaI(i - 1)) + "belas "
End Select

Case Else

'Bila Angka puluhan > 1
'maka Temp = "xxx puluh yyy"
Temp = Nomor(AngkaI(i)) + "puluh " + Nomor(AngkaI(i - 1))
End Select

Hurufke(i) = Temp
Next i

'Ratusan
'Digit Ke 3, 6, 9, ... dst merupakan ratusan, ratusan ribu,
‘ratusan juta dst..

For i = 3 To 15 Step 3
Select Case AngkaI(i)
Case 0
Temp = ""
Case 1
Temp = "seratus "
Case Else
Temp = Nomor(AngkaI(i)) + "ratus "
End Select
Hurufke(i) = Temp

Next i

'Ribuan, Jutaan, Miliar, Triliun
'Digit ke 4 = Ribuan
'Digit ke 7 = Jutaan
'Digit ke 10 = Miliar
'Digit ke 13 = Triliun

For i = 4 To 15 Step 3
If AngkaI(i + 1) = 0 Then
Temp = Nomor(AngkaI(i))
Else
Temp = ""
End If

Select Case i
Case 4
If AngkaI(4) = 1 And AngkaI(5) = 0 And AngkaI(6) = 0 Then
Temp = "seribu "
Else
Temp = Temp + "ribu "
End If
Case 7
Temp = Temp + "juta "
Case 10
Temp = Temp + "miliar "
Case 13
Temp = Temp + "triliun "
End Select

'Check apakah Pada digit ke(i), ke (i+1) , ke (i+2)
'bila semuanya = 0 -> Hurufke(i) = ""
'Bila tidak -> Hurufke(i) = temp

If AngkaI(i) = 0 And AngkaI(i + 1) = 0 And AngkaI(i + 2) = 0 Then
Hurufke(i) = ""
Else
Hurufke(i) = Temp
End If

Next i

TERBILANG = ""
For i = 1 To 15
TERBILANG = TERBILANG + Hurufke(16 - i)
Next i

End Function

Function pada Excel

Membuat function/fungsi baru pada excel

Function pada excel bukan lagi hal yang aneh bagi pemula seperti aq. Dulu kupikir, bikin Function pada excel tu klu ga' pinter mana bisa.....? Eh ternyata aq bisa. " Ga' Sombong!" ^0^. Kita bisa membuat funcion baru melalui visual basic editor tapi harus install VB (Visual Basic) dulu. Lumayankan untuk menambah function yang tidak ada pada excel atau membuat function yang ada pada excel tapi mengganti namanya dengan nama yang mudah kita ingat. Bagi semua yang pingin mendalami pemrograman komputer, harus segera siapkan diri menghadapi kemajuan teknologi yang semakin pesat, jangan cuma duduk diam n bengong donk!

Untuk membuat makro dalam Microsoft Excell dibutuhkan bahasa pemrograman sendiri, sedangkan Visual Basic juga produk dari Microsoft, maka salah satu produk gabungan keduanya adalah Visual Basic for Application (VBA), dimana pada umumnya digunakan untuk pemrograman makro, berikut ini adalah cara mengimplementasikan VBA kedalam Microsoft Excell. Excell mempunyai fungsi default, misal : SUM(A1..A5). VBA dapat membuat fungsi – fungsi baru diluar fungsi default dari Excell. Seperti membuat fungsi TERBILANG(235), akan tertulis dilayar = dua ratus tiga puluh lima, atau membuat fungsi-fungsi lainnya..

Caranya :
1. Anda pilih menu Tool > Macros > Visual Basic Editor (harus install VB dulu)
2. Buat Modul baru (insert module)
3. Buat coding untuk funtionnya (Tuliskan Kode Terbilang dibawah ini)
4. Simpan dalam bentuk *.xla
5. Untuk memanggil function pilih menu Tool > Add-ins > Panggil funtion yang kita buat tadi
6. Beres deh! jadi kita punya tambahan funtion.

==

Air

1. Pengertian Air Bersih

Air merupakan pelarut yang baik oleh karena itu, air alam tidak pernah murni. Air alam mengandung berbagai zat terlarut maupun tidak terlarut. Air alam juga mengandung microorganism. Apabila kandungan air tersebut tidak mengganggu kesehatan manusia, maka air tersebut dianggap bersih. Air yang tidak layak diminum masih bisa digunakan untuk keperluan yang lain, misalnya, irigasi, industri, maupun kepentingan rumah tangga seperti halnya memasak,mencuci, dan masih banyak yang lainnya.
Air dinyatakan tercemar apabila terdapat gangguan terhadap kwalitas air, sehingga air tidak dapat digunakan untuk tujuan penggunaannya. Air tercemar akibat masuknya makhuk hidup, zat, atau energi kedalam air, sehingga kwalitas air menurun sampai ketingkat tertentu yang menyebabkan air tidak berfungsi lagi sesuai dengan peruntukannya atau kegunaannya
Disini kami akan membahas sumber-sumber pencemaran dan cara-cara pencegahan atau penanggulangannya. Namun sebelum sampai pada pembahasan tersebut, kita akan membahas beberapa para meter yang sering digunaka untuk menyatakan kwalitas air yaitu PH,DO,BOD,COD dan kandungan zat padat.

2. Beberapa Parameter Kwalitas Air
Komposisi air kotor ditentukan melalui berbagai macam analisis , dimaksudkan untuk menentuka kandungan zat pada BO,COD, dan PH.

a. Kandungan Zat Padat
Limbah padatan dalam air dapat dibedakan atas padatan tersuspensi dan padatan terlarut. Padatan tersuspensi adalah padatan yang tidak dapat melewati kerats sering, sementara padatan tersuspensi juga masih dapat dibedakan atas padatan yang dapat mengalami sedimentasi dan yang tidak dapat sedimentasi.

b. Oksigen Terlarut (Dissolued Oxygen,DO)
Air mengandung oksigen terlarut dengan kadar sekitar 10 ppm dalam air bersih pada suhu kamar. Oksigen terlarut diperlukan oleh makhluk hidup di dalam air. Misalnya, ikan, udang, kerang dan binatang yang lainnya, termasuk bakteri.Agar ikan dapat hidup, air harus mengandung sedikitnya 5 ppm oksigen. Oksigen terlarut juga digunakan bakteri ( microorganisme ) aerob untuk menguraikan sampah organik yang terdapat di dalam air. Bakteri aerob, mengoksidasi sampel organik, C menjadi CO2, N menjadi nitrat dan S menjadi sulfat, serta fasforus, menjadi fosfor. OLeh karena itu, jika air mengandung banyak bahan organik, maka bakteri aerob di dalamnya akan berkembang. Akibatnya, kadar oksigen terlarut akan berkurang dengan cepat sehingga ikan dan udang akan mati. Selanjutnya, proses penguraian akan diambil oleh bakteri anaerob. Bakteri anaerob mereduksi karbon, nitrogen, dan bahan belerang dari bahan organik menjadi CH4, NH3, dan H2S. Gas NH3 dan H2S berbau tidak sedap itulah sebabnya got atau selokan,sungai yang tercemar berat berbau busuk.

c. BOD dan CO
BOD ( Biochemical Oxygen Demand) dan COD (Chemical Oxygen Demand) menyatakan banyaknya limbah organik dalam air. BOD5 adalah banyaknya oksigen yang digunaka oleh microorganisme dalam lima hari untuk menguraikan sampah yang terdapat dalam air limbah. COD menyatakan jumlah oksigen yang digunakan untuk mengoksidasi limbah organik dalam contoh air secara kimiawi. COD ditentukan dengan memasak (Marefluks) contoh air dengan kalium dikromat (K2Cr2O7) sebagai pengoksidasi. BOD dan COD dinyatakan dalam mg perliter (= ppm). Makin banyak limbah organik dalam air, makin besar nilai BOD dan COD. Nilai COD umumnya lebih besar dari nilai BOD . Hal itu terjadi karena berbagai senyawa karbon organik tidak dapat didegradasi oleh microorganisme, tetapi dapat dioksidasi secara kimiawi. Jika nilai COD berbeda secara nyata dari nilai BOD dapat memberi indikasi bahwa air mengandung zat beracun yang menghambat pertumbuhan microorganisme.

d. PH
Air murni mempunyai PH = 7. Air dapat dianggap bersih jika Phnya antara 6,5 - 8,5. Akan tetapi air yang mempunyai PH antara 6,5 - 8,5 sebelum tentu bersih. Bergantung pada parameter lainnya.

Arti Cinta...

Arti Cinta?

Cinta itu indah dirasakan apalagi di masak dengan kasih sayang di bumbuhi dengan perhatian di campur dengan kepercayaan..
hmmmmmmmmmmmmmmmmmmmmm Gado - Gado rasanya..
Tapi inget!
Ga' boleh disalah artikan.
Saat dua insan jatuh cinta apakah kita bersalah?
Saat kusenang bertemu dengannya apakah aq salah?
Itu semua perasaan yang datang tanpa permisi dan tanpa liat situasi tapi kadang itu juga yang membuat kita larut dalam suasana, Tak peduli air mata mengalir atau gigi kering karena tertawa.
Semua itu harus kita atur semaksimal mungkin :
1. Pikir dulu sebelum melangkah
2. Kita harus tau dengan siapa kita jalan
3. Jaga mulut kita karena mulutmu harimaumu
4. Biasakan tentukan tujuan sebelum melangkah
Semua akan mudah jika terbiasa...
nice u............................... Emuachhhhhhhhhhhhhhhhhhhhhhhh