MENSORT KELAS DI PROGRAM QBASIC

LANGKAH  1

Buka QBASIC

LANGKAH 2

Ketik koding pertama seperti ini

‘DEKLARASI RECORD TYPE MHS

CLS

TYPE MHS

NAMA AS STRING * 20

NPM AS STRING * 10

KELAS AS STRING * 10

END TYPE

INPUT "MASUKAN JUMLAH MAHASISWA"; JM

‘DEKLARASI ARRAY MAHASISWA BERDASARKAN RECORD TYPE MHS DAN MENGISI DATA

DIM MAHASISWA(JM) AS MHS

FOR I = 1 TO JM STEP 1

PRINT " RECORD KE-"; I

INPUT "NPM:", MAHASISWA(I).NPM

INPUT "NAMA:", MAHASISWA(I).NAMA

INPUT "KELAS:", MAHASISWA(I).KELAS

NEXT I

‘TAMPILAN OUTPUT

CLS

PRINT "DATA MAHASISWA"

PRINT "**************"

PRINT

PRINT "-----------------------------------"

PRINT "NPM             NAMA          KELAS"

PRINT "-----------------------------------"

‘MENAMPILKAN DATA KE DALAM TABEL

FOR I = 1 TO JM

PRINT MAHASISWA(I).NPM; MAHASISWA(I).NAMA; MAHASISWA(I).KELAS

NEXT I

PRINT "-----------------------------------"

END

'MENGURUTKAN DATA SESUAI KELAS

FOR I = (JM - 1) TO 1 STEP -1

SEMPURNA = 1

FOR J = 1 TO I

IF MAHASISWA(J).KELAS > MAHASISWA(J + 1).KELAS THEN

SWAP MAHASISWA(J), MAHASISWA(J + 1)

SEMPURNA = 0

END IF

NEXT J

IF SEMPURNA = 1 THEN

I = 0

END IF

NEXT I

‘TAMPILAN OUTPUT 

PRINT

PRINT "DATA MAHASISWA SESUDAH DI SORTING "

PRINT "***********************************"

PRINT

PRINT "====================================================="

PRINT "NPM            NAMA                          KELAS   "

PRINT "====================================================="

‘MENAMPILKAN DATA KE DALAM TABEL 

FOR I = 1 TO JM

PRINT MAHASISWA(I).NPM; MAHASISWA(I).NAMA; MAHASISWA(I).KELAS

NEXT I

PRINT "====================================================="

END

KET: Yang saya blog warna hijau merupakan koding sortnya

LANGKAH 3

Tekan F5 untuk me RUN program tersebut

Dan akan muncul seperti ini :

Dan saya memasukan 7 data

7 data tersebut antara lain:

Dan saya menginputnya sesuai yang di table agar outputnya bisa sesuai dengan table di atas.

Dan outputnya seperti ini sesuai dengan table di atas :

Sebelum di sorting

Sesudah di sorting

Untuk membuktikanya saya sudah mensertakan link untuk mendownload program ini

DOWNLOAD : http://www.4shared.com/file/jGTM4JWC/MUHAMMAR.html?