Membuat Program Rekening Akuntansi Dengan Visual Foxpro

Kali ini, kita membuat program sederhana untuk Master Rekening, yaitu akun-akun yang  akan dipakai untuk penjurnalan

Sebelumnya buat terlebih dahulu Project dan database.Kemudian buat table dalam database tsb dengan nama TBakun.dbf dengan struktur sbb :

jangan lupa, jadikan koderek sebagai Primary Key

Lalu Design form seperti berikut

Objek yang digunakan dan properties yang di ubah

Ketentuan dan Logika jalannya Program

1. Pada saat form pertama kali tampil, maka semua objek textbox,combo box dan option button nonaktif

    tombol simpan nonaktif dan grid hanya bisa dilihat (Read Only)

2. Klik tambah untuk menambah data

    maka semua objek textbox, combo dan option menjadi aktif

    tombol tambah dan hapus menjadi nonaktif

    tombol simpan menjadi aktif

    tombol "keluar" berubah menjadi "batal"

    a. Pilih ComboBox, maka tampil nama kelompok sesuai dengan kode rekening

    b. Masukkan nama rekening

    c. Pilih posisi

    d. Masukkan Saldo

    e. Klik Simpan

        Jika kode rekening sudah ada dalam tabel maka tampil pesan bahwa kode sudah ada

        Jika kode rekening belum ada dalam tabel maka data tersimpan dan kondisi kembali ke awal

3. Klik tombol Hapus

    maka tampil pesan InputBox seperti berikut :

4. Klik tombol Batal, maka akan kembal;i ke kondisi awal

    Klik tombol Keluar, maka akan keluar dari program

:: Listing ::

Form                    Nonaktif

thisform.combo1.Enabled= .F.

thisform.txtkelompok.Enabled= .F.

thisform.txtnamarek.Enabled= .F.

thisform.optiongroup1.Enabled = .F.

thisform.txtsaldo.Enabled= .F.

thisform.cmdsimpan.Enabled= .F.

Form                          Aktif

thisform.combo1.Enabled= .T.

thisform.txtkelompok.Enabled= .T.

thisform.txtnamarek.Enabled= .T.

thisform.optiongroup1.Enabled = .T.

thisform.txtsaldo.Enabled= .T.

Form                          bersih

thisform.combo1.value= ""

thisform.txtkelompok.value= ""

thisform.txtnamarek.value=""

thisform.optiongroup1.value= 0

thisform.txtsaldo.value= 0

KET : untuk aktif, nonaktif dan bersih buatkan prosedur dengan cara

         Buka jendela code

         Menu Form >> New Method 

         buat untuk aktif, nonaktif, bersih 

form                          Activate

thisform.nonaktif()

thisform.bersih()

FOR a=11101 TO 11106

      thisform.combo1.AddItem (ALLTRIM(STR(a)))

ENDFOR

FOR k=21101 TO 21104

      thisform.combo1.AddItem (ALLTRIM(STR(k)))

ENDFOR

FOR m=31101 TO 31102

      thisform.combo1.AddItem (ALLTRIM(STR(m)))

ENDFOR

FOR p=41101 TO 41102

      thisform.combo1.AddItem (ALLTRIM(STR(p)))

ENDFOR

FOR b=51101 TO 51106

      thisform.combo1.AddItem (ALLTRIM(STR(b)))

ENDFOR

cmdTambah                           Click

thisform.aktif()

thisform.bersih()

thisform.cmdsimpan.Enabled= .T.

thisform.cmdtambah.Enabled= .F.

thisform.cmdhapus.Enabled= .F.

thisform.cmdkeluar.Caption="Batal"

thisform.combo1.SetFocus()

cmdSimpan                           Click

SELECT tbakun

SET ORDER TO koderek

LOCATE FOR koderek=ALLTRIM(thisform.combo1.Value)

IF FOUND()

      MESSAGEBOX("Rekening Sudah Ada",48,"Info")

ELSE

      APPEND BLANK

      REPLACE koderek WITH thisform.combo1.Value

      REPLACE kelompok WITH thisform.txtkelompok.Value

      REPLACE namarek WITH thisform.txtnamarek.Value

      IF thisform.optiongroup1.opD.Value=1

            REPLACE posisi WITH "D"

      ELSE

      IF thisform.optiongroup1.opD.Value=1

            REPLACE posisi WITH "K"

      ENDIF

      ENDIF

     

      REPLACE saldo WITH thisform.txtsaldo.Value

      thisform.cmdtambah.Enabled= .T.

      thisform.cmdhapus.Enabled= .T.

      thisform.cmdkeluar.Caption="Keluar"

      thisform.nonaktif()

ENDIF

thisform.grdTbakun.Refresh() 

cmdHapus                            Click

y=INPUTBOX("Kode yang ingin dihapus?","Info","")

LOCATE FOR tbakun.koderek=y

IF FOUND()

      DELETE 
      PACK

      GO TOP

ENDIF

thisform.Refresh()

cmdKeluar                           click

IF thisform.cmdkeluar.Caption="Batal"

      thisform.cmdkeluar.Caption="Keluar"

      thisform.nonaktif()

      thisform.cmdtambah.Enabled= .T.

      thisform.cmdhapus.Enabled= .T.

      thisform.bersih()

ELSE

IF thisform.cmdkeluar.Caption="Keluar"

      thisform.Release()

ENDIF

ENDIF

Combo1                              Click

no=LEFT(thisform.combo1.Value,1)

IF no="1"

      thisform.txtKelompok.Value="Aktiva"

ELSE

IF no="2"

      thisform.txtKelompok.Value="Kewajiban"

ELSE

IF no="3"

      thisform.txtKelompok.Value="Modal"

ELSE

IF no="4"

      thisform.txtKelompok.Value="Pendapatan"

ELSE

IF no="5"

      thisform.txtKelompok.Value="Beban" 

ENDIF

ENDIF

ENDIF

ENDIF

ENDIF

thisform.Refresh()

thisform.txtNamarek.SetFocus()

Option1                 Click

thisform.txtsaldo.SetFocus()

Option2                 Click

thisform.txtsaldo.SetFocus()

» Read more → Membuat Program Rekening Akuntansi Dengan Visual Foxpro

Tips membuat program sederhana Visual Foxpro

Dalam membuat program perhitungan sederhana di visual foxpro memerlukan sebuah konversi agar bisa dilakukan perhitungan. Karna setiap objek yang ada di dalam form bertipe data string.

Contoh Soal Program:

Dari Form diatas kita dapat mengetahui bahwa form tersebut untuk menghitung berat ideal.

1. Masukkan tinggi badan
2. Masukkan berat badan
3. Klik hitung, maka didapat berat ideal dan tampilan kategori (pada label 4) 

 

Contoh Program saat Running

Untuk listing diatas perhitungannya antara lain

1. 110 dikurang tinggi badan, maka didapatkan berat ideal
2. Berat badan – berat ideal

a.  Jika Berat badan < berat ideal, maka termasuk kategori Kurus

b.  Jika Berat badan = berat ideal, maka termasuk kategori Ideal

c.  Jika Berat badan > berat ideal, maka termasuk kategori Gemuk

Ada 2 cara dalam membuat perhitungan tsb antara lain :

1.  Dengan Cara Mengkonversi ke VAL melalui listing

Jika mengkonversi dengan cara ini, yang harus diperhatikan adalah perhitungannya. Tidak semua textbox menggunakan VAL.

Pertama, untuk textbox berat dan textbox tinggi di konversi maka secara otomatis kedua textbox tersebut bertipe numeric

Lalu untuk mencari berat ideal didapat dari 110 – berat, hasil tersebut diberikan ke textbox berat ideal (text3) secara otomatis menjadi numeric juga.

Untuk pencarian keterangan pada label4, dibuatkan listing :

Text3 tersebut adalah text berat ideal. Mengapa text tsb tidak dikonversi?? Jawabannya adalah karena pada saat perhitungan 110-berat akan menghasilkan nilai yang numeric. Oleh karena itu pada saat pemberian syarat tidak di konversi lagi.

2.  Dengan cara Mengkonversi melalui Builder

a.klik kanan pada textbox => pilih builder

b. Data type pilih numeric

       

Perhatikan untuk setiap textbox yang di ubah menjadi numeric. Posisinya berada di sebelah kanan, dan hal ini yang membuat perhitungan tidak perlu di konversi lagi

» Read more → Tips membuat program sederhana Visual Foxpro

For Love

Kata yang satu ini sangat luas maknanya. Banyak cinta yang tersebar dan memang harus disebarkan. Mencintai Alloh, keluarga, saudara, sahabat, teman, pekerjaan dan masih banyak lagi. Intinya, kita tidak bisa hidup tanpa 'cinta'. 

Dengan sebuah cinta kita bisa hidup bertahan lama dan mempunyai kekuatan. Bayangkan jika didunia ini tidak ada cinta, maka tak ada lagi kedamaian. Karna hanya dengan cinta semua bisa disatukan :). 

cinta itu sulit untuk didefinisikan dan terlihat abstrak tapi sering banyak dicari orang. Cinta yang paling pertama dan utama adalah mencintai Sang Pencipta. Karna dengan CintaNya lah kita dihidupkan dan masih hidup. Dengan CintaNya lah kita dipanggil dan menunggu giliran untuk dipanggilNya. Dengan CintaNya lah kita mendapat cinta dari sesama manusia. Dengan CintaNya lah kita mendapatkan apa yang kita butuhkan, karna Dia Maha Tahu, karna Dia Maha Memberi.

Dan Demi Cinta kepadaNya lah cinta kita dipelihara untuk orang-orang yang dipilih oleh Nya

Lalu bagaimana dengan anda ???

 

» Read more → For Love

Enjoy Your Life !!

Enjoy Your Life, mendengar kata itu menjadi teringat sebuah buku karangan Dr Muhammad Al-Ariefi. Melihat judul itu pasti kita langsung tertarik dengan buku tersebut. Buku ini bercerita tentang apa sih?? Kenapa judulnya seperti itu?? Apa yang mendorong penulis untuk mengangkat judul seperti itu dan masih banyak lagi pertanyaan yang ada didalam benak hati kita sehingga mendorong kita untuk membaca bukunya.

Nikmatilah hidupmu agar kehidupan menjadi lebih hidup !!. Sebenarnya apa sih yang membuat kita bisa menikmati kehidupan dengan penuh kebahagiaan?? Banyak orang yang mencari kebahagiaan tapi banyak juga yang tidak paham tentang hakekat kebahagiaan itu sendiri. banyak orang yang mencari kebahagiaan dengan cara bersenang-senang, mereka bilang 'bahagia' tapi sebenarnya hatinya masih gelisah. 

Dari sekian banyak manusia yang hidup didunia ini pasti setiap manusia mendapatkan atau merasakan yang namanya ujian kehidupan. Kita sebagai manusia yang berakal dan berfikir harus bisa menentukan tindakan/sikap apa yang akan kita ambil agar masalah tersebut dapat diselesaikan dengan baik.

Pemikiran setiap individu terhadap suatu masalah pasti berbeda-beda. Pada intinya semua permasalahan kehidupan merupakan masalah yang harus diatasi, dipecahkan bukan didiamkan atau ditinggal lari begitu saja. Selalu ada pro kontra didalamnya juga ada kebaikan dan keburukan. Tinggal kita sebagai pengelola masalah itu sendiri menyikapinya. Hal yang buruk pun kalau kita menyikapi dengan positif dan optimis pasti setidaknya membuat suasana cair, tidak tegang. 

Lalu apa hubungannya kebahagiaan dengan masalah?? pasti itu yang menjadi pertanyaanya. Masalah tidak akan pernah luput dari kehidupan kita. Sedangkan kebahagiaan adalah sesuatu yang abstrak hanya bisa dirasakan dan tidak ada wujudnya yang kita cari selama kita hidup. Kedual hal tersebut saling berkaitan.

Untuk mencapai kebahagiaan, seseorang diberikan yang namanya 'masalah' sebagai ujian kehidupannya. Jika ia tau bagaimana cara mengatasinya dan bersabar karenanya maka setelah itu dapat dipastikan dia akan mendapatkan 'kebahagiaan'. Sama seperti halnya seorang pelajar yang akan mengikuti test ujian, jika dia belajar dengan baik maka test tersebut akan dilalui dengan baik juga begitupun untuk hasilnya pasti akan meraih nilai yang memuaskan. Setelah itu bagaimana?? pastinya dia akan naik ke jenjang berikutnya yang lebih tinggi, belajar, lalu mengikuti ujian lagi dan menunggu hasilnya begitu seterusnya.

 Ujian itu tergantung level kita berada dimana. Semakin tinggi level seseorang maka semakin tinggi pula ujiannya. coba berfikir,, apakah anak sd sama ujiannya dengan anak smp atau bahkan anak kuliah?? tentu tidak kan... Semua diberikan sesuai dengan kemampuannya, tidak lebih!!. Meskipun begitu,, kebahagiaan yang didapat juga setara dengan perjuangannya

Jadi, bahagialah orang yang mendapat masalah besar karna sebentar setelahnya akan mendapatkan kesenangan besar juga. Lalu dengan 'Enjoy Your Life' ?? hmmm,,, tentu saja ada hubungannya. Karna masalah seringkali membuat kita lupa bahwa itu sebenarnya adalah ujian, kita melihat bahwa hal itu rumit dan sulit untuk pemecahannya. Tapi jika kita menjalaninya dengan bersikap tenang, mengetahui karakteristik permasalahan dengan teliti dan cerdas dalam menyikapinya maka itu akan membuat kita lebih menikmati hidup. Seribu permasalahan pasti ada jalan keluarnya jadi temukan dan bersabar lah menunggu jalan keluar itu.

» Read more → Enjoy Your Life !!

Open Your Heart

Banyak orang bilang, cinta begitu sulit ditebak. Ia bagaikan burung yang menari-nari disekeliling kita, mengepakkan sayapnya yang penuh warna,memikat dan menarik hati kita untuk menangkapnya. Saat kita begitu  menginginkan cinta dalam genggaman, ia terbang menjauh. Namun saat kita tidak mengharapkan, cinta hadir tanpa diundang. Kitapun tidak bisa memaksakan cinta sekehendak hati kita. Memang, cinta adalah fenomena hati yang sulit dimengerti.

 
Sebenarnya kita tidak perlu memeras otak terlalu keras untuk mengerti cinta. Bahkan semakin keras kita memikirkan cinta,  maka semakin lelah pula kita. Cinta adalah untuk dirasakan, bukan dipikirkan. Yakinlah bahwa cinta yang kita inginkan akan datang pada saat yang tepat. Namun bukan berarti kita hanya duduk menanti cinta. 

Sebarkanlah cinta pada keluarga, sahabat-sahabat kita dan sesama. Dengan memberikan cinta, maka kita telah ”mengundang” cinta untuk datang. Kita hanya perlu membuka hati. Biarkan kecantikan hati kita memancar, mempesona cinta-cinta yang terbang disekeliling kita hingga akhirnya hinggap dan bersemayam di hati selamanya.

Open your heart, then it will find its own way….

» Read more → Open Your Heart

Apakah Cinta Itu ?

Mereka yang tidak menyukainya menyebutnya tanggung jawab,
Mereka yang bermain dengannya, menyebutnya sebuah permainan,
Mereka yang tidak memilikinya, menyebutnya sebuah impian,
Mereka yang mencintai, menyebutnya takdir. 

Kadang Tuhan yang mengetahui yang terbaik, akan memberi kesusahan
untuk menguji kita. Kadang Ia pun melukai hati, supaya hikmat-Nya bisa
tertanam dalam. 

Jika kita kehilangan cinta, maka pasti ada alasan di baliknya. Alasan yang
kadang sulit untuk dimengerti, namun kita tetap harus percaya bahwa
ketika Ia mengambil sesuatu, Ia telah siap memberi yang lebih baik. 

Mengapa menunggu?
Karena walaupun kita ingin mengambil keputusan, kita tidak ingin tergesa-
gesa.
Karena walaupun kita ingin cepat-cepat, kita tidak ingin sembrono.
Karena walaupun kita ingin segera menemukan orang yang kita cintai, kita
tidak ingin kehilangan jati diri kita dalam proses pencarian itu. 

Jika ingin berlari, belajarlah berjalan duhulu,
Jika ingin berenang, belajarlah mengapung dahulu,
Jika ingin dicintai, belajarlah mencintai dahulu. 

Pada akhirnya, lebih baik menunggu orang yang kita  inginkan, ketimbang memilih apa yang ada.
Tetap lebih baik menunggu orang yang kita cintai, ketimbang memuaskan diri dengan apa yang ada.
Tetap lebih baik menunggu orang yang tepat, Karena  hidup ini terlampau singkat untuk dilewatkan bersama pilihan yang salah, karena menunggu mempunyai tujuan yang mulia dan misterius. 

Perlu kau ketahui bahwa Bunga tidak mekar dalam waktu semalam,
Kota Roma tidak dibangun dalam sehari, Kehidupan dirajut dalam rahim selama sembilan bulan,
Cinta yang agung terus bertumbuh selama kehidupan. 
Kebanyakan hal yang indah dalam hidup memerlukan waktu yang lama, Dan penantian kita tidaklah sia-sia. 
Walaupun menunggu membutuhkan banyak hal - iman, keberanian, dan pengharapan - penantian menjanjikan satu hal yang tidak dapat seorangpun bayangkan. 
Pada akhirnya. Tuhan dalam segala hikmat-Nya, meminta kita menunggu, karena alasan yang penting.

Karena kita akan diberikan yang terbaik jika bersabar menunggu keputusanNya

» Read more → Apakah Cinta Itu ?

Mencintai Yang Tidak Sempurna

Ketika kita berada di tempat pada saat yang tepat, itulah kesempatan. Ketika kita bertemu dengan seseorang yang membuatmu tertarik, itu bukan pilihan, itu kesempatan. Bertemu dalam suatu peristiwa bukanlah pilihan, itupun adalah kesempatan. Bila kita memutuskan untuk mencintai orang tersebut, Bahkan dengan segala kekurangannya, itu bukan kesempatan, itu adalah pilihan.Bahkan ketika kita menyadari bahwa masih banyak orang lain yang lebih menarik, lebih pandai, lebih kaya daripada pasanganmu dan tetap memilih untuk mencintainya, itulah pilihan. Perasaan cinta, simpatik, tertarik, datang bagai kesempatan pada kita. Tetapi cinta sejati yang abadi adalah pilihan. Pilihan yang kita lakukan. Berbicara tentang pasangan jiwa, ada suatu kutipan dari film yang mungkin sangat tepat : "Nasib membawa kita bersama, tetapi tetap bergantung pada kita bagaimana membuat semuanya berhasil" Pasangan jiwa bisa benar-benar ada. Dan bahkan sangat mungkin ada seseorang yang diciptakan hanya untukmu.

Ketika kita memilih bersama dengan seseorang walaupun apapun yang terjadi, itu adalah pilihan.
Tetapi tetap berpulang padamu. Untuk melakukan pilihan apakah engkau ingin Melakukan sesuatu untuk mendapatkannya, atau tidak... Kita mungkin kebetulan bertemu pasangan jiwa kita, Tetapi mencintai dan tetap bersama pasangan jiwa kita adalah pilihan yang harus kita lakukan. Kita ada di dunia bukan untuk mencari seseorang yang sempurna untuk dicintai TETAPI untuk belajar mencintai orang yang tidak sempurna dengan cara yang sempurna.

» Read more → Mencintai Yang Tidak Sempurna

Cinta Dan Waktu

Alkisah di suatu pulau kecil, tinggallah berbagai macam benda-benda abstrak : ada Cinta, Kesedihan, Kekayaan, Kegembiraan dan sebagainya. Mereka hidup berdampingan dengan baik.

Namun suatu ketika, datang badai menghempas pulau kecil itu dan air laut tiba-tiba naik dan akan menenggelamkan pulau itu. Semua penghuni pulau cepat-cepat berusaha menyelamatkan diri. Cinta sangat kebingungan karena ia tidak dapat berenang dan tak mempunyai perahu. Ia berdiri di tepi pantai dan mencoba mencari pertolongan. Sementara itu air makin naik membasahi kaki Cinta.

Tak lama Cinta melihat Kekayaan sedang mengayuh perahu. "Kekayaan! Kekayaan! Tolong aku!" teriak Cinta. "Aduh! Maaf, Cinta!" kata Kekayaan. "Perahuku telah penuh dengan harta bendaku. Aku tak dapat membawamu serta, nanti perahu ini tenggelam. Lagipula tak ada tempat lagi bagimu di perahuku ini".

Lalu Kekayaan cepat-cepat mengayuh perahunya pergi. Cinta sedih sekali, namun dilihatnya Kegembiraan lewat dengan perahunya. "Kegembiraan! Tolong aku!", teriak Cinta. Namun kegembiraan terlalu gembira karena ia menemukan perahu sehingga ia tak mendengar teriakan Cinta.  

Air makin tinggi membasahi Cinta sampai ke pinggang dan Cinta semakin panik. Tak lama lewatlah Kecantikan. "Kecantikan! Bawalah aku bersamamu!", teriak Cinta "Wah, Cinta, kamu basah dan kotor. Aku tak bisa membawamu ikut. Nanti kamu mengotori perahuku yang indah ini", sahut Kecantikan.  

Cinta sedih sekali mendengarnya. Ia mulai menangis terisak-isak. Saat itu lewatlah Kesedihan. "Oh, Kesedihan. Bawalah aku bersamamu", kata Cinta. 

"Maaf Cinta. Aku sedang sedih dan aku ingin sendirian saja..." kata Kesedihan sambil terus mengayuh perahunya.

Cinta putus asa. Ia merasakan air semakin naik dan  akan menenggelamkannya. Pada saat kritis itulah tiba-tiba terdengar suara. "Cinta! Mari cepat naik ke perahuku!" Cinta menoleh ke arah suara itu dan melihat seorang tua dengan perahunya. Cepat-cepat Cinta naik ke perahu itu, tepat sebelum air menenggelamkannya.

Di pulau terdekat, orang tua itu menurunkan Cinta dan segera pergi lagi. Pada saat itu barulah Cinta sadar bahwa ia sama sekali tidak mengetahui siapa orang tua yang menyelamatkannya itu. Cinta segera menanyakannya kepada seorang penduduk tua di pulau itu, siapa sebenarnya orang tua itu. "Oh, orang tua tadi? Dia adalah Waktu" kata orang itu.
"Tapi mengapa ia menyelamatkanku? Aku tak mengenalnya. Bahkan teman-teman yang mengenalku pun enggan menolongku" tanya Cinta heran. "Sebab" kata orang itu "Hanya Waktulah yang tahu berapa nilai sesungguhnya dari Cinta itu..."

 

» Read more → Cinta Dan Waktu

Kasih Sayang ??

Hi guys,,, Taukah anda bahwa hidup dengan sesama manusia pasti membutuhkan kasih sayang, oleh karena itu mari kita lihat rasa kasih sayang sesorang dilihat dari bulan lahirnya


bulan Januari.
Berikut ini adalah analisis kasih sayangnya :

• Mudah melupakan perasaan cinta terhadap orang yang dicintai sekiranya dikhianati.
• Pandai mengambil hati pasangannya.
• Selalu berdiam diri ketika bertemu dengan pasangannya.
• Bersikap romantik tapi tidak pandai memperlihatkannya.
• Sikap cemburu yang tinggi terhadap pasangannya tapi tidak kisah sekirannya pasangannya cemburu terhadapnya.
• Bakal jadi seorang bapa atau ibu yang penyayang.
• Ramai kenalan, sedikit pemalu dan bersungguh-sungguh bila melakukan kerja.

bulan Februari.
Berikut ini adalah analisis kasih sayangnya :

• Amat hormat kepada pasangan.
• Amat suka memikat pasangan.
• Jujur dan berterus terang dalam perhubungan.
• Sentiasa nekad untuk bersama dengan pasangannya.
• Sangat romantik pada dalaman dan bukan pada luaran (hanya pasangannya yang tahu).
• Patuh kepada pasangannya dan selalu menjaga hati pasangan.
• Amat menjaga penampilan diri dan pasangannya.

bulan Maret.
Berikut ini adalah analisis kasih sayangnya :

• Sentiasa ingin didampingi oleh pasangannya.
• Sangat pemalu dalam meluahkan isi hati.
• Sangat baik dalam menjaga perhubungan.
• Amat sukar melupakan pasangan yang dicintai.
• Perasaan cemburu yang minima.
• Sangat manja dan sering ingin dimanjai pasangannya.
• Mudah memilih pasangan tanpa berfikir dengan waras.
• Sentiasa mengharapkan keistimewaan dari pasangan.

bulan April.
Berikut ini adalah analisis kasih sayangnya :

• Selalu memendam perasaan terhadap individu yang dicintai.
• Sukar dan malu dalam meluahkan isi hati.
• Sentiasa ingin diberi perhatian.
• Amat cemburu dalam perhubungan.
• Kesetiaan teguh terhadap pasangannya.
• Emosi cepat terusik dan mudah terluka.
• Sentiasa menjaga hati pasangan dan pandai memujuk.
• Romantik dan terlalu romantik.
• Sukar melupakan pasangan walaupun dilukai.
• Sukar berlaku curang dan amat menyayangi pasangan.

bulan Juni.
Berikut ini adalah analisis kasih sayangnya :

• Sukar melukai dan memahami hati pasangan.
• Mudah jatuh hati tapi terlalu memilih.
• Cerewet dalam hubungan.
• Selalu beremosi.
• Mudah merajuk dan mudah di pujuk.
• Selalu melindungi pasangan dari kritikan atau umpatan orang.
• Elok untuk menjadi Ibu yang baik.
• Dahagakan pujian dari pasangan.

bulan Agustus.
Berikut ini adalah analisis kasih sayangnya :

• Suka memimpin pasangan.
• Romantik, Pengasih dan Penyayang.
• Kelam kabut dalam perhubungan.
• Sangat sensitif.
• Mudah meluahkan kata cinta pada sesiapa yang berkenan.

bulan September.
Berikut ini adalah analisis kasih sayangnya :

• Bertolak ansur terhadap pasangan.
• Suka mengkritik pasangan.
• Sangat prihatin terhadap pasangan.
• Sangat sensitif dan emosi.
• Pandai memahami pasangan.
• Kurang menunjukkan perasaannya terhadap pasangan.
• Sukar melupakan sekiranya hati terluka.
• Mudah simpati dengan perasaan dan masalah pasangan.
• Pandai menyimpan perasaan.
• Suka berterus terang jika perkara itu tak disetujuinya.

bulan Oktober.
Berikut ini adalah analisis kasih sayangnya :

• Suka disayangi dan menyayangi pasangan.
• Sopan terhadap pasangan.
• Jujur dan jarang berpura-pura dengan pasangan.
• Mudah terluka hati sekiranya pasangan melakukan kesalahan terhadapnya.
• Emosi yang mudah terusik.
• Pengasih, Penyayang terhadap pasangan.
• Cemburu dan terlalu cemburu.
• Romantik.
• Memahami pasangan.

bulan November.
Berikut ini adalah analisis kasih sayangnya :

• Amat berahasia dengan pasangan dan siapapun.
• Agak degil dan kuat pendirian.
• Mudah ambil berat terhadap pasangan.
• Emosi yang mendalam.
• Perangai tidak dapat diramal terhadap pasangan.

bulan Desember.
Berikut ini adalah analisis kasih sayangnya :

• Mudah jatuh cinta dalam masa yang sama.
• Tergesa-gesa dalam hubungan.
• Suka didampingi oleh pasangan.
• Benci bila dikongkong.
• Berbakat untuk kawin lebih dari satu.(Utk Lelaki).
• Suka mempengaruhi pasangan.

Hmmm, nah gimana benar ga analisisnya ?? Jangan terlalu dipercaya sih tapi buktiin dulu, bener ga sih kita seperti itu. Hal yang penting setelah mengetahui hal itu adalah melihat sisi baik dan buruk. Jika baik ya dipertahankan dan jika buruk ya berusaha untuk dikurangi

OK,,, cukup sampai disini dulu analisisnya lain waktu kita ketemu lagi see u

» Read more → Kasih Sayang ??

Mengenal Visual Foxpro 9.0

Kali ini mencoba memperkenalkan salah satu bahasa pemrograman, yaitu VisEntri Baruual foxpro Visual FoxPro adalah bahasa pemrograman berorientasi objek dan prosedural dari Microsoft. Awalnya bahasa pemrograman ini dikenal dengan nama FoxBASE yang diluncurkan oleh Fox Software pada awal 1984. Fox Technologies kemudian bergabung dengan Microsoft pada 1992 sehingga di depan nama FoxBASE ditambahkan awalan "Visual".

Sampai sekarang versi terakhirnya versi 9.0. Dibandingkan bahasa pemrograman lain- katanya- bahasa ini sulit untuk dipelajari. Padahal kalau kita mau mengenal lebih dekat sebenarnya mudah saja. Pada saat pertama kali membuka short cut visual foxpro, hal yang kita lakukan mengenal environment nya dapat dilihat dari gambar dibawah ini

Bagian dari Environment antara lain :
Menu bar, Toolbar, Window Command, window View dan Task Pane window.

Menu bar berisi :
File, berisi daftar perintah untuk mengelola file, seperti membuat file baru, membuka yang sudah ada, menutup, menyimpan, mengekspor, mengimpor, mencetak atau keluar dari Visual FoxPro.
Edit, berisi daftar perintah untuk menyunting teks atau komponen aplikasi, seperti menyalin, menghapus, menempelkan kembali dan sebagainya.
View, berisi daftar perintah untuk mengatur tampilan, misalnya utnuk mengatur toolbar- toolbar yang ditampilkan atau tidak. Tools, berisi daftar perintah untuk menggunakan utilitas yang terdapat di visual Foxpro, seperti mengunakan wizard, menggunakan browser, atau mendebug program.
Program, berisi daftar perintah untuk mengontrol aktivitas pemrograman, misalnya menjalankan, membatalkan, atau untuk memilih widow yang akan diaktifkan.
Help, berisi daftar perintah untuk berhubungan dengan file bantuan yang disediakan berkaitan dengan pembuatan apliksi menggunakan Visual FoxPro

Toolbar
Toolbar adalah panel yang berisi tombol-tombol bergambar (ikon) yang mempunyai fungsi tertentu. Jika tombol tersebut diklik maka operasi yang telah ditentukan untuknya akan dilakukan. Fungsi tombol-tombol yang terdapat di toolbar hampir sama dengan perintah- perintah di menu. Hanya saja, tidak semua perintah yang ada di menu ada di toolbar.
Toolbar memuat perintah-perintah yang relatif sering digunakan. Untuk mengatur toolbar- toolbar yang akan ditampilkan, lakukan dengan cara berikut:
Pada menu pilih View >> Toolbars.
Kotak dialog Toolbars akan ditampilkan.
Pada kotak daftar Toolbars, aktifkan tanda cek untuk Toolbar-toolbar yang akan diaktifkan, klik OK.

Task Pane Window
Task pane window berfungsi untuk mengelola project atau database. Pada Visual FoxPro 9.0 dengan seting standard task pane ini akan selalu muncul pada saat pertama kali Foxpro dipanggil, pada versi sebelumnya task pane tidak menjadi default Window yang ditampilkan di awal pemanggilan FoxPro.

Window Command
Kegunaan window command adalah untuk mengetikan kode perintah pemrograman Visual FoxPro

Window View
Window view berfungsi untuk menampilkan data secara cepat. Misalnya setelah Anda mengeksekuksi perintah menampilkan teks “Saya sedang belajar Foxpro!” dengan cara seperti
itu, tampilan window view akan tampil seperti dibawah ini



TIPE FILE VISUAL FOXPRO

Saat membangun aplikasi database dengan Visual FoxPro, Anda menyiapkan file-file pembangun aplikasi tersebut. Tipe file aplikasi Visual Foxpro adalah Project, database, tabel, Query, Connection, View, Remote view, Form, report, Label, Program, Class, Text File dan Menu, untuk mengetahui hal ini kelihatannya sepele tapi sebenarnya sangat penting.

Coba bayangkan jika kita membuat suatu program database ketika ditanya tipe file dari salah satu file tersebut tidak tahu??

1. Project, merupakan file yang berisi pengenal file-file lainnya yang terdapat pada aplikasi. File bertipe Project memiliki ekstensi .pjx pada nama filenya.
2. Database, adalah file yang berisi informasi mengenai file-file penyusun database. File penyusun database dapat berupa tabel, indeks, atau view. Ekstensi file database adalah .dbc
3. Tabel, yaitu file yang berisi informasi tabel dalam tiap-tiap fieldnya, yang mungkin kosong atau berisi beberapa record. File tabel berekstensi .dbf
4. Query, merupakan file yang berisi pendefinisian sebuah informasi dari sebuah database, yang pembentukannya menggunakan kriteria untuk mengekstrak record khusus. Program query yang dikompilasi memiliki ekstensi .qpx
5. Connection, adalah nama yang dipakai untuk memberi nama hubungan dengan database jarak jauh.
6. View, berisi pendefinisian tabel sementara menggunakan perintah kriteria untuk mengekstrak record khusus. View dibentuk dengan satu atau lebih tabel, atau menggunakan view yang sudah ada. Berbeda dengan query, view dapat di-update. Remote View, adalah view yang mengambil data dari komputer jarak jauh (di tempatlain/ remote data).
7. Form, merupakan sarana untuk berinteraksi antara user user aplikasi dengan lingkungan datanya. Pada form terdapat kontrol-kontrol yang berfungsi untuk menampilkan atau meng-edit data. Form tersimpan pada file berkestensi .scx
8. Report, merupakan bentuk penyajian informasi secara visual yang dapat dicetak dengan kertas. File report mempunyai ekstensi .frx
9. Label, hampir sama dengan report, hanya saja ukurannya lebih kecil. Ekstensi file label adalah .lbx
10. Program, adalah file yang berisi satu atau lebih perintah pemrograman yang tersusun secara terstruktur untuk menjalankan proses tertentu. Ekstensi file program adalah .prg
11. Class, merupakan definisi properti, method dan event suatu obyek. Definisi class disimpan dalam suatu class library yang filenya berekstensi .vcx
12. Text File, yaitu file yang berisi teks belaka. File teks ini biasanya dipakai sebagai tempat mendeklarasikan variabel-variabel atau konstanta-konstanta yang di-include ke dalam project. Ekstensi file teks adalah .txt
13. Menu, merupakan daftar perintah yang muncul saat Ada memilih menu dari menu bar. Menu tersimpan dalam file berekstensi .mnx

» Read more → Mengenal Visual Foxpro 9.0