Menyampaikan apa yang pernah dilihat dan dicoba

Wanita ini kerasukan sampai meninggal

Di Indonesia, kasus orang yang mengalami kesurupan sering kita dengar. Bahkan beberapa waktu lalu, banyak sekolah yang melaporkan bahwa sejumlah siswanya mengalami kesurupan. Di negara barat pun, kasus kerasukan makhluk halus juga pernah terjadi, salah satunya adalah kasus Anneliese Michel yang terkenal. Bahkan kisahnya telah diangkat ke layar lebar dalam dua versi. Sebagai catatan, artikel ini tidak bermaksud menyinggung SARA, jadi hanya sebatas untuk pengetahuan saja.

Anneliese Michel lahir September 1952 di Klingenberg, Bavaria, Jerman. Ia merupakan seorang gadis Katolik yang taat, pada tahun 1968, ketika ia berumur 16 tahun (SMA), Anneliese mulai menderita kejang-kejang. Tidak dapat berbicara, berteriak, atau meminta bantuan, ia kemudian menjelaskan bahwa dia merasa seolah-olah ada sesosok tubuh besar yang terasa berat duduk di dadanya.

Ketika Anneliese berusia 23 tahun, seorang teman lama keluarga mencatat bahwa Michel (Anneliese) tidak mampu berjalan melewati ikon Yesus Kristus seperti salib dan menolak untuk minum air suci. Dia menyimpulkan bahwa Anneliese menderita kerasukan setan dan menyarankan untuk membawanya ke paranormal. Ia dibawa ke seorang dukun di kota terdekat dan kembali diperiksa. Michel diagnosis kerasukan setan. Pada saat ini, Anneliese mulai menghina, memukul, dan menggigit orangtuanya. Dia menghancurkan gigi di dinding dan mulai memotong tubuhnya dengan pisau. Dia menolak untuk makan atau minum menjelaskan bahwa setan tidak akan mengizinkannya. Lalu orangtua Anneliese, membawanya pergi ke dokter psikiater untuk berobat, Anneliese pun diberikan obat oleh dokter tersebut.

Namun, kondisi Anneliese tetap tak kunjung membaik. Kondisi ini pun membuat orang tua Anneliese meminta bantuan kepada gereja untuk menolong Anneliese. Gereja Katolik pun memberikan izin untuk melakukan pengusiran setan atau disebut eksorsisme. Ritual eksorsisme dilakukan selama sekitar 10 bulan pada tahun 1976. Total sebanyak 67 sesi eksorsisme diadakan, 1 atau 2 eksorsisme per minggu, dan beberapa eksorsisme berlangsung hingga 4 jam.

Saat Anneliese mengalami kerasukkan, ia menjadi sangat kuat bahkan dibutuhkan 3 orang dewasa untuk menjatuhkannya. Bahkan saking kuatnya, Anneliese pun diikat di tempat tidur dengan menggunakan rantai untuk meredam kekuatannya. Tak hanya kuat, Anneliese berbicara dengan berbagai bahasa dan suara ketika kerasukkan, ia pernah bicara dalam bahasa Ibrani, yang mengatakan, “Kami adalah orang-orang yang diam di dalamnya. Saya salah satu yang tinggal di dalam Kain.”

Selama proses pengusiran setan itu, Anneliese berteriak-teriak, buang air kecil ataupun besar sembarangan, menanggalkan pakaiannya, bahkan ia sangat anti terhadap benda-benda rohani seperti salib, rosario, dan lain-lain.

Pada akhirnya 1 Juli 1976, Anneliese pun meninggal dunia, hari dimana tepatnya kemarin 30 Juni 1976 Anneliese menjalani ritus eksorsisme. Anneliese di saat terakhirnya ia mengucapkan kata-kata terakhir kepada ibunya, “Ibu, aku takut” Dan di malam itu (1 Juli 1976), Anneliese Michel meninggal dalam tidurnya. Laporan otopsi menyatakan bahwa kematiannya akibat dari kekurangan gizi dan dehidrasi.

Meninggalnya Anneliese Michel pun berdampak buruk kepada 2 pastor yang melakukan ritual pengusiran tersebut. 2 pastor yang memimpin pengusiran setan, Pastor Alt dan Renz serta ayah Anneliese dituduh bersalah karena memungkinkan terjadinya kematian pada Anneliese. Diduga karena menjalani pengusiran setan dan penghentian obat yang diberikan oleh dokter psikiater yang membuat Anneliese akhirnya meninggal dunia pada tanggal 1 Juli 1976

BERIKUT INFO LENGKAP TENTANG KRONOLOGIS KERASUKAN MICHEL...

Orang Yang Pertama Kali Mengetahui Bahwa Michel Telah Dirasuki

Orang yang pertama kali mengetahui bahwa Michel telah dirasuki oleh roh jahat adalah seorang wanita tua yang mendampingi Michel ketika ia berziarah. Wanita itu menyadari keanehan pada diri Michel ketika Michel berulangkali menghindar ketika melewati lukisan Jesus. Michel juga menolak ketika diberi air suci dari sumber mata air. Wanita itu juga mengatakan bahwa ia merasakan aura yang berbeda ketika berada didekat Michel.

Seorang dukun dari kota terdekat memeriksa Michel. Ia menyimpulkan bahwa Michel memang telah dirasuki oleh roh jahat. Orang tua Michel meminta ritual pengusiran roh jahat kepada dukun itu, namun dukun itu menolak. Akhirnya, mereka meminta bantuan kepada Uskup setempat.


Siapakah Orang Yang Melakukan Ritual Pengusiran Roh Jahat ?

Orang tua Michel yang putus asa kemudian meminta bantuan seorang Uskup untuk menyembuhkan Michel. Uskup yang bernama Joseph Stangl ini kemudian menugaskan dua orang pendeta, yaitu Pastor Arnold Renz dan Pendeta Ernst Alt. Keduanya ditugaskan oleh sang Uskup untuk melakukan ritual pengusiran besar terhadap Anneliese Michel.

Ritual Exorcist yang dilakukan kedua pendeta ini berdasar pada " Rituale Romanum " sesuai dengan hukum Cannon yangberlaku pada abad ke-17 ( saya tidak tahu maksud dari hukum Cannon ). Pastor Arnold Renz adalh mantan misionaris di China, sedangkan Pendeta Ernst adalah seorang Pendeta biasa di tempat asalnya.

Mereka berdua melakukan ritual pengusiran roh jahat terhadap Anneliese Michel selama 10 bulan, yang terdiri dari 67 sesi. Setiap minggu, kadang dilakukan satu atau dua sesi ritual. Beberapa sesi bahkan berlangsung hingga 4 jam.


Apakah Anneliese Melihat Sosok Setan Pada Orang Di Sekitarnya ?

Menurut The Washington Post, Anneliese mulai melihat sesosok setan pada setiap orang yang dilihatnya saat ia mulai mengalami gejala aneh diatas. Ini mungkin menjelaskan mengapa Anneliese sering histeris secara tiba - tiba.
Bahkan kedua pendeta tadi yakin bahwa sejak mereka melakukan ritual pengusiran, roh yang merasuki Anneliese semakin memperparah keadaan Anneliese.


Lalu, Roh Jahat Apa Yang Merasuki Anneliese ?

Anneliese sendiri mengatakan kepada dua pendeta itu, bahwa ada beberapa roh yang kini merasuki dirinya. Dia menyebutkan ada roh Judas Iscariot, Adolf Hitler, Nero, Cain, Fleischmann, dan yang paling kuat, yaitu Lucifer. Dia juga menyebutkan bahwa sisi gelap dari dirinya juga turut merasukinya.

Kedua pendeta ini bahkan kerap berhadapan dengan roh Lucifer yang menolak untuk keluar dari tubuh Anneliese. Mereka mengatakan bahwa rroh ini adalah roh yang paling sulit untuk dihadapi.


Apakah Ritual Pengusiran Roh Ini Berdampak Pada Tubuh Anneliese ?

Anneliese telah menjalani 67 sesi ritual pengusiran roh jahat selama 10 bulan. Selama itu pula, Anneliese mengalami sejumlah kerusakan pada bagian tubuhnya. Ligamen di lututnya telah pecah, kakinya juga mengalami kelumpuhan, sehingga pada saat - saat tertentu, orang tua Michel membantunya.


Kematian Anneliese Michel

Pada tanggal 1 Juli 1976, Anneliese Michel ditemukan telah meninggal. Menurut otopsi, Michel meninggal akibat dehidrasi parah dan kekurangan gizi. Sebelum kematiannya, Michel selalu menolak untuk makan. Dia percaya bahwa tindakannya itu akan mempercepat kematiannya, dan itu satu - satunya cara untuk mengusir roh - roh jahat yang tengah merasukinya. Tentunya, hal ini membuat kedua orang tuanya sangat sedih. Sebelum kematiannya, Anneliese sempat mengutarakan kata - kata terakhirnya " Beg for Absolution ", ini ditujukan kepada kedua pendeta yang telah berusaha menolongnya, dan untuk ibunya ia berkata " Mother, I'm Afraid."


Mengapa Anneliese Michel Dirasuki Roh - Roh Jahat ?

Belum ada keterangan pasti mengenai penyebab Michel dirasuki oleh roh - roh itu. Dia adalah seorang yang religius, begitu juga dengan keluarganya. Hanya saja, 4 tahun sebelum Anneliese lahir, ibunya melahirkan seorang anak hasil hubungan gelapnya yang bernama Martha. Ketika Anneliese masih kecil, ibu Michel mendorongnya untuk melakukan penebusan dosa atas dosa yang dilakukan oleh ibunya dahulu. Pendeta yakin, ini adalah sebab utama Anneliese dirasuki oleh roh - roh itu. " Ini seharusnya tidak terjadi. Ini adalah pengorbanan seorang anak kepada ibunya ", kata Pendeta Ernst.


Kontroversi Dalam Hukum

Bagaimana pun juga, hukum masih berlaku dalam kasus Anneliese. Pengadilan setempat menjatuhkan hukuman 6 bulan masa percobaan hukuman terhadap kedua pendeta tadi dan keluarga Anneliese. Tuduhannya adalah mereka dianggap menghalangi upaya medis untuk melakukan pertolongan terhadap Anneliese. Namun, seorang pengacara membela mereka karena merasa apa yang dilakukan pihak keluarga dan pendeta tadi adalah upaya untuk menyembuhkan Anneliese.


Read more
Senin, 24 Januari 2011 // Label: // 0 komentar //


Cara Memasang Gambar Tetap di Kiri Halaman Blog

Btw, sudah tahu kan apa yang saya maksud dengan widge/gambar tetap di kiri halaman blog ..
Contohnya bisa anda lihat di blog saya ini. Tepatnya di kiri bawah halaman blog ini.
Yang widget jam itu. Jam itu akan tetap berada di pojok, walaupun halaman blog discroll ke atas bawah. Selain itu, jam itu juga akan tetap hadir di setiap halaman blog.
OK, saya anggap anda sudah mengerti. Sekarang bagaimana cara membuatnya ?

Berikut adalah step-stepnya.

1. Silahkan masuk (login) ke Blogger. (Disini saya hanya akan menjelaskan untuk blog bermesin Blogger/ Blogspot saja ya)
2. KLik tata letak > edit html.
3. Centang "".
4. Kemudian cari kode ]]></b:skin>. Untuk mempermudah pencarian, anda bisa gunakan fungsi FIND, dengan menekan CTRL+F.
5. Sudah ketemu ? Kalau sudah, copy dan paste kode di bawah ini tepat di atasnya.

#trik_pojok {
position:fixed;_position:absolute;bottom:0px; left:0px;
clip:inherit;
_top:expression(document.documentElement.scrollTop+
document.documentElement.clientHeight-this.clientHeight); _left:expression(document.documentElement.scrollLeft+ document.documentElement.clientWidth - offsetWidth); }

6. Kemudian cari lagi kode </body>. Copy dan paste kode ini tepat diatasnya.

<div id="trik_pojok">
<a href="http://www.dedenmariden.co.cc">
<script src='http://h2.flashvortex.com/display.php?id=2_1295717271_15455_387_0_136_84_9_2_35' type='text/javascript'/></a>
</div>

7. Kemudian ganti http://www.dedenmariden.co.cc dengan alamat blog anda. Dan juga ganti http://h2.flashvortex.com/display.php?id=2_1295717271_15455_387_0_136_84_9_2_35' type='text/javascript'/ dengan alamat widget yang ingin anda jadikan tetap di kiri halaman blog anda.

OK, Save. Selesai. Sekian tutorial (perbaikan) ini. Semoga anda berhasil menggunakan trik saya ini.

Read more
Minggu, 23 Januari 2011 // Label: // 0 komentar //


Menampilkan Energy Saving Mode di BLOG

Menambahkan Energi Saving Mode di Blog - Apa sih yang dimaksud dengan Energy Saving Mode??
Kalo menurut saya Energy Saving Mode itu adalah sebuah design screen yang berwarna gelap (hitam) yang di aplikasikan pada blog dan mempunyai cara kerja seperti sebuah screen saver.
Kenapa disebut Energi Saving Mode?? Mungkin karena warnanya hitam kali ea!?? Menurut saya juga warna hitam emang lebih membutuhkan sedikit energi dibandingkan dengan warna yang terang, jadi kita bisa sedikit hemat energi pada saat layar di pc kita tidak ada aktifitas.

Buat temen-temen yang masih asing ama Energy Saving Mode ini, coba tinggalin blog ini selama kurang lebih satu menit (jangan ngelakuin aktifitas apapun), nanti akan muncul layar hitam bertuliskan “Energi Saving Mode” seperti gambar di bawah ini . . .


Menambahkan Energi Saving Mode di Blog

Buat ngembaliin screen seperti semula, kita cukup geser mouse ke halaman blognya aja . . .

Tertarik buat ngegunainnya??? Ikuti langkah-langkah berikut ini . . .
  •  Pilih menu "Design"
  •  Klik "Edit HTML"
  •  Buat jaga-jaga kalo terjadi kesalahan, sebaiknya backup dulu template yang kita gunain, caranya klik "Download Full Template"
  •  Beri tanda centang pada "Expand Template Widget"
  •  Cari kode </head> (memanfaatkan ctrl+f supaya lebih mudah dalam pencarian)
  •  Copy/Paste script di bawah ini tepat sebelum kode </head>

<!-- save your energy -->
<script language='javascript' src='http://www.onlineleaf.com/savetheenvironment.js' type='text/javascript'></script>
<!-- save your energy end -->

  •  Klik “Save Template”

Kalo temen-temen masih ngerasa kurang puas ama penjelasan yang ada di blog ini, bisa berkunjung langsung ke http://www.onlineleaf.com. website tersebut adalah website yang pertama kali memperkenalkan trik Energi Saving Mode ini.

Read more
// Label: // 0 komentar //


Materi Mini Market B&C & Pra UAS

Read more
Jumat, 21 Januari 2011 // Label: // 0 komentar //


Mengganti Icon Blogger

Postingan ini membahas mengenai cara mengganti icon blogger dengan gambar2 ataupun foto anda sendiri di addressbar seperti icon diblog saya yang cantik itu,,hehe,,sebelumnya anda harus membuat dulu image atau mengedit gambar yang sudah ada menjadi berukuran 24 x 24 pixel up to 32 x 32 pixel,kemudian silakan upload gambar tersebut di http://picasaweb.google.com atau semacamnya, kenapa harus upload kesana? karena untuk mendapatkan kode URL image kita.


1. Pilih gambar yang akan anda masukkan dengan ukuran yang saya sebutkan diatas
2. Silakan upload gambarnya http://picasaweb.com, jika belum terdaftar di http://picasaweb.google.com silakan register disini
3.Setelah login silakan upload gambarnya di menu Upload File & Video dengan pilih tombol choose file
4.Setelah selesai upload akan muncul gambar anda dan ambil kode URL gambar anda seperti contoh kode URL image saya

https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEieeRD0SpaM4f9XayH0AKwUpXLVjv-8AvlWc10EVMrJOyHcryJ_LFeOkEAkKVPMbXGyg_FlaVcduqTzsRpQtsR59sLaNPY3teNfWGA8FjdJ22ZJC9F9QDcFILEDOr2GVHanZ_7X2aMHVfV3/


5.Untuk memasukkan ke blog anda silakan kembali ke Dasboard blogger anda,silakan ke menu Layout->Edit HTML->jangan lupa klik Expand Widget kemudian temukan kode berikut

</head>

6. Setelah itu letakkan kode dibawah ini sebelum kode diatas

<link href='https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEieeRD0SpaM4f9XayH0AKwUpXLVjv-8AvlWc10EVMrJOyHcryJ_LFeOkEAkKVPMbXGyg_FlaVcduqTzsRpQtsR59sLaNPY3teNfWGA8FjdJ22ZJC9F9QDcFILEDOr2GVHanZ_7X2aMHVfV3/' rel='SHORTCUT ICON'/>


silakan ganti kode yang berwarna merah dengan URL gambar yang anda dapatkan di photobucket.com tadi

7.Kemudian Save Setting,,Selesai,,

Read more
// Label: // 0 komentar //


Cara mengganti domain blogspot menjadi co.cc

Biasanya ketika membuat blog di blogger, kita akan mendapat nama blog http://namablog.blogspot.com, dengan nama itu pula kita merasa nama blog terlalu panjang, nah sekarang kita bisa merubah nama domain
blog dengan yang lebih bagus dan singkat. Salah satu layanan penyedia domain gratis yaitu co.cc. Jadi nantinya nama domain blog kita akan menjadi http://namablog.co.cc.

Ok, marilah kita mulai saja, caranya adalah sebagai berikut :
1. Langkah pertama yang perlu dilakukan adalah mendaftar pada layanan co.cc ini.
2. Dapatkan nama domain terlebih dahulu dengan mengisi pada kotak yang tersedia, dan
klik Check Availability.
3. Setelah mendapatkan nama domain, selanjutnya Masuk pada menu Domain setting >>
Manage Domain dan klik Setup
4. Abaikan Menu 1>> manage DNS / kosongkan name servernya anda langsung klik menu
2>> Zona Record
5. Isi add record dengan isian sebagai berikut :
Host : isi dengan nama domain yang sudah anda daftarkan misal : www.namablog.co.cc
TTL : 1 D (tidak perlu dirubah)
Type : cname
Value : ghs.google.com
6. Kemudian klik Setup

Kita telah selesai setting pada co.cc, kemudian tinggal setting di blogger:
1. Masuk / login ke blogger.com.
2. Masuk menu Setting >>> Publishing (Pengaturan >> Publikasikan)
3. Kemudian pilih “Switch to: • Custom Domain” (Berpindah ke : Domain Ubahsuaian)
4. Klik “Already own a domain? Switch to advanced settings” (Beralihlah ke pengaturan lanjut)
5. Isikan pada kolom “Your Domain” dengan domain co.cc yang anda daftarkan tadi.
6. Use a missing files host? pilih No.
7. Masukan Word Verivication dan klik Save setting.

Yapzz, sudah selesai, mudah bukan. Blog kita sekarang sudah berganti nama domain menjadi co.cc, tinggal menunggu proses sinchronisasinya dari co.cc ke Blogspot maksimal 24 jam setelah itu kita sudah bisa mengakses url blogspot.com anda dengan nama domain co.cc yang telah kita buat tadi.

Untuk lebih jelasnya bisa dilihat disini.








CO.CC:Free Domain

Read more
// Label: // 0 komentar //


Tips Cara Mendaftar di Search Engine

Google memiliki banyak fasilitas untuk mendaftarkan website dan memasukkannya ke dalam index pencariannya. Mendaftarkan suatu website ke search engine adalah cara yang mudah dimana anda hanya tinggal mengikuti perintah yang diberikan berserta mengisi formulirnya.
Apabila kita membuat website atau blog tidak akan secara otomatis terindeks atau berada pada list berbagai search engine. Seperti halnya sebuah sekolah, agar nama kita terdaftar pada buku daftar siswa, tentunya kita harus melakukan pendaftaran terlebih dahulu ke sekolah tersebut. Sama halnya dengan mesin pencari, agar blog kita terindeks pada mesin pencari, maka kita harus terlebih dahulu mendaftarkan blog milik kita pada situs pemilik mesin pencari.

Berikut ini adalah nama search engine buat mendaftarkan site anda :

  1. Mendaftar di google
    2. http://www.google.com/intl/en/submit_content.html Biasanya untuk website baru, Anda disarankan untuk mendaftarkannya melalui http://www.google.com/addurl/?continue=/addurl
  2. Mendaftar di Yahoo
    3. Untuk mendaftarkan situs Anda di Yahoo, dapat dilakukan melalui : http://search.yahoo.com/info/submit.html
  3. Mendaftar di MSN
    4. Untuk daftar ke Msn, silahkan kunjungi http://search.msn.com/docs/submit.aspx?FORM=WSDD2 silahkan isi huruf verifikasi dan URL pada kotak yang tersedia, kemudian klik tombol Submit URL, selesai.
  4. Apabila sobat mempunyai keinginan lebih, yaitu URL blog sobat terindeks pada puluhan mesin pencari, sobat bisa menggunakan bantuan situs submitter.
    Submit disini aja :
    5. Submit your site to 20+ search engines



    I agree to the terms:
    Tugasnya hanya mengisi alamat URL blog milik anda, serta menuliskan alamat email saja, kemudian klik tombol Submit Your Site.
  5. Jika ingin cepat terkenal coba lakukan ping ke bebagai agregator, silahkan klik di bawah :
    6. http://pingoat.com  Anda tinggal mengisi form yang tersedia

INGAT! Tidak ada jaminan

Perlu diingat bahwa tidak ada jaminan website Anda akan masuk ke index pencarian Google, Yahoo, maupun search engine lain. Masing - masing search engine memiliki mekanisme seleksi, crawl, dan indexing yang berbeda - beda.

Cara termudah untuk dapat masuk pada index pencarian adalah melalui link. Tambahkan link ke website Anda dari website lain yang halaman - halamannya telah masuk ke index pencarian.

Read more
Selasa, 18 Januari 2011 // Label: // 0 komentar //


Jawaban Foxpro Type B



I.        Rancangan Form


( Waktu : 60 menit )



1.      Buatlah sebuah project dengan nama : rental.pjx
2.      Buatlah sebuah database dengan nama : dbRental.dbc
3.      Buatlah sebuah table dengan nama : RMobil.DBF dengan struktur table rmobil sebagai berikut :
Nama Field
Tipe
Panjang
Key
NoKwitansi
Character
5
PrimaryKey
TglKwitansi
Date
8


NamaPenyewa
Character
35



Alamat
Character
100


JnsMobil
Character
25



HrgSewa
Numeric
6


LamaSewa
Numeric
2



TotalBayar
Numeric
10

























I.        Rancangan Form






II.       Ketentuan Soal
  1. Pada Saat Program dijalankan (RUN) maka Semua TextBox dan OptionGroup status Tidak Aktif atau Enabled = .F. , Tanggal Kwitansi menggunakan tanggal sistem dan secara otomatis lansung tampil.
  2. Tombol Tambah untuk Menambah Data dengan ketentuan pada saat diklik maka No. kwitansi tampil otomatis sesuai dengan format diatas. Ada Beberapa TextBox tetap tidak tidak diatifkan (Enabled=.F.)  yaitu Tgl. Kwitansi, Harga Sewa Perhari dan Total Bayar.
  3. Jenis Mobil ada 3 jenis.
·         Jika diklik jenis mobil Kijang Kapsul, maka Harga Sewa Perhari sebesar 450,000
·         Jika diklik jenis mobil Suzuki Panter, maka Harga Sewa Perhari sebesar 300,000
·         Jika diklik jenis mobil Daihatsu Jebra, maka Harga Sewa Perhari sebesar 275,000
  1. Total Bayar = Harga Sewa Perhari dikalikan dengan Lama Sewa
  2. Tombol Simpan untuk Simpan Data Rental Mobil kedalam tabel
  3. Tombol Selesai untuk Keluar dari Form Rental Mobil




J SeLaMaT MeNgErJaKaN J
Form1                                     Load
CLOSE DATABASES all
CLOSE INDEXES
SET DEFAULT TO c:\foxpro


SELECT a
USE mobil
SET ORDER TO NOKWITANSI   && NOKWITANSI





Form1                                     aktif
thisform.txtNamapenyewa.Enabled= .T.
thisform.txtAlamat.Enabled= .T.
thisform.txtLamasewa.Enabled= .T.
thisform.optiongroup1.Enabled= .T.





Form1                                     nonaktif
thisform.txtnokwitansi.Enabled= .F.
thisform.txtNamapenyewa.Enabled= .F.
thisform.txttglkwitansi.Enabled= .F.
thisform.txtAlamat.Enabled= .F.
thisform.txtHrgsewa.Enabled= .F.
thisform.txtLamasewa.Enabled= .F.
thisform.txtTotalbayar.Enabled= .F.
thisform.optiongroup1.Enabled= .F.





Form1                                     Activate
thisform.txttglkwitansi.Value=DATE()
thisform.nonaktif
thisform.cmdsimpan.Enabled= .F.





Form1                                                 nomor
SELECT a
GO bottom
urut=(VAL(RIGHT(nokwitansi,4))+1)
no="K000"+(ALLTRIM(STR(urut,4)))
thisform.txtnokwitansi.Value=no



cmdtambah                                       Click
thisform.aktif
thisform.bersih
thisform.nomor
thisform.txtnamapenyewa.SetFocus
thisform.cmdsimpan.Enabled= .T.
thisform.cmdtambah.Enabled= .F.



Option1                                             Click
thisform.txthrgsewa.Value=450000


Option2                                             Click
thisform.txthrgsewa.Value=300000


Option3                                             Click
thisform.txthrgsewa.Value=275000



txtlamasewa                          Lostfocus
thisform.txttotalbayar.Value=thisform.txthrgsewa.Value*thisform.txtlamasewa.Value


cmdsimpan                                       Click
SELECT a
APPEND BLANK
replace nokwitansi WITH thisform.txtnokwitansi.Value
replace tglkwitansi WITH thisform.txttglkwitansi.Value
replace namapenyewa WITH thisform.txtnamapenyewa.Value
replace alamat WITH thisform.txtalamat.Value
IF thisform.optiongroup1.option1.Value=1
replace jnsmobil WITH "KIJANG KAPSUL"
ELSE
IF THISFORM.OPtiongroup1.OPtion2.Value=1
REPLACE JNSMOBIL WITH "SUZUKI PANTHER"
ELSE
REPLACE JNSMOBIL WITH "DAIHATSU JEBRA"
ENDIF
ENDIF
REPLACE hrgsewa WITH thisform.txthrgsewa.Value
replace lamasewa WITH thisform.txtlamasewa.Value
replace totalbayar WITH thisform.txttotalbayar.Value
MESSAGEBOX("data tersimpan",64,"info")
thisform.bersih
thisform.nonaktif
thisform.cmdsimpan.Enabled= .F.




II.       Ketentuan Soal
  1. Pada Saat Program dijalankan (RUN) maka Semua TextBox dan OptionGroup status Tidak Aktif atau Enabled = .F. , Tanggal Kwitansi menggunakan tanggal sistem dan secara otomatis lansung tampil.
  2. Tombol Tambah untuk Menambah Data dengan ketentuan pada saat diklik maka No. kwitansi tampil otomatis sesuai dengan format diatas. Ada Beberapa TextBox tetap tidak tidak diatifkan (Enabled=.F.)  yaitu Tgl. Kwitansi, Harga Sewa Perhari dan Total Bayar.
  3. Jenis Mobil ada 3 jenis.
·         Jika diklik jenis mobil Kijang Kapsul, maka Harga Sewa Perhari sebesar 450,000
·         Jika diklik jenis mobil Suzuki Panter, maka Harga Sewa Perhari sebesar 300,000
·         Jika diklik jenis mobil Daihatsu Jebra, maka Harga Sewa Perhari sebesar 275,000
  1. Total Bayar = Harga Sewa Perhari dikalikan dengan Lama Sewa
  2. Tombol Simpan untuk Simpan Data Rental Mobil kedalam tabel
  3. Tombol Selesai untuk Keluar dari Form Rental Mobil




 SeLaMaT MeNgErJaKaN 
Form1                                     Load
CLOSE DATABASES all
CLOSE INDEXES
SET DEFAULT TO c:\foxpro



SELECT a
USE mobil
SET ORDER TO NOKWITANSI   && NOKWITANSI




Form1                                     aktif
thisform.txtNamapenyewa.Enabled= .T.
thisform.txtAlamat.Enabled= .T.
thisform.txtLamasewa.Enabled= .T.
thisform.optiongroup1.Enabled= .T.





Form1                                     nonaktif
thisform.txtnokwitansi.Enabled= .F.
thisform.txtNamapenyewa.Enabled= .F.
thisform.txttglkwitansi.Enabled= .F.
thisform.txtAlamat.Enabled= .F.
thisform.txtHrgsewa.Enabled= .F.
thisform.txtLamasewa.Enabled= .F.
thisform.txtTotalbayar.Enabled= .F.
thisform.optiongroup1.Enabled= .F.





Form1                                     Activate
thisform.txttglkwitansi.Value=DATE()
thisform.nonaktif
thisform.cmdsimpan.Enabled= .F.





Form1                                                 nomor
SELECT a
GO bottom
urut=(VAL(RIGHT(nokwitansi,4))+1)
no="K000"+(ALLTRIM(STR(urut,4)))
thisform.txtnokwitansi.Value=no



cmdtambah                                       Click
thisform.aktif
thisform.bersih
thisform.nomor
thisform.txtnamapenyewa.SetFocus
thisform.cmdsimpan.Enabled= .T.
thisform.cmdtambah.Enabled= .F.



Option1                                             Click
thisform.txthrgsewa.Value=450000


Option2                                             Click
thisform.txthrgsewa.Value=300000


Option3                                             Click
thisform.txthrgsewa.Value=275000



txtlamasewa                          Lostfocus
thisform.txttotalbayar.Value=thisform.txthrgsewa.Value*thisform.txtlamasewa.Value


cmdsimpan                                       Click
SELECT a
APPEND BLANK
replace nokwitansi WITH thisform.txtnokwitansi.Value
replace tglkwitansi WITH thisform.txttglkwitansi.Value
replace namapenyewa WITH thisform.txtnamapenyewa.Value
replace alamat WITH thisform.txtalamat.Value
IF thisform.optiongroup1.option1.Value=1
replace jnsmobil WITH "KIJANG KAPSUL"
ELSE
IF THISFORM.OPtiongroup1.OPtion2.Value=1
REPLACE JNSMOBIL WITH "SUZUKI PANTHER"
ELSE
REPLACE JNSMOBIL WITH "DAIHATSU JEBRA"
ENDIF
ENDIF
REPLACE hrgsewa WITH thisform.txthrgsewa.Value
replace lamasewa WITH thisform.txtlamasewa.Value
replace totalbayar WITH thisform.txttotalbayar.Value
MESSAGEBOX("data tersimpan",64,"info")
thisform.bersih
thisform.nonaktif
thisform.cmdsimpan.Enabled= .F.

Read more
// Label: // 0 komentar //

Diberdayakan oleh Blogger.

Pengikut

peluang usaha