Cara membuat Kalkulator sederhana dengan Microsoft Visual FoxPro

met malem minggu sobat semua, kali ini ane akan bahas cara membuat aplikasi kalkulator/aritmatika sederhana dengan menggunakan microsoft visual foxpro..

langsung saja nih screenshoot RUN nya hasil akhir.. hehe

ini yang screenshoot yang belum di RUN.. hehe

scribnya ada dibawah ini :

1) klik 2x pada form yg kosong (selain button atau tulisan), pilih procedur "init"
isi kode berikut:

thisform.text1.Value=0
thisform.text2.Value=0
thisform.text3.Value=0

2) untuk button "+" (penjumlahan) berikut :

thisform.text3.Value=thisform.text1.Value+thisform.text2.value

3) untuk button "-" (pengurangan) berikut :

thisform.text3.Value=thisform.text1.Value-thisform.text2.value

4) untuk button "*" (perkalian) berikut :

thisform.text3.Value=thisform.text1.Value*thisform.text2.value

5) untuk button "/" (pembagian) berikut :

thisform.text3.Value=thisform.text1.Value/thisform.text2.value

6) untuk button "^" (pangkat) berikut :

thisform.text3.Value=thisform.text1.Value^thisform.text2.value

7) untuk button "C" (Clear) sama seperti scribe no 1.

8) untuk button "exit" berikut :

thisform.release

kalau sudah diisi semua, coba di RUN dengan klik Form->Run Form, atau bisa ctrl+E.

sekian dulu sobat, semoga bermanfaat.. hehe

Cerita Rentenir dan Putri Petani (Asah Logika)

Dahulu kala di suatu desa kecil di Indian, seorang petani
yang sangat miskin mempunyai hutang yang sangat besar kepada rentenir
di desa tersebut. Rentenir itu, udah tua, bangkotan, eee…. malah
tertarik pada putrinya pak tani yang cakep itu.

Kemudian si rentenir tersebut mengajukan penawaran, dia akan melupakan
hutang2 petani tersebut jika dia dapat menikahi putrinya.
Sang petani dan putrinya pun bingung dengan tawaran tersebut, kayaknya
mereka nggak setuju.

Melihat gelagat seperti itu Si rentenir mengajukan tawaran lagi untuk
membuat keputusan. Dia mengatakan, bahwa dia akan meletakkan keping
hitam dan keping putih di dalam kantong kosong, kemudian sang putri
petani diharuskan untuk mengambil satu keping dari kantong tersebut.

1. Jika sang putri mendapatkan keping hitam, maka dia akan
menjadi istri rentenir tersebut dan hutang2 petani tersebut lunas.
2. Jika sang putri mendapatkan keping putih, maka rentenir tersebut
tidak akan menikahi sang putri dan hutang2 petani tersebut lunas.
3. Jika sang putri menolak mengambil keping, sang petani akan dipenjara.
Berada di halaman petani yang banyak terdapat kepingang2,
si rentenir mengambil 2 keping. Ketika mengambil, mata sang putri yang tajam
melihat, bahwa keping yang dimasukkan ke dalam kantong keduanya
berwarna hitam. Kemudian rentenir itu menyuruh sang putri
mengambil keping tersebut di dalam kantong.

Sekarang bayangkan anda ada di sana, apa yang kamu lakukan
jika anda sebagai putri tersebut?
Jika anda harus menolong sang putri, apa yang harus kau
lakukan kepada sang putri?

Melihat hal seperti itu, ada 3 kemungkinan..
1. sang putri menolak untuk mengambil kepingan.
2. sang putri menunjukkan, bahwa yang di dalam kantong
tersebut keduanya adalah berwarna hitam serta mengungkap, bahwa
rentenir tersebut curang.
3. sang putri mengambil keping hitam dan mengorbankan
dirinya untuk menyelamatkan ayahnya dari hutang2 dan penjara.
Sekarang pertimbangkan cerita di atas. Pengalaman ini
digunakan untuk membedakan pemikiran logika dan lateral thinking. Dilema
sang putri tidak dapat diselesaikan dengan logika awam. Pikirkan cara
lain, jika sang putri tidak memilih pilihan yang diberikan kepadanya.
Apa yang akan anda tawarkan kepadanya ?

Jangan melihat jawaban di bawah ini, sebelum anda memikirkan cara lain
sebagai saran kepada sang putri, pikirkan 1 menit saja..

              VVVVVVVVVVV

                VVVVVVVVV 

                 VVVVVVVV

                   VVVVVV

                    VVVVV

                     VVVV

                      VVV

                       VV

                        V

Baik, begini caranya sobat

Sang putri memasukkan tangannya ke dalam kantong dan mengambil satu keping tersebut. Tanpa melihat keping tersebut, secara sengaja menjatuhkan (setengah melempar) keping tersebut ke halaman dan bercampur dengan keping2 yang lain di halaman.

‘Oh, betapa bodohnya aku’ kata sang putri, ‘tapi, anda nggak usah khawatir, jika tuan melihat sisa kepingan di dalam kantong, maka tuan akan mengetahui keping mana yang saya ambil’.

Dengan begitu, sisa yang ada di dalam kantong adalah keping berwarna hitam, sehingga diasumsikan bahwa sang putri telah mengambil keping yang berwarna putih.
Sejak rentenir berani menyatakan untuk tidak jujur, sang
putri mengubah dari keadaan yang kelihatannya mustahil menjadi
keadaan yang sangat menguntungkan.

Moral of the story : Semua permasalahan yang kompleks
mempunyai jalan keluar. Cobalah melebarkan pemikiran anda.

Lebih Baik Mulai Menyalakan Lilin daripada terus menerus
mengutuki kegelapan yang menyelubungi Kita…


By Hindrian's Inspiring Story

Cara Membuat Data Base dengan Menggunakan Microsoft Office Access 2007

Malam sobat semua, kali ini saya akan membahas cara membuat data base dengan menggunakan Microsoft Office Access 2007.. oke silakan simak.

1. Buka Microsoft Office Access 2007

Start -> All Programs -> Microsoft Office -> Microsoft Office Access 2007

2. Pada Menu Office Button -> New

3. Klik Blank Data Base -> Tulis Nama Data base pada File Name -> Create.

4. Muncullah Blank data base baru seperti ini

5. Secara Default telah membuat 1 table, trus klik view -> Design View

maka akan tampil seperti ini

6. Isikan data Main / master yaitu data yang permanen atau jarang diubah.

setelah selesai di isi, trus klik close Table (bukan close Blank lho.. ntar malah hilang) pilih SAVE

7. isikan data Main, kalau disini dengan nama penyewa hingga selesai.

8. buat table lagi, dengan data transaksi yaitu data yang sering diubah-ubah yang akan dihubungkan dengan data main atau master.
CREATE -> TABLE

maka akan tampil seperti ini

9. klik kanan pada table tadi -> Design View

10. setelah itu close tab dan save dengan nama "mobil" (kalau disini)

11. setelah itu klik 2x table mobil dan isi semua data contohnya seperti dibawah ini

11. setelah itu close tab dan save

maka hasilnya seperti ini

maka 2 data table sudah jadi. jika mau dibuat form, maka klik data table salah satu lalu klik CREATE -> FORM seperti dibawah

Jika mau buat Report, silakan CREATE -> REPORT, seperti dibawah ini

tapi kali ini ane mau buat Query dulu, Query adalah untuk menggabungkan semua data pada table menjadikan dalam 1 table.

12. Silakan CREATE -> QUERY DESIGN

maka akan tampil seperti ini, klik 2x pada table penyewa maupun mobil untuk menampilkan data-datanya

13. silakan isi data Querynya dengan mengurutkan data yang telah dibuat pada table penyewa dan mobil

14. kalau sudah selesai tinggal close table dan save sengan nama "Query Penyewaan"

maka hasilnya seperti berikut

15. woww terjadi kesalahan seperti ini bagaimana??

tenang sobat, itu karena tadi saat kita membuat 2 table lupa membuka Primary Key pada salah satu table, tuh lihat 2 table masih terkunci pada "ID"

terus caranya menghilangkannya gimana??
mari coba..
klik 2x pada table mobil, trus klik baris "ID", trus klik Primary Key

coba lihat hasilnya, tanda kuncinya dah hilang.. sukses kan.. hehe

16. sekarang tinggal buat form dari Query Penyewaan
CREATE -> FORM

klik SAVE aja..

17. jangan lupa Reportnya dari Query Penyewaan
CREATE -> REPORT

klik SAVE aja..

18. inilah screenshot akhirnya

alhamdulillah selesai juga pembuatan databasenya ^_^.

Download Windows Loader Gratis

malam sobat, kali ini Mas Eling akan berbagi software untuk aktivasi windows 7 tanpa memasukkan serial number, alias Genuine secara free..

oke langsung saja download klik disini.
password : maseling

Cara Mengubah SMADAV Free menjadi PRO

Pagi Sobat semua, kali ini Mas Eling akan membahas cara mengubah smadav free menjadi smadav pro,

langsung saja nih lisensinya isikan seperti diatas gratis ^_^ :

SMADAV 10.0 :

Type : Personal
Name : http://jembersantri.blogspot.com
Key : 085700762203

Type : Warnet
Name : http://jembersantri.blogspot.com
Key : 779877762203

Type : Perusahaan
Name : http://jembersantri.blogspot.com
Key : 999899762203
===========================================================

SMADAV 9.9.1 :

Nama : SMADAV 9.9.1 PRO
Key : 993899567248

Nama : SMADAV 9.9.1
Key : 081700729100
===========================================================

SMADAV sebelum versi 9.9.1

Name / Nama : SMADAV PRO 2013
Key : 995299163627

Name / Nama : smadav pro dheika
Key : 991399806560

Name / Nama : Dhe Registered User
Key : 995299934192

Name / Nama : Ferry Hanafi
Key : 081800579909

Name / Nama : Bagus Hendra Permana
Key : 081300481894

Name / Nama : abdusoftware
Key : 999999208036

Download Smadav 10.0 Terbaru 2015

Pagi sobat semua kali ini Mas Eling akan membagikan Software anti virus secara gratis dan cuma-cuma yang namanya SMADAV (Anti Virus Made In Indonesia)..

Oke langsung saja nih linknya dari situs resminya, klik disini

untuk cara mengubah SMADAV Free menjadi PRO, silakan klik disini

Cara Mangetahui Kapasitas RAM dan VGA pada Laptop / PC

Pagi sobat semua, kali ini Mas Eling akan membagi sedikit info tentang cara mengetahui kapasitas VGA di Laptop mauun komputer.

caranya Start >> tulis "dxdiag" (tanpa tanda petik) >> ENTER atau klik dxdiag.

Pada Menu System ada Spesifikasi Seperti OS yg dipakai termasuk RAM

Sedangkan pada Menu Display ada Kapasitas VGA.

Sekian sobat, semoga tambah wawasan.. ^_^.

Download Rufus 1.4.9 Untuk Flasdisk Installer

pagi sobat.. kali ini Mas Eling akan berbagi Software Rufus yang fungsinya untuk mengubah Flashdisk menjadi installer OS Windows atau Linux atau Macintos, dll

langsung aja nih softwarenya, klik disini.
password : maseling

Download Corel Draw X4 Gratis

malam sobat semua, Mas Eling Kali ini akan berbagi SOftware yang cukup dikenal oleh semua orang khusunya kalangan designer.. hehe

langsung saja nih softwarenya,
untuk download Corel Draw X4
untuk download Craknya

semoga saja bermanfaat sobat.. hehe

Download Crack Corel Draw X4 Mudah dan Nyaman

Malam sobat semua kali ini Mas Eling akan share Crack Corel Draw X4, dah semingguan googling gak ketemu2, akhirnya ketemu juga (curhat.. hehe)

nih langsung aja sedot sobat klik disini
password : maseling


selamat mencoba dan berhasil ^_^.

5 Macam Bahaya Kurang Tidur Bagi Remaja

Malem sobat semua.. nih Mas Eling mau share bahaya kurang tidur.

Kebanyakan remaja tidak memenuhi waktu tidur ideal yang disarankan oleh dokter, yakni 9 jam. Berdasarkan survei terhadap pengawasan risiko perilaku remaja pada 2009, hanya 31 persen siswa SMA yang memiliki waktu tidur delapan jam setiap malam.

Acara olahraga larut malam, pekerjaan rumah (PR) yang banyak, video game, dan media sosial sering kali menjadi alasan kurangnya waktu tidur para remaja. Faktor hormon dalam masa pubertas juga mendukung remaja untuk tetap terjaga hingga pukul 11 malam. Sehingga mereka mampu begadang di hari sekolah.

Jika dibiarkan, kurang tidur bisa menimbulkan konsekuensi serius bagi remaja. Efek tersebut bisa mereka rasakan dari waktu ke waktu. Berikut beberapa risiko terbesar yang dihadapi remaja karena kurang tidur, seperti dikutip dari About.com, Rabu (10/9/2014).

Peningkat risiko kecelakaan lalu lintas

Lebih dari 100 ribu kecelakaan mobil terjadi setiap tahun akibat pengemudi kelelahan dan mengantuk. Para pengemudi tersebut umumnya berusia di bawah 25 tahun. Selain risiko mengantuk saat mengemudi, kurang tidur kronis pada remaja bisa mengakibatkan mereka lalai dan bereaksi lebih lambat sehingga bisa meningkatkan peluang terjadinya kecelakaan.

Masalah kesehatan fisik

Kurang tidur dapat mengganggu perkembangan dan kesehatan fisik remaja secara keseluruhan. Remaja yang dengan waktu tidur kurang lebih sering mengeluh tentang masalah kesehatan, seperti sakit perut, sakit kepala, sakit punggung, bahkan berisiko terkena tekanan darah tinggi.

Gangguan memori dan pembelajaran

Remaja yang tidak mendapatkan waktu tidur cukup berpeluang tinggi untuk tertidur di kelas sehingga sulit untuk berkonsentrasi dalam memperhatikan pelajaran. Kurang tidur dapat menyebabkan gangguan memori yang berpengaruh buruk pada pendidikan dan prestasi akademik remaja secara keseluruhan.

Berisiko tinggi mengalami obesitas

Banyak studi penelitian yang menyebutkan adanya pengaruh kurang tidur dengan obesitas pada anak-anak dan orang dewasa. Kurang tidur dapat mengganggu keseimbangan hormon yang mengontrol nafsu makan, serta menurunkan motivasi dan energi yang mengurangi motivasi remaja untuk berolahraga. Dengan demikian peluang mereka untuk menderita obesitas pun semakin tinggi.

Masalah kesehatan mental

Remaja yang kurang tidur memiliki mood atau suasana hati yang mudah berubah. Mereka juga mudah marah, mempunyai tingkat kecemasan yang tinggi, dan kesulitan mengontrol amarah tersebut.



gimana sobat, apakah anda termasuk orang yang kurang tidur atau bahkan malah hobi tidur.. haha

Tuhan Itu Tidak Ada ???

Pada suatu hari Seorang customer datang ke tempat tukang cukur untuk memotong rambut dan merapikan brewoknya.
Si tukang cukur mulai memotong rambut konsumennya dan mulailah terlibat pembicaraan yang mulai menghangat. Mereka membicarakan banyak hal dan berbagai variasi topik pembicaraan, dan sesaat topik pembicaraan beralih tentang TUHAN.
Si tukang cukur bilang, "Saya tidak percaya Tuhan itu ada."
"Kenapa kamu berkata begitu?" timpal si customer.
"Begini, coba Anda perhatikan di depan sana, di jalanan... Untuk menyadari bahwa Tuhan itu tidak ada. Katakan kepadaku, jika Tuhan itu ada,
Adakah yang sakit? Adakah anak terlantar? Jika Tuhan ada, tidak mungkin ada orang sakit ataupun kesusahan. Saya tidak dapat membayangkan Tuhan Yang Maha Penyayang akan membiarkan ini semua terjadi.
Si customer diam untuk berpikir sejenak, tapi tidak merespon karena dia tidak ingin memulai adu pendapat.
Si tukang cukur menyelesaikan pekerjaannya dan si customer pergi meninggalkan tempat si tukang cukur.
Beberapa saat setelah dia meninggalkan ruangan itu dia melihat ada orang di jalan dengan rambut yang panjang, berombak kasar, gimbal, kotor dan brewok yang tidak dicukur. Orang itu terlihat kotor dan tidak terawat.
Si customer balik ke tempat tukang cukur dan berkata, "Kamu tahu, sebenarnya TIDAK ADA TUKANG CUKUR."
Si tukang cukur tidak terima, "Kamu kok bisa bilang begitu?" "Saya di sini dan saya tukang cukur. Dan barusan saya mencukurmu!"
"Tidak!" elak si customer. "Tukang cukur itu tidak ada, sebab jika ada, tidak akan ada orang dengan rambut panjang yang kotor dan brewokan seperti orang yang diluar sana", si customer menambahkan. "Ah tidak, tapi tukang cukur tetap ada!" Sanggah si tukang cukur. "Apa yang kamu lihat itu adalah salah mereka sendiri, kenapa mereka tidak datang ke saya", jawab si tukang cukur membela diri.
"Cocok!" kata si customer menyetujui.
"Itulah point utama-nya! Sama dengan Tuhan, TUHAN ITU JUGA ADA! Tapi apa yang terjadi... Orang- orang TIDAK MAU DATANG kepada-Nya, dan TIDAK MAU MENCARI-NYA. Oleh karena itu, banyak yang sakit dan tertimpa kesusahan di dunia ini." Si tukang cukur pun terbengong!

hehe.. Coba renungkan sobat.. ^_^.

Arti Kata Menang

Menang tak hanya sesuatu yg berawal dr juara ke berapa...
menang adl ketika dlm suatu klompok pandai bernegosiasi dg anggotanya utk ttp brjuang bersama
menang adl ketika kalian sdh dpt slg menerima tmn baru dr Jambi, berakrab ria, dan mjd 1 kluarga utuh dan sempurna

menang adl ktika kmbalinya seorg teman stlh bbrp kali srg menghilang
menang adl ktika kalian bs mnjdikan kpntingan klompok adl kpntingan utama dg mengesampingkan kpntgn pribadi msg2
menang adl ktika kalian pandai mengontrol ego msg2 utk mnjdkn kebersamaan yg indah
menang adl ktika kalian bs mengatasi kesulitan yg mengahadang scr kekeluargaan
menang adl ktika kalian bs mengambil intisari dr arti kompetisi itu sndr
menang adl ktika kalian mulai mnyadari se2org mpy kelebihan dan kekurangan msg2
menang adl ktika kalian mengerjakan sesuatu tanpa ada beban dan kegalauan melanda
menang adl ktika kalian mulai tahu dan paham betul arti mandiri yg hakiki
menang adl ktika kalian termasuk golongan se2org yg minder mjd brani unjuk gigi
menang adl ktika kalian tak mghiraukan latar blkg msg2 utk mghambat suatu persahabatan
menang adl ktika kalian brani tampil dg usaha, kerja, doa dan sepenuh hati
menang adl ktika kalian smua trsnyum lepas di atas perjuangan
menang adl ktika solidaritas kalian mencapai puncaknya
menang adl ktika kalian brtemu org baru dlm htungan bln sdh mnjdikanya keluarga
menang adl ktika kalian mampu menjadikan proses kemenangan menuju kekompakan bersama
menang adl ktika kalian paham "sesuatu yg diperolah itu harus mll kerja keras bkn sesuatu yg bs disulap"
menang adl ktika canda, tawa, dan duka kalian dlm suatu perjuangan menjadikan kelakar tuk menempuh jalan yg panjang
menang adl ktika kalian mrasa enjoy, fun, dan bhgia brada di suatu komunitas
menang adl ktika kalian sll menciptakan keharmonisan di suatu lingkungan skitar walaupun krikil terlempar ke kalian
menang adl ktika kalian mahir membagi waktu dg aktivitas yg padat
menang adl ktika kalian hafal karakter dan mengenal lbh dalam se2org di suatu komunitas
menang adl ketika sang ibu mampu berkelakar dg sluruh anak2nya layaknya anak ayam yg senang berada di atas punggung sang induk ayam
menang adl ktika kalian memahami frekuensi dan kuantitas mjd tak berarti apa-apa melainkan hanya kualitaslah yg utama
menang adl ktika kalian menaikkan kata jarang mjd sering bahkan mjd tradisi dlm hal positif
menang adl ktika dlm tubuh sang pohon berdiri akar kokoh nan kuat, daun rindang, dan batang yg mampu melambaikan smangat utk sang buah yg hampir ranum
menang adl ketika sang angin mampu meniupkan semangat 45 ke jiwa kalian
menang adl ktika kalian mampu legowo di tiap hasil yg diperoleh
menang adl ktika kalian berhasil mll sgala proses pmbelajaran utk diambil hikmah dan kbaikan
menang adl utk sll bercermin diri dan senang menerima sgl saran dan petuah
menang adl ktika kalian mampu melakukan metamorfosis mjd kupu2 elok nan indah menawan
menang adl ktika kalian sll mampu melanjutkan perjuangan melalui prestasi gemilang dg karakter baik dan akhlak mulia
menang adl sesuatu yg relatif yg didalamnya terkemas rapi sebuah proses pembelajaran hidup dan pembelajaran yg hakiki

by my teacher Dika Freida Nurynnysa