Prosedur Gerak di Clipper

***********************
PROCEDURE GERAK
***********************
* Procedure ini untuk menggerakkan Kotak supaya Kotak yang mungkin akan
* mengganggu penglihatan pemakai Komputer, dapat digeser
PRIVATE BRii, KLii, WAR_GER, LAY_GER, TEBAL, LEBAR
BRii:= brs + jml_brs + jml_pil + 4
KLii:= kol + 49
WAR_GER:= warna
LAY_GER:= mpopmenu
GERAKAN:= SAVESCREEN(BRi, KLi, BRii, KLii)

SET KEY 3 TO
SET KEY 18 TO
SET KEY 1 TO
SET KEY 6 TO
SET KEY 5 TO
SET KEY 24 TO
SET KEY 4 TO
SET KEY 19 TO

DO WHILE .T.

GER:= INKEY(0)
DO CASE
CASE GER = 8 && <- (BACK SPACE)
KEYBOARD CHR(27)
EXIT
CASE GER = 5 .AND. BRi > 0 && PANAH ATAS
BRi:= BRi – 1
BRii:= BRii – 1
brs:= BRi
CASE GER = 24 .AND. BRii <>
BRi:= BRi + 1
BRii:= BRii + 1
brs:= BRi
CASE GER = 4 .AND. KLii <>
KLi:= KLi + 1
KLii:= KLii + 1
kol:= KLi
CASE GER = 19 .AND. KLi > 0 && PANAH KIRI
KLi:= KLi – 1
KLii:= KLii – 1
kol:= KLi
CASE GER = 18 .AND. BRi > 0 && PAGE UP
TEBAL:= BRii – BRi
BRi:= 0
BRii:= BRi + TEBAL
brs:= BRi
CASE GER = 3 .AND. BRii <>
TEBAL:= BRii – BRi
BRii:= 23
BRi:= BRii – TEBAL
brs:= BRi
CASE GER = 1 .AND. KLi > 0 && HOME
LEBAR:= KLii – KLi
KLi:= 0
KLii:= KLi + LEBAR
kol:= KLi
CASE GER = 6 .AND. KLii <>
LEBAR:= KLii – KLi
KLii:= 77
KLi:= KLii – LEBAR
kol:= KLi
ENDCASE
RESTORE SCREEN FROM LAY_GER
RESTSCREEN(BRi, KLi, BRii, KLii, GERAKAN)
SHADOW(BRi, KLi, BRii, KLii)
ENDDO
RETURN

Categories: Clipper | 3 Komentar

Navigasi pos

3 thoughts on “Prosedur Gerak di Clipper

  1. rizal

    bagaimana caranya mendownload clipper 5.2?kalau harus beli cd-nya,kira-kira berapa harganya?

  2. rizal

    kalau ada linknya aku minta tolong kirim ke goku_aan@yahoo.com

  3. rizal

    bagaimana caranya mendownload clipper 5.2? apa alamat url-nya? tolong kirim jawabanya ke alamat e-mail ku “goku_aan@yahoo.com” saya butuh. kalau harus beli berapa harganyaa ?

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

Buat situs web atau blog gratis di WordPress.com.

%d blogger menyukai ini: