1 / 28

Pengaturan output untuk tampilan: layar, printer dan file

Pengaturan output untuk tampilan: layar, printer dan file. Pertemuan 11. Menampilkan hasil pengolahan. Untuk menampilkan isian variabel memori dan nilai field dapat digunakan perintah: ? : untuk mencetak ke layar VFP, mulai dari kolom pertama

redell
Download Presentation

Pengaturan output untuk tampilan: layar, printer dan file

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. Pengaturan output untuk tampilan: layar, printer dan file Pertemuan 11

  2. Menampilkan hasil pengolahan • Untuk menampilkan isian variabel memori dan nilai field dapat digunakan perintah: ?: untuk mencetak ke layar VFP, mulai dari kolom pertama ?? : mencetak mulai dari kolom berikutnya setelah pencetakan sebelumnya

  3. Menampilkan hasil pengolahan • Sesuai dengan default VFP, perintah ‘?’ dan ‘??’ akan mencetak atau menampilkan informasi ke layar VFP • VFP menyediakan menyediakan fasilitas untuk mencetak hasil dari perintah ‘?’ dan ‘??’ ke • Layar window pengguna (user defined window) • Ke printer • Ke file teks

  4. Menampilkanhasilkelayar

  5. Membuat Window • Perintahnya: DEFINE WINDOW NamaWindow1FROMnRow1, nColumn1 TOnRow2, nColumn2 | ATnRow3, nColumn3SIZE nRow4, nColumn4 [IN [WINDOW] NamaWindow2 | IN SCREEN | IN DESKTOP [NAMEObjectName] [FONT cFontName [, nFontSize [, nFontCharSet]]] [STYLE cFontStyle] [FOOTER cFooterText] [TITLE cTitleText] [HALFHEIGHT] [DOUBLE | PANEL | NONE | SYSTEM | cBorderString] [CLOSE | NOCLOSE] [FLOAT | NOFLOAT] [GROW | NOGROW] [MDI | NOMDI] [MINIMIZE | NOMINIMIZE] [ZOOM | NOZOOM] [ICONFILE FileName1] [FILL cFillCharacter | FILLFILE FileName2] [COLORSCHEME nSchemeNumber | COLOR ColorPairList]]

  6. Sebelumlatihan • Aturdirektori/folder: tools  task pane  environment manager • Untukmemudahkan, buatsatu file untuksatuprosedur • Membuat file: modify com..

  7. Membuat Window • Latihan-1: PROCEDURE layar_00 CLEAR DEFINE WINDOW wInduk ; && membuat layar induk FROM 1, 1 TO 30, 40 ; && Uukuran layar IN SCREEN ; && ditampilkan di layar aktif TITLE "Layar induk" ; && judul yang tercetak di layar CLOSE && menampilkan 'X' di pojok kanan atas layar ACTIVATE WINDOW wInduk && mengaktifkan wInduk ? 'INI LAYAR INDUK' && menampilkan tulisan di layar ENDPROC

  8. Membuat Window • Latihan-2: PROCEDURE layar_00 CLEAR DEFINE WINDOW wInduk ; && membuat layar induk FROM 1, 1 TO 30, 40 ; && Uukuran layar IN DESKTOP; && ditampilkan di layar desktop TITLE "Layar induk" ; && judul yang tercetak di layar CLOSE && menampilkan 'X' di pojok kanan atas layar ACTIVATE WINDOW wInduk && mengaktifkan wInduk ? 'INI LAYAR INDUK' && menampilkan tulisan di layar ENDPROC

  9. Membuat Window Latihan-3: sisipkan perintah berikut sebelum ENDPROCpada Latihan-2 DEFINE WINDOW wAnak ; && membuatlayaranak FROM 1, 1 TO 20, 20 ; && ukuran layar TITLE "Layar anak" ; && judul layar FONT 'Calibri',14 ; && font yg digunakan di layar CLOSE ; && menampilkan ‘X’ utk menutup GROW ; && utk sesuaikan ukuran dg drag FLOAT ; && layar dpt dipindah dg drag IN WINDOW wInduk && layar berada di dalam wInduk. ACTIVATE WINDOW wAnak && mengaktifkan wAnak ?'INI LAYAR ANAK‘ && menampilkan tulisan di wAnak

  10. Menutup Window • Jika fasilitas ‘X’ (untuk menutup layar) di pojok kanan layar (dengan tambahan CLOSE pada saat dibuat), suatu layar dapat ditutup dengan perintah RELEASE WINDOW layar-1,layar-2,...

  11. Menutup Window ACTIVATE SCREEN WAIT WINDOW 'Entri data sudahselesai, tekansembarang key untukmenutuplayar!!' RELEASE WINDOW wInduk CLEAR

  12. Mengirimhasilke printer

  13. Mengirim tampilan ke printer • Perintah yang digunakan SET PRINTER ON [PROMPT] | OFF SET PRINTER FONT cFontName [, nFontSize [, nFontCharSet]] [STYLE cFontStyle] SET PRINTER TO [FileName [ADDITIVE] | PortName] SET PRINTER TO [DEFAULT | NAME WindowsPrinterName] SET PRINTER TO NAME \\ServerName\PrinterName

  14. Mengirim tampilan ke printer SET PRINTER ON [PROMPT] | OFF Untuk mengaktifkan/menon-aktifkan printer SET PRINTER FONT cFontName [, nFontSize [, nFontCharSet]] [STYLE cFontStyle] Untuk mengatur font yang digunakan printer SET PRINTER TO NAME nama-printer Memilih nama printer yang digunakan. Untuk mengetahui nama printer aktif dpt digunakan perintah: GETPRINTER()

  15. Mengirim tampilan ke printer Latihan-4: PROCEDURE printer_00 SET PRINTER TO NAME GETPRINTER()&& ke printer aktif SET PRINTER ON&& mengaktifkan printer ?' 1 COBA CETAK DARI PROSEDUR PRINTER_00' SET PRINTER OFF&& menonaktifkan printer ENDPROC

  16. Menyimpanhasilke file teks

  17. Mengirim tampilan ke file teks Perintah: SET PRINTER TO nama-file [ADDITIVE] Dengan menambahkan perintah ADDITIVE, maka tampilan akan ditambahkan ke isian file yang ada Jika tidak dituliskan ADDITIVE, maka file lama (jika ada) akan ditimpa (overwrite)

  18. Mengirim tampilan ke file teks Latihan-5 PROCEDURE file_00 SET PRINTER TO 'outputfile_00.txt' SET PRINTER ON ?'cetak baris' SET PRINTER OFF SET PRINTER TO 'outputfile_00.txt' ADDITIVE SET PRINTER ON ?'cetak baris lagi' SET PRINTER OFF SET PRINTER TO ENDPROC

  19. Latihanmembuataplikasi

  20. Latihan-6 Dengan menggunakan data NilaiMHS.dbf buatlah program untuk menampilkan dengan menu: Menu 2: menampilkan hasil penghitungan ke layar Menu 1, 3 dan 4 menggunakan layar terpisah

  21. Solusi Latihan-6 INPUT ' *** Pilih menu: ' to mChoice DO CASE CASE mChoice = 1 ?’1-Entri data’ WAIT’’ CASE mChoice = 2 ?’2-HitungAvgLyr’ WAIT’’ CASE mChoice = 3 ?’3-UpdateData’ WAIT’’ CASE mChoice = 4 ?’4-DeleteData WAIT’’ CASE mChoice = 9 RELEASE WINDOWS lMenu EXIT OTHERWISE WAIT ' *** Pilihan menu salah *** ' ENDCASE

  22. Solusi Latihan-6 DO CASE CASE mChoice = 1 DO EntriData CASE mChoice = 2 DO HitungAvgLyr CASE mChoice = 3 DO UpdateData CASE mChoice = 4 DO DeleteData CASE mChoice = 9 RELEASE WINDOWS lMenu EXIT OTHERWISE WAIT ' *** Pilihan menu salah *** ' ENDCASE ENDDO ENDPROC PROCEDURE PengolahanMHS CLEAR DO WHILE .T. CLEAR ? ?' MENU PENGOLAHAN DATA MAHASISWA:' ? ?' 1. Entri Data' ?' 2. Hitung Rata-Rata Nilai' ?' 3. Perbaikan Data' ?' 4. Penghapusan Data' ?' 9. Keluar' INPUT ' *** Pilih menu: ' to mChoice DEFINE WINDOW lMenu ; FROM 1, 1 TO 30, 60 ; IN DESKTOP ; FONT 'courier',14; TITLE "Pengolahan data mahasiswa" ; GROW FLOAT CLOSE ACTIVATE WINDOW lMenu

  23. Solusi ELSE ?? ' *** jenis kelamin harus L atau P' ENDIF ENDDO 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 ACTIVATE SCREEN WAIT WINDOW 'Tekan sembarang key untuk menghapus screen' • RELEASE WINDOW wEntriData CLEAR CLOSE DATABASES ENDPROC DEFINE WINDOW wEntriData ; FROM 1, 1 TO 30, 60 ; TITLE "Entri Data Mahasiswa" && Parent window. ACTIVATE WINDOW wEntriData 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) INPUT 'NIM: ' to mNIM DO WHILE .T. ACCEPT 'Jenis Kelamin: ' to mSEXi mSEX = UPPER(SUBSTR(mSEXi,1,1)) IF mSEX = 'L' OR mSEX = 'P' THEN EXIT

  24. Solusi * 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 PROCEDURE HitungAvgLyr 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

  25. Solusi ?'==========================================' ?'' ?'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 DEFINE WINDOW lRata ; FROM 1, 1 TO 30, 60 ; IN DESKTOP ; FONT 'courier',14; TITLE "Nilai Rata-Rata" ; GROW FLOAT CLOSE ACTIVATE WINDOW lRata * mencetak hasil ke layar CLEAR 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

  26. Solusi IF mSEX = 'L' OR mSEX = 'P' THEN EXIT ELSE ?? ' *** jenis kelamin harus L atau P' ENDIF ENDDO ?'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 PROCEDURE UpdateData * updating USE NilaiMHS EXCLUSIVE CLEAR 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)) DEFINE WINDOW lUpdate ; FROM 1, 1 TO 30, 60 ; IN DESKTOP ; FONT 'courier',14; TITLE "Perbaikan data" ; GROW FLOAT CLOSE ACTIVATE WINDOW lUpdate

  27. Solusi PROCEDURE DeleteData USE NilaiMHS EXCLUSIVE CLEAR 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 DEFINE WINDOW lDelete ; FROM 1, 1 TO 30, 60 ; IN DESKTOP ; FONT 'courier',14; TITLE "Penghapusan data" ; GROW FLOAT CLOSE ACTIVATE WINDOW lDelete

  28. Terima kasih

More Related