1 / 10

LOGIKA ALGORITMA

LOGIKA ALGORITMA. Handouts  Oleh. Rachmat Budi Basuki S.Kom. MULAI BAGIAN X(KESEPULUH). PENGOLAHAN DATA FILE. ”File digunakan sebagai tempat menyimpan data/informasi” Didalam pengolahan data pada File menggunakan metode File Random. File Random,

mercury
Télécharger la présentation

LOGIKA ALGORITMA

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. LOGIKA ALGORITMA Handouts  Oleh. Rachmat Budi Basuki S.Kom

  2. MULAI BAGIAN X(KESEPULUH)

  3. PENGOLAHAN DATA FILE ”File digunakan sebagai tempat menyimpan data/informasi” Didalam pengolahan data pada File menggunakan metode File Random File Random, 1. Menempatkan data dalam bentuk record dengan panjang tertentu. 2. Sistem pengolahan ini suatu record data dapat langsung dibaca ataupun ditulis tanpa harus memproses record sebelumnya. “ I L U S T R A S I F I L E D A T A “ KETERANGAN : (C) = 10+20+2+10 = 42 PANJANG SETIAP RECORD (A) = JUMLAH PANJANG RECORD DATA (B) = (A) / (C) YAITU INDEX / NOMOR RECORD / BANYAKNYA RECORD

  4. PENGOLAHAN DATA FILE • Struktur File Random, • Tipe data record : definisi fields / kolom berserta panjangnya. • Type Tmhs • Nim string*10 • Nama string*20 • Program string*2 • Jurusan string*10 • File handle : untuk menyimpan input data dalam bentuk record. • Dim Fmhs as Tmhs • Membuat dan membuka file Acak • Open ”Siswa.DAT” for Random as #1 Len = Len(Fmhs) • Mendapatkan jumlah record pada file Acak • RecNo = LOF(1) / Len(Fmhs) • Menulis data pada file • Put #1, RecNo, Fmhs • Membaca data dari file • Get #1, RecNo, Fmhs • Menutup file Acak • Close #1 KETERANGAN : Dim > “Sebagai definisi / deklarasi file handle” for Random > “Metode file Acak” Len > “Fungsi untuk menghitung panjang karakter atau byte” #1 > “alias dari file yang telah dibuka” LOF > “Fungsi untuk menghitung panjang total semua record data” “Siswa.Dat” > “Nama pisik file pada media simpanan luar seperti hardisk atau disket” RecNo > “Perubah yang mewakili index data” Fmhs > “Perubah yang mewakili record data”

  5. PENGOLAHAN DATA FILE • Tipe Data Record, • INTEGER ”Tipe data numerik bilangan bulat 16 bit” / Ukuran = 2 byte • –32768..32767 • LONG ”Tipe data numerik bilangan bulat 32 bit” / Ukuran = 2 byte • –2147483648..214748364 • SINGLE ”Tipe data numerik bilangan desimal single-precision” / Ukuran = 4 byte • 1.5 x 10^–45 .. 3.4 x 10^38 • DOUBLE ”Tipe data numerik bilangan desimal double-precision” / Ukuran = 8 byte • 5.0 x 10^–324 .. 1.7 x 10^308 • STRING*n ”Tipe data karakter” / Ukuran = n Karakter • Keterangan : • Byte adalah suatu unit ukuran dari bentuk simpanan informasi. • Bit adalah suatu digit biner dengan nilai yaitu 0 atau 1. • Bit merupakan suatu unit dasar dari bentuk simpanan informasi.

  6. PENGOLAHAN DATA FILE • Operasi-operasi didalam File Random, • Isi / Memasukan data pada setiap record didalam File • Update / Koreksi data • Hapus Data • Pengurutan Data • Menampilkan Data dalam bentuk Laporan PERLU DIKETAHUI !!! ”Record data didalam File akan berubah jika salah satu operasi diatas dieksekusi / dikerjakan”. ”Hasil dari perubahan record data didalam File dapat dibaca kembali pada saat setiap kali akan membuka File”. ”Hal ini dimungkinkan karena record data telah tersimpan pada media simpanan luar seperti hardisk atau disket”.

  7. PENGOLAHAN DATA FILE Algoritma dengan Pseudocode ”Isi / Memasukan data pada setiap record didalam File” Pseudocode, Type Tmhs Nim string*10 Nama string*20 Program string*2 Jurusan string*10 Dim Fmhs as Tmhs Open “Siswa.DAT” for Random as #1 Len = Len (Fmhs) RecNo  LOF(1) / Len (Fmhs) Baca Fmhs.Nim Baca Fmhs.Nama Baca Fmhs.Program Baca Fmhs.Jurusan RecNo  RecNo + 1 Put #1, RecNo, Fmhs Cetak “Data telah tersimpan” Close #1 KEMBALI

  8. PENGOLAHAN DATA FILE Algoritma dengan Pseudocode ”Update / Koreksi Data” Pseudocode, Type Tmhs Nim string*10 Nama string*20 Program string*2 Jurusan string*10 Dim Fmhs as Tmhs Dim Cmhs as Tmhs Open “Siswa.DAT” for Random as #1 Len = Len (Fmhs) RecTotal  LOF(1) / Len (Fmhs) Baca Fmhs.Nim RecNo 1 Ketemu  “T” Do While Ketemu = “T” And RecNo <= RecTotal Get #1, RecNo, Cmhs If Fmhs.Nim = Cmhs.Nim Then Ketemu  “Y” Else RecNo  RecNo + 1 End If Loop If Ketemu = “Y” Then Cetak “Data ditemukan, lanjut Koreksi [y/t]?” Baca Lanjut If Lanjut = “Y” Then Baca Fmhs.Nama Baca Fmhs.Program Baca Fmhs.Jurusan Put #1, RecNo, Fmhs Cetak “Koreksi Tersimpan” Else Cetak “Koreksi Batal” End If Else Cetak “Data tidak ditemukan, Koreksi Batal” End If Close #1 KEMBALI

  9. PENGOLAHAN DATA FILE Algoritma dengan Pseudocode ”Hapus Data” Pseudocode, Type Tmhs Nim string*10 Nama string*20 Program string*2 Jurusan string*10 Dim Fmhs as Tmhs Dim Cmhs as Tmhs Open “Siswa.DAT” for Random as #1 Len = Len (Fmhs) RecTotal  LOF(1) / Len (Fmhs) Baca Fmhs.Nim RecNo 1 Ketemu  “T” Do While Ketemu = “T” And RecNo <= RecTotal Get #1, RecNo, Cmhs If Fmhs.Nim = Cmhs.Nim Then Ketemu  “Y” Else RecNo  RecNo + 1 End If Loop If Ketemu = “Y” Then Cetak “Data ditemukan, lanjut Hapus [y/t]?” Baca Lanjut If Lanjut = “Y” Then Fmhs.Nim = “” Fmhs.Nama = “” Fmhs.Program = “” Fmhs.Jurusan = “” Put #1, RecNo, Fmhs Cetak “Hapus Sukses” Else Cetak “Koreksi Batal” End If Else Cetak “Data tidak ditemukan, Hapus Batal” End If Close #1 KEMBALI

  10. AKHIR BAGIAN X(KESEPULUH)

More Related