1 / 28

Program Aplikasi untuk penghitungan aritmetika dan manajemen data

Program Aplikasi untuk penghitungan aritmetika dan manajemen data. Pertemuan 10. Membuat program aplikasi. Menuliskan program Menjalankan program. Mengatur lingkungan ( environtment ). Sebelum memulai sesi VFP, sebaiknya direktori kerja diatur :

bree-jimenez
Download Presentation

Program Aplikasi untuk penghitungan aritmetika dan manajemen data

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Program Aplikasi untuk penghitungan aritmetika dan manajemen data Pertemuan 10

  2. Membuat program aplikasi • Menuliskan program • Menjalankan program

  3. Mengaturlingkungan (environtment) Sebelummemulaisesi VFP, sebaiknyadirektorikerjadiatur: • Buka Environment Manager: Tools Task Pane • Klik “Manage Environments” • Pilih “Default Directory / Path” • Klikuntukmemilihdirektorikerja yang diinginkan • KlikOK …

  4. Nama File ditulis? Tidak Buka file baru: ProgramN Ya Ditemukan nama file yang sama? Tidak Buka file baru: NamaFileProgram Ya Edit file lama: NamaFileProgram Menulis program aplikasi Membuat/membuka file programdarilayar Command: MODIFY COMMAND NamaFileProgram Nama file program tidakharussamadengannamaprosedur!!!

  5. Menjalankan program aplikasi Dari layar Command: SET PROC TO NamaFileProgram (membuka file program) DO NamaProsedur (menjalankanprosedur yang adadi file program) Dari layar menu • Buka file program File  Open  Program (pilihnama file program yang akandibuka)  OK • Setelah file terbuka, klikikon “ ! “ Program yang dijalankandari menu adalah program keseluruhan, tidakdapatdigunakanuntukmemilihprosedurtertentu

  6. Contohkasus Data mahasiswa yang terdiridari: NIM, JenisKelamin, Nilai A danNilai B Diinginkan: • Menghitung rata-rata nilaisetiaporang • Menghitung rata-rata nilaisetiappelajaran • Menghitung rata-rata menurutjeniskelamin • Menambah record • Menghapus record • Memperbaikinilai

  7. Membuattabel Cara 1: darilayar menu • File  New  Table  New File (tuliskanNamaTabel yang diinginkan)  Save • Dari tabel designer yang terbuka: Definisikan field yang diperlukanuntuksetiap record: • Name (Nama field) • Type (Jenis data) • Width (lebarkarakter) • Decimal (banyaknya digit desimal, jikadiperlukan) Setelahselesaiklik OK

  8. Membuattabel Cara 2: Menggunakan program • Perintah yang digunakanadalah: CREATE TABLE NamaTabel ; (NamaField1JenisData[( nLebarField[, nPresisi] )] , ; NamaField2JenisData [( nLebarField [, nPresisi] )], … )

  9. Membuattabel Contoh • Dari layar command ketik: MODI COMM BuatTabel • kemudianbuatprosedurBuatTabel program Tandatitikkoma “;” diakhirbarismenunjukkanbahwabarisberikutnyamerupakansambungandaribaris yang bersangkutan

  10. Membuattabel • Dari layar command ketik: DO BuatTabel DIR • Cekapakahnama file NilaiMHS.dbf sudahada? • Jikasudahada, darilayar command: BROWSE • Di layarakanditampilkanstruktur file NilaiMHS yang masihkosong (data belumdientri)

  11. Entri data Cara 1: DARI LAYAR Command • Eksekusiurutanperintahberikut CLOSE ALL  USE NilaiMHSEXCLUSIVE  APPEND  • Di layarakanditampilkan Untukentri data Setelahselesai: simpandantutuplayarnya Entri 5 data mahasiswadengancaraini!

  12. Entri data Cara 2: Dengan program • Dari layar command: • MODI COMM EntriData • KemudianketikprosedurEntriData • Dari layar command • DO EntriData • Entri 5 data sisanyadengancaraini! program

  13. Menghitung rata-rata • Rata-rata nilaisetiaporang AvgNilai = (NilaiA + NilaiB) /2 • Rata-rata nilaisetiappelajaran AVERAGENilaiA TO AvgA AVERAGENilaiB TO AvgB AVERAGE (NilaiA+NilaiB)/2 TO AvgT • Rata-rata nilaimenurutjeniskelamin AVERAGENilaiA FOR SEX = “L”TO AvgAL AVERAGENilaiB FOR SEX = “L”TO AvgBL AVERAGE (NilaiA+NilaiB)/2 FOR SEX = “L”TO AvgTL …

  14. Menghitung rata-rata • Dari layar command MODI COMM HitungAvg • KetikprosedurHitungAvg • Dari layar command DO HitungAvg program

  15. Manajemen data • Menambah record gunakan prosedur DataEntri • Menghapus record • Memperbaikinilai

  16. Menghapus record • Dari layar command MODI COMM DelData • KetikprosedurDelData • Dari laya command DO DelData Field kunci yang digunakanuntukmenghapus data adalah NIM!!! program

  17. Memperbaiki data • Dari layar command MODI COMM UpdData • KetikprosedurUpdData • Dari laya command DO UpdData Field kunci yang digunakanuntukmemperbaiki data adalah NIM!!! program

  18. Program pembuatan tabel PROCEDURE BuatTabel CREATE TABLE NilaiMHS; (NIM INT, ; SEX CHAR(1), ; NilaiA n(6,2), ; NilaiB n(6,2) ; ) CLOSE DATABASES ENDPROC kembali

  19. Program entri data PROCEDURE EntriData CLEAR mJmlRec = 0 input 'Isikan banyaknya record yang akan dientri: ' to mJmlRec IF mJmlRec > 0 then USE NilaiMHS EXCLUSIVE FOR Cntr = 1 TO mJmlRec CLEAR GOTO bottom mLastRec = RECNO()+1 ?'Entri record nomor: ' + STR(mLastRec)

  20. Program entri data INPUT 'NIM: ' to mNIM DO WHILE .T. ACCEPT 'JenisKelamin: ' to mSEXi mSEX = UPPER(SUBSTR(mSEXi,1,1)) IF mSEX = 'L' OR mSEX = 'P' THEN EXIT ELSE ?? ' *** jenis kelamin harus L atau P' ENDIF ENDDO

  21. Program entri data INPUT 'Nilai pelajaran A: ' to mNilaiA INPUT 'Nilai pelajaran B: ' to mNilaiB APPEND BLANK REPLACE NIM WITH mNIM REPLACE SEX WITH mSEX REPLACE NilaiA WITH mNilaiA REPLACE NilaiB WITH mNilaiB ENDFOR ENDIF CLOSE DATABASES ENDPROC kembali

  22. Program hitung rata-rata PROCEDURE HitungAvg LOCAL mJmlRec as Integer USE NilaiMHS EXCLUSIVE mJmlRec = RECCOUNT() DIMENSION AvgNilai[mJmlRec,5] * menghitung rata-rata perorangan FOR i = 1 TO mJmlRec GOTO i AvgNilai[i,1] = NIM AvgNilai[i,2] = SEX AvgNilai[i,3] = NilaiA AvgNilai[i,4] = NilaiB AvgNilai[i,5] = (NilaiA + NilaiB)/2 ENDFOR

  23. Program hitung rata-rata * menghitung rata-rata per pelajaran AVERAGE NilaiA TO AvgA && nilaiA AVERAGE NilaiB TO AvgB && nilaiA AVERAGE (NilaiA+NilaiB)/2 TO AvgT && rata-rata * rata-rata nilai untuk laki-laki AVERAGE NilaiA TO AvgAL FOR SEX = "L" && nilaiA AVERAGE NilaiB TO AvgBL FOR SEX = "L" && nilaiA AVERAGE (NilaiA+NilaiB)/2 TO AvgTL FOR SEX = "L" && rata-rata * rata-rata nilai untuk perempuan AVERAGE NilaiA TO AvgAP FOR SEX = "P" && nilaiA AVERAGE NilaiB TO AvgBP FOR SEX = "P" && nilaiA AVERAGE (NilaiA+NilaiB)/2 TO AvgTP FOR SEX = "P" && rata-rata

  24. Program hitung rata-rata * mencetak hasil ke layar CLEAR ?'Nilai rata-rata perorangan' ?'==========================================' ?' NIM J.KEL Nilai-A Nilai-B Rata-rata' ?'==========================================' FOR i = 1 TO mJmlRec ?' ' ?? AvgNilai[i,1] picture '999' ??' ' ?? AvgNilai[i,2] picture 'U' ?? ' ' ?? AvgNilai[i,3] picture '999.99' ?? ' ' ?? AvgNilai[i,4] picture '999.99' ?? ' ' ?? AvgNilai[i,5] picture '999.99' ENDFOR ?'==========================================' ?‘’

  25. Program hitung rata-rata ?'Nilai rata-rata menurut jenis kelamin:' ?' Nilai-A Nilai-B Rata-rata' ?'Laki-laki: '+STR(AvgAL,6,2)+; +' '+STR(AvgBL,6,2)+; +' '+STR(AvgTL,6,2) ?'Perempuan: '+STR(AvgAP,6,2)+; +' '+STR(AvgBP,6,2)+; +' '+STR(AvgTP,6,2) ?'L+P : '+STR(AvgA,6,2)+; +' '+STR(AvgB,6,2)+; +' '+STR(AvgT,6,2) ENDPROC kembali

  26. Program update data PROCEDURE UpdData * updating USE NilaiMHS EXCLUSIVE input 'Isikan NIM mahasiswa yang akan diperbaiki nilainya:' to mNIM LOCATE FOR NIM = mNIM IF FOUND()= .T. THEN ?'NIM:'+STR(NIM,3) INPUT 'NIM Baru: ' to mNIM DO WHILE .T. ?'Jenis Kelamin: '+ SEX ACCEPT 'Jenis Kelamin baru: ' to mSEXi mSEX = UPPER(SUBSTR(mSEXi,1,1)) IF mSEX = 'L' OR mSEX = 'P' THEN EXIT ELSE ?? ' *** jenis kelamin harus L atau P' ENDIF ENDDO

  27. Program update data ?'Nilai pelajaran A: ' + STR(NilaiA,6,2) INPUT 'Nilai pelajaran A baru: ' to mNilaiA ?'Nilai pelajaran B: ' + STR(mNilaiB,6,2) INPUT 'Nilai pelajaran B baru: ' to mNilaiB APPEND BLANK REPLACE NIM WITH mNIM REPLACE SEX WITH mSEX REPLACE NilaiA WITH mNilaiA REPLACE NilaiB WITH mNilaiB ELSE ?'NIM tidak ditemukan!!!' ENDIF ENDPROC kembali

  28. Program hapus data PROCEDURE DelData USE NilaiMHS EXCLUSIVE input 'Isikan NIM mahasiswa yang akan dihapus datanya:' to mNIM LOCATE FOR NIM = mNIM IF FOUND()= .T. THEN DELETE FOR NIM = mNIM PACK ELSE ?'NIM tidak ditemukan!!!' ENDIF ENDPROC kembali

More Related