LEMBAR KERJA PRAKTIKUM Nim
: 13-1401-164
Nama
: MUH. IDRUS
Kelas
: DK-13
Hari / Tgl
TTD Asisten
Mata kuliah : Pemrograman Visual II (FoxPro) Materi
: Operator aritmatika
-
Buat direktori tempat penyimpanan file-file foxpro yang akan dibuat :
-
Jalankan microsoft visual foxpro melalui menu start :
-
Kemudian buat project baru, dapat dilakukan melalui menu file kemudian pilih New, pilih Project pada file type dan klik New file maka selanjutnya akan muncul jendela untuk menyimpan file yang akan dibuat. Buka direktori yang telah dibuat sebelumnya, kemudian simpan dengan nama praktikum2.pjx dan klik tombol Save :
-
Selanjutnya buat form melalui tab Document, pilih Form, klik New dan klik New form pada jendela konfirmasi yang muncul :
-
Desain form seperti tampilan berikut :
-
Ubah properties menjadi seperti berikut : Object
Properties Setting Caption Form Pertambahan Form1 Name Frmpertambahan Caption Pertambahan Alignment Center Label1 Fontbold True Fontsize 14 Label2 Caption Nilai1 Label3 Caption Nilai2 Label4 Caption Hasil Text1 Name Txtnilai1 Text2 Name Txtnilai2 Name Txthasil Maxlength 10 Text3 InputMax 99999999 Enabled True Caption Hitung Command1 Name Cmdhitung Caption Keluar Command2 Name Cmdkeluar Maka selanjutnya form akan terlihat seperti tampilan berikut :
-
Masukkan kode program pada tombol Hitung dengan procedure Click: nilai1=VAL(thisform.txtnilai1.Value) nilai2=VAL(thisform.txtnilai2.Value) hasil=nilai1+nilai2 thisform.txthasil.Value=hasil
-
Masukkan kode program pada tombol Keluar dengan procedure Click: thisform.release
-
Jalankan form melalui ikon Run pada toolbar kemudian simpan form pada
direktori
yang
sama
sebelumnya
dengan
nama
pertambahan.scx dan hasilnya akan terlihat seperti gambar berikut setelah memasukkan data :
-
Kembali ke Project Manager, buat form baru seperti langkah sebelumnya namun dengan desain seperti gambar berikut :
Propertiesnya seperti berikut : Object Form1
Label1 Label2 Label3 Label4 Text1 Text2 Text3
Properties Caption Name Caption Alignment Fontbold Fontsize Caption Caption Caption Name Name Name
Setting Form Operator Aritmatika Frmaritamtika Operator Aritmatika Center True 14 Nilai1 Nilai2 Hasil Txtnilai1 Txtnilai2 Txthasil
Command1 Command2 Command3 Command4 Command5 Command6 Command7 -
Maxlength InputMax Enabled Caption Name Caption Name Caption Name Caption Name Caption Name Caption Name
10 99999999 True Bersih cmdbersih Keluar Cmdkeluar Tambah Cmdtambah Kurang Cmdkurang Bagi Cmdbagi Kali Cmdkali
Caption Name
Pangkat Cmdpangkat
Masukkan kode program pada tombol Bersih dengan procedure Click: thisform.txtnilai1.Value="" thisform.txtnilai2.Value="" thisform.txthasil.Value=""
-
Masukkan kode program pada tombol Keluar dengan procedure Click: thisform.release
-
Masukkan kode program pada tombol Tambah dengan procedure Click: nilai1=VAL(thisform.txtnilai1.Value) nilai2=VAL(thisform.txtnilai2.Value) hasil=nilai1+nilai2 thisform.txthasil.Value=hasil
-
Masukkan kode program pada tombol Kurang dengan procedure Click: nilai1=VAL(thisform.txtnilai1.Value) nilai2=VAL(thisform.txtnilai2.Value) hasil=nilai1-nilai2 thisform.txthasil.Value=hasil
-
Masukkan kode program pada tombol Bagi dengan procedure Click : thisform.txthasil.InputMask="999999.99" nilai1=VAL(thisform.txtnilai1.Value) nilai2=VAL(thisform.txtnilai2.Value) hasil=nilai1/nilai2 thisform.txthasil.Value=hasil
-
Masukkan kode program pada tombol Kali dengan procedure Click : nilai1=VAL(thisform.txtnilai1.Value) nilai2=VAL(thisform.txtnilai2.Value) hasil=nilai1*nilai2 thisform.txthasil.Value=hasil
-
Masukkan kode program pada tombol Pangkat dengan procedure Click : thisform.txthasil.InputMask="999999999999999999" nilai1=VAL(thisform.txtnilai1.Value) nilai2=VAL(thisform.txtnilai2.Value) hasil=nilai1**nilai2 thisform.txthasil.Value=hasil
-
Kemudian jalankan form dengan mengklik ikon Run pada toolbar kemudian simpan form dengan nama operatoraritmatika.scx dan hasilnya akan terlihat seperti tampilan berikut :
-
Tampilan direktori setelah pembuatan file-file foxpro :
