Latihan Sederhana Pake Delphi

Latihan Sederhana Pake Delphi

kali ini kita coba buat program kecil2an yang maskudnya buat ngitung biaya kita masuk ke hotel gtu, :D
niatnya sih sebagai review dari tutor delphi selama di blog ane ini,tar pasti ada tutor baru di blog ini for awamer delphi programer delphi kaya ane ini
langsuung saja dah,,berikut adalah penampakan formnya:


ready?????
ada 4 edit text
4 radio button
3 button
dan 1 combobox
penjelasan program konyol ini adalah sbb:
kamar hotel ada 3 kelas yaitu biasa,eksekutif,dan president suite dengan harga yang berbeda.
tarif kamar biasa senilai 500000,eksekutif 1000000 dan president suite 2000000,
diskon kalo cek in pagi 2%,siang 6%,sore 10% dan malam 14%.
ini langsung aja listing programnya.
untuk event form create,kasih script kaya ini

lalu untuk combobox nya

untuk radiobutton

dan terakhir untuk menghitung total bayar lakukan pada button1

untuk data baru

terakhir jangan lupa tambahkan variabel global ini

Font Style & Alignment Pada Delphi

Font Style & Alignment Pada Delphi

Posting Kali ini akan belajar mengubah Style dan Alignment pada Label dengan menggunakan komponen checkbox dan radiobutton :k :k . .
aplikasi ini sangat sederhana bagi kita yang awam dan pemula (sama aja kale).
yang kita butuhkan dalam formnya hanya 1 label,3 buah checkbox dan 3 buah radiobutton, (semua komponen masih ada di komponen standar ko)...
kira-kira bentuk formnya seperti ini sajalah:


Jangan lupa pada label1 beri nilai false pada AutoSize nya (ada ko di object Inspector) :D dan ukuran labelnya 28 sajalah juga..

kemudian saatnya memberikan script pada 3 buah checkbox & 3 radio buttonnya..
klik ganda pada checkbox tebal dan scriptnya kaya gene
ini untuk 3 checkbox

dan ini untuk 3 radiobuttonnya

so sekarang jalankan saja dah... sukses ko dan sekali lagi memang mudah dalam belajar pemrograman delph

Kombinasi Pengulangan dan Penyeleksian (DELPHI)

Kombinasi Pengulangan dan Penyeleksian (DELPHI)

Posting kemarin kan tentang aplikasi yang mengubah ukuran label dengan combobox, :D sekarang masih dengan sesi mengubah2 namun kali ini dengan memo,perataan,dan style,kaya apa ya? ya kira2 kya gene :D

bertahap lah namanya juga kalo ingin meng advanced kan diri mah hehehehehe
oke lah langsung saja kita koding nya :$

di form tersebut terdapat 1 memo,1 listbox,3 radiobutton,3 checkbox,1 combobox,1 button keluar,
nah begini lah kodingnya
ini untuk kejadian form show


ini untuk masing2 checkbox


ini untuk 3 buah radiobutton


ini untuk listbox dengan event click


ini untuk combobox dengan event change


so last for exit button


joba coba saja dah ketik sesuatu pada memo nya dan klik2 button radio nya dan ubah ukurannya

Kombinasi Pengulangan dan Penyeleksian (DELPHI)

Kombinasi Pengulangan dan Penyeleksian (DELPHI)

Posting kemarin kan tentang aplikasi yang mengubah ukuran label dengan combobox, :D sekarang masih dengan sesi mengubah2 namun kali ini dengan memo,perataan,dan style,kaya apa ya? ya kira2 kya gene :D

bertahap lah namanya juga kalo ingin meng advanced kan diri mah hehehehehe
oke lah langsung saja kita koding nya :$

di form tersebut terdapat 1 memo,1 listbox,3 radiobutton,3 checkbox,1 combobox,1 button keluar,
nah begini lah kodingnya
ini untuk kejadian form show


ini untuk masing2 checkbox


ini untuk 3 buah radiobutton


ini untuk listbox dengan event click


ini untuk combobox dengan event change


so last for exit button


joba coba saja dah ketik sesuatu pada memo nya dan klik2 button radio nya dan ubah ukurannya

String Manipulation

String Manipulation

kali ini kita akan mempelajari tentang fungsi-fungsi string pada delphi :$ :D
dimana kita akan memakai fungsi-fungsi yang standard dahulu dan akan amat sangat banget untuk dimengerti :o...
lets sekarang kita mulai saja wokeeh :$
lets biasa kita buka dahulu delphi kalian...

bentuk formnya seperti gambar dibawah ini :D

dimana ada 8 buah komponen edit text dan 2 buah button.....
ini mudah ko dan nanti saya akan jelaskan maksud dari kode2 dari fungsi-fungsi stringnya..... :D
sebelumnya tambahkan uses baru di code editor dengan nama uses StrUtils
sehingga kalo dipanjangin jadi kaya gini nih usesnya
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StrUtils, StdCtrls;
nah yang cetak tebal adalah yang mesti ditambahkan.
sudah dibuatkah formnya dan lain2nya?
kalo sudah klik ganda pada button1 dan ketikan rumusnya kaya gene nih

procedure TForm1.Button1Click(Sender: TObject);
var s:string;
begin
s:=edit1.Text;
edit2.Text:=lowercase(s);
edit3.Text:=uppercase(s);
edit4.Text:=reversestring(s);
edit5.Text:=leftstr(s,2);
edit6.Text:=rightstr(s,3);
edit7.Text:=midstr(s,4,3);
edit8.Text:=inttostr(length(s));
end;

dan pada button2 kodenya adalah sebagai berikut:

procedure TForm1.Button1Click(Sender: TObject);
begin
edit1.Text:='';
edit2.Text:='';
edit3.Text:='';
edit4.Text:='';
edit5.Text:='';
edit6.Text:='';
edit7.Text:='';
edit8.Text:='';
edit1.setfocus;
end;

coba deh oleh rekan sekalian compile dan run!!
mesti dan harus berhasil dehhh...
seperti kaya gambar ini misal :$

saya akan jelaskan oke
variabel s dengan tipe data string kita tempatkan pada edit1.text
saat tombol dipencet kan rumusnya kaya gini kan?
edit2.Text:=lowercase(s);
yang ini artinya kita meng lowercase kan edit1.text yang ditampilkan pada edit2.text
edit3.Text:=uppercase(s);
yang ini artinya membuat uppercase edit1.text yang ditampilkan pada edit3.text
edit4.Text:=reversestring(s);
ini untuk mereverse string ya artinya tau sendiri lah pasti hehehehe
edit5.Text:=leftstr(s,2);
untuk yg ini artinya kita mengambil 2 karakter sebelah kiri
edit6.Text:=rightstr(s,3);
ini mengambil 3 karakter dari sebelah kanan
edit7.Text:=midstr(s,4,3);
dan ini adalah memulai 4 karakter dari kiri dan menampilkannya sebanyak 3 karakter
edit8.Text:=inttostr(length(s));
kalao ini untuk menghitung berapa jumlah atau panjang string yang diinputkan
oke dah sekian saja dahulu ya semoga bermanfaat oke :D :D

Kalkulator Delphi

Kalkulator Delphi

Nah setelah potingan kemarin yang tentang variabel dan tipe data pada Delphi itu,,sekarang mari kita implementasikan penggunaannya pada sebuah aplikasi Kalkulator sederhana,, yo men lets start it,,, buka borland Delphimu men....
oke sekarang bentuk Formnya kaya gene neh

and So :o begini loh listing programnya,,,,,,

Sebelumnya beri variabel globalnya dulu dengan
var
Form1: TForm1;
a,b,c: real;
x,y,z: integer;
saya beri kode buat tombol perhitungannya saja yah :$
ini untuk tombol perkalian
procedure TForm1.Button1Click(Sender: TObject);
begin
a:=strtofloat(edit1.text);
b:=strtofloat(edit2.text);
c:=a*b;
edit3.Text:=floattostr(c);
end;
# strtofloat adalah fungsi unutk mengubah data yang berbentuk string menjadi floating point(real)
# sedangkat floattostr adalah sebaliknya,dari floating menjadi string

untuk tombol pembagian tinggal ganti c:=a*b; nya menjadi c:=a/b; begitu pula penjumlahan c:=a+b; dan pengurangan c:=a-b; namun untuk fungsi mod, kita tidak memakai strtofloat tapi strtoint sehingga seperti inilah rumusnya x:=strtoint(edit1.text);
y:=strtoint(edit2.text);
z:=(x mod y);
edit3.Text:=inttostr(z);
# sama inttostr juga yaitu mengubah nilai integer menjadi string
# dan strtoint dari string ke integer
makanya di atasnya juga var nya beda hehehe :$ :$
dan untuk fungsi pangkat adalah c:=exp(b*ln(a));

Memberikan MessageBox untuk Tombol Keluar pada Delphi

Agar aplikasi yang kita buat menjadi lebih dinamis, lebih nyaman dan lebih user friendly / ramah terhadap user tentunya kita harapkan aplikasi yang kita buat tersebut seolah-olah dapat berkomunikasi langsung dengan user. Sebagai contoh berikut adalah penggunaan messageBox untuk tombol keluar pada aplikasi delphi yang akan menanyakan kepada user untuk tetap keluar aplikasi atau tidak jika ditekan tombol keluar.
Berikut ini adalah kode program untuk membuat messageBox pada tombol keluar:
if messagedlg(‘Anda Ingin Keluar Aplikasi ini?’,mtconfirmation,[mbYes,mbNo],0)=mrYes then
begin
application.Terminate;
end;