Perintah Penyimpanan Data Dalam Bentuk File di C++

Dalam pengolahan data menggunakan computer sering dilakukan penyimpanan data yang diletakkan ke dalam file. Data yang akan disimpan ke dalam file harus dilakukan bagaimana menulis, membaca, mencari data ke dalam file.Dalam Bahasa C++ file header untuk perintah-perintah yang termasuk dalam kategori file adalah fstream.h. Modus-modus dalam pembukaan file : ios::in untuk membuka file operasi masukkan, ios ::out untuk membuka file operasi keluaran, ios::beg untuk menentukan posisi awal file, ios::end untuk menentukan posisi akhir file. salah satu cara pengaksesan data didalam file dengan cara pengaksesan secra random. Berikut adalah program pengaksesan data secara random :
Contoh:

#include<iostream.h>
#include<fstream.h>
#include<conio.h>
void main()
{
char karakter;
clrscr;
fstream fhuruf("huruf.dat",ios::in|ios::out);
cout<<"Menulis Karakter A sampai Z ke file"<<endl;
for(char huruf='A';huruf<='Z' ;huruf++)
fhuruf<<huruf;
cout<<"selesai"<<endl;
cout<<endl;
cout<<"Menulis Karakter A sampai Z ke file"<<endl;
for(char huruf='A';huruf<='Z' ;huruf++)
{
fhuruf.seekg(huruf-'A',ios::beg);
fhuruf.get(karakter);
cout<<karakter;
}
cout<<endl;
cout<<endl;
cout<<"Membaca karakter Pertama dan Terakhir"<<endl;
fhuruf.seekg(0,ios::beg);
fhuruf.get(karakter);
cout<<"karakter Pertama  : "<<karakter<<endl;
fhuruf.seekg(-1,ios::end);
fhuruf.get(karakter);
cout<<"karakter Terakhir : "<<karakter<<endl;
fhuruf.close();
getch();
}

Hasilnya :

Agar dapat digunakan untuk menentukan posisi data sesuai keinginan pemakai, missal : dimasukkan posisi 2 akan keluar huruf B, dimasukkan posisi 4 akan keluar huruf D dan sebagainya. ubah kode programnya seperti di bawah :

#include<iostream.h>
#include<fstream.h>
#include<conio.h>
void main()
{
char karakter;
int posisi;
clrscr;
fstream fhuruf("huruf.dat",ios::in|ios::out);
cout<<"Menulis Karakter A sampai Z ke file"<<endl;
for(char huruf='A';huruf<='Z' ;huruf++)
fhuruf<<huruf;
cout<<"selesai"<<endl;
cout<<endl;
cout<<"Menulis Karakter A sampai Z ke file"<<endl;
for(char huruf='A';huruf<='Z' ;huruf++)
{
fhuruf.seekg(huruf-'A',ios::beg);
fhuruf.get(karakter);
cout<<karakter;
}
cout<<endl;
cout<<endl;
cout<<"Membaca karakter sesuai dengan posisi yang di inputkan"<<endl;
cout<<"Posisi : "; cin>>posisi;
posisi=posisi-1;
fhuruf.seekg(posisi,ios::beg);
fhuruf.get(karakter);
posisi=posisi+1;
cout<<"Karakter pada posisi "<<posisi<<" adalah : "<<karakter<<endl;
fhuruf.close();
getch();
}

Hasilnya :

Sekarang kita akan membuat program yang memasukkan data siswa ke dalam file : Ramdani, Sutrima, handoko, Sarojo, Ardila, Andani.

#include<iostream.h>
#include<fstream.h>
#include<conio.h>
main()
{
fstream file_keluaran("mahasiswa.txt", ios:: app);
cout<<"Data mahasiswa :"<<endl;
file_keluaran<<"Ramdani"<<endl;
file_keluaran<<"Sutrima"<<endl;
file_keluaran<<"Handoko"<<endl;
file_keluaran<<"Sarojo"<<endl;
file_keluaran<<"Ardila"<<endl;
file_keluaran<<"Andani"<<endl;
file_keluaran.close();
getch();
}

File yang dihasilkan :

Isi mahasiswa.txt

Jenis Message

1. mtWarning

Digunakan untuk menyampaikan peringatan. Apakah proses akan dilanjutkan atau tidak, dll.

2. mtError

Digunakan untuk menyampaikan pesan error, apakah proses akan dihentikan, dicoba lagi atau di abaikan. Dll.

3. mtInformation

Digunakan untuk menyampaikan suatu informasi

4. mtConfirmation

Digunakan untuk menyampaikan konfirmasi, apakah Ya, Tidak, Tidak untuk semuanya, atau Ya untuk semuanya. Dll.

5. mtCustom

Custom. Tergantung yang membuat

TmsgDlgType = mtWarning, mtError, mtInformation, mtConfirmation, mtCustom

TMsgDlgBtn = mbYes, mbNo, mbOK, mbCancel, mbAbort, mbRetry, mbIgnore, mbYesToAll,mbNoToAll mbAll, mbHelp

Return values = mrNone, mrYes, mrNo, mrOk, mrCancel, mrAbort, mrRetry, mrIgnore, mrAll, mrYesToAll,mrNoToAll

Contoh penggunaan return values

procedure TForm1.Button1Click(Sender: TObject);

begin

if messagedlg(‘Tekan Yes or No’, mtinformation,[mbyes,mbno],0)= mryes then

form1.caption:=’Anda menekan tombol Yes’ else

form1.caption:=’Anda menekan tombol No’;

end;

Jika pilih Yes Jika pilih No

Program menghitung volume dan luas lingkaran

Buat Form seperti dibawah

Listing Program :

unit Unit1;

interface

uses
Windows, Message0s, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
r,l,v : real;
begin
r:= strtofloat(edit1.Text);
v :=4/3 *3.14 * r * r * r;
l :=4 * 3.14 * r * r;
edit2.Text := floattostr (v);
edit3.Text := floattostr (l);
end;
end.

Tampilan ketika dijalankan :

Membuat program penjumlahan, pengurangan, perkalian, dan pembagian

Gambarnya blum di upload euy. sementara kodenya dulu :

#update 04des09# Mohon maaf sebelumnya buat yang protes, saya lupa upload gambarnya soalnya udah lama banget.

Buat form seperti di bawah

Sourcecodenya sbb:

unit Unit1;
interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Label4: TLabel;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Button4: TButton;
Editbilangan1: TEdit;
Editbilangan2: TEdit;
Edithasil: TEdit;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button4Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
x,y,z : real;
implementation
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
x:= strtofloat (Editbilangan1.Text);
y:= strtofloat (Editbilangan2.Text);
z:= x + y;
Edithasil.Text := floattostr (z);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
x:= strtofloat (Editbilangan1.Text);
y:= strtofloat (Editbilangan2.Text);
z:= x - y;
Edithasil.Text := floattostr (z);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
x:= strtofloat (Editbilangan1.Text);
y:= strtofloat (Editbilangan2.Text);
z:= x * y;
Edithasil.Text := floattostr (z);
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
x:= strtofloat (Editbilangan1.Text);
y:= strtofloat (Editbilangan2.Text);
z:= x / y;
Edithasil.Text := floattostr (z);
end;
end.

Hasilnya sebagai berikut :