Achmad Fajar24

Coding Login pada Delphi

noreply@blogger.com (Achmad Fajar24) — Fri, 15 Apr 2016 23:19:00 -0700

Pada kesempatan kali ini saya akan membuat sebuah artikel tentang Coding Login pada Delphi. Untuk mengamankan suatu file yang terdapat pada sebuah aplikasi yang anda buat dengan menggunakan bahasa pemograman Delphi anda harus menggunakan 'pengaman' agar seseorang yang tidak memiliki hak akses terhadap data/file yang terdapat pada aplikasi yang anda buat tidak biasa mengakses data tersebut.

Oleh karena itu, agar tidak terjadi hal-hal yang tidak diinginkan akan keamanan data anda, anda perlu membuat sebuah username dan password sebelum anda bisa mengakses data yang ada pada aplikasi yang anda buat.

Langkah pertama buatlah sebuah Database dengan menggunakan MS Office Access dengan field Username dan Password dengan tipe data Text dan

Langkah selanjutnya buatlah sebuah desain form login pada delphi yang terdiri dari 2 buah label, 2 buah TEdit, dan 1 buah Button, sehingga tampilannya menjadi seperti berikut.

Lalu tambahkan juga komponen ADOCommection dan ADOQueri lalu setting propertiesnya sebagai berikut

Objek	Properties	Nilai
ADOConnection1	ConnectionString	... -> build -> ... -> pilih database -> Ok -> Ok
	LoginPrompt	False
	Active	True
ADOQuery1	Connection	ADOConnection1
	SQL	Ketikan 'Select * From Login'; (Tanpa tanda petik dan login adalah nama tabelnya)
	Active	True

Lalu dobel klik di button masuk dan masukan/ketikan coding berikut

procedure TForm1.Button1Click(Sender: TObject);

begin

with ADOQuery1 do begin

Close;

SQL.Clear;

SQL.Add('select * from login where username='+QuotedStr(edusername.Text));

Open;

end;

if ADOQuery1.RecordCount=0 then

Application.MessageBox('Maaf, Username Tesebut Tidak Ada','Informasi',MB_OK or MB_ICONINFORMATION)

else begin

if ADOQuery1.FieldByName('Password').AsString<>edpassword.text then

Application.MessageBox('Pastikan Password atau Usename benar','Error',MB_OK or MB_ICONERROR)

else begin

Hide;

Form2.Show;//sesuaikan nama form berikutnya asumsi adalah form gaji

end

end;

Langkah terakhir coba jalankan aplikasinya dengan mengklik RUN atau tekan tombol Shift+CTRL+F9 secara bersamaan ... dan lihat hasilnya!

Cara membuat database di ms access

noreply@blogger.com (Achmad Fajar24) — Sun, 20 Mar 2016 03:21:00 -0700

Oke pada kesempatan kali ini saya akan membagikan cara membuat database di MS Access. Memnuat database di MS Access sebenarnya tidak terlalu sulit jika ansa sudah tahu tipe data yang harus digunakan untuk setiap field yang dibuat.

Kenapa demikian, karena setiap field yang anda buat tentunya tidak semuanya sama pasti ada beberapa field yang berbeda. Contoh sebuah database mahasiswa terdapat field 'Nama' dengan menggunakan tipe data Text, kenapa menggunakan tipe data Text? ya karena field 'Nama' terdiri dari susunan huruf atau text, berbeda dengan field 'Nilai' yang dimana didalamnya terdapat proses perhitungan sehingga harus menggunakan tipe data yang bisa menjumlahkan suatu nilai. Oleh karena itu, pemahaman akan tipe data perlu dipelajari terlebih dahulu sebelum anda membuat sebuah database.

Jika anda sudah paham apa itu tipe data silahkan simak langkah-langkah pembuatan database menggunakan MS Access dibawah ini.

Cara membuat database di MS Access

Studi kasus: Disini saya akan membuat database biodata.

Langkah pertama buka aplikasi MS Access lalu pilih Blank New Database dan ganti nama sesuai keinginan lalu klik Create

Lalu klik kanan di table1 lalu pilih desain view seperti gambar dibawah ini

Setelah itu ganti nama table1 sesuai keinginan

Lalu ketikan/masukan Field Name dan Type Data nya seperti dibawah ini

Field Name	Type Data	Field Size
Nama	Text	30
Alamat	Text	20
Tanggal_Lahir	Date/Time	-
Gol_Darah	Text	3
Status	Text	11

Note* Field diatas cuma sebagai contoh jadi cuma sedikit fieldnya hehehe...
Jika sudah selesai silahan Save databasenya .... Selesai

Dicukupkan sekian cara membuat database di MS Access nya semoga bermanfaat ....

Macam-macam tipe data MS Access

noreply@blogger.com (Achmad Fajar24) — Fri, 18 Mar 2016 02:47:00 -0700

Microsoft Office Access merupaka sebuah aplikasi pengolahan data yang dikembangkan oleh Microsoft yang berfungsi untuk membuat dan mengolah sebuah database. dan untuk menyimpan sebuah data pad MS Access maka diperlukan tipe data untuk mengelompokan data-data yang dimasukan, karena data yang dibuat didalam MS Access tipe atau jenis yang berbeda. Maka dari itu disini saya akan membahas macam-macam tipe data yang ada di MS Access.

Macam-macam Tipe Data MS Access

Text, Text digunakan untuk menyimpan data alfanumerik seperti nama, alamat, NIM, kode pos dll. Dan panjang karakter yang bisa disimpan di tipe data Text yitu sebanyak 255 karakter.
Memo, Tipe data Memo hampir sama dengan tipe data Text, tetapi yang membedakanya adalah tipe data memo dapat menyimpan karakter kurang lebih sebanyak 64.000 karakter, akan tetapi tidak bisa diurutkan.
Number, Tipe data Number berfungsi untuk menyimpan data numerik yang akn digunakan untuk perhitungan matematis seperti tambah, kurang, bagi, kali, pangkat, dll.
Date/Time, Tipe data Date/Time digunakan untuk menyimpan data tanggal dan waktu atau gabungan dari keduanya.
Currency, Tipe data Currency hampir sama dengan tipe data Numerik hanya saja yang membedakan disini adalah tipe data currency selalu ada simbol Currency atau mata uang sesuai dengan seting regional yang digunakan seperti Rp, $, dll.
AutoNumber, AutoNumber adalah tipe data yang mana datanya tidak bisa diisikan secara manual melainkan diisi secara otomatis oleh Access, baik secara penjumlahan maupun acak. Biasanya tipe data ini digunakan untuk penomoran.
Yes/No, Tipe data Yes/No adalah tipe data yang hanya memiliki dua pilihan yaitu Yes dan No. Dan format yang disediakan oleh MS Access adalah Yes/No, True/False, dan On/Off.
Ole Object, Tipe data Ole Object digunakan untuk eksternal objek, seperti bitmap, dan file suara.
Hyperlink, Tipe data Hyperlink adalah tipe data yang berfungsi untuk menyimpan sebuah alamat internet atau alamat URL.
Lookup Wizard, Tipe data Lookup Wizard digunakan untuk memilih sebuah nilai dari tabel lain atau dari daftar lain yang ditampilkan dalam combobox.
Attachment, Tipe data Attachment digunakan untuk melampirkan sebuah data apapun dalam bentuk file atau ekstensinya.

Hanya itu yang bisa saya sampaikan atau jelaskan tentang macam-macam tipe data pada MS Access semoga bermanfaat ...

Pengertian dan Fungsi Microsoft Office Access

noreply@blogger.com (Achmad Fajar24) — Sat, 12 Mar 2016 08:39:00 -0800

Yap pada kesempatan kali ini saya akan membahas tentang Database. Kenapa Database? ya karena Database atau basisdata masih menjadi suatu hal yang tidak banyak diketahui oleh banyak orang. Oleh karena itu semoga penjelasan saya ini bisa membuat anda para pembaca mengerti tentang database.

Pengertian Database

"Database adalah sekumpulan data yang disusun secara rapih atau berurutan lalu data tersebut diproses sehingga menghasilkan sebuah informasi". Maksud dari pengertian tersebut adalah database tersebut adalah sebuah data dan maksud data disini adalah sekumpulan field-field seperti dalam sebuah "data mahasiswa" disitu terdapat beberapa field seperti NIS, nama, jurusan, tingkat, tempat/tgl lahir, dll. Sehingga kalau field tersebut diproses akan menghasilkan sebuah informasi yang bisa ditampilkan.

Dan tentunya untuk mengolah sebuah database diperlukan sebuah software atau aplikasi pengolah data dan disini saya menggunakan Microsoft Office Access.

Pengertian dan Fungsi Microsoft Office Access

"Pengertian Microsoft Office Access adalah sebuah software atau aplikasi untuk membuat, mengolah dan mengelola data yang mudah untuk digunakan". Sementara fungsi Microsoft Office Access adalah sebagai berikut:

Membuat Database (Basis data)
Membuat Program Aplikasi Absensi
Membuat Program Aplikasi Penggajian
Membuat Program Aplikasi Persediaan Barang
dll.

Sekian yang bisa saya sampaikan mengenai Pengertian dan Fungsi Microsoft Office Access ... terimakasih.

Unit pada Delphi

noreply@blogger.com (Achmad Fajar24) — Tue, 8 Mar 2016 19:30:00 -0800

Unit adalah sebuah file pada Delphi yang berisi kumpulan procedure dan function yang akan otamatis ada pada saat anda memulai project baru dengan Delphi. Lalu ketika kita akan menambahkan object baru kedalam form maka unit object tersebut pun Delphi akan membuat unit secara otomatis.

Selain itu procedure dan function juga bisa kita buat sendiri secara manual untuk memecahakan masalah tertentu.

Struktur Unit pada Delphi

Sebuah Unit pada Delphi mempunyai 4 bagian, yaitu:

Interface

Interface ditempatkan setelah kata kunci unit dan sebelum implementation bagian ini berisi tipe data, variabel, procedure dan funsi. semua deklarasi pada unit ini bisa diakases oleh unit lain.

Implementasi

Implementasi terletak dibagian Interface dan sebelum end. Bagian ini berisi fungsi dan prosedure yang telah dideklarasikan di bagian interface.

Inisialisasi

Inisialisasi terletak setelah kata kunci Implementasi da sebelum end. Bagian ini berisi inisialisasi terhadap data.

Finalisasi

Finalisasi terletak setelah kata kunci Inisialisasi(jika ada) dan sebelum end. Bagian ini berfungsi untuk melakukan pembersihan memori.

Sekian artikel tentang Unit pada Delphi semoga bermanfaat ^.^

Membuat Program Diskon dengan Delphi

noreply@blogger.com (Achmad Fajar24) — Sat, 5 Mar 2016 22:55:00 -0800

Pertama buka aplikasi Delphi (disini saya menggunakan Delphi XE3)
Lalu buat projek baru dengan meng-klik File|New|VCL Form Application
Setelah itu desain formnya sehingga seperti dibawah ini

Untuk lebih lengkapnya apa saja komponen yang digunakan silahkan simak tabel berikut

Komponen	Properties	Nilai
Form1	Caption	Program Diskon dengan Function
GroupBox1	Caption	Inputkan Data
Label1	Caption	Nama Barang
Label2	Caption	Harga Barang(satuan)
Label3	Caption	Banyak Barang
Label4	Caption	Total Bayar
Edit1	Text	Kosongkan
Edit2	Text	Kosongkan
Edit3	Text	Kosongkan
Edit4	Text	Kosongkan
GroupBox2	Caption	Output Data
ListBox1	-	-
Button1	Caption	Proses
Button2	Caption	Simpan
Button3	Caption	Ulang
Button4	Caption	Hapus

Setelah mendesain form selesai sekarang kita akan mengetikan codingnya
Pertama masuk ke mode code lalu masukan syntax berikut dan tempatkan dibawah implementation

Function Diskon(total:real):real; //ini adalah contoh syntax function
begin
Diskon:=total*0.1;
end;

Setelah itu dobel klik di button1 'Proses' lalu ketikan syntak berikut

procedure TForm1.Button1Click(Sender: TObject);
var Hargabrg,Banyakbrg,total,Diskonya,bayar:Real;
begin
Hargabrg:=StrToFloat(Edit2.Text);
Banyakbrg:=StrToFloat(Edit3.Text);
if Banyakbrg>=10 then
begin
Total:=Hargabrg*Banyakbrg;
Diskonya:=diskon(total); //syntax pemanggilan function
bayar:=Total-Diskonya;
Edit4.Text:=FloatToStr(bayar);
end
else
begin
Total:=Hargabrg*Banyakbrg;
Edit4.Text:=FloatToStr(Total);
end;

Untuk tombol ulang dan hapus saya asumsikan anda sudah bisa ...
Setelah itu coba jalankan programnya dengan menekan tombol Shift+CTRL+F9, dan lihat hasilnya....

Struktur Function pada Delphi

noreply@blogger.com (Achmad Fajar24) — Sat, 5 Mar 2016 05:33:00 -0800

Function hampir sama seperti Procedure hanya saja nama_function bisa sekaligus menjadi variable untuk menyimpan sebuah nilai. Sedangkan Procedur tidak. Function dibagi menjadi 2 yaitu:

Function (Tanpa Parameter)

Function tanpa parameter adalah function yang tidak mempunyai parameter. Maksud dari parameter adalah variabel penampung data sebagai inputan untuk proses yang ada dalam function tersebut.

Contoh Struktur Function tanpa parameter

function nama_function:type data;
begin
nama_function:=nilai;
end;

Function (dengan Parameter)

Sementara itu Function dengan parameter yaitu function yang memiliki parameter sehingga disini anda bisa memakai 2 variabel.

Contoh struktur Function dengan parameter

function diskon (total:real) : real; // diskon dan total adalah variabel
begin
diskon:=total*0.1;
end;

Selanjutnya : Contoh Program Diskon dengan menggunakan Function pada Delphi

Tutorial Procedure pada Delphi

noreply@blogger.com (Achmad Fajar24) — Wed, 2 Mar 2016 05:23:00 -0800

Procedure atau sub program adalah sebuah program terpisah dan berdiri dalam suatu blok program. Penulisan peocedure diawali dengan kata procedure dan pada bagian deklarasi program cukup menuliskan nama procedure yang dibuat pada bagian implementasi.

Contoh Program
*Langkah pertama buka aplikasi Delphi (disini saya menggunakan Delphi XE3)
*Setelah itu buat project baru dengan meng-klik File|New|VCL form application - Delphi
*Lalu desain programnya seperti berikut

Untuk lebih lengkapnya tentang komponen yang digunakan silahkan simak tabel berikut

Komponen	Properties	Nilai
Form1	Caption	Aplikasi kalkulator menggunakan procedure
Label1	Caption	Bil Pertama
Label2	Caption	Bil Kedua
Edit1	Text	Kosongkan
Edit2	Text	Kosongkan
Edit3	Text	Kosongkan
Button1	Caption	Tambah
Button2	Caption	Kurang
Button3	Caption	Kali
Button4	Caption	Bagi

*Setelah desain selesai sekarang kita saatnya membuat syntaxnya
*Pertama masuk ke mode code lalu deklarasikan nama procedure dibawah publik declarations untuk lebih jelas lihat gambar dibawah ini

*Setelah itu buat syntax procedure yang akan digunakan dan tempatkan dibawah implementation
Ketikan syntax Procedure tambah, kurang, kali, dan bagi dan tempatkan dibawah implementation

procedure TForm1.tambah; //PROCEDURE TAMBAH
var a,b,hasil:Integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
hasil:=a+b;
Edit3.Text:=IntToStr(hasil);
end;

procedure TForm1.kurang; //PROCEDURE KURANG
var a,b,hasil:Integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
hasil:=a-b;
Edit3.Text:=IntToStr(hasil);
end;

procedure TForm1.kali; //PROCEDURE KALI
var a,b,hasil:Integer;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
hasil:=a*b;
Edit3.Text:=IntToStr(hasil);
end;

procedure TForm1.Bagi; //PROCEDURE BAGI
var a,b,hasil:real;
begin
a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
hasil:=a/b;
Edit3.Text:=FloatToStr(hasil);
end;

*Lalu dobel klik di button1 'Tambah' dan ketikan syntax berikut

procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Tambah; //MEMEANGGIL PROCEDURE TAMBAH
end;

*Lalu dobel klik di button2 'kurang' dan ketikan syntax berikut

procedure TForm1.Button2Click(Sender: TObject);
begin
form1.Kurang;//MEMANGGIL PROCEDURE KURANG
end;

*Lalu dobel klik di button3 'Kali' dan ketikan syntax berikut

procedure TForm1.Button3Click(Sender: TObject);
begin
Form1.Kali;//MEMANGGIL PROCEDURE KALI
end;

*Lalu dobel klik di button4 'Bagi' dan ketikan syntax berikut

procedure TForm1.Button4Click(Sender: TObject);
begin
form1.Bagi;//MEMANGGIL PROCEDURE BAGI
end;

*Terakhir coba jalankan programnya dengan menekan tombol Shift+CTRL+F9 ... enjoy...

Tutorial Looping/Perulangan pada Delphi

noreply@blogger.com (Achmad Fajar24) — Tue, 1 Mar 2016 04:28:00 -0800

Disini saya akan membagikan tutorial program looping/perulangan pada Delphi. Sebelum ke latihan program saya akan menjelaskan terlebih dahulu apa sih itu Looping/Perulangan?
Jadi, Looping/Perulangan adalah sebuah algoritma/syntax yang berfungsi untuk mengulang suatu nilai, perulangan akan berakhir jika nilai tersebut sudah tidak memenuhi syarat yang ditentukan.

Contoh Program Looping

*Buka aplikasi Delphi (disini saya menggunakan Delphi XE3)
*Setelah itu buat project baru dengan meng-klik File|New|VCL Form Application-Delphi
*Lalu desain formnya seperti berikut

Untuk lebih jelasnya apa saja komponen yang digunakan silahkan simak tabel berikut:

Komponen	Properti	Nilai
Form1	Caption	Looping
GroupBox1	Caption	Pilih Salah Satu
Button1	Caption	For To Do
Button2	Caption	Repeat Until
Button3	Caption	While Do
GroupBox2	Caption	Output
ListBox1	-	-
Button4	Caption	Bersihkan

*Setelah mendesain form selesai langkah selanjutnya adalah coding ....
*Pertama dobel klik Button1 'For To Do' lalu masukan syntax dibawah ini

var a,x,v:String;
y,z:Integer;
begin
a:=InputBox('Inputkan Banyak Data','Banyak Data','');
y:=StrToInt(a);
for z := 1 to y do
begin
v:=IntToStr(z);
x:=InputBox('Masukan Nama','Nama Ke-'+v,'');
ListBox1.Items.Add('Nama Ke-'+v+'= '+x);
end;
ListBox1.Items.Add('---------------------------------------');
end;

*Kedua dobel klik Button2 'Repeat Until' lalu masukan syntax dibawah ini

procedure TForm1.Button2Click(Sender: TObject);
var a,x,b:String;
z,y:Integer;
begin
a:=InputBox('Inputkan Jumlah Data','Jumlah Data','');
z:=StrToInt(a);
y:=1;
Repeat
b:=IntToStr(y);
x:=InputBox('Inputkan Data','Nama Ke-'+b,'');
ListBox1.Items.Add('Nama Ke-'+b+'= '+x);
y:=y+1;
Until y>z;
ListBox1.Items.Add('---------------------------------------');
end;

*Ketiga dobel klik Button3 'While Do' lalu masukan syntax berikut

procedure TForm1.Button3Click(Sender: TObject);
var a,x,b:String;
z,y:Integer;
begin
a:=InputBox('Inputkan Jumlah Data','Jumlah Data','');
z:=StrToInt(a);
y:=1;
while y<=z do
begin
b:=IntToStr(y);
x:=InputBox('Masukan Nama','Nama Ke-'+b,'');
ListBox1.Items.Add('Nama Ke-'+b+'= '+x);
y:=y+1;
end;
ListBox1.Items.Add('---------------------------------------');
end;

*Terakhir dobel klik Button4 'Bersihkan' lalu masukan syntax berikut 'ListBox1.Clear;' (tanpa tanda petik)
*Lalu jalankan programnya dengan menekan tombol Shift+CTRL+F9 ... dan lihat hasilnya ....

Percabangan Case of pada Delphi

noreply@blogger.com (Achmad Fajar24) — Mon, 29 Feb 2016 05:21:00 -0800

Percabangan adalah suatu pemilihan yang didasarkan atas kondisi tertentu. Suatu aksi dipilih hanya jika kondisi yang didefinisikan telah terpenuhi.

Contoh Program

2. Case Of

*Langkah pertama buka aplikasi Delphi (disini saya menggunakan Delphi XE3).
*Lalu buat project baru dengan mengklik file|new|vcl form application - delphi
*Setelah itu desain formnya seperti berikut:

Untuk lebih jelasnya tentang komponen apa saja yang digunakan silahkan simak tabel berikut:

Komponen	Properties	Nilai
Form1	Caption	Case Of
Label2	Caption	Output
Edit1	Text	Kosongkan
Edit2	Text	Kosongkan
Button1	Caption	Proses
Button2	Caption	Ulang
Button3	Caption	Keluar

*Sekarang saatnya kita akan memasukan syntaknya
*Pertama dobel klik button1 'Proses' lalu masukan/ketikan syntax berikut

procedure TForm1.Button1Click(Sender: TObject);
var angka:Integer;
begin
angka:=StrToInt(Edit1.Text);
case angka of
1:Edit2.Text:='satu';
2:Edit2.Text:='dua';
3:Edit2.Text:='tiga';
4:Edit2.Text:='empat';
5:Edit2.Text:='lima';
6:Edit2.Text:='enam';
7:Edit2.Text:='tujuh';
8:Edit2.Text:='delapan';
9:Edit2.Text:='sembilan';
10:Edit2.Text:='sepuluh';
else
ShowMessage('Data Tidak Ada');
end;
end

*Untuk Button2 'Ulang' dan Button3 'Keluar' sama seperti program sebelumnya, jika anda belum tau selahkan baca artikel sebelumya disini
*Langkah terakhir setelah semua codingnya selesai dimasukan/diketikan silahkan coba jalankan dengan menekan tombol Shift+CTRL+F9 ... dan lihat hasilnya ...

Percabangan If, Else if pada Delphi

noreply@blogger.com (Achmad Fajar24) — Mon, 29 Feb 2016 04:47:00 -0800

Percabangan adalah suatu pemilihan yang didasarkan atas kondisi tertentu. Suatu aksi dipilih hanya jika kondisi yang didefinisikan telah terpenuhu.

Contoh Program

1. If dan Else if

*Langkah pertama buka aplikasi Delphi (disini saya menggunakan Delphi XE3).
*Lalu buat project baru dengan mengklik file|new|vcl form application - delphi
*Setelah itu desain formnya seperti berikut:

Untuk lebih jelasnya apa saja komponen yang di pakai silahkan simak tabel berikut

Komponen	Properti	Nilai
Form1	Caption	Program Penilaian
Label1	Caption	Masukan Nilai (0-100)
Label2	Caption	Hasil Nilai (Huruf)
Edit1	Text	Kosongkan
Edit2	Text	Kosongkan
Button1	Caption	Proses
Button2	Caption	Ulang
Button1	Caption	Keluar

*Setelah mendesain selesai sekarang saatnya kita memasukan kodingnya
*Pertama dobel klik di button1 'Proses' lalu masukan syntax dibawah ini

procedure TForm1.Button1Click(Sender: TObject);
var nilai:integer;
begin
nilai:=StrToInt(Edit1.Text);
if Nilai>100 then
begin
ShowMessage('Nilaina Leuwih Teuing Bray');
end
else if Nilai>80 then
begin
Edit2.Text:='A';
end
else if (Nilai>=70) and (Nilai<=79) then
begin
Edit2.Text:='B';
end
else if (Nilai>=60) and (Nilai<=69) then
begin
Edit2.Text:='C';
end
else if (Nilai>=40) and (Nilai<=59) then
begin
Edit2.Text:='D';
end
else if Nilai<39 then
begin
Edit2.Text:='E';
end;
end;

*Kedua dobel klik di button2 'ulang' lalu masukan/ketikan syntax dibawah ini

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit1.SetFocus;
end;

*Terakhir dobel klik di button3 'Keluar' lalu masukan/ketikan syntax dibawah ini

procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;

Setelah semua syntax dimasukan/diketikan setelah itu jalankan programnya dengan menekan tombol Shift+CTRL+F9 .... enjoyy

Selanjutnya: Contoh Program Case

Program Perhitungan (tambah, kurang, kali, dan bagi)

noreply@blogger.com (Achmad Fajar24) — Sat, 27 Feb 2016 21:39:00 -0800

Pada kesempatan kali ini saya akan membagikan tutorial cara membuat program perhitungan (tambah, kurang, kali, bagi, dan pangkat). Silahkan simak langkah langkahnya dibawah ini:

Membuat Aplikasi Kalkulator sederhana

Langkah pertama, buka aplikasi pemograman Delphi (disini saya menggunakan bahasa pemograman Delphi XE3)
Setelah itu buat project baru dengan meng-klik file-new-vcl form application - delphi sampai tampilannya seperti dibawah ini.

Lalu desain formnya menjadi seperti dibawah ini.

Setelah anda selesai mendesain lalu masukan syntaxya ke masing-masing tombol yang ada di form
Pertama double klik di tombol tambah, lalu masukan syntax berikut

procedure TForm1.Button1Click(Sender: TObject);
var bil1,bil2,hasil:integer;
begin
bil1:=StrToInt(Edit1.Text);
bil2:=StrToInt(Edit2.Text);
hasil:=bil1+bil2;
Edit3.Text:=IntToStr(hasil);
end;

Kedua double klik di tombol kurang, lalu masukan syntax berikut

procedure TForm1.Button2Click(Sender: TObject);
var bil1,bil2,hasil:integer;
begin
bil1:=StrToInt(Edit1.Text);
bil2:=StrToInt(Edit2.Text);
hasil:=bil1-bil2;
Edit3.Text:=IntToStr(hasil);
end;

Ketiga double klik di tombol Kali, lalu masukan syntax berikut

procedure TForm1.Button2Click(Sender: TObject);
var bil1,bil2,hasil:integer;
begin
bil1:=StrToInt(Edit1.Text);
bil2:=StrToInt(Edit2.Text);
hasil:=bil1*bil2;
Edit3.Text:=IntToStr(hasil);
end;

Keempat double klik di tombol Bagi, lalu masukan syntax berikut

procedure TForm1.Button4Click(Sender: TObject);
Var bil1,bil2,hasil:real;
begin
bil1:=StrToFloat(Edit1.Text);
bil2:=StrToFloat(Edit2.Text);
hasil:=bil1/bil2;
Edit3.Text:=FloatToStr(hasil);
end;

Kelima double klik di tombol hapus, lalu maasukan syntax berikut

procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Clear;
Edit2.Clear;
Edit3.Clear;
Edit1.SetFocus;
end;

Terakhir double klik di tombol Keluar, lalu maasukan syntax berikut

procedure TForm1.Button6Click(Sender: TObject);
begin
Application.Terminate;
end;

Setelah itu coba jalankan dengan mengklik RUN atau tekan tombol SHIFT+CTRL+F9 ... dan lihat hasilnya .....

Dasar-dasar Pemograman Delphi

noreply@blogger.com (Achmad Fajar24) — Sat, 27 Feb 2016 20:50:00 -0800

Delphi adalah bahasa pemograman yang tidak sulit untuk dipelajari, katena berorientasi objek. Maksudnya untuk mendesain sebuah form Delphi, anda hanya perlu mendrag objek yang akan digunakan dari komponen pellete lalu letakan ke form yang akan didesain. Oleh karena itu, untuk mempelajari bahasa pemograman Delphi, yang perlu anda asah adalah pemahaman logika untuk membuat sebuah algoritma/syntax. Akan tetapi, untuk membuat sebuah algoritma minimal anda harus memahami terlebih dahulu algoritma atau syntax-syntax dasarnya terlebih dahulu setelah itu baru anda bisa mengembangkan sebuah algoritma dengan menggabungkan beberapa syntax dasar.

Ada beberapa syntax dasar yang anda harus pelajari antara lain:

Setidaknya itulah dasar-dasar pemograman Delphi yang harus anda pelajari terlebih dahulu.

Bentuk-bentuk Konversi Data pada Delphi

noreply@blogger.com (Achmad Fajar24) — Sat, 27 Feb 2016 05:19:00 -0800

Terdapat 10 bentuk Konversi Data pada Delphi yaitu:

*StrToInt (String To Integer) : Mengubah data yang bertipe String menjadi Integer (bil. bulat).

*IntToStr (Integer To String) : Mengubah data yang bertipe Integer menjadi String.

*StrToFloat(String To Float) : Mengubah data yang bertipe String menjadi Float (bil. desimal).

*FloatToStr (Float To String) : Mengubah data yang bertipe Float menjadi String.

*StrToTime (String To Time) : Mengubah data yang bertipe String menjadi Time. (waktu/jam,menit,detik).

*TimeToStr (Time To String) : Mengubah data yang bertipe Time menjadi String.

*StrToDate (String To Date) : Mengubah data yang bertipe String menjadi Date (waktu/tanggal,bulan,tahun).

*DateToStr (Date To String) : Mengubah date yang bertipe Date menjadi String.

*StrToDateTime (Srting To Date Time) : mengubah data yang bertipe String menjadi Date Time (waktu/tanggal,bulan tahun,jam, menit, detik).

*DateTimeToStr (Date Time To String) : Mengubah data yang bertipe Date Time menjadi String.

Pengertian dan jenis-jenis Tipe Data pada Delphi

noreply@blogger.com (Achmad Fajar24) — Sat, 27 Feb 2016 00:07:00 -0800

Tipe Data adalah suatu nilai yang dapat dinyatakan dalam bentuk konstanta atau variabel dan operator. Konstanta menyatakan nilai yang tetap, sedangkan variabel menyatakan nilai yang dapat beubah-ubah selama proses eksekusi berlangsung.
Pemilihan Tipe Data yang tepat akan sangat berguna dalam penghematan memori, kecepatan proses, ketelitian perhitungan dan lain-lain.

Jenis-jenis Tipe Data:

*Tipe Integer

Tipe Data integer digunakan untuk bilangan bulat atau bilangan yang tidak memiliki angka desimal. Tipe Data integer memiliki beberapa tipe yang bergantung pada rentang nilai dan ukuran penggunaan memori.

Tipe	Rentang Nilai	Byte
Byte	0-225	1
Word	0-65535	2
Shortint	-128-127	1
Smallint	-32768-32767	2
Integer	-2147483648-2447483648	4
Cardinal	0-2147483648	4
Longint	-2147483648-2447483648	4

*Tipe Data Real

Tipe Data Real digunakan untuk bilangan yang memiliki angka desimal. Tipe data real memiliki beberapa tipe:

Tipe	Rentang Nilai	Byte
Real48	2.9x10^-47-1.7x10³⁸	6
Single	1.5x10^-45-3.4x10³⁸	4
Double	5.0x10^-324-1.7x10³⁰⁸	8
Extended	3.6x10^-4951-1.1x10⁴⁹³²	10
Comp	(-2⁶³+1)-(-2⁶³-1)	8
Currency	-922337203685477.5808 s.d 922337203685477.5807	8

catatan: Tipe Data currency mempunyai ketelitian lebih tinggi dalam menangani bilangan yang cukup besar dan dipakai dalam Currency field dan komponen lain dan kompatibel dengan tipe database yang menyatakan uang.

*Tipe Data Boolean

Tipe Data Boolean digunakan untuk data logika yang hanya berisi true dan false.

Tipe	Byte
Boolean	1
ByteBool	1
WordBool	2
LongBool	2

*Tipe Karakter

Tipe Data Karakter digunakan untuk menyatakan karakter satu huruf dalam 3 bentuk tipe:

Tipe	Byte	Jumlah Maksimum
Char	1	1 Karakter ANSI
AnsiChar	1	1 Karakter ANSI
WideChar	2	1 Karakter Unicode

*Tipe String

Tipe Data String digunakan untuk menyatakan sederetan karakter, misalnya nama, alamat, dll.

ShortString	2-256 B	256 Karakter
AnsiString	4-2 GB	2³¹ Karakter
String	255-3 GB	2³¹ Karakter
WideString	4-2 GB	2³⁰ Karakter

*Tipe Data Array

Array adalah suatu variable tunggal yang digunakan untuk menyimpan sekumpulan data yang sejenis.
Contoh:

var hari : array[1.7] of String;
begin
hari[1]:='Senin';
.............
.............
hari[7]:='Sabtu';
end;

*Tipe Data Record

Tipe Data Record digunakan untuk menyimpan sekumpulan data yang mungkin mempunyai tipe yang berbeda tetapi saling berhubungan.
Contoh:

type
Rbarang=record
kode:string[4];
nama:string[20];
harga:integer;
end;
var barang:Rbarang;
begin
barang.kode:='TV01';
barang.nama:='Televisi';
barang.harga:='2000000';
end;

Selanjutnya: Bentuk-bentuk Konversi Data pada Delphi

Operator pada Delphi

noreply@blogger.com (Achmad Fajar24) — Fri, 26 Feb 2016 06:45:00 -0800

Operator pada Delphi dibagi menjadi 4 yaitu:

*Operator Assignment

Assignment atau operator fungsi dituliskan dengan bentuk ":=" (titik dua sama dengan) dan berfungsi untuk memasukan suatu nilai data kedalam sebuah variabel, dengan bentuk penulisan:
[nama variabel]:=[ekspresi];
contoh:
harga:=500;
jumlah:=20;
total:=harga*jumlah;

*Aritmatika

Operator	Fungsi
*	Perkalian
/	Pembagian real
+	Penjumlahan
-	Pengurangan
div	Pembagian integer
mod	Sisa Hasil Bagi

*Operator Relasi

Operator Relasi berfungsi untuk membandingkan suatu nilai (ekspresi) dengan nilai (ekspresi) lain yang akan menghasilkan suatu nilai logika (boolean) yaitu true dan false. Kedua data nilai yang dibandingkan tersebut harus memiliki tipe data yang sama. Berikut ini adalah operator relasi yang disediakan oleh Delphi:

Operator	Fungsi
=	Sama Dengan
>	Lebih Besar
<	Lebih Kecil
>=	Lebih Besar atau Sama Dengan
<=	Lebih Kecil atau Sama Dengan
<>	Tidak Sama Dengan

*Operator Logika

Operator Bit
Berhubungan dengan pembandingan pada level bit -> And, Or, Not, Xor, Shl, Shr
Operator Boolean
Menyatakan satu atau lebih data ekspresi logika yang akan menghasilkan data logika (boolean) yang baru True atau False -> And, Or, Not, Xor.

Selanjutnya: Jenis-jenis Tipe Data

Apa itu delphi?

noreply@blogger.com (Achmad Fajar24) — Fri, 26 Feb 2016 05:25:00 -0800

Delphi adalah bahasa pemograman beroriantasi objek untuk mengembangkan aplikasi konsol, dekstop, web, dan mobile. Struktur bahasa pemograman Delphi sebenarnya sama dengan Pascal jadi apabila sebelumnya anda pernah mempelajari bahsa Pascal maka anda tidak akan kesulitan saat pertama kali mempelajari delphi. Selain itu, bahasa pemograman Delphi pada mulanya hanya ditujukan untuk Microsoft windows, namun saat ini telah mampu digunakan untuk pengembangan aplikasi MAC OS X, IOS, Android, Microsoft .NET framework dll.

Pengenalan Pemograman Delphi

Komentar

Komentar dipakai untuk memberikan penjelasan atau keterangan didalam baris program. Text yang ditulis sebagai komentar tidak akan dikompilasi oleh kompiler pada saat program aplikasi dijalankan.

3 bentuk tanda buku:

*Kurung kurawal = {Komentar Program}= bisa lebih dari 1 baris.

*Kurung bintang = (*Komentar Program*) = hanya 1 baris.

*Slash Ganda = //Komentar Program = hanya 1 baris

Variabel

Variable berfungsi untuk menyimpan data, pendeklarasian variable mempunyai susunan sebagai berikut:

var [nama variabel]:[tipe variable];

contoh:

var a:integer;

b:string;

c,d:real;

Aturan yang harus diikuti dalam menuliskan nama variabel

*Panjang penulisan nama variabel max 63 karakter, jika > 63 karakter maka kompiler akan mengabaikan penulisan karakter berikutnya,

*Penulisan nama variabel hanya terdiri dari huruf, angka, dan garis bawah,

*Nama variabel bukan merupakan sebuah kata kunci milik Delphi, seperti case, if, while, end, dll

*Tidak boleh mengandung karakter yang dipakai untuk operator, seperti (,),+,-,*,/, dll.

Konstanta

Konstanta pada Delphi merupakan suatu nilai yang bersifat tetap. Jenis data untuk suatu konstanta dapat berupa data angka(numeric), teks(String), true, false, dan nil.

Contoh:

const angka = 1;//untuk angka

text = 'satu';//untuk text;

Selanjutnya: Operator Pada Delphi