Clipper

BELAJAR CLIPPER
Clipper adalah bahasa pemrograman yang ditujukan pada pengolahan data. Clipper dikenal pada dekade tahun 80-an sampai 90-an. Clipper dimasukkan dalam kelompok keluarga Xbase, seperti dBase, Clipper, FoxPro, dan lainnya.

Keuntungan Clipper, adalah :

1. Tidak memerlukan perangkat keras yang tinggi.
2. Tidak berbentuk grafis, sehingga memudahkan dalam pencetakan melalui printer.
3. Mudah memasukan data.

Kelemahan Clipper, adalah :

1. Tidak menerapkan konsep basis data secara penuh.
2. Tidak mendukung aplikasi internet.
3. Segala sesuatu dikerjakan oleh proggrammer.
Struktur program Clipper tidak beraturan. Hal ini dipandang sebagai kekurangan, tetapi juga dapat dimanfaatkan sebaagi kelebihan.

Perangkat bantu yang digunakan oleh Clipper, antara lain :

1. Sistem manajemen basis data.
Fungsinya membuat file data (dalam Clipper disebut database file), yaitu file berekstensi dbf. Program yang dapat dipakai adalah database untility dari Clipper (dbu.exe), dBase (dbase.exe), foxPlus (mfoxplus.exe).
2. Editor.
Untuk penulisan program dapat digunakan perangkat lunak apapun, yang penting dapat menulis dalam format ASCII.
3. Kompilator.
Digunakan untuk mencetak tata aturan penulisan, yang diwakilkan oleh program clipper.exe. Jika terjadi kesalahan, maka Clipper akan memberitahu nomor baris dan jenis kesalahan. Tetapi kesalahan logika tidak akan terdeteksi. Hasil kompilasi akan didapat file objek.
4. Linker.
Hasil file objek, untuk menjadi file harus dijalankan (eksekusi), di link.

 
Clipper adalah bahasa pemrograman komputer keluarga XBase yang digunakan untuk membuat program komputer utamanya yang berjalan pada sistem operasi DOS. Secara lebih spesifik, clipper umumnya digunakan untuk membuat program-program yang terkait dengan database/bisnis (contoh. akuntansi, manajemen simpan/pinjam, dan lain-lain).
Sejarah
Clipper pertama kali diperkenalkan pada tahun 1985 oleh Nantucket, yang kemudian dijual kepada Computer Assosiates, sebagai kompiler untuk dBASE III yang sangat populer pada masa itu. kompilasi kode-kode dBASE berarti mengubahnya dari kode interpretasi (kode sumber yang bisa dibaca oleh manusia), yang harus di interpretasikan oleh komputer setiap kali setiap baris dijalankan, menjadi P-code (atau pseudo-code), yang menggunakan Mesin Virtual untuk memproses p-code yang telah dikompilasi tersebut. Meskipun P-code tidak lebih cepat daripada kode mesin yang dihasilkan oleh kompiler bahasa lain (C++), namun secara keseluruhan P-code masih jauh lebih cepat dibandingkan interpreter.
Sebagai produk yang mapan, clipper banyak digunakan sebagai salah satu perangkat pembantu pada sistem operasi DOS selama beberapa tahun, dalam pengembangannya clipper mengadopsi pula elemen-elemen dari bahasa C dan bahasa pascal, begitu pula fitur Pemrograman Berorientasi Objek, tipe data code-block (konsep hibrid dari makro yang terdapat pada dBase), pengevaluasi string, dan fungsi-fungsi pointer yang menjadikan Clipper lebih tangguh dari saat pertama diperkenalkan. Pengembangan lebih lanjut lagi adalah ketika proyek Aspen milik Nantucket yang beberapa waktu kemudian akhirnya mencapai tahapan mapan mengubah Clipper menjadi kompiler Visual Object berbasis Windows yang mampu menghasilkan kode mesin dibandingkan Clipper yang hanya menghasilkan P-code.
Pada masa-masa sekarang, bahasa Clipper masih secara aktif digunakan pada berbagai implementasi, dan terus dikembangkan oleh berbagai organisasi/vendor. Clip, Harbour, Xbase++, dan FlagShip merupakan bentuk-bentuk produk kompiler yang mengimplementasikan bahasa Clipper yang umumnya saat ini telah mendukung aspek portabilitas antar sistem operasi yang yang lebih baik (DOS, Windows, Linux (baik 32-bit ataupun 64-bit), Unix, dan OS X), mendukung ekstensi/lokalisasi bahasa yang lebih banyak, diperkaya dengan pustaka fungsi yang lebih baik, begitu pula dukungan terhadap beragam format data seperti DBF, DBTNTX, DBFCDX (FoxPro dan Comix), Apollo, SQL, dan banyak lagi. Uniknya keseluruhan implementasi ini masih tetap mempertahankan kompatibilitas dengan sintaksis-sintaksis standar yang dikenal dalam dBase/xBase.


Clipper adalah salah satu bahasa pemrograman yang cukup populer, tetapi sekarang penggunannya sudah jarang diakibatkan hadirnya bahasa pemrograman yang lebih bagus dan menawarkan GUI yang lebih cerah, seperti visual basic misalnya. Dalam postingan kali ini saya akan menyertakan contoh2 program clipper yang berguna bagi mereka yang sedang belajar clipper.

1. Program input

#include 'inkey.ch'
use ipa2002
index on NO_PKAB to ipa2002
mNO_PKAB = space(5)
do while .t.
@ 3,7 say 'Pemasukan/Editing Peserta PKAB'
@ 5,7 say 'No. PKAB : '
@ 6,7 say 'Kode SMA : '
@ 7,7 say 'Kelamin : '
@ 8,7 say 'No. Induk : '
@ 9,7 say 'Nama Siswa : '
@05,21 get mNO_PKAB
read
if lastkey()=K_ESC
exit
endif
seek mNO_PKAB
if found()
mNAMA_SISWA = NAMA_SISWA
mNO_INDUK = NO_INDUK
mKODE_SMA = KODE_SMA
mKELAMIN = KELAMIN
else
mNAMA_SISWA = space(30)
mNO_INDUK = space(10)
mKODE_SMA = space(8)
mKELAMIN = space(1)
endif
@06,21 get mKODE_SMA
@07,21 get mKELAMIN
@08,21 get mNO_INDUK
@09,21 get mNAMA_SISWA
read
if lastkey()#K_ESC
seek mNO_PKAB
if .not. found()
append blank
endif
replace NO_PKAB with mNO_PKAB
replace NAMA_SISWA with mNAMA_SISWA
replace NO_INDUK with mNO_INDUK
replace KODE_SMA with mKODE_SMA
replace KELAMIN with mKELAMIN
endif
enddo
close index
close data
return

• logo unila

#include 'inkey.ch'
clear
nilai = cari_nilai(100)
@ 03,01 say ' ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿'
@ 04,01 say ' ³ Program Simulasi PKAB Universitas Samara ³'
@ 05,01 say ' ³ É» ³'
@ 06,01 say ' ³ ȼ ³'
@ 07,01 say ' ³ É» É» ÉÍ» º º ÉÍ» ³'
@ 08,01 say ' ³ ºº ºº º È» º É» º ɼ È» ³'
@ 09,01 say ' ³ ºº ºº º È» º ºº º ɼÉÍÍλ ³'
@ 10,01 say ' ³ ºº ºº º È»º ºº º ɼɼ Èλ ³'
@ 11,01 say ' ³ ºº ºº º ȹ ºº º ɼɼ Èλ ³'
@ 12,01 say ' ³ ºÈÍÍÍͼº º º ºº ÌÍÍÍÍÍ» Èͼ ȼ ³'
@ 13,01 say ' ³ ÚÄ¿ ÈÍÍÍÍÍͼ º ȼ ÈÍÍÍÍͼ ³'
@ 14,01 say ' ³ ÀÂÙÚ¿ Ú¿ ³'
@ 15,01 say ' ³ ÀÄÁÁÄÄÁÁÄÄÄÄÄÄÄÄ ³'
@ 16,01 say ' ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ'
set color to w*/n
@ 17,11 say 'tekan sembarang tombol '
wait ''
set color to
return

• Menu

clear
do while .t.
@ 10,25 prompt 'Input Data '
@ 11,25 prompt 'Hapus Data '
@ 12,25 prompt 'Lihat Data '
@ 13,25 prompt 'Selesai '
menu to pilihan
save screen to layar1
do case
case pilihan=4
exit
case pilihan=1
do input
case pilihan=2
do hapus
case pilihan=3
do tampil
endcase
restore screen from layar1
enddo
return

• Program tanggal

set date italian
set century on
clear
store date() to tgl_awal,tgl_akhir
@ 1,1 say 'Awal : ' get tgl_awal
@ 2,1 say 'Awal : ' get tgl_akhir
read
@ 3,1 say tgl_akhir-tgl_awal
@ 4,1 say dow(date())
@ 5,1 say nama_hari(dow(date()))
return

function nama_hari
para nomor_hari
do case
case nomor_hari=1
namanya = 'Senin '
case nomor_hari=2
namanya = 'Selasa'
case nomor_hari=3
namanya = 'Rabu '
case nomor_hari=4
namanya = 'Kamis '
case nomor_hari=5
namanya = "Jum'at"
endcase
return namanya