MODUL PRAKTIKUM MUHAMAD DANURI, M.KOM AMIK JTC SEMARANG

MODUL PRAKTIKUM

MUHAMAD DANURI, M.KOM

AMIK JTC SEMARANG

PEMROGRAMAN VISUAL

Program : suatu kumpulan instruksi yang disusun berdasar suatu aturan, untuk tujuan tertentu, co: Program=surat (kata) Pemrograman : kegiatan membuat/menulis program Programer : orang yg membuat DATA = kumpulan informasi Database : kumpulan informasi yg besar atau pusat informasi

Pemrograman VISUAL - Mr. Danuri

2

1. Membuka visual voxpro (OOP) 2. Jendela VFoXPRO 3. Membuat PROJECT : a. CLICK FILE, NEW, PROJECT, NEW FILE b. MEMBUAT FORM i. CLICK DOCUMENTS, FORM, NEW FORM 4. MEmebuat Form Pertama : Form Selamat datang : Selamat Datang Di PEmrograman VISUAL AMIK JTC SEMARANG NUR LILING _____________________________ selesai

Form Data_Pribadi : Data Pribadi Nama : XXXXXXXXXXXXXXXX Alamat : XXXXXXXXXXXXXXXXXXXX

Kota

: XXXXXXXXXXX

Dll………………….. (10 item data)

Form Hitung :

selesai

HITUNG DATA

LABEL

DATA 1

TEXT1 9

DATA 2

TEXT2 8

HASIL

Perkalian

TEXT3 72

selesai

TEXTBOX

THISFORM.RELEASE

THISFORM.TEXT3.VALUE=VAL(THISFORM.TEXT2.VALUE)*VAL(THISFORM.TEXT1.VALUE)

Menghilangkan nol pada text3. Clik text3, click data, pilih input mask, ketik : 999,999,999


3


4

Form Hitung GAJI: HITUNG TOTAL GAJI PEGAWAI

LABEL

NIP

TEXT1

NAMA PEGAWAI

TEXT2

JABATAN

TEXT3

GAJI POKOK

TEXT4

TUNJANGAN

TEXT5

INSENTIF

TEXT6

POTONGAN

TEXT7

TOTAL GAJI

TEXT8

HITUNG GAJI

TEXTBOX

SELESAI THISFORM.RELEASE

THISFORM.TEXT8.VALUE=VAL(THISFORM.TEXT4.VALUE)+VAL (THISFORM.TEXT5.VALUE)+VAL(THISFORM.TEXT6.VALUE)VAL(THISFORM.TEXT7.VALUE)

Memberi pertanyaan pada tombol selesai :


5

x=MESSAGEBOX("yakin ingin selesai ?",32+4,"pesan") IF x=6 then THISFORM.RELEASE ENDIF


6

Pertemuan II : 1. Membuat form untuk Formulir 2. 3. 4. 5. 6.

Membuat From Input data Pegawai Membuat From Input data Mahasiswa Input data Penjualan Barang Input data Pembayaran Uang Kuliah Input data Pembayaran Pelanggan PLN/PDAM/TELKOM


7

Judul No Pendaftaran Nama Lengkap Tempat, Tgl lahir Jenis kelamin [ Laki-laki = Perempuan] Alamat Kota Asal Sekolah NEM Bersih AGAMA [ pakai Pilihan ] Telp Selesai Email


8

TUGAS PLN:

Pajak PJ = 10% total Biaya Pakai Contoh data : Pemakaian = 100 Biaya /kwh = 25 Pajak pj = 250 (tuliskan cara menyelesaikan Form tersebut, dari Folder Simpan) Mendatang dipraktekkan.DO CASE DAYA 450 900 1300 2200 4400 6600

TARIP /KWH Do Case 750 Case Val(THISFORM.COMBO2.VALUE=450) 1250 Bkwh=750 1450 Case Val(THISFORM.COMBO2.VALUE=900) 3000 Bkwh=1250 4250 5000 Endcase

TUGAS PDAM: Pemrograman VISUAL - Mr. Danuri

9

Pajak = 10% total Biaya Pakai Contoh data : JUMLAH Pemakaian = 100 Biaya /M3 = 2500 Pajak 10% = 25000 (tuliskan cara menyelesaikan Form tersebut, dari Folder Simpan) TOTAL BAYAR= (JUMLAH PAKAI * BIAYA(M3))+PAJAK = 275000 Pertemuan Mendatang dipraktekkan.


10

Pertemuan III. Combo box :

COMBOBOX

OPTION BUTTON. (PEKERJAAN)     

WIRASWASTA PNS PEDAGANG SWASTA LAIN-LAIN

CheckBOX : PENDIDIKAN     

SD SMP SMA D3 S1


11


12

Pertemuan IV : LOGIKA : DIPAKAI UNTUK MENGADAKAN SELEKSI PADA SEBUAH DATA DAN MEMBERIKAN NILAI PADA SUATU VARIABLE.

SYNTAK : IF KONDISI THEN STATEMEN 1 ELSE STATEMEN 2 ENDIF

Operator : =, >, <, <=, >= , <> Contoh Kondisi: Umur > 20 Nilai>=60 Jabatan=”Staff” Jur=”manajemen

KASUS :

Jika umur KURANG DARI 5 dari thn sebutannya BALITA Jika umur LEBIH DARI 5 SEBUTANNYA DEWASA

Jika umur KURANG DARI 5 dari thn sebutannya BALITA Jika umur antara 6 sampai 25 tahun sebutannya REMAJA Jika umur LEBIH DARI 25 SEBUTANNYA TUA

If VAL(THISFORM.TEXT2.VALUE)<5 then Keterangan=“BALITA” Else Keterangan =”DEWASA” Endif Thisform.text3.value=keterangan UMUR=VAL(THISFORM.TEXT 2.Value) IF umur<=5 then Keterangan="BALITA" Else IF VAL(THISFORM.TEXT2.Value)>25 Keterangan ="TUA" Pemrograman VISUAL - Mr. Danuri

13

ELSE Keterangan ="REMAJA" ENDIF ENDIF THISFORM.TEXT3.Value=KETERANGAN


14

Jika Jabatan=”staff” maka gaji pokok=1jt, tunj=500rb, bonus=750rb Jika Gol bukan ”staff” maka gaji pokok=2,5jt, tunj=1,5juta, bonus=1jt

IF JABATAN=”staff” THEN GAPOK=1000000 TUNJ=500000 BONUS=750000 ELSE GAPOK=2500000 TUNJ=1500000 BONUS=1000000 ENDIF Thisform.text3.value=GAPOK Thisform.text4.value=TUNJ Thisform.text5.value=BONUS THISFORM.

Jika Gol=”I” maka gaji pokok=1jt, tunj=500rb Jika Gol bukan ”I” maka gaji pokok=800rb, tunj=350rb IF GOL=”I” THEN GAPOK=1000000 TUNJ=500000 ELSE GAPOK=800000 TUNJ=350000 ENDIF


15

Contoh :

MANAJEMEN

AKUNTANSI BAHASA INGGRIS APLIKASI KOMPUTER MATEMATIKA AGAMA MEMBERSIHKAN ISIAN YANG ADA

JIKA RATA-RATA>60  LULUS JIKA RATA-RATA<60  MENGULANG

RATA=VAL(THISFORM.TEXT5.VALUE) IF RATA<60 THEN KETERANGAN=”TIDAK LULUS” ELSE KETERANGAN=” LULUS” ENDIF THISFORM.TEXT5.VALUE=KETERANGAN


16

Pertemuan V:

PILIHAN JAMAK = SYNTAK : Do Case Case kondisi1 Statment1 Statment1a Case kondisi2 Statment2 Case kondisi3 Statment3 Case kondisi(N) Statement(N) Endcase

Merk HP

Harga

Bonus

Nokia SonyEricson Samsung LG

10jt 7jt 5jt 6jt

MMC 2GB TAS Kalung Berlian Cincin Emas

Merk=thisform.text3.value Do case Case merk=”Nokia” Harga=10000000 Bonus=”MMC 2GB” Case merk=”sonyericson” Harga=7000000 Bonus=”TAS” Case merk =”samsung” Harga=5000000

A  RATA-RATA >=85 B  75
“TOMBOL PROSES” rata= (thisform.text5.value) DO CASE CASE RATA>=85 NILAI="A" CASE RATA>=75 and rata<85 NILAI="B" CASE RATA>=60 and rata<75 NILAI="C" CASE RATA <60 NILAI="D" Pemrograman VISUAL - Mr. Danuri

17

EndCase thisform.text7.value=nilai


18

TUGAS (DENGAN IF ATAU DO CASE): Suatu perusahaan menetapkan gaji, tunjangan dan jabatan seorang karyawannya berdasarkan golongan yang dimiliki pegawai tersebut, penetapan tersbut seperti table dibawah ini : Gol 1 2 3 4

Jabatan Staff Administrasi Kepala Bagian Manajer

Gaji 1500000 2000000 2500000 3500000

Tunjangan 125000 150000 200000 500000

Insentive 100000 150000 300000 350000

Pot 10% dari GATOR 10% dari GATOR 15% dari GATOR 15% dari GATOR

HITUNG DATA GAJI

LABEL

NIP

TEXT1

NAMA PEGAWAI

TEXT2

GOLONGAN

Combo1

JABATAN

TEXT3

GAJI POKOK

TEXT4

TUNJANGAN

TEXT5

GAJI KOTOR

TEXT6

POTONGAN

TEXT7

GAJI BERSIH

TEXT8

HITUNG GAJI

TEXTBOX

COMBOBOX : [TEMPAT HITUNG DATA GAJI]

selesai

THISFORM.RELEASE

THISFORM.TEXT8.VALUE=VAL(THISFORM.TEXT6.VALUE) VAL(THISFORM.TEXT7.VALUE)


19

Merk HP

Harga

Bonus

Spesifikasi

Nokia

10jt

MMC 2GB

SonyEricson

7jt

TAS

Samsung

5jt

Kalung Berlian

LG

6jt

Cincin Emas

Qwerty, HSDPA, 3G, Web, CAMERA, Bluethoot, Dual Card, Internet Qwerty, HSDPA, 3G, Web, CAMERA, Bluethoot, Internet Qwerty, 3G, Web, CAMERA, Bluethoot, Dual Card Qwerty, HSDPA, 3G, Web, CAMERA, Dual Card

Merk=thisform.text3.value Do case Case merk=”Nokia” Harga=10000000 Bonus=”MMC 2GB” Case merk=”sonyericson” Harga=7000000 Bonus=”TAS” Case merk =”samsung” Harga=5000000


20

Latihan : Buatlah sebuah program KAMUS Inggris Indonesia atau sebaliknya dengan fungsi yg ada dibawah ini : - Fungsi if - Fungsi do case - Tools option button, combo, check Inggris

Bahasa Indonesia Kamu Saya Meja Buku Merah Biru

Jawa

Prancis

X=UPPER(THISFORM.TEXT1.Value) DO CASE CASE X="SAYA" INGGRIS = "IAM" JAWA="KULO" CASE X="UTARA" INGGRIS = "NORTH" JAWA="LOR" CASE X="BEBAS" INGGRIS = "FREE" JAWA="SAK KERSO NJENENGAN" ENDCASE THISFORM.TEXT2.Value=INGGRIS THISFORM.TEXT3.Value=JAWA


21

Tugas Sebelum MID : Carilah sebuah kasus dilingkungan kamu yang bisa diselesaikan dengan menggunakan pemrograman visual foxpro, dengan menggunakan toolbar dibawah ini : 1. 2. 3. 4. 5.

Label Text box, Command button Combo button, Option button Chek buton, Picture Perintah IF atau DO Case

Rancanglah dahulu kasus tersebut, kemudian buatkan penyelesaiaanya dengan menggunakan Pemrograman visual Foxpro… Ketentuan nama file : 1. Folder : Tugas-NIM 2. Project : tugas-NIM 3. Nama Form = sesuai nama kasus


22

6. :

-

-

KISI-KISI UTS Menjalankan Vfoxpro Membuat form Fungsi matematika Fungsi if Fungsi do case Tools : o OPTION BUTTON, COMBO, CHECK, o COMAND BUTTON, LABEL, TEXTBOXT, o IMAGE Keindahan tampilan

Soal : formulir Pendataan Mahasiswa , Pegawai, Nasabah


23

MODUL PRAKTIKUM MUHAMAD DANURI, M.KOM AMIK JTC SEMARANG

Recommend Documents