Akses file adalah sebuah prosedur pengaksesan hasil dari suatu program
ke dalam program bentuk lain. Pada laporan ini akan mengakses file
dari Code Blocks yang mana programnya menggunakan bahasa C++ dan
akan diakses ke dalam aplikasi notepad.
Penggunaan operasi FILE dalam sebuah program sangat dibutuhkan dalam
pembuatan program yang sesungguhnya. Kita membutuhkan file sebagai tempat
penampung data-data selama operasi program. Jika kamu menggunakan variabel
biasa, data yang biasanya diolah program hanya akan tersimpan sementara
dalam memory dan akan hilang ketika program close. Berbeda dengan memory,
penyimpanan data berbasis file akan tersimpan terus walaupun program telah
diclose maupun komputer telah di shutdown.
Pada dasarnya, operasi file terbagi 3 jenis. Read (R), Write(W), dan
Append(A). Read artinya membaca isi file, write menulis data ke file dan
append menambahkan data ke baris terakhir dalam file
A.
Jenis-Jenis Operasi Pada
Akses File
1.
Read File
Sesuai namanya, disini kita akan membuka file sesuai namanya lalu
membaca isi filenya. Untuk membaca isi file lalu menyimpannya ke
dalam variabel, bisa mengan menggunakan fscanf(namavariabelfile, format);
2. Write File
Write file artinya kita membuka file dalam mode write (siap untuk ditulis). Dengan menggunakan format yang sama dengan diatas, kita akan mencoba membuat file baru perintah fprintf (namavariabelfile, format);
3.
Append File
Append artinya menambahkan data pada file baris terakhir. Jika belum ada
data/filenya, maka append akan membuatkan file baru.
Perbedaan Write dengan Append write akan selalu
membuat file baru untuk mengoverwrite file nama. Append, akan menambahkan data
ke baris paling terakhir jika ada file yang dit uju. Jika tidak, maka akan
membuat file baru.
8.2
Praktikum
8.2.1 Aplikasi
Biodata (Read)
a. Design
1. Form
1
|
Object |
Properties |
Nilai |
|
Form1 |
Text
Name |
Form1 Form1 |
|
Label1 |
Text Name Font |
Aplikasi
Data Diri Label1 Times
New Roman; 11,25pt; style=Bold |
|
Label2 |
Text Font Name |
Pilih
Menu Times
New Roman; 11,25pt Label2 |
|
Label3 |
Text Name Font |
Putri
Reina Choirunnisa Label3 Times
New Roman; 11,25pt; style=Bold |
|
ComboBox |
Name |
cmbMenu |
|
Button |
Text Name |
&proses btnProses |
Code Program
|
Imports System.IO Public Class Form2 Dim teks As String Dim biodata As String = Application.StartupPath & "\biodata.txt" Dim baca() As String Dim jum As Integer Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load baca = File.ReadAllLines(biodata) For Each tempaar As String In baca txtBiodata.Text = txtBiodata.Text & tempaar & vbCrLf & vbCrLf Next End Sub End Class |
|
Object |
Properties |
Nilai |
|
Form2 |
Name Text |
Form2 Form2 |
|
TextBox |
Name |
txtBiodata |
Code Program :
|
Imports System.IO Public Class Form2 Dim teks As String Dim biodata As String = Application.StartupPath & "\biodata.txt" Dim baca() As String Dim jum As Integer Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load baca = File.ReadAllLines(biodata) For Each tempaar As String In baca txtBiodata.Text = txtBiodata.Text & tempaar & vbCrLf & vbCrLf Next End Sub End Class |
|
Object |
Properties |
Nilai |
|
Form3 |
Name Text |
Form3 Form3 |
|
TextBox |
Name |
txtKeluarga |
Code
Program :
|
Imports System.IO
Public Class Form3 Dim keluarga As String = Application.StartupPath & "\keluarga.txt" Dim teks() As String Dim jumlah As Integer Private Sub Form3_Load(ByVal sender As
System.Object, ByVal e As System.EventArgs) Handles MyBase.Load teks = File.ReadAllLines(keluarga)
For Each tempaar As String In teks txtKeluarga.Text = txtKeluarga.Text & tempaar & vbCrLf & vbCrLf Next End Sub End Class |
Hasil
Running Aplikasi :
8.2.2 Aplikasi File
a. Design
|
Object |
Properties |
Nilai |
|
Form1 |
Text Name |
Daftar Masker Form1 |
|
DataGridView |
Name |
DG |
a. Code
Program
|
Imports System.IO
'untuk mengaktifkan sistem IO Public Class Form1 Dim teks As String Dim teksarr() As String Dim alamatdaftarmasker As String =
Application.StartupPath & "\DaftarMasker.csv" Dim kar As String Dim jumkar As Integer Dim tempteks As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 'teks =
File.ReadAllText(alamatdaftarmasker) 'txtTemp.Text = teks 'teksarr =
File.ReadAllLines(alamatdaftarmasker) 'txtTemp.Text = "" 'For i = 0 To 3
'
jumkar = teksarr(i).Length '
tempteks = ""
'
For j = 1 To jumkar '
kar = Mid(teksarr(i), j, 1) '
If kar = "," Then ' kar = " "
'
End If '
tempteks = tempteks & kar
'
Next '
txtTemp.Text = txtTemp.Text & tempteks & vbCrLf 'Next
'txtTemp.Text = "" 'For Each tempaar As String In teksarr '
txtTemp.Text = txtTemp.Text & tempaar & vbCrLf
'Next
'membuat heder secara manual di
datagrid' 'DG.ColumnCount = 5 'DG.Columns(0).HeaderText =
"Id" 'DG.Columns(1).HeaderText =
"Merk" 'DG.Columns(2).HeaderText =
"Stok" 'DG.Columns(3).HeaderText =
"Harga" 'DG.Columns(4).HeaderText =
"Varian" ''untuk mengganti huruf 'DG.ColumnHeadersDefaultCellStyle.Font =
New Font("Times New Roman", 10, FontStyle.Bold)
teksarr =
File.ReadAllLines(alamatdaftarmasker ) Dim namaheader(5) As String Dim index As Integer = 1 jumkar =
teksarr(0).Length DG.ColumnCount = 5 For i = 0 To 4 namaheader(i) = ""
Do While index <= jumkar kar = Mid(teksarr(0), index,
1) If kar = "," Then index += 1 Exit Do Else
namaheader(i) = namaheader(i) & kar index += 1
End If Loop
DG.Columns(i).HeaderText = namaheader(i)
Next
DG.ColumnHeadersDefaultCellStyle.Font = New
Font("Times New Roman", 10, FontStyle.Bold)
Dim isi(4) As String Dim indexarray As Integer = 0 Dim baris As Integer = 0
For Each temparr As String In teksarr If indexarray > 0 Then
jumkar =
temparr.Length index = 1 DG.Rows.Add()
For kol = 0 To 4 isi(kol) = "" Do While index <= jumkar kar =
Mid(temparr, index, 1) If kar = "," Then
index += 1 Exit Do Else
isi(kol) = isi(kol) & kar
index += 1
End If Loop
DG.Rows(baris).Cells(kol).Value = isi(kol)
Next baris += 1
End If indexarray += 1 Next
End Sub
Private Sub txtTemp_TextChanged(sender As Object, e As EventArgs)
End Sub
End Class |
Hasil Running
Komentar
Posting Komentar