Category Archives: Pemrograman

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
#include
#include
void main()
{
char karakter;
clrscr;
fstream fhuruf(“huruf.dat”,ios::in|ios::out);
cout<<"Menulis Karakter A sampai Z ke file"<

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
#include
#include
void main()
{
char karakter;
int posisi;
clrscr;
fstream fhuruf(“huruf.dat”,ios::in|ios::out);
cout<<"Menulis Karakter A sampai Z ke file"<>posisi;
posisi=posisi-1;
fhuruf.seekg(posisi,ios::beg);
fhuruf.get(karakter);
posisi=posisi+1;
cout<<"Karakter pada posisi "<

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

#include
#include
#include
main()
{
fstream file_keluaran(“mahasiswa.txt”, ios:: app);
cout<<"Data mahasiswa :"<

hasil4

Isi mahasiswa.txt

Jenis Message

1. mtWarning

clip_image002

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

2. mtError

clip_image004

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

3. mtInformation

clip_image006

Digunakan untuk menyampaikan suatu informasi

4. mtConfirmation

clip_image008

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

5. mtCustom

clip_image010

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;

clip_image012

Jika pilih Yes Jika pilih No

clip_image015
clip_image016

Program menghitung volume dan luas lingkaran

Buat Form seperti dibawah

vol

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 :

volume2.jpg

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 :

%d blogger menyukai ini: