Public Function Terbilang(x As Currency)
Dim triliun As Currency
Dim milyar As Currency
Dim juta As Currency
Dim ribu As Currency
Dim satu As Currency
Dim sen As Currency
Dim baca As String
If x > 1000000000000# Then
Terbilang = "< di atas satu triliun rupiah >"
Exit Function
End If
'Jika x adalah 0, maka dibaca sebagai 0
If x = 0 Then
baca = angka(0, 1)
Else
'Memisahkan bagian untuk triliun, milyar, juta, ribu, rupiah, dan sen
triliun = Int(x * 0.001 ^ 4)
milyar = Int((x - triliun * 1000 ^ 4) * 0.001 ^ 3)
juta = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3) / 1000 ^ 2)
ribu = Int((x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2) / 1000)
satu = Int(x - triliun * 1000 ^ 4 - milyar * 1000 ^ 3 - juta * 1000 ^ 2 - ribu * 1000)
sen = Int((x - Int(x)) * 100)
'Baca bagian triliun dan ditambah akhiran triliun
If triliun > 0 Then
baca = ratus(triliun, 5) + "triliun "
End If
'Baca bagian milyar dan ditambah akhiran milyar
If milyar > 0 Then
baca = ratus(milyar, 4) + "milyar "
End If
'Baca bagian juta dan ditambah akhiran juta
If juta > 0 Then
baca = baca + ratus(juta, 3) + "juta "
End If
'Baca bagian ribu dan ditambah akhiran ribu
If ribu > 0 Then
baca = baca + ratus(ribu, 2) + "ribu "
End If
'Baca bagian rupiah dan ditambah akhiran rupiah
If satu > 0 Then
baca = baca + ratus(satu, 1) + "rupiah "
Else
baca = baca + "rupiah"
End If
'Baca bagian sen dan ditambah akhiran sen
If sen > 0 Then
baca = baca + ratus(sen, 0) + "sen"
End If
End If
Terbilang = UCase(Left(baca, 1)) & LCase(Mid(baca, 2))
End Function
Function ratus(x As Currency, Posisi As Integer) As String
Dim a100 As Integer, a10 As Integer, a1 As Integer
Dim baca As String
a100 = Int(x * 0.01)
a10 = Int((x - a100 * 100) * 0.1)
a1 = Int(x - a100 * 100 - a10 * 10)
'Baca Bagian Ratus
If a100 = 1 Then
baca = "Seratus "
Else
If a100 > 0 Then
baca = angka(a100, Posisi) + "ratus "
End If
End If
'Baca Bagian Puluh dan Satuan
If a10 = 1 Then
baca = baca + angka(a10 * 10 + a1, Posisi)
Else
If a10 > 0 Then
baca = baca + angka(a10, Posisi) + "puluh "
End If
If a1 > 0 Then
baca = baca + angka(a1, Posisi)
End If
End If
ratus = baca
End Function
Function angka(x As Integer, Posisi As Integer)
Select Case x
Case 0: angka = "Nol"
Case 1:
If Posisi <= 1 Or Posisi > 2 Then
angka = "Satu "
Else
angka = "Se"
End If
Case 2: angka = "Dua "
Case 3: angka = "Tiga "
Case 4: angka = "Empat "
Case 5: angka = "Lima "
Case 6: angka = "Enam "
Case 7: angka = "Tujuh "
Case 8: angka = "Delapan "
Case 9: angka = "Sembilan "
Case 10: angka = "Sepuluh "
Case 11: angka = "Sebelas "
Case 12: angka = "Duabelas "
Case 13: angka = "Tigabelas "
Case 14: angka = "Empatbelas "
Case 15: angka = "Limabelas "
Case 16: angka = "Enambelas "
Case 17: angka = "Tujuhbelas "
Case 18: angka = "Delapanbelas "
Case 19: angka = "Sembilanbelas "
End Select
End Function
klik star-all program-accesories-noteped
[general]
manufacturer=komputer style coki
model=model baru
[support information]
line1=komputer orang tampan
line2=komputer orang jelek silakan nyingkir...
line3=maaf ya..
line4= aku terpaksa...
[general]
manufacturer=komputer style coki
model=model baru
[support information]
line1=komputer orang tampan
line2=komputer orang jelek silakan nyingkir...
line3=maaf ya..
line4= aku terpaksa...
setelah itu save as di system 32
ketik oeminfo.ini
A. Menggubah setting bandwith pada windows (Hanya kami uji pada Windows XP)
Pada dasarnya OS windows sudah membatasi bandwidth untuk koneksi internet sebanyak 20% dari total bandwidth yang seharusnya bisa maksimal, jika netter ingin menambah bandwidth internet supaya koneksinya terasa lebih cepat dan kencang bisa dengan cara mengurangi atau mengosongkan batasan bandwidth tersebut supaya pada Windows kita bisa maksimal dalam menggunakan bandwidth yang sudah ada.
Ikuti petunjuknya seperti dibawah ini :
1. Klik Start
2. Klik Run
3. Ketik gpedit.msc
4. Kemudian klik Ok
5. Setelah masuk klik (buka) Administrative Templates
6. Kemudian klik (buka) Network
7. Setelah terbuka klik QoS Packet scheduler
8. Kemudian klik Limit Reservable Bandwidth
9. Dan setelah terbuka ubah setting menjadi Enable
10. Kemudian ubah Bandwidth Limitnya menjadi 0
11. Klik Apply, dan terus Ok
12. Kemudian keluar dan Restart komputer
B. Pakai browser Google Chrome atau Apple Safari
Versi terbaru dari browser Chrome dan Safari sangatlah cepat bila dibandingkan dengan Firefox ataupun Internet Explorer (sudah dicoba dan terbukti memang jauh lebih cepat). Saran saya pakailah Google Chrome karena selain cepat, Chrome lebih aman dibanding dengan Safari, walau dalam beberapa hal Safari kadang lebih cepat dari Chrome.
Kalau netter sudah terbiasa memakai Firefox dan tidak ingin beralih ke browser lagi, bisa tambahkan Add-on “Adblock” untuk memblok iklan, gambar, dan flash yang aktif. Ada beberapa Add-on lagi dari Firefox seperti NoScript yang bisa mempercepat akses internet, tapi sayangnya kalau kebanyakan Add-on justru, kadang malah memperlambat akses dari browser Firefox sendiri.
C. Perbesar cache browser hingga 5% dari kapasitas Harddisk atau 1 - 2 GB
Cara ini terbukti efektif untuk mempercepat akses browser. Logikanya adalah browser tidak perlu tiap kali loading gambar dan tetek bengeknya segala setiap kali berkunjung ke situs yang sudah pernah dikunjungi, karena kalau situs sudah pernah dikunjungi akan otomatis di-cache oleh browser.
Cara ini hanya berlaku jika kapasitas harddisk netter cukup besar. Pada umumnya masing-masing browser ada yang bisa diset kapasitas cachenya, ada yang otomatis. Jika browser netter tidak ada pilihan set cache, artinya netter jangan sering-sering (atau tidak perlu) clear history di browser.
Minggu, 20 Desember 2009
Cara menghilangkan folder dengan super hidden jadi tidak bisa membuka dengan properties
1.klik star pilih run
2.ketik cmd
3.ketik partisi yang akan di super hidden dengan cara ktik D: atau E:
4.setelah itu ketik attrib +s +h *.* /s /d untuk super hidden jika ingin mengembalikan folder seperti semula super hidden ktik attrib –s –h *.* /s /d
*.yang tadi diatas untuk mensuper hidden keseluruhan partisi jika ingin mensuper hidden hanya satu folder dalam satu partisi.
1.klik start pilih run
2.ketik cmd
3.ketik partisi yang akan di super hidden ketik D: atau E:
4.setelah itu ketik cd
5.lalu ketik attrib +s +h nama folder
Terima kasih
Arief rakhman
Langganan:
Postingan (Atom)
