Sobat programmer semua, sudah satu bulan yaah ngak ketemu. Kangbahor kembali ingin mengajak sobat semua untuk berkreasi membuat suatu program yang berjalan pada platform DOS (Disk Operating System) yaitu Basic. Untuk penjelasan tentang Bahasa Pemrograman Basic akan dijelaskan pada bagian yang lain.
Nah pada project kita kali ini adalah membuat sebuat entry data pegawai. Akan tetapi pada kasus berikut ini kita hanya akan menggunakan satu tabel dulu. Untuk relasi 2 (dua) tabel akan saya upload pada bagian selanjutnya. Okey!!!!!!!
Berikut tampilan hasil kompilasi program yang akan kita buat :
Bagaimana membuat project diatas pada Basic? Ayo kita lakukan sekarang…..
Jalankan program Basic anda. Kemudian buat sebuah file baru pada menu file > new.
Setelah itu ketikkan kode program berikut ini :
======================================================================
OPEN “R”,#1,”PGW.DAT”,34
FIELD #1,4 AS NIP$,20 AS NAMA$,10 AS TGL.LAHIR$
CLS
LOCATE 3,30: PRINT “ DATA PEGAWAI”
LOCATE 4,30: PRINT “————————-
LOCATE 5,30: PRINT “ NIP= “
LOCATE 6,30: PRINT “ NAMA= “
LOCATE 7,30: PRINT “TGL.LAHIR= “
LOCATE 8,30: PRINT “————————-
LOCATE 5,41: INPUT “”,XNIP$
IF XNIP$<>”" THEN
‘……..PENCARIAN DATA………
JDATA=LOF(1)/34
FOR X=1 TO JDATA
GET #1,X
IF NIP$=XNIP$ THEN EXIT FOR
NEXT X
IF NIP$=XNIP$ THEN
LOCATE 6,41 : PRINT NAMA$
LOCATE 7,41 : PRINT TGL.LAHIR$
LOCATE 9,33 : PRINT “DATA SUDAH ADA
ELSE
LOCATE 6,41: INPUT “”,XNAMA$
LOCATE 7,41: INPUT “”,XTGL.LAHIR$
LSET NIP$=XNIP$
LSET NAMA$=XNAMA$
LSET TGL.LAHIR$=XTGL.LAHIR$
JDATA=LOF(1)/34
PUT #1,JDATA+1
LOCATE 10,33 : PRINT “DATA TELAH DISIMPAN!”
CLOSE #1
END IF
END IF
CLOSE #1
END
========================================================================================
Nah setelah anda membuat kode program diatas pada tampilan aplikasi Basic anda, silahkan anda Compile / Dijalankan dengan menekan Alt + R maka hasilnya dapat dilihat seperti gambar diatas. Nah untuk mengecek data anda benar2 tersimpan atau tidak anda bisa cek dengan memasukkan kembali data yang sudah anda masukkan sebelumnya. Apabila hasilnya seperti gambar berikut maka anda berhasil:
Perhatikan kode programmnya. Apabila ada pertanyaan maka silahkan kasi komen pada box comment dibawah atau kirim Email ke : m.bukhorimuslim@yahoo.co.id
Selamat Mencoba.
Pembuatan animasi teks dengan basic dos
Turbo basic (TB) merupakan Bahasa Pemrograman yang berjalan pada platform DOS. Kali ini project kita adalah untuk membuat suatu program animasi sederhana menggunakan Bahasa Pemrograman Turbo Basic. Animasi teks yang akan kita buat adalah kata “HALLO” yang berjalan mengelilingi layar monitor. Bagaimana programnya? Sederhana saja hanya bermain logika dan perulangan. Pada listing programnya saya menggunakan perulangan “FOR” Berikut listingnya.
Apabila listing program diatas di kompile maka hasilnya akan tampak seperti gambar berikut ini :
Kata HALLO akan berjalan mengelilingi tampilan program. Apa yang menyebabkan hal tersebut? Berikut penjelasan tentang listing programnya.
- Perintah CLS (Clear Screen) merupakan perintah untuk membersihkan layar / tampilan.
- FOR variable=(nilai awal) to (nilai akhir)
next (variable)
{ merupakan format untuk perulangan FOR pada Turbo Basic}
- LOCATE merupakan penentuan lokasi pada layar tampilan. Monitor terdiri dari 24 baris dan 80 kolom. Jadi apabila terdapat lokasi program seperti ini (LOCATE 2,15) Berarti berada pada baris ke-2 kolom ke-15. Terus bagaimana dengan lokasi ini (LOCATE 1,K) Berarti terletak pada baris ke-1 kolom ke-K (Nilai K tergantung nilai variable yang diberikan seperti for diatas)
- STEP -1 (Pengurangan satu angka dari nilai yang ditentukan)
- DELAY 0.1 merupakan waktu / kecepatan berjalan kata (”HALLO”) Apabila ingin diset lebih cepat makan diset lebih besar nilai DELAY-Nya.
Note :
LIsting diatas berlaku pada Bahasa Pemrograman Turbo Basic. Apabila anda menggunakan format lain maka listing juga berbeda.
Selamat Mencoba dan Selamat Berkreasi.
