Membuat Program tambah

Pada kesempatan ini saya akan membahas bagaimana cara membuat program tambah dengan menggunakan foxpro underdos. Untuk itu anda harus mempunyai program foxpro untuk praktek kita kali ini. Apabila anda tidak mempunyai foxpro anda dapat mencari di google dengan kata kunci "download foxpro under dos". Setelah di download lalu extrack file yang anda download tadi. Lalu jalankan file applikasinya.

Membuat program tambah :
1. Buka foxpro under dos, maka akan terlihat seperti di bawah ini :

ketikkan pada command set default to f:\ "tekan enter"
create "tekan enter"
2. Perhatikan gambar di bawah

Masukkan nama dari database, misalnya saya beri nama tambah, pilih create.
kemudian akan muncul seperti gambar di bawah :

 

Masukkan database setelah selesai lalu oke. Maka akan muncul pertannyaan Input data record now? Pilih no.
3. Maka kita akan kembali ke tampilan awal tadi 

ketikkan di command : 
use tambah "tekan enter"
index on nim to nnidx "tekan enter"
Setelah berhasil maka akan nampak 0 key generated
Lalu ketikkan kembali di command :
modify command tmb.prg "tekan enter"
Isikan code program seperti di gambar


close all
close database
set default to f:\
set date british
use tambah.dbf inde nnidx
clear
vnm=space(20)
vnim=space(8)
vprodi=space(20)
@ 10,10 say "PROGRAM TAMBAH"
@ 11,10 say "Nama =" get vnm
@ 12,10 say "NIM=" get vnim
@ 13,10 say "Prodi=" get vprodi
read
clear
append blank
replace nama with vnm, NIM with vnim,prodi with vprodi

lalu save.

3. Menjalankan program

Ketikkan : 
do tmb.prg
maka akan terlihat gambar seperti di bawah :

Masukkan data terserah anda. Setelah selesai enter. Jika berhasil maka akan akan muncul tulisan 1 replacements.
4. Untuk melihat hasilnya dengan cara mengetikkan list pada command.



Keterangan :
Set default to f:\ = Tujuan file yang akan di tempatkan
create = Membuat database baru
close all= keluar semua.
close database= keluar dari database
set date british =  Menampilkan tanggal dengan format inggris
index on nim to nnidx= Mengaktifkan nim dengan nama record nn
use tambah.dbf inde nnidx = Mengaktifkan database dan record
vnm=space(20) " merupakan variabel dengan nama vnm
@ 10,10 say "PROGRAM TAMBAH" = Mencetak PROGRAM TAMBAH dengan baris 10 dan kolom 10
append blank = Membuka record baru
do tmb.prg = Menjalankan program
replace nama with vnm, NIM with vnim,prodi with vprodi  = Untuk mencetak hasil



Label:

0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)

Pengikut