Langkah 2 : Ketikkan kode program berikut ini :
CLS
TYPE dtmhs
nm AS STRING * 30
npm AS STRING * 10
kls AS STRING * 5
END
TYPE
10
GOSUB Garis
LOCATE 2, 20
PRINT “Program Utama”
GOSUB Garis
PRINT
LOCATE 5, 4
PRINT “Menu :”
PRINT “1. Input Data Mahasiswa”
PRINT “2. Lihat Data Mahasiswa”
PRINT “3. Keluar”
INPUT “Masukkan Pilihan Anda [1-3] : “,
pilih$
SELECT CASE pilih1$
CASE “1”
GOTO 20
CASE “2”
GOTO 30
CASE “3”
GOTO 40
END SELECT
20
CLS
GOSUB Garis
LOCATE 2, 20
PRINT “Input Data”
GOSUB Garis
PRINT
INPUT “Banyaknya data yang akan diinput : “,
jml
PRINT
DIM jmldt(jml) AS dtmhs
FOR i = 1 TO jml STEP 1
PRINT “Record Ke-“, i
INPUT “Nama : “, jmldt(i).nm
INPUT “NPM : ”, jmldt(i).npm
INPUT “Kelas : “, jmldt(i).kls
NEXT i
PRINT
INPUT “*Data Akan Diurutkan Sesuai KELAS
Yang Diinput* [Tean Enter]”, jwb$
IF jwb$ = “Y” OR jwb$ = “y” THEN GOTO 20
ELSE GOTO 30
30
FOR i = (jml-1) TO 1 STEP -1
URUT = 1
FOR j = 1 TO i
IF jmldt(j).kls > jmldt(j+1).kls THEN
SWAP jmldt(j), jmldt(j+1)
URUT = 0
NEXT j
IF URUT = 1 THEN i = 0
NEXT
i
CLS
GOSUB Garis
LOCATE 2, 7
PRINT “Data Mahasiswa Setelah Proses
Sorting”
GOSUB Garis
PRINT
GOSUB Strip
PRINT “Nama NPM Kelas”
GOSUB Strip
FOR i = 1 TO jml
PRINT jmldt(i).nm; jmldt(i).npm;
jmldt(i).kls
NEXT i
GOSUB Strip
40
END
Garis:
PRINT
STRING$(50, “=”)
RETURN
Strip:
PRINT
STRING$(50, “-“)
RETURN
Langkah 3 : Simpan kode program yang sudah diketikan (Save As..) dengan nama file yang berekstensi *.BAS
Langkah 4 : Jalankan program (Run - Start) atau dengan menekan Shift+F5 secara bersamaan
Berikut adalah tampilan input dan output ketika program sudah dijalankan :
Klik DISINI untuk mendownload program.
Tidak ada komentar:
Posting Komentar