BELAJAR OPEN FILE DAN MANIFULASI STRING
"I"
(Input) – file dibuka hanya untuk dibaca.
"O"
(Output) – file dibuka hanya untuk ditulisi.
"A"
(Append) – file dibuka untuk menambah record.
untuk melakukan penulisan,
penambahan dan membaca ada 2 macam source code yang dapat di gunakan :
Pertama :
OPEN
"I", #1, "MAHASISWA.TXT"
OPEN
"O", #1, " MAHASISWA.TXT"
OPEN
"A", #1, " MAHASISWA.TXT"
Kedua :OPEN " MAHASISWA.TXT" FOR OUTPUT AS # 1
OPEN " MAHASISWA.TXT" FOR INPUT AS # 1
OPEN " MAHASISWA.TXT" FOR APPEND AS # 1
LANGSUNG UNTUK MENULIS DATA :
10 ' *** PROGRAM ISI DATA ***
15 OPEN "O", #1, "D:\DATA\SISWA.TXT"
20 CLS
30 INPUT "Nomor Induk Mahasiswa : ", NIM$
40 INPUT "Nama Mahasiswa : ", NAMA$
50 INPUT "Nilai Mahasiswa : ", NILAI
60 WRITE #1, NIM$, NAMA$, NILAI
70 INPUT " ISI DATA LAGI [Y/T] : ", JAWAB$
80 IF JAWAB$ = "Y" OR JAWAB$ = "y" THEN GOTO 20
90 CLOSE #1
100 END
MENAMBAH DATA :
10 ' *** PROGRAM TAMBAH DATA ***
15 OPEN "A", #1, "D:\DATA\SISWA.TXT"
20 CLS
30 INPUT "Nomor Induk Mahasiswa : ", NIM$
40 INPUT "Nama Mahasiswa : ", NAMA$
50 INPUT "Nilai Mahasiswa : ", NILAI
60 WRITE #1, NIM$, NAMA$, NILAI
70 INPUT " ISI DATA LAGI [Y/T] : ", JAWAB$
80 IF JAWAB$ = "Y" OR JAWAB$ = "y" THEN GOTO 20
90 CLOSE #1
100 END
MENGEDIT DATA :
10 CLS
20 OPEN "I", #1,
"D:\DATA\SISWA.TXT"
30 OPEN "O", #2,
"D:\DATA\BARU.TXT"
40 INPUT "NIM YANG AKAN
DIKOREKSI NILAINYA : ", NIMCARI$
50 PRINT
60 SWITCH = 0
70 WHILE NOT EOF(1)
80 INPUT #1, NIM$, NAMA$, NILAI
90 IF NIM$ <> NIMCARI$ THEN
GOTO 170
100 PRINT " NOMOR INDUK
MAHASISWA : "; NIM$
110 PRINT " NAMA MAHASISWA :
"; NAMA$
120 PRINT " NILAI MAHASISWA :
"; NILAI
130 PRINT
140 INPUT " NILAI YANG BARU : ", B$
150 SWITCH = 1
160 IF B$ <> "" THEN NILAI =
VAL(B$)
170 WRITE #2, NIM$, NAMA$, NILAI
180 WEND
190 CLOSE
310 KILL
"D:\DATA\SISWA.TXT"
320 NAME
"D:\DATA\BARU.TXT" AS "D:\DATA\SISWA.TXT"
330 IF SWITCH = 0 THEN PRINT
"MAAF, NIM TERSEBUT TIDAK ADA DALAM FILE!"
340 PRINT
350 INPUT "ADA KOREKSI LAGI
[Y/T] : ", KOREKSI$
360 IF KOREKSI$ = "y" OR
KOREKSI$ = "Y" THEN GOTO 10
370 END
MENGHAPUS DATA :
10 CLS
20 OPEN "I", #1, "D:\DATA\SISWA.TXT"
30 OPEN "O", #2,
"D:\DATA\BARU.TXT"
40 INPUT "NIM YANG AKAN
DIKOREKSI NILAINYA : ", NIMCARI$
50 PRINT
60 SWITCH = 0
70 WHILE NOT EOF(1)
INPUT #1, NIM$, NAMA$, NILAI
IF NIM$ <> NIMCARI$ THEN GOTO 171
PRINT " NOMOR INDUK MAHASISWA : "; NIM$
110 PRINT " NAMA MAHASISWA : "; NAMA$
120 PRINT " NILAI MAHASISWA : "; NILAI
PRINT
140 SWITCH = 1
INPUT "INGIN DIHAPUS DARI FILE [Y/T] : ", HAPUSOK$
IF HAPUSOK$ = "Y" OR HAPUSOK$ = "y" THEN GOTO 180
171 WRITE #2, NIM$, NAMA$, NILAI
180 WEND
190 CLOSE
310 KILL
"D:\DATA\SISWA.TXT"
320 NAME
"D:\DATA\BARU.TXT" AS "D:\DATA\SISWA.TXT"
330 IF SWITCH <> 1 THEN PRINT
"MAAF, NIM TERSEBUT TIDAK ADA DALAM FILE!"
340 PRINT
350 INPUT "ADA RECORD YANG AKAN
DIHAPUS LAGI [Y/T] : ", HAPUS$
360 IF HAPUS$ = "y" OR
HAPUS$ = "Y" THEN GOTO 10
370 END
CARA NGEPRINT DATA :
10 ' *** PROGRAM CETAK DATA ***
15 CLS
20 OPEN "I", #1,
"D:\DATA\SISWA.TXT"
30 IF EOF(1) THEN CLOSE #1: END
40 INPUT #1, NIM$, NAMA$, NILAI
PRINT NIM$, NAMA$, NILAI
60 GOTO 30
MANIPULASI STRING :
DIM Y AS STRING * 31
DIM Z AS LONG
HURUP$ = " AKU INGIN BELAJAR
MENCINTAI MU"
GABHUR = LEN(HURUP$)
X = 0
DO
CLS
LOCATE 12, 21
X = X + 1
IF X = GABHUR + 1 THEN X = 0
Y = MID$(HURUP$, X) + HURUP$
COLOR 10
PRINT Y
Z = 0
DO
Z = Z + 1
LOOP UNTIL Z = 100000000
LOOP UNTIL CEP$ <>
""
END
Tidak ada komentar:
Posting Komentar