Ciri2 Anak Kecanduan Film Porno

Pakar psikologi anak Elly Risman mengimbau orangtua untuk memantau kegiatan anak-anaknya ketika menggunakan media elektronik, seperti internet, game, DVD, dan sejenisnya. Sebab, di media-media tersebut banyak terkandung materi pornografi.
Jika anak biasa mengonsumi materi pornografi itu, maka lama-lama anak akan kecanduan. Lalu, apa saja sih sebenarnya ciri-ciri anak yang kecanduan pornografi. Berikut adalah ciri-ciri yang disampaikan Elly, Sabtu (13/2/2010) dalam sebuah seminar di Kudus, Jawa Tengah.

Berikut adalah ciri-ciri anak yang kecanduan pornografi:

- mudah haus
- sering buang air kecil
- sering berlama-lama di kamar mandi [tau sendiri lagi ngapain O_O]
- sering berkahayal
- sulit konsentrasi,
- sering bermain video game dan internet dalam waktu yang lama,
- prestasi akademik menurun.
Kenapa anak menjadi sasaran pemasaran pornografi? Menurut elly, itu terjadi karena anak-anak menjadi pasar masa depan, mental model pornografi, perpustakaan porno pada anak yang bisa diakses kapan saja dan dimana saja.

"Pembuat pornografi juga menginginkan sasarannya mengalami kerusakan otak permanen," katanya. Banyaknya kalangan anak remaja yang kecanduan pornografi, disebabkan karena sejumlah faktor. Salah satunya, karena orang tua tidak memiliki waktu yang cukup untuk anak, kurang tanggap dan gagap teknologi, serta pendidikan agama dan pengontrolannya masih kurang.

Untuk menghindarkan anak remaja kecanduan pornografi, dia menganjurkan, kepada orang tua untuk menghadirkan Allah SWT dalam dirinya. "Anak juga harus dibantu untuk berfiikir kritis, memilih, dan mengambil keputusan," katanya.

Selain itu, orang tua juga harus mengupayakan agar anak tetap memiliki harga diri dan melatih memiliki rasa belas kasihan, demikian Elly Risman.

DAMPAK NEGATIF NONTON FILM PORNO
sering sakit kepala bagian depan, dan ini bisa mengakibatkan gangguan pengelihatan. ane lupa baca dimana... tp sepertinya c rangsangan melalui otak itu sangat melelahkan, dan mempengaruhi saraf penerima rangsangan indra pengelihatan menjadi terganggu.

kemudian pangkal leher yang deket kepala suka cengeng/sakit, hal ini sepertinya akibat hormon yang gak stabil dari rangsangan yang dipaksakan ini.

lalu ada lagi gangguan kejiwaan seperti sulit mengatur emosi, bisa cepat sekali marah, ato kalo yang ntnnya bokep2 parah seperti BDSM, n SCAT.. wahdooooh.. bisa terpengaruh dan harus segera dicegah..

CMIIW gan..
Langkah-Langkah Pencegahan:
- Beri perhatian lebih pada perkembangan anak.
- Ajarkan cara menggunakan teknologi dengan arif dan bijaksana.
- Tanamkan rasa tanggung jawab pada anak sejak kecil.
- Cari tahu dengan siapa anak anda bergaul.
- Masukkan anak anda dalam kelompok belajar agar dia sibuk dengan aktifitas positif (bimbel, les musik, sekolah bola, dll)
- Temani anak saat bermain internet di rumah.
- Gunakan sistem "Account" pada PC anda, berikan Account khusus anak yg telah dibatasi akses dan konten programnya (contoh: hanya bisa buka game offline, blokir akses internet, dll) << ane ga tau caranya gan, mungkin ada yg mau share caranya?
- Inspeksi kamar anak anda secara berkala - meskipun itu melanggar privasi anak, anda berkewajiban mengarahkan anak ke jalan yg benar.

Gimana cara berhenti? [UNTUK YG SUDAH TERLANJUR TERJERUMUS]
Niat dan Tekad yang Kuat!

Tanam dalam hati: "Aku harus berhenti! Film porno itu sampah! Aku harus berhenti! Aku tak akan merusak diri sendiri!"

Sibukkan dirimu!

Carilah aktifitas yang seru di luar rumah! Main bola, basket, layangan, gundu, apapun itu yang pasti akan membuat dirimu sibuk. Dengan begitu, kecil kemungkinan kamu akan mikirin hal-hal porno. Alhasil, cepat atau lambat rasa candu itu akan hilang, whooosh, ditiup angin lalu.

Habiskan banyak waktu bersama orang lain.

Di masa-masa penyembuhan seperti ini jangan mengurung diri di kamar melulu. Kalau kita menyendiri terus, sangat mungkin kita kembali melihat hal-hal porno. Isi waktu bersama dengan temen-temen kita. Hidup dijamin lebih asyik dan seru! Selain itu kita bisa juga mengisi waktu bersama keluarga. Ini cara praktis yang diyakini bisa membantu kita lepas dari ikatan masturbasi, sebab kita nggak bakal mengkonsumsi hal-hal yang porno pada saat berada di tengah-tengah mereka, kan?

Takut Akan Tuhan

Memang nggak akan ada orang yang tahu apa yang kita perbuat di tempat yang tersembunyi. Bahkan, orang-orang yang paling dekat dengan kita pun mungkin nggak pernah menyangka kalau sebenarnya kita suka banget ngeliat hal-hal yang porno, ngebayangin hal-hal yang jorok, bahkan punya kebiasaan masturbasi! Tapi kita harus inget kalau Tuhan selalu tahu apa yang kita lakukan. Dia selalu melihat apa yang kita lakukan bahkan pikirkan. Itu sebabnya kita perlu belajar hidup takut akan Tuhan. Gimana kalo kita ngelakuin masturbasi dan dilihat orang lain? Maluuuu dong... Seperti itu juga kita harus berpikir bahwa Tuhan selalu melihat apa yang kita lakukan. Malu ama Tuhan dong, kalo sampai kita ngelakuin masturbasi.

Minta Tolong Pada Orang Lain

Carilah orang yang benar-benar kamu bisa percayai dan kamu anggap dekat, lalu ceritakanlah masalahmu kepadanya. Ceritakanlah niatmu untuk mengakhiri kebiasaan masturbasi ini. Seandainya ada orang-orang yang bisa mendukung kamu, tentu saja kamu akan lebih mudah mengatasi keterikatanmu itu. Mereka akan selalu mengingatkanmu dan memotivasi kamu bahwa kamu pasti bisa lepas dari kebiasaan buruk itu.

Jangan Merasa Diri Kuat

Kalau kamu sudah bisa lepas dari kebiasaan nonton film porno. Sebulan, dua bulan, tiga bulan... Jangan merasa diri kuat. Ingatlah bahwa kejatuhan kita di dalam dosa-dosa seksual biasanya karena kita sudah merasa kuat dan merasa nggak bakal jatuh dalam dosa yang sama lagi. Tetaplah bergantung pada Tuhan agar kita tidak kembali pada kebiasaan kita yang lama.

30 cara meluluhkan hati kaum hawa :)

Meluluhkan hati wanita bukanlah sesuatu yang mudah buat Anda, para pria. Ingin tahu cara meluluhkan hati wanita? Inilah 45 caranya, yang ternyata sederhana.

1. Ajaklah berdansa tanpa wanita menduganya. Tak harus di lantai dansa, tetapi di tempat mana saja dengan lagu romantis. Terasa menyentuh, ketika Anda baru saja menghabiskan makan malam bersama. Tetap cool, ingat film-film lawas yang menampilkan adegan dansa romantis.

2. Ketika ada helaian rambut melekat di wajah cantiknya, singkirkanlah segera dengan jemari Anda penuh kelembutan.

3. Wanita Anda butuh perhatian tanpa ia memintanya. Seperti ketika ia tengah berjalan ke arah Anda. Nah, agar membuatnya merasa berharga, sambutlah kedatangannya dengan senyum pesona.

4. Cium pundaknya, saat ia tidur membelakangi Anda. Sepenuh rasa, sepenuh hati.

5. Peluklah pinggangnya ketika memperkenalkan wanita Anda kepada keluarga ataupun kerabat. Ingat, pelukanlah dengan hangat dan jangan terlalu erat.

6. Remas jemari tangan halusnya ketika Anda dan dirinya melihat wanita lain berbaju seksi berjalan melintas. Ini penghargaan baginya.

7. Telepon wanita Anda, ketika Anda merasa sedih. Atau ketika Anda ingin berbagi cerita.

8. Sabuni punggungnya ketika Anda tengah mandi bersama. Usaplah dengan penuh kelembutan.

9. Tanpa memaksa, mintalah ia menunjukan foto masa kecilnya. Kecil, namun terasa besar artinya.

10. cium kelopak matanya. Sikap yang menunjukan rasa kasih dan sayang Anda terhadapnya.

11. Ketika wanita Anda tersedu-sedu di ujung telepon, hibur dan tegarkan hatinya. Lalu, segaralah Anda mendatanginya.

12. Agar tak membosankan, sesekali Anda memanggil nama tengah atau panggilan yang tak biasanya. Terkejut, tapi menyenangkan baginya.

13. Belikan kaset, CD atau DVD lagu kesayangannya. Sungguh, kejutan yang membahagiakan.

14. Sentuh lengannya saat Anda ingin meninggalkannya sesaat. Kemudian sentuh lagi lengannya, saat Anda kembali menemuinya.

15. Tanggalkan sesuatu yang tak perlu melekat pada tubuh wanita Anda, saat ia tertidur di mobil. Dan, letakanlah selimut hangat atau jaket Anda di tubuhnya, agar menghangatkan.

16. Ingatlah tanggal jadi Anda berdua. Anda harus mengungkapkannya terlebih dulu, sebelum wanita yang Anda cintai itu mengingatkannya kepada Anda.

17. Anda bisa mengirimkan apa saja melalui pos atau jasa titipan kurir. Wanita Anda akan terpesona saat menerimanya.

18. Anda yakin menguatkan hatinya, bahwa Anda adalah pria tepat untuknya. Lakukanlah, setiap hatinya gundah gulana.

19. Telepon wanita Anda, saat akan memasuki pesawat atau ketika Anda akan melakukan perjalanan. Ia merasa dibutuhkan.

20. Ucapkan 'I Love U' saat Anda sedang berbicara dengannya. Sekalipun, pembicaraannya tak ada hubungannya dengan masalah asmara.

21. Tak ada salahnya Anda mengajaknya menonton sepakbola atau olahraga kesayangan. Namun ingat, berilah perhatian lebih kepadanya.

22. Bercintalah dengan gaya yang tak biasa. Seperti gaya bercinta menyender dinding.

23. Cemburu bumbunya cinta. Namun, ketika ia cumburu, Anda cukup mencumbu dan memeluknya dengan hangat.

24. Wanita mana yang tak bahagia saat menerima kado perhiasan. Ya, berikanlah.

25. Berikanlah dua handuk saat ia akan mandi. Handuk besar dan handuk kecil untuk menyeka wajah dan rambutnya.

26. Tanyakan hal kecil namun detail menyangkut pekerjaannya. Entah di rumah atau saat di kantor.

27. Kejutan sungguh menyenangkan. Meskipun itu kecil. Semisal membawa cemilan favoritnya.

28. Kirim bunga mahal ketika Anda berbuat salah. Ia merasa Anda masih mencintainya.

29. Buatlah ia tertawa, saat ia merasa sedih. Usaha itu sangat dihargainya.

30. Pergilah berlibur. Hanya berdua. Pilih tempat yang menyenangkan.

30 cara meluluhkan hati kaum hawa gan :)

Meluluhkan hati wanita bukanlah sesuatu yang mudah buat Anda, para pria. Ingin tahu cara meluluhkan hati wanita? Inilah 45 caranya, yang ternyata sederhana.

1. Ajaklah berdansa tanpa wanita menduganya. Tak harus di lantai dansa, tetapi di tempat mana saja dengan lagu romantis. Terasa menyentuh, ketika Anda baru saja menghabiskan makan malam bersama. Tetap cool, ingat film-film lawas yang menampilkan adegan dansa romantis.

2. Ketika ada helaian rambut melekat di wajah cantiknya, singkirkanlah segera dengan jemari Anda penuh kelembutan.

3. Wanita Anda butuh perhatian tanpa ia memintanya. Seperti ketika ia tengah berjalan ke arah Anda. Nah, agar membuatnya merasa berharga, sambutlah kedatangannya dengan senyum pesona.

4. Cium pundaknya, saat ia tidur membelakangi Anda. Sepenuh rasa, sepenuh hati.

5. Peluklah pinggangnya ketika memperkenalkan wanita Anda kepada keluarga ataupun kerabat. Ingat, pelukanlah dengan hangat dan jangan terlalu erat.

6. Remas jemari tangan halusnya ketika Anda dan dirinya melihat wanita lain berbaju seksi berjalan melintas. Ini penghargaan baginya.

7. Telepon wanita Anda, ketika Anda merasa sedih. Atau ketika Anda ingin berbagi cerita.

8. Sabuni punggungnya ketika Anda tengah mandi bersama. Usaplah dengan penuh kelembutan.

9. Tanpa memaksa, mintalah ia menunjukan foto masa kecilnya. Kecil, namun terasa besar artinya.

10. cium kelopak matanya. Sikap yang menunjukan rasa kasih dan sayang Anda terhadapnya.

11. Ketika wanita Anda tersedu-sedu di ujung telepon, hibur dan tegarkan hatinya. Lalu, segaralah Anda mendatanginya.

12. Agar tak membosankan, sesekali Anda memanggil nama tengah atau panggilan yang tak biasanya. Terkejut, tapi menyenangkan baginya.

13. Belikan kaset, CD atau DVD lagu kesayangannya. Sungguh, kejutan yang membahagiakan.

14. Sentuh lengannya saat Anda ingin meninggalkannya sesaat. Kemudian sentuh lagi lengannya, saat Anda kembali menemuinya.

15. Tanggalkan sesuatu yang tak perlu melekat pada tubuh wanita Anda, saat ia tertidur di mobil. Dan, letakanlah selimut hangat atau jaket Anda di tubuhnya, agar menghangatkan.

16. Ingatlah tanggal jadi Anda berdua. Anda harus mengungkapkannya terlebih dulu, sebelum wanita yang Anda cintai itu mengingatkannya kepada Anda.

17. Anda bisa mengirimkan apa saja melalui pos atau jasa titipan kurir. Wanita Anda akan terpesona saat menerimanya.

18. Anda yakin menguatkan hatinya, bahwa Anda adalah pria tepat untuknya. Lakukanlah, setiap hatinya gundah gulana.

19. Telepon wanita Anda, saat akan memasuki pesawat atau ketika Anda akan melakukan perjalanan. Ia merasa dibutuhkan.

20. Ucapkan 'I Love U' saat Anda sedang berbicara dengannya. Sekalipun, pembicaraannya tak ada hubungannya dengan masalah asmara.

21. Tak ada salahnya Anda mengajaknya menonton sepakbola atau olahraga kesayangan. Namun ingat, berilah perhatian lebih kepadanya.

22. Bercintalah dengan gaya yang tak biasa. Seperti gaya bercinta menyender dinding.

23. Cemburu bumbunya cinta. Namun, ketika ia cumburu, Anda cukup mencumbu dan memeluknya dengan hangat.

24. Wanita mana yang tak bahagia saat menerima kado perhiasan. Ya, berikanlah.

25. Berikanlah dua handuk saat ia akan mandi. Handuk besar dan handuk kecil untuk menyeka wajah dan rambutnya.

26. Tanyakan hal kecil namun detail menyangkut pekerjaannya. Entah di rumah atau saat di kantor.

27. Kejutan sungguh menyenangkan. Meskipun itu kecil. Semisal membawa cemilan favoritnya.

28. Kirim bunga mahal ketika Anda berbuat salah. Ia merasa Anda masih mencintainya.

29. Buatlah ia tertawa, saat ia merasa sedih. Usaha itu sangat dihargainya.

30. Pergilah berlibur. Hanya berdua. Pilih tempat yang menyenangkan.

Memindah database MySQL tanpa menginstalnya

Tutorial berikut adalah bagaimana memindah database MySQL tanpa menginstal MySQL pada suatu komputer yang akan dijadikan server. Hal ini juga bisa dilakukan jika kita hendak membuat installer database suatu aplikasi secara praktis.
Contoh berikut adalah bagaimana memindah database MySQL pada partisi D: sehingga tidak masalah jika PC server mengalami kerusakan sehingga mengharuskan install ulang atau format pada partisi C:.
Hal yang perlu disiapkan adalah buat folder baru dengan nama "MYSQLKU" yang nantinya akan dipindahkan ke partisi D:, dan nantinya folder "MYSQLKU" ini akan berisi folder dan file sebagai berikut :
1. Folder "bin" berisi file : libmySQL.dll, mysql.exe, mysqld.exe, mysqld.map, mysqld.pdb, mysqldump.exe.
2. Folder "data" berisi folder "test", folder "mysql" dan folder lainnya sesuai dengan database yang anda miliki. Pokoknya copy aja semua isi folder "test", "mysql" dan folder data lain secara utuh.
3. Folder "MySQL Datafiles" berisi file ibdata1.
4. Folder "share" berisi folder "english" beserta isinya. (Pokoknya copy aja secara utuh folder "english")
5. File my.ini dengan perubahan setting isi file nya sebagai berikut :
port=3306
basedir="D:/MySQLKU/"
datadir="D:/MySQLKU/Data/"
innodb_data_home_dir="D:/MySQLKU/MySQL Datafiles/"
6. File mysql-install.bat, jika belum ada dapat dibuat dengan notepad kemudian save as nya sebagai All Files dengan nama mysql-install.bat. File inilah yang nantinya sebagai launcher database MySQL, dan cukup dieksekusi sekali saja, maka setiap kali PC server menyala service MySQL akan otomatis berjalan dengan sendirinya.
Adapun isi file mysql-install.bat sebagai berikut :
@echo off
net stop Mysqlku
sc delete Mysqlku
netsh firewall add allowedprogram D:\MYSQLKU\bin\mysqld.exe Mysqlku
D:\MYSQLKU\bin\mysqld.exe --install Mysqlku --defaults-file=D:/MYSQLKU/my.ini
net start Mysqlku
7. File mysql-uninstall.bat. Berfungsi untuk menghentikan service MySQL pada PC server. Isi file nya sebagai berikut.
@echo off
net stop Mysqlku
sc delete Mysqlku

Setelah semua file dan folder sudah disiapkan di folder "D:/MYSQLKU", tinggal eksekusi saja file mysql-install.bat. Maka service MySQL sudah dapat berjalan.
Untuk membuat File Installer database ini dapat menggunakan aplikasi sederhana semacam Winrar dengan Archiving options "Create SFX archive" dan ikuti petunjuk sederhananya.
Perlu diketahui meskipun total ukuran filenya bisa mencapai di atas 50MB, akan tetapi setelah melalui proses kompresi dengan Winrar ukuran file nya akan menurun secara drastis menjadi kurang dari separuhnya.
Demikian semoga membantu. mohon koreksi jika ada yang masih kurang.

Terbilang Rupiah

Berikut ini akan ditampilakn listing terbilang dalam mata uang rupiah yang sederhana dan cukup panjang.
Yang dibutuhkan dalam fungsi ini adalah adanya 2 textbox txtter1 dan txtter2 serta 1 edit box untuk menampilkan terbilangnya.
Copy paste saja listing berikut dan buat method baru dengan nama terbilang.
Masukkan nominal uang dalam txtter1, kemudian buat command button untuk memanggil method terbilang, maka hasilnya akan ditampilan dalam edit box yang telah dibuat.
Selamat mencoba dan semoga membantu.
* xxxxxxxxxxxxxxxxx awal listing terbilang xxxxxxxxxxxxxxx
thisform.txtter2.value=str(thisform.pageframe1.page4.txtter1.value)
thisform.txtter1.inputmask="999,999,999,999.00"

x = alltrim(thisform.txtter2.value)
digit = len(x)
posisi = digit
satuan = substr(x,posisi,1)
belasan = substr(x,posisi-1,2)
puluhan = substr(x,posisi-1,1)
ratusan = substr(x,posisi-2,1)
ribuan = substr(x,posisi-3,1)
belasanribu = substr(x,posisi-4,2)
satuanribu = substr(x,posisi-3,1)
sepuluhanribu = substr(x,posisi-4,2)
puluhanribu = substr(x,posisi-4,1)
seratusanribu = substr(x,posisi-5,3)
ratusanribu = substr(x,posisi-5,1)
jutaan = substr(x,posisi-6,1)
belasanjuta = substr(x,posisi-7,2)
satuanjuta = substr(x,posisi-6,1)
sepuluhanjuta = substr(x,posisi-7,2)
puluhanjuta = substr(x,posisi-7,1)
seratusanjuta = substr(x,posisi-8,3)
ratusanjuta = substr(x,posisi-8,1)
milyar = substr(x,posisi-9,1)
belasanmilyar = substr(x,posisi-10,2)
satuanmilyar = substr(x,posisi-9,1)
sepuluhanmilyar = substr(x,posisi-10,2)
puluhanmilyar = substr(x,posisi-10,1)
seratusanmilyar = substr(x,posisi-11,3)
ratusanmilyar = substr(x,posisi-11,1)

terbilang1 =""

if satuan = "0"
terbilang1 = ""
else
if satuan = "1"
terbilang1 = "satu"
else
if satuan = "2"
terbilang1 = "dua"
else
if satuan = "3"
terbilang1 = "tiga"
else
if satuan = "4"
terbilang1 = "empat"
else
if satuan = "5"
terbilang1 = "lima"
else
if satuan = "6"
terbilang1 = "enam"
else
if satuan = "7"
terbilang1 = "tujuh"
else
if satuan = "8"
terbilang1 = "delapan"
else
if satuan = "9"
terbilang1 = "sembilan"
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif

terbilang2=""

if belasan = "10"
terbilang1 = "sepuluh"
else
if belasan = "11"
terbilang1 = "sebelas"
else
if belasan = "12"
terbilang1 = "dua belas"
else
if belasan = "13"
terbilang1 = "tiga belas"
else
if belasan = "14"
terbilang1 = "empat belas"
else
if belasan = "15"
terbilang1 = "lima belas"
else
if belasan = "16"
terbilang1 = "enam belas"
else
if belasan = "17"
terbilang1 = "tujuh belas"
else
if belasan = "18"
terbilang1 = "delapan belas"
else
if belasan = "19"
terbilang1 = "sembilan belas"
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif

if puluhan = "2"
terbilang2 = "dua puluh "
else
if puluhan = "3"
terbilang2 = "tiga puluh "
else
if puluhan = "4"
terbilang2 = "empatpuluh "
else
if puluhan = "5"
terbilang2 = "lima puluh "
else
if puluhan = "6"
terbilang2 = "enam puluh "
else
if puluhan = "7"
terbilang2 = "tujuh puluh "
else
if puluhan = "8"
terbilang2 = "delapan puluh "
else
if puluhan = "9"
terbilang2 = "sembilan puluh "
endif
endif
endif
endif
endif
endif
endif
endif

terbilang3=""

if ratusan = "1"
terbilang3 = "seratus "
else
if ratusan = "2"
terbilang3 = "dua ratus "
else
if ratusan = "3"
terbilang3 = "tiga ratus "
else
if ratusan = "4"
terbilang3 = "empat ratus "
else
if ratusan = "5"
terbilang3 = "lima ratus "
else
if ratusan = "6"
terbilang3 = "enam ratus "
else
if ratusan = "7"
terbilang3 = "tujuh ratus "
else
if ratusan = "8"
terbilang3 = "delapan ratus "
else
if ratusan = "9"
terbilang3 = "sembilan ratus "
endif
endif
endif
endif
endif
endif
endif
endif
endif

terbilang4=""

if ribuan = "1" and (substr(x,posisi-5,2)="00" or digit=4)
terbilang4 = "seribu "
else
if ribuan = "1"
terbilang4 = "satu ribu "
else
if ribuan = "2"
terbilang4 = "dua ribu "
else
if ribuan = "3"
terbilang4 = "tiga ribu "
else
if ribuan = "4"
terbilang4 = "empat ribu "
else
if ribuan = "5"
terbilang4 = "lima ribu "
else
if ribuan = "6"
terbilang4 = "enam ribu "
else
if ribuan = "7"
terbilang4 = "tujuh ribu "
else
if ribuan = "8"
terbilang4 = "delapan ribu "
else
if ribuan = "9"
terbilang4 = "sembilan ribu "
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif
**************************** 0 s.d. 9999 oke *******************************************

terbilang5=""

if belasanribu = "10"
terbilang4 = "sepuluh ribu "
else
if belasanribu = "11"
terbilang4 = "sebelas ribu "
else
if belasanribu = "12"
terbilang4 = "dua belas ribu "
else
if belasanribu = "13"
terbilang4 = "tiga belas ribu "
else
if belasanribu = "14"
terbilang4 = "empat belas ribu "
else
if belasanribu = "15"
terbilang4 = "lima belas ribu "
else
if belasanribu = "16"
terbilang4 = "enam belas ribu "
else
if belasanribu = "17"
terbilang4 = "tujuh belas ribu "
else
if belasanribu = "18"
terbilang4 = "delapan belas ribu "
else
if belasanribu = "19"
terbilang4 = "sembilan belas ribu "
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif

if puluhanribu = "2"
terbilang5 = "dua puluh "
else
if puluhanribu = "3"
terbilang5 = "tiga puluh "
else
if puluhanribu = "4"
terbilang5 = "empat puluh "
else
if puluhanribu = "5"
terbilang5 = "lima puluh "
else
if puluhanribu = "6"
terbilang5 = "enam puluh "
else
if puluhanribu = "7"
terbilang5 = "tujuh puluh "
else
if puluhanribu = "8"
terbilang5 = "delapan puluh "
else
if puluhanribu = "9"
terbilang5 = "sembilan puluh "
endif
endif
endif
endif
endif
endif
endif
endif

if sepuluhanribu = "20"
terbilang5 = "dua puluh ribu "
else
if sepuluhanribu = "30"
terbilang5 = "tiga puluh ribu "
else
if sepuluhanribu = "40"
terbilang5 = "empat puluh ribu "
else
if sepuluhanribu = "50"
terbilang5 = "lima puluh ribu "
else
if sepuluhanribu = "60"
terbilang5 = "enam puluh ribu "
else
if sepuluhanribu = "70"
terbilang5 = "tujuh puluh ribu "
else
if sepuluhanribu = "80"
terbilang5 = "delapan puluh ribu "
else
if sepuluhanribu = "90"
terbilang5 = "sembilan puluh ribu "
endif
endif
endif
endif
endif
endif
endif
endif

terbilang6=""

if ratusanribu= "1"
terbilang6 = "seratus "
else
if ratusanribu= "2"
terbilang6 = "dua ratus "
else
if ratusanribu= "3"
terbilang6 = "tiga ratus "
else
if ratusanribu= "4"
terbilang6 = "empat ratus "
else
if ratusanribu= "5"
terbilang6 = "lima ratus "
else
if ratusanribu= "6"
terbilang6 = "enam ratus "
else
if ratusanribu= "7"
terbilang6 = "tujuh ratus "
else
if ratusanribu= "8"
terbilang6 = "delapan ratus "
else
if ratusanribu= "9"
terbilang6 = "sembilan ratus "
endif
endif
endif
endif
endif
endif
endif
endif
endif
* ******************** tepat seratusan ribu **************
if seratusanribu= "100"
terbilang6 = "seratus ribu "
else
if seratusanribu= "200"
terbilang6 = "dua ratus ribu "
else
if seratusanribu= "300"
terbilang6 = "tiga ratus ribu "
else
if seratusanribu= "400"
terbilang6 = "empat ratus ribu "
else
if seratusanribu= "500"
terbilang6 = "lima ratus ribu "
else
if seratusanribu= "600"
terbilang6 = "enam ratus ribu "
else
if seratusanribu= "700"
terbilang6 = "tujuh ratus ribu "
else
if seratusanribu= "800"
terbilang6 = "delapan ratus ribu "
else
if seratusanribu= "900"
terbilang6 = "sembilan ratus ribu "
endif
endif
endif
endif
endif
endif
endif
endif
endif

terbilang7 =""

if jutaan = "1"
terbilang7 = "satu juta "
else
if jutaan = "2"
terbilang7 = "dua juta "
else
if jutaan = "3"
terbilang7 = "tiga juta "
else
if jutaan = "4"
terbilang7 = "empat juta "
else
if jutaan = "5"
terbilang7 = "lima juta "
else
if jutaan = "6"
terbilang7 = "enam juta "
else
if jutaan = "7"
terbilang7 = "tujuh juta "
else
if jutaan = "8"
terbilang7 = "delapan juta "
else
if jutaan = "9"
terbilang7 = "sembilan juta "
endif
endif
endif
endif
endif
endif
endif
endif
endif

* xxxxxxxxxxx s.d 9 juta sih oke xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

terbilang8=""

if belasanjuta = "10"
terbilang7 = "sepuluh juta "
else
if belasanjuta = "11"
terbilang7 = "sebelas juta "
else
if belasanjuta = "12"
terbilang7 = "dua belas juta "
else
if belasanjuta = "13"
terbilang7 = "tiga belas juta "
else
if belasanjuta = "14"
terbilang7 = "empat belas juta "
else
if belasanjuta = "15"
terbilang7 = "lima belas juta "
else
if belasanjuta = "16"
terbilang7 = "enam belas juta "
else
if belasanjuta = "17"
terbilang7 = "tujuh belas juta "
else
if belasanjuta = "18"
terbilang7 = "delapan belas juta "
else
if belasanjuta = "19"
terbilang7 = "sembilan belas juta "
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif

if puluhanjuta = "2"
terbilang8 = "dua puluh "
else
if puluhanjuta = "3"
terbilang8 = "tiga puluh "
else
if puluhanjuta = "4"
terbilang8 = "empat puluh "
else
if puluhanjuta = "5"
terbilang8 = "lima puluh "
else
if puluhanjuta = "6"
terbilang8 = "enam puluh "
else
if puluhanjuta = "7"
terbilang8 = "tujuh puluh "
else
if puluhanjuta = "8"
terbilang8 = "delapan puluh "
else
if puluhanjuta = "9"
terbilang8 = "sembilan puluh "
endif
endif
endif
endif
endif
endif
endif
endif

if sepuluhanjuta = "20"
terbilang8 = "dua puluh juta "
else
if sepuluhanjuta = "30"
terbilang8 = "tiga puluh juta "
else
if sepuluhanjuta = "40"
terbilang8 = "empat puluh juta "
else
if sepuluhanjuta = "50"
terbilang8 = "lima puluh juta "
else
if sepuluhanjuta = "60"
terbilang8 = "enam puluh juta "
else
if sepuluhanjuta = "70"
terbilang8 = "tujuh puluh juta "
else
if sepuluhanjuta = "80"
terbilang8 = "delapan puluh juta "
else
if sepuluhanjuta = "90"
terbilang8 = "sembilan puluh juta "
endif
endif
endif
endif
endif
endif
endif
endif

terbilang9 =""

if ratusanjuta = "1"
terbilang9 = "seratus "
else
if ratusanjuta = "2"
terbilang9 = "dua ratus "
else
if ratusanjuta = "3"
terbilang9 = "tiga ratus "
else
if ratusanjuta = "4"
terbilang9 = "empat ratus "
else
if ratusanjuta = "5"
terbilang9 = "lima ratus "
else
if ratusanjuta = "6"
terbilang9 = "enam ratus "
else
if ratusanjuta = "7"
terbilang9 = "tujuh ratus "
else
if ratusanjuta = "8"
terbilang9 = "delapan ratus "
else
if ratusanjuta = "9"
terbilang9 = "sembilan ratus "
endif
endif
endif
endif
endif
endif
endif
endif
endif
* ******************** tepat seratusan juta **************
if seratusanjuta= "100"
terbilang9 = "seratus juta "
else
if seratusanjuta= "200"
terbilang9 = "dua ratus juta "
else
if seratusanjuta= "300"
terbilang9 = "tiga ratus juta "
else
if seratusanjuta= "400"
terbilang9 = "empat ratus juta "
else
if seratusanjuta= "500"
terbilang9 = "lima ratus juta "
else
if seratusanjuta= "600"
terbilang9 = "enam ratus juta "
else
if seratusanjuta= "700"
terbilang9 = "tujuh ratus juta "
else
if seratusanjuta= "800"
terbilang9 = "delapan ratus juta "
else
if seratusanjuta= "900"
terbilang9 = "sembilan ratus juta "
endif
endif
endif
endif
endif
endif
endif
endif
endif

terbilang10 =""

if milyar = "1"
terbilang10 = "satu milyar "
else
if milyar = "2"
terbilang10 = "dua milyar "
else
if milyar = "3"
terbilang10 = "tiga milyar "
else
if milyar = "4"
terbilang10 = "empat milyar "
else
if milyar = "5"
terbilang10 = "lima milyar "
else
if milyar = "6"
terbilang10 = "enam milyar "
else
if milyar = "7"
terbilang10 = "tujuh milyar "
else
if milyar = "8"
terbilang10 = "delapan milyar "
else
if milyar = "9"
terbilang10 = "sembilan milyar "
endif
endif
endif
endif
endif
endif
endif
endif
endif

* xxxxxxxxxxx s.d 9 milyar sih oke xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

terbilang11=""

if belasanmilyar = "10"
terbilang10 = "sepuluh milyar "
else
if belasanmilyar = "11"
terbilang10 = "sebelas milyar "
else
if belasanmilyar = "12"
terbilang10 = "dua belas milyar "
else
if belasanmilyar = "13"
terbilang10 = "tiga belas milyar "
else
if belasanmilyar = "14"
terbilang10 = "empat belas milyar "
else
if belasanmilyar = "15"
terbilang10 = "lima belas milyar "
else
if belasanmilyar = "16"
terbilang10 = "enam belas milyar "
else
if belasanmilyar = "17"
terbilang10 = "tujuh belas milyar "
else
if belasanmilyar = "18"
terbilang10 = "delapan belas milyar "
else
if belasanmilyar = "19"
terbilang10 = "sembilan belas milyar "
endif
endif
endif
endif
endif
endif
endif
endif
endif
endif

if puluhanmilyar = "2"
terbilang11 = "dua puluh "
else
if puluhanmilyar = "3"
terbilang11 = "tiga puluh "
else
if puluhanmilyar = "4"
terbilang11 = "empat puluh "
else
if puluhanmilyar = "5"
terbilang11 = "lima puluh "
else
if puluhanmilyar = "6"
terbilang11 = "enam puluh "
else
if puluhanmilyar = "7"
terbilang11 = "tujuh puluh "
else
if puluhanmilyar = "8"
terbilang11 = "delapan puluh "
else
if puluhanmilyar = "9"
terbilang11 = "sembilan puluh "
endif
endif
endif
endif
endif
endif
endif
endif

if sepuluhanmilyar = "20"
terbilang11 = "dua puluh milyar "
else
if sepuluhanmilyar = "30"
terbilang11 = "tiga puluh milyar "
else
if sepuluhanmilyar = "40"
terbilang11 = "empat puluh milyar "
else
if sepuluhanmilyar = "50"
terbilang11 = "limapuluh milyar "
else
if sepuluhanmilyar = "60"
terbilang11 = "enam puluh milyar "
else
if sepuluhanmilyar = "70"
terbilang11 = "tujuh puluh milyar "
else
if sepuluhanmilyar = "80"
terbilang11 = "delapan puluh milyar "
else
if sepuluhanmilyar = "90"
terbilang11 = "sembilan puluh milyar "
endif
endif
endif
endif
endif
endif
endif
endif

terbilang12 =""

if ratusanmilyar = "1"
terbilang12 = "seratus "
else
if ratusanmilyar = "2"
terbilang12 = "duaratus "
else
if ratusanmilyar = "3"
terbilang12 = "tigaratus "
else
if ratusanmilyar = "4"
terbilang12 = "empatratus "
else
if ratusanmilyar = "5"
terbilang12 = "limaratus "
else
if ratusanmilyar = "6"
terbilang12 = "enamratus "
else
if ratusanmilyar = "7"
terbilang12 = "tujuhratus "
else
if ratusanmilyar = "8"
terbilang12 = "delapanratus "
else
if ratusanmilyar = "9"
terbilang12 = "sembilanratus "
endif
endif
endif
endif
endif
endif
endif
endif
endif
* ******************** tepat seratusan milyar **************
if seratusanmilyar = "100"
terbilang12 = "seratus milyar "
else
if seratusanmilyar = "200"
terbilang12 = "duaratus milyar "
else
if seratusanmilyar = "300"
terbilang12 = "tigaratus milyar "
else
if seratusanmilyar = "400"
terbilang12 = "empatratus milyar "
else
if seratusanmilyar = "500"
terbilang12 = "limaratus milyar "
else
if seratusanmilyar = "600"
terbilang12 = "enamratus milyar "
else
if seratusanmilyar = "700"
terbilang12 = "tujuhratus milyar "
else
if seratusanmilyar = "800"
terbilang12 = "delapanratus milyar "
else
if seratusanmilyar = "900"
terbilang12 = "sembilanratus milyar "
endif
endif
endif
endif
endif
endif
endif
endif
endif


if val(thisform.txtter2.value) = 0
matauang = "nihil"
else
matauang = " rupiah"
endif

SEMUA=(terbilang12+ terbilang11 + terbilang10 + terbilang9 + terbilang8 + terbilang7 + terbilang6 + terbilang5 + terbilang4 + terbilang3 + terbilang2 + terbilang1 + matauang)

THISFORM.edit1.Value=PROPER(left(semua,1))+substr(semua,2,100)

* xxxxxxxxxxxxxxxxx akhir listing terbilang xxxxxxxxxxxxxxx

Add Glass XP Widgets to your Visual Foxpro Screens

Google, Yahoo, Vista have all got them. Now so has Visual Foxpro and you. I am talking about those little apps called Widgets that you can use to clutter your screen with.

Using PNG graphics that are supported by VFP is one way to create very cool widgets. I have described here how PNG's with an Alpha mask can be used to show some cool glass-like pseudo "forms".

Now I will describe here how this can be extended to creating glass widgets. While we have always had widgets, and have used them, the technique described here will give you a draggable Glass Widget, similar to Vista. And best of all this can be achieved in XP!

For this post I will create a clock widget. You can download the complete source from the Attachment at the end of the post.

The clock is a simple VFP class that will autorun when dropped on a form and the form run. The trick behind the Glass effect is in the background PNG image of the class:

While it looks like a plain old black & white graphic, it contains an Alpha Channel mask embedded in it. The PNG format supports saving this mask in the image and the VFP image object respects and uses this mask. If you open this image in a paint program that supports masks, like Photoshop, (I use Paint Shop Pro) then you can see the mask.When this image is loaded into a VFP image object, the mask takes effect and makes certain areas transparent based on the information in the mask.

Thus all it takes is to insert an image object into a transparent container and the effect is complete. The clock class just adds the code for the date, year and movement of the hands. There is also code in the image class to allow dragging the container, so that the clock can be moved.Check out the code in the Mouse events of the image object class.

The clock can be instantiated in the _screen or, if you are using a top level form as the basis of your application, as I have described here and here, then this technique and class can be used.

Below you can see the Glass outer area that allows the background image to seep through. This area is also used to drag and drop the clock to a new location. The colours you can easily change since I have included the full source. Run the exe and drag the clock around. Careful when you drop it though, as we dont want to break the Glass!

Here is the clock running inside a top level form.

http://weblogs.foxite.com/bernardbout/archive/2006/11/04/2798.aspx

Simple Login

Form login digunakan untuk memastikan user yang menggunakan aplikasi utama adalah user yang berhak. Contoh berikut adalah penggunaan form login dengan menggunakan database MySQL 5.1 dan konektor MySQL ODBC 5.1 Driver.

Sebelum menggunakan form tersebut pastikan telah dibuat dulu main program dengan nama main.prg dengan isi sebagai beikut :
*********************************************************************
set talk off
set dele on
set exclusive on
set safety off
set date short
PUBLIC koneksi, namakursor
koneksi=0
SET DATE BRITISH
SET CENTURY ON
SET EXCLUSIVE OFF
SET NOTIFY OFF
SET CARRY OFF
SET MULTILOCKS ON

lcLastSetPath=SET("PATH")
*CD "\co_program\"
SET PATH TO ;
clear all
DO FORM "c:/Co_Program/login.scx"
_screen.visible=.f.
read events
*************************************************
Serta harus dipastikan adanya tabel di MySql denan nama user column name c(10), pass c(10).
Buatlah property dengan nama baru,namakursor,koneksi.
Kemudian isilah script form login sebagai berikut :
*procedure init
ipdb="127.0.0.1"
userdb="root"
passdb="rahasia"
namedb="kopkarP"
SQLSETPROP(0,"DispLogin",3)
mstr = "DATABASE="+namedb+";SERVER="+ipdb+";port=3306;UID="+userdb+";PWD="+passdb+";provider=MSDASQLR;DRIVER={MySQL ODBC 5.1 Driver};"
THISFORM.Koneksi = SQLSTRINGCONNECT( mstr )
IF THISFORM.Koneksi <= 0
thisform.lbkonek.Caption="Koneksi Ke Server Database MySQL Gagal"
ELSE
thisform.lbkonek.Caption="Koneksi Ke Server Database MySQL Berhasil"
ENDIF
THISFORM.namakursor = "QT"+SUBSTR(SYS(2015), 5)
koneksi = thisform.koneksi
namakursor=thisform.namakursor
***************************************************************************
*Method tampil_data
SELECT ( namakursor )
THISFORM.text1.VALUE=pass
thisform.text2.Value=mac
THISFORM.REFRESH
***************************************************************************
*Procedure thisform.txtname.LostFocus
IF EMPTY( THISFORM.txtNAME.VALUE )
RETURN
ENDIF

IF Koneksi <= 0
=MESSAGEBOX("Anda Belum Koneksi Ke Server Database MySQL ", 0+16, "Konfirmasi")
QUIT
ELSE

mtf = namakursor
msql = "select * from user WHERE name = '" + THISFORM.txtname.Value + "';"
IF SQLEXEC(Koneksi, msql, "&mtf") <= 0
=MESSAGEBOX("Proses Query Ke MySQL Gagal", 0+16, "PESAN")
QUIT
RETURN
ENDIF

THISFORM.Baru = .T.
THISFORM.nilai_awal

IF USED("&mtf")
SELECT &mtf
GO TOP
IF !EOF()
THISFORM.Baru = .F.
THISFORM.tampil_data
ENDIF
ENDIF
RETURN
ENDIF
************************************************************
*Procedure cmd_ok.click

IF EMPTY( THISFORM.txtname.Value )
MESSAGEBOX("Username Harus diisi!!",0+48,"Perhatian")
THISFORM.Txtname.SETFOCUS()
RETURN
ENDIF
IF EMPTY( THISFORM.Txtpass.Value )
MESSAGEBOX("Password Harus diisi!!",0+48,"Perhatian")
THISFORM.Txtpass.SETFOCUS()
RETURN
ENDIF
SET EXACT ON
IF ALLTRIM(thisform.txtpass.Value)=ALLTRIM(thisform.text1.Value)
MESSAGEBOX('Anda mempunyai Hak Akses',0+64,'Informasi')
do FORM 'c:/co_program/main.scx' &&Jika user dan pass benar maka akan tampil form main.scx
THISFORM.RELEASE
ELSE
MESSAGEBOX('User atau Password salah',0+16,'Informasi')
ENDIF
************************************************************************
*Methode tampil_data
THISFORM.text1.VALUE = '/*56569as8*//656 '
THISFORM.REFRESH
************************************************************************
Keterangan :
object text1 ditampilkan visible=.F.

Demikian semoga membantu.