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 " <<< PROGRAM BY. FARADIKA >>> "
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
