Sabtu, 14 Juli 2007

BlueFantasi

Virus Blue Fantasy Emang bikin sebel, bisa membuat kaget sedikit terkejut. Tapi untungnya PC Media bisa mengatasinya tapi pesan pada pertama kali masuk windows tidak bisa dihapus (sebel juga क!). Tapi tenang aja aku da di kasih tau ma temanku untuk mengatasi virus yang bandel itu. Bagi yang belum tau boleh coba cara ini :


VIRUS BLUEFANTASY
Virus Level = Very Low
Discovered: April 10, 2007 (Symantec Recognize)
MVD discovered: Februari - Maret, 2007
Type: Worm
Infection Length: Varies
Systems Affected: Windows 2000, Windows 95, Windows 98,
Windows Me, Windows NT, Windows Server 2003, Windows XP

Sekali dieksekusi, worm meng-kopi dirinya sebagai file berikut copies:
 %UserProfile%\Start Menu\Programs\Startup\Adobe
Online.com
 %UserProfile%\Start Menu\Programs\Startup\Adobe
update.com

Kemudian mengkopi dirinya pada root folder dari local drive dan drive dalam jaringan sebagai file berikut:
 Thumbs.com
Worm kemudian menge-chek nama dari subfolder yang terkandung dalam folder yang ada. Dan akan membuat executable files memakai nama dari subfolder dan Explorer folder icon, berharap dapat membingungkan pemakai/ users sampai meng-klik malicious file tersebut. Contohnya jika worm mengkopi dirinya dalam drive C,worm tersebut akan mengkopi dirinya dalam drive C, worm tersebut akan meng-check subfolder dalam drive C dan mengkopi dirinya
sebagai:
 Windows.exe or Windows.scr
 Temp.exe or Temp.scr
 Documents and Settings.exe or Documents and
Settings.scr

Worm tersebut memakai blank folder icon dalam Explorer untuk membingungkan users untuk meng-klik malicious worm file daripada folder yang sebenarnya.
Worm tersebut juga membuat file dalam root folder dari local drive dan drive yang ada dalam jaringan jadi melakukan “run” begitu drive dibuka:
Autorun.inf
Yang berisi:
-------------------------------
[Autorun]
open = thumbs.com
-------------------------------
note : bisa juga sudah termodifikasi oleh virus lainnya

Worm juga membuat file sebagai berikut:
%CurrentFolder%\Autoexec.bat
Worm membuat string baru dalam regitry sehingga menjalankan worm tersebut setiap Windows start:

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\Winlogon\"LegalNoticeCaption" =
"81u3f4nt45y - 24.01.2007 - Surabaya"

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows
NT\CurrentVersion\Winlogon\"LegalNoticeText" =
"Surabaya in my bi[REMOVED]k1m0"

Worm tersebut memodifikasi registry dibawah ini:
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cu
rrentVersion\explorer\Advanced\Folder\Hidden\NOHIDDEN\"CheckedValue"= "2"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cu
rrentVersion\explorer\Advanced\Folder\Hidden\NOHIDDEN\"DefaultValue"= "2"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cu
rrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL\"CheckedValue"= "0"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cu
rrentVersion\explorer\Advanced\Folder\Hidden\SHOWALL\"DefaultValue"= "2"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cu
rrentVersion\explorer\Advanced\Folder\HideFileExt\"CheckedValue"= "1"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cu
rrentVersion\explorer\Advanced\Folder\HideFileExt\"DefaultValue"= "1"
HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\Cu
rrentVersion\explorer\Advanced\Folder\HideFileExt\"UncheckedValue"= "1"
Worm juga memodifikasi registry dibawah ini sehingga extensinyadi sembunyikan dari semua [SUBFOLDER NAME].scr files yang dibuat oleh worm tersebut:

HKEY_CLASSES_ROOT\scrfile\"(Default Value)" = "File
Folder"
HKEY_CLASSES_ROOT\scrfile\"InfoTip" = ""
HKEY_CLASSES_ROOT\scrfile\"NeverShowExt" = ""
HKEY_CLASSES_ROOT\scrfile\"TileInfo" = ""
HKEY_CLASSES_ROOT\scrfile\shell\open\command\"(Defa
ult Value)" = "%1"

MANUAL VIRUS DELETE

Spesial Note :Jaminan tidak 100% dikarenakan banyak hal yang bisa terjadi diluar dugaan jika komputer Anda juga terinfeksi oleh virus lain atau ada “bekas” dari virus yang lama).
1. Delete Process dengan cara kill process tree menggunakan TASK MANAGER (CTRL+ALT+DELETE) software lainnya yang fungsinya untuk meng – “kill proses”.
Berikut file yang harus di KILL :
Adobe Online.com
Adobe update.com
2. Dengan menggunakan fasilitas search pada windows cari file –
file dibawah ini :
Thumbs.com
Adobe Online.com
Adobe update.com
Semua file berekstension *.scr dengan file size = 40kb
(Biasanya duplikat dari folder Anda)
Windows.exe
Temp.exe
Documents and Settings.exe
Delete dengan cara menekan SHIFT+DELETE
3. Masuklah ke regedit dengan cara :
START  RUN  regedit.exe
Setelah masuk :
Menuju kepada petunjuk dibawah ini dan delete entry berikut:

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows
NT\CurrentVersion\Winlogon\"LegalNoticeCaption" =
"81u3f4nt45y - 24.01.2007 - Surabaya"

HKEY_LOCAL_MACHINE\Software\Microsoft\Windows
NT\CurrentVersion\Winlogon\"LegalNoticeText" =
"Surabaya in my bi[REMOVED]k1m0"

Kembalikan settingan entry yang telah dimodikasi oleh virus
berikut entry yang harus diubah :
Mengembalikan settingan Registry yang ter ”disable” oleh virus BlueFantasy. Ingat Export registry yang akan Anda modifikasi (sebagai back up) jika terjadi kesalahan meng-input atau hasilnya nanti error bisa dikembalikan ke settingan semula.

Resiko tanggung sendiri jika terjadi kesalahan meng-input.

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\HideFileExtValue yang harus dikembalikan :
CheckedValue = 1
DefaultValue = 1
UncheckedValue = 0

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\SuperHidden
CheckedValue = 0
DefaultValue = 0
UncheckedValue = 1

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\NOHIDDEN
CheckedValue = 2
DefaultValue = 2

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\Folder\Hidden\SHOWALL
CheckedValue = 1
DefaultValue = 2

HKEY_CLASSES_ROOT\scrfile\shell\config\command
Value Data = "%1" %*


Semoga cara ini dapat membantu sobatku semuanya. Jika menurut Anda settingan ini salah mohon dikoreksi. Sejauh ini komputer yang saya gunakan memakai settingan ini ; lancar – lancar saja ^_^; .

Selasa, 03 Juli 2007

MacroWord

Bikin menu baru pada word yuk!

Kali ini kita akan belajar meangaktifkan macroword. Masih tetap pada fungsi terbilang.
Caranya :
WORD

1. menjalankan Macro

Tools|Macro|Security|Low

WORD

2. Untuk mengaktifkan / membuat Makro

Tools|Macro|Visual Basic Editor (semuanya langsung Alt+F11)

WORD

Di Normal (klik + menjadi - ), kemudian Insert|Module

WORD

Copy kan, Module terbilang dari Excell, kedalam Module1

Modifikasi beberapa Statement

Excel :

Function TERBILANG(Angka As Double) As String

……

Dim Panjang As Integer

Dim AngkaI(15) As Integer

Dim Nomor(9), Hurufke(15) As String

Dim StrAngka, Temp As String


'Inisialisasi

……..

……..

…….

TERBILANG = ""

For i = 1 To 15

TERBILANG = TERBILANG + Hurufke(16 - i)

Next i

End function



Word:

Sub TERBILANG()

…….

Dim Panjang As Integer

Dim AngkaI(15) As Integer

Dim Nomor(9), Hurufke(15) As String

Dim StrAngka, Temp As String

D

TAK ADA DI EXCEL

im Angka As Currency

Dim Terbil As String


Angka = Val(Selection.Text)

'Inisialisasi

………

………


T

BEDA DENGAN EXCEL

erbil = ""

For i = 1 To 15

Terbil = Terbil + Hurufke(16 - i)

Next i

TAK ADA DI EXCEL


Selection.Text = Str(Angka) & " ( " & Terbil & " ) "


End Sub

WORD

3. Buat MENU baru

Tools|Customize|Command|New Menu (kamu tarik sejajar menu file,edit dll)

WORD

Pada posisi yang sama (Tools|Customize|Command), klik kanan pada New Menu, di Name : ganti New Menu dengan Terbilang

WORD

Isi Terbilang dengan Macro, (juga pada kondisi Tools|Customize), Caranya sama dengan membuat menu baru tapi taruh dibawah menu baru ya..!

WORD

Untuk menjalankan Program :

Tulis angka di WORD, kemudian di blok, dilanjutkan dengan mengklik menu Terbilang, dan pilih Terbilang (Indonesia), maka akan berubah menjadi terbilang dengan angka,


Contoh :


Tulis : 123456789012

WORD

Klik Menu : Terbilang|Terbilang (Indonesia)

Hasil : 123456789012 ( seratus dua puluh tiga miliar empat ratus lima puluh enam juta tujuh ratus delapan puluh sembilan ribu dua belas )

Klik Menu : Terbilang|Sayword (English)

Hasil : 123456789012 ( one hundred twenty three billion four hundred fifty six million seven hundred eighty nine thousand twelve )


Silakan di coba ya.....!




Rabu, 27 Juni 2007

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....

Selasa, 26 Juni 2007

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.

==

Senin, 25 Juni 2007

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.


Minggu, 24 Juni 2007

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

Tukeran link yukk!!!

Logo aq disini...
Host Gambar Gratis