Membuat Sub Program untuk mencari data di Quick Basic

setelah anda sudah membuat code program untuk isi data maka anda tentunya akan membuat juga code untuk mencari data yang telah anda isikan/data yang sudah tersimpan. Berikut codenya :

SUB caridata

COLOR 0, 10

CLS

DIM ketemu AS INTEGER

jmlrec = LOF(1) / LEN(siswa)

CALL kotak(2, 2, 15, 40, 7, 1, 0)

COLOR 5, 1: LOCATE 3, 3: PRINT ".: Form Pencarian Data"

COLOR 5, 1: LOCATE 4, 3: PRINT "======================"

COLOR 0, 1

LOCATE 6, 3: INPUT "Masukan NIM yang dicari :", cari$

ketemu = 0

SEEK #1, 1

FOR i = 1 TO jmlrec

GET #1, i, siswa

IF RTRIM$(siswa.nim) = RTRIM$(cari$) THEN

ketemu = 1

EXIT FOR

END IF

NEXT

IF ketemu = 1 THEN

LOCATE 7, 3: PRINT "Data ditemukan..."

x$ = INPUT$(1)

LOCATE 7, 3: PRINT SPACE$(20)

GET #1, i, siswa

LOCATE 8, 3: PRINT "Nim :"; siswa.nim

LOCATE 9, 3: PRINT "Nama :"; RTRIM$(siswa.nama)

IF siswa.jk = 1 THEN jkel$ = "Pria" ELSE jkel$ = "Wanita"

LOCATE 10, 3: PRINT "Jenis Kelamin :"; jkel$; ""

LOCATE 11, 3: PRINT "Alamat :"; RTRIM$(siswa.alamat)

LOCATE 12, 3: PRINT "Kota :"; RTRIM$(siswa.kota)

SELECT CASE siswa.jurusan

CASE 1

jur$ = "Inforkom"

CASE 2

jur$ = "Kasimapurel"

CASE 3

jur$ = "KabapEksim"

CASE 4

jur$ = "Degrakom"

CASE ELSE

jur$ = "Kosong"

END SELECT

LOCATE 13, 3: PRINT "Jurusan :"; jur$

ELSE

LOCATE 4, 3: PRINT "Data tidak ditemukan.."

END IF

x$ = INPUT$(1)

CALL menuutama

END SUB

tulisan yang berkaitan :

Membuat code Sub Program Hapus Data