TUGAS FOXBASE

Dalam tugas akhir sebelum ujian semester tugas numpuk,,,
namun ada satu yang bikin kecanduan kalo bikinnya,,
bagi pemula ne mungkin sangat bermanfaat unruk pembelajaran
smoga smua senang dengan ini….
ini merupakan tugas yang saya buat sendiri

“”

* TUGAS PROGRAM REGISTRASI MAHASISWA

PROGRAM MENU

SET TALK OFF

SET STAT OFF

CLEAR PROGRAM

DO WHILE .T.

CLEAR

PILIHAN = SPACE(1)

SET COLOR TO GR+

@5,10 to 18,60 DOUBLE

SET COLOR TO W

@4,8 TO 20,62 DOUBLE

@4,20 SAY “<<<<**********!!!!********>>>>”

@20,20 SAY “<<<<*********THANKS*******>>>>”

SET COLOR TO GR+

@8,11 to 8,59 DOUBLE

@8,11 SAY “*************************************************”

@16,11 SAY “*************************************************”

SET COLOR TO R

@19,12 SAY “ <<<>>> “

SET COLOR TO BG

@6,17 say “ UNIVERSITAS PUTRA INDONESIA YPTK “

@7,17 say “ REGISTRASI MAHASISWA BARU “

SET COLOR TO W

@9,18 say “ <<<< MENU PILIHAN >>>> “

SET COLOR TO RB

@10,15 SAY “1>. REGISTRASI MAHASISWA”

@12,15 SAY “2>. INFORMASI REGISTRASI MAHASISWA”

@14,15 SAY “3>. KELUAR”

SET COLOR TO W*

@17,15 SAY “MASUKKAN PILIHAN ANDA (1/2/3) ?” GET PILIHAN PICT”@!”

READ

SET COLOR TO

DO CASE

CASE PILIHAN = “1″

DO REGIS

CASE PILIHAN = “2″

DO INFO

CASE PILIHAN = “3″

CLEAR

SET COLOR TO W

@6,27 SAY ” PROGRAM REGISTRASI MAHASISWA “

@8,27 SAY “ UPI YPTK PADANG “

SET COLOR TO GR+*

@10,27 SAY “ BY. FARADIKA “

SET COLOR TO R

@12,27 SAY” NO BP : 07101152610783 “

EXIT

ENDCASE

ENDDO

CLOSE DATABASE

RETURN

* PROGRAM REGISTRASI

SET TALK OFF

SET STAT OFF

CLEAR PROGRAM

USE REGISTRASI

DO WHILE .T.

CLEAR

NORE = 0

NM = SPACE(20)

KOF = SPACE(3)

NF = SPACE(10)

U_REGIS = 85000

U_PEMB = 150000

CICIL1 = 0

CICIL2 = 0

STORE SPACE(1) TO DSB, MAD

SET COLOR TO GR+

@5,10 TO 21,60 DOUBLE

@7,11 TO 7,59 DOUBLE

@18,11 TO 18,59 DOUBLE

SET COLOR TO R

@6,22 SAY ” REGISTRASI MAHASISWA BARU “

SET COLOR TO W

@9,14 SAY “NOMOR REGISTRASI = ” GET NORE PICT”9999″

@10,14 SAY “NAMA = ” GET NM

@11,14 SAY “KODE FAKULTAS = ” GET KOF

SET COLOR TO R

@13,17 SAY “Silahkan Isi Data Diatas !!!!”

@14,17 SAY “Untuk Melanjutkan Tekan Enter”

read

SET COLOR TO

IF KOF = “001″

NF = “FILKOM”

ELSE

IF KOF = “002″

NF = “FEKON”

ELSE

NF = “PSIKOLOGI”

ENDIF

ENDIF

@12,14 SAY “NAMA FAKULTAS = ” +NF

@13,17 SAY “UANG REGISTRASI = Rp. ” +STR(U_REGIS)

@14,17 SAY “UANG PEMBANGUNAN = Rp. ” +STR(U_PEMB)

@15,17 SAY “UANG SEMESTER”

@16,19 SAY ” CICILAN 1 = Rp. ” GET CICIL1

@17,19 SAY ” CICILAN 2 = Rp. ” GET CICIL2

SET COLOR TO R*

@19,14 SAY ” DATA SUDAH BENAR [Y/T] ?” GET DSB PICT”@!”

READ

SET COLOR TO R

@20,14 SAY ” MASIH ADA DATA [Y/T] ? ” GET MAD PICT”@!”

READ

IF DSB = “Y”

APPEND BLANK

REPLACE NOREG WITH NORE

REPLACE NAMA WITH NM

REPLACE KF WITH KOF

REPLACE NAF WITH NF

REPLACE CICIL_1 WITH CICIL1

REPLACE CICIL_2 WITH CICIL2

REPLACE UREG WITH U_REGIS

REPLACE PEMB WITH U_PEMB

ELSE

ENDIF

IF MAD = “Y”

LOOP

ELSE

EXIT

ENDIF

ENDDO

USE

RETURN

* PROGRAM ONFORMASI

SET TALK OFF

SET STAT OFF

GARIS = ” —————————————————————————”

@1,25 SAY “INFORMASI REGISTRASI MAHASISWA “

@2,25 SAY “ UNIVERSITAS PUTRA INDONESIA “

@3,25 SAY “===============================”

@4,1 SAY GARIS

@5,1 SAY “|”

@5,5 SAY “|”

@5,12 SAY “”

@5,23 SAY “|”

@5,29 SAY “|”

@5,44 SAY “UANG”

@5,67 SAY “|”

@5,77 SAY “|”

@7,1 SAY “|”

@7,5 SAY “|”

@7,12 SAY “|”

@7,23 SAY “|”

@7,29 SAY “|”

@6,1 SAY “|”

@6,2 SAY “NO”

@6,5 SAY “|”

@6,6 SAY “N0.REG”

@6,12 SAY “|”

@6,15 SAY “NAMA”

@6,23 SAY “|”

@6,24 SAY “K.FAK”

@6,29 SAY “|”

@6,29 SAY “|————————————–”

@6,67 SAY “|”

@6,69 SAY “TOTAL”

@6,77 SAY “|”

@7,30 SAY “REGISTRASI”

@7,40 SAY “|”

@7,41 SAY “PEMBNGNAN”

@7,50 SAY “|”

@7,51 SAY “CICIL1″

@7,58 SAY “|”

@7,59 SAY “CICIL2″

@7,67 SAY “|”

@7,77 SAY “|”

@8,1 SAY GARIS

USE REGISTRA

GO TOP

STORE 0 TO NOMOR, BARIS

DO WHILE .NOT. EOF()

TOT=0

BARIS=BARIS+1

IF BARIS >=22

@22,1 SAY GARIS

WAIT “LANJUTKAN…TEKAN ENTER…!!”

@6,1 CLEAR

@6,1 SAY GARIS

@STORE 6 TO GARIS

ENDIF

NOMOR=NOMOR+1

TOT = UREG + PEMB + CICIL_1 + CICIL_2

@ROW()+1,1 SAY “|”

@ROW(),2 SAY NOMOR PICT”99″

@ROW(),5 SAY “|”

@ROW(),6 SAY NOREG PICT”99999″

@ROW(),12 SAY “|”

@ROW(),13 SAY NAMA

@ROW(),23 SAY “|”

@ROW(),24 SAY KF

@ROW(),29 SAY “|”

@ROW(),30 SAY UREG PICT”9999999″

@ROW(),40 SAY “|”

@ROW(),41 SAY PEMB PICT”9999999″

@ROW(),50 SAY “|”

@ROW(),51 SAY CICIL_1 PICT”9999999″

@ROW(),58 SAY “|”

@ROW(),59 SAY CICIL_2 PICT”9999999″

@ROW(),67 SAY “|”

@ROW(),68 SAY TOT PICT”99999999″

@ROW(),77 SAY “|”

SKIP 1

ENDDO

@ROW()+1,1 SAY GARIS

WAIT ” DATA TELAH HABIS….TEKAN ENTER…!!!! “

USE

RETURN

Semoga Bermanfaat..Trims

Share this post