Pages

Pages

23.4.13

Mengenal Script Form 03 - Pemrograman ViFox

Seletah kita mengenal pembuatan form, materi selanjutnya dalah pengembangan aplikasi operasi matematika berbasis logika algorima dalam penerapannya pada Form Microsoft Visual Foxpro. Aspek logika IIF telah didapatkan sebelumnya pada contoh kasus [SYNTAX IF]. Pemakaian dalam form dikombinasikan dengan MENDEFINE komponen atribut form seperti COMBO, COMMAND, GRID, LABEL maupu OPTION BUTTON. Pemakakian didalam form dikembangakan agar user (penguna program) mendapatkan manfaat efisiensi berupa: 1) Waktu kerja yang semakin pendek karena tidak perlu melakan perhitungan manual maupun formula seperti halnya pada MS Excel. 2) Minimalisasi Human Error, sedikitnya campur tangan pada aplikasi yang dibangun akan membuat sedikit kesalahan pada aplikasi dan meminimalkan celah korupasi karena atribut text box tidak bisa diisi langusng oleh user yang tidak berhak. 3) Autorisasi menciptakan kejelasan delegasi dan pelimpahan wewenang yang dapat dikembangkan dalam menajemen jaringan.

Artikel Pemrograman Visual Foxpro Lainnya...
[1] Bagaimana Membuat Aplikasi Mandiri menggunakan Instal Shiled 10 ?
Membuat aplikasi bundling yang lepas dari program induknya Microsoft Visual Foxpro
[2] Membuat File Executabel dari Projek Visual Foxpro
Contoh Membuat builder aplikasi setelah dilakukan set main dikompile menjadi file aplikasi.
[3] Mengganti Icon Visual Foxpro dengan Icon hasil desain sendiri dari olah aplikasi grafis
Menggunakan aplikasi Corel Draw, Photoshop maupun Photo Impact untuk merubah Icon Foxpro dari Project Info
[4] Mengembankan Logika IIF dalam disertain operasi matematika pada FORM Visual Foxpro
Membangun Logika IF pada form Foxpro untuk menciptakan automatisasi input guna meminimalkan kesalaha “human error” dan efisienasi kinerja administratif
[5] Logika DO CASE dan IF-ELSE-ENDIF
Logika Dasar menggunakan kondisi IF –ENDIF dan syintax pengguaan DO-CASE
[6] Membangun Report dan Cetak pada Visual Foxpro
Membuat Laporan pada Mocrosft Visual Foxpro untuk menciptakan data Menjadi Informasi bagi Pengabil Keputusan maupun kebutuhan horizontal, membahas syntax untuk melihat Laporan menggunakan Preview maupun lihat laporan dengan Cetak
[7] Perhitungan aplikasi pembayaran pada Form
Contoh Perhitungan aplikasi pada Form pembayaran, penggunakan procedur Lost Focus dan Interactive Change
[8] Menegnal fungsi dasar If dan menggunaan atribut pada Form
Penggunaan Form dan logika dasar operasi Top, Prev, Bottom, Next, Simpan, Edit, Hapus dan Tambah Data


Penggunaan Logika -- dalam contoh kasus menghitung Gaji Karyawan.





















========================================================================
SEKENARIO FORM
a) NIK [TxtNIK] didefinisikan Jika A="MANAJER", B="Karyawan"
b) Nama Diinput dengan tipe CHR25
c) Status diisi otomatis logika IF berdasar dari pengambialan satu karakter TxtNIK di sebelah kanan.
d) Tahun Masuk Berupa Input Combo1 - Builder "Entry by Hand". menghasilkan nilai CHR.
e) Masa Kerja [TxtMk] diisi otomatis diperoleh dari selisih Tahun Sekarang - Tahun Masuk
f)  Gaji [TxtGaji] diisi otomatis TxtNIK adalah Gol A=20.000.000 dan Gol B=10.000.000
g) Tunjuangan [TxtTunj] diisi otomatis Gol A=10% X  Masa Kerja X Gaji Pokok; Gol B=5% X  Masa Kerja X Gaji Pokok.
h) Pendapatan terisi otomatis = Tunjangan + Gaji
i) THP terisi otomatis = Pendapatan - Pajak
=========================================================================

Procedur yang digunakan
1) Activated Form
2) Set Focus - Menempatkan kursor pada posisi siap klik BUTTON dan perisapan TEXTBOX
3) Lost Focus - Penggunaan Rumus Logika yang dipicu ketika kursor meninggalkan Tab Status
4) Click
5) Interactive Change - Menuliskan Text2 dengan Tanggal Sekarang  dan Aktivitas Kerja Input




NAMA LOSS FOCUS
A=THISFORM.TXTNIK.Value
THISFORM.TXTSTATUS.VALUE=IIF(LEFT(A,1)="A","KARYAWAN","DOSEN")
 
COMBO1- LOST FOCUS
*HITUNG MASA KERJA
a=VAL(thisform.combo1.value)
b=YEAR(DATE())
thisform.text1.Value=b-a
{Val merubah tipe data Character menjadi Numerik agar dapat di opersikan}
{YEAR merupakan fungsi untuk melakukan pengambilan Tahun dari tanggal hari ini}

*HITUNG GAJI
c=THISFORM.TXTNIK.Value
THISFORM.TXTGAJI.VALUE=IIF(LEFT(c,1)="A",2000000,3000000)

*HITUNG TUNJANGAN
c=THISFORM.TXTNIK.Value
d=thisform.Text1.value
THISFORM.TxtTunjangan.VALUE=IIF(LEFT(c,1)="A",d*(0.05*2000000),d*(0.10*3000000))
{SYNTAX LOGIKA IIF FOXPRO:= IIF(Kondisi diinginkan,Kondisi Benar, Kondisi Salah}

*HITUNG TOTAL PENDAPATAN
e=thisform.txtGaji.Value
f=thisform.txtTunjangan.Value
thisform.txtThp.Value=e+f

*THP - PPH15%
g=thisform.txtThp.Value
thisform.txtthp2.Value=g-0.15*g

thisform.txtGaji.Enabled=.f.
thisform.txtTunjangan.Enabled=.f.
thisform.text1.Enabled=.f.
thisform.txtThp.Enabled=.f.

REPORT REKAP GAJI
Menampilkan Inputan Form pada Rekap Laoran Gaji ---> Manager