Kotak 3 Dimensi dalam Clipper

Dulu sewaktu saya masih kuliah tahun 1994-an, masih jaman kegemilangan DOS dan pemrograman 16 bit berbasis teks seperti Clipper, C, Basic dan sekelasnya.

Beberapa software terkenal masa itu sudah ada yang membuat grafis menarik seperti ala Windows jaman sekarang [salah satunya masa itu adalah Microsoft Anti Virus atau MSAV dan CPAV], berikut adalah contoh pemrograman kotak / box 3d tersebut yang saya buat dengan Clipper]

Screenshot diatas adalah program saya untuk Universitas IBA pada tahun 1997 [Penerimaan Mahasiswa Baru]

******************************************************
* melakukan demonstrasi Box3d dengan gaya MSAV/CPAV
******************************************************
Proc Check
Save screen to memo
set color to gr+/b
sisa=diskspace()
pesan=”Mengecek struktur memory …”
persen=”[ % ]”
sorot=”[ “+repl(chr(176),60)+” ]”
sisa=” Sisa Memori Komputer : ” + Transform((memory(0)*1024),”@E 999,999,999. Byte”)

box3d(05,05,13,75,1)
shadow(05,05,13,75)

@ 07,40-len(pesan)/2 say pesan
@ 08,40-len(persen)/2 say persen
@ 09,40-len(sorot)/2 say sorot
@ 11,40-len(sisa)/2 say sisa
x=1
do while x<61
@ 08,37 say x+40 pict “999”
@ 09,10 say repl(chr(219),x)
x=x+1
waktu=1
do while waktu<1000
waktu=waktu+1
enddo
enddo
tone(100,2)
tone(300,4)
Clea
Restore Screen from memo

Categories: Clipper | Tinggalkan komentar

Navigasi pos

Tinggalkan Balasan

Please log in using one of these methods to post your comment:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

Blog di WordPress.com.

%d blogger menyukai ini: