PROGTRAM DELPI

PROGTRAM DELPI
OLEH AFFANNUR

Langkah pembuatan program :

1. Jalankan Delphi 7

2. Pada kotak objek inspector terdapat 2 baris dan banyak kolom. pada kolom color isi dengan warna kesukaan anda. Disini saya contohkan dengan warna "clAqua"

3. Pada kolom caption "Form1" ganti dengan "konversi uang"

4. Tambahkan label,edit,dan button pada form konversi uang, dengan mengeklik simbol "A","OK","AB|" pada bagian atas lalu klik kan ke form konversi uang.

6. Untuk mengganti nama pada label, klik sekali saja label yang ingin diganti namanya, lalu lihat kotak kiri bawah (kotak objek inspector) ganti nama yang anda inginkan pada kolom caption, yang sebelumnya bernama label1. Dan lakukan cara yang sama untuk mengganti nama pada tombol/button.

7. langkah selanjutnya memasukkan listning program pada button "konversi". dengan cara klik dua kali tombol tersebut lalu masukkan listning program di bawah ini:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
masukkan,seratus_ribu,lima_puluh_ribu,sepuluh_puluh_ribu,
lima_ribu,seribu,lima_ratus,seratus,lima_puluh,sepuluh,satu:integer;
begin
{100 ribu}
masukkan:=StrToInt(edit1.Text);
seratus_ribu:=masukkan div 100000;
edit2.Text:=IntToStr(seratus_ribu);
{50 ribu}
masukkan:=StrToInt(edit1.Text);
lima_puluh_ribu:=masukkan div 50000 mod 2;
edit3.Text:=inttostr(lima_puluh_ribu);
{10 ribu}
masukkan:=StrToInt(edit1.Text);
sepuluh_puluh_ribu:=masukkan div 10000 mod 5;
edit4.Text:=inttostr(sepuluh_puluh_ribu);
{5 ribu}
masukkan:=StrToInt(edit1.Text);
Lima_ribu:=masukkan div 5000 mod 2;
edit5.Text:=inttostr(lima_ribu);
{seribu}
masukkan:=StrToInt(edit1.Text);
seribu:=masukkan div 1000 mod 5;
edit6.Text:=inttostr(seribu);
{lima ratus}
masukkan:=StrToInt(edit1.Text);
lima_ratus:=masukkan div 500 mod 2;
edit7.Text:=inttostr(lima_ratus);
{seratus}
masukkan:=StrToInt(edit1.Text);
seratus:=masukkan div 100 mod 5;
edit8.Text:=inttostr(seratus);
{lima puluh}
masukkan:=StrToInt(edit1.Text);
lima_puluh:=masukkan div 50 mod 2;
Edit9.Text:=IntToStr(lima_puluh);
{sepuluh}
masukkan:=StrToInt(edit1.Text);
sepuluh:=masukkan div 10 mod 5;
Edit10.Text:=IntToStr(sepuluh);
{satu}
masukkan:=StrToInt(edit1.Text);
satu:=masukkan div 1 mod 10;
Edit11.Text:=IntToStr(satu);
end;

8. Terus klik dua kali lagi pada button "Exit" dan copas listning program dibawah ini :

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if Application.MessageBox('Anda Yakin?',
'informasi',mb_okcancel or mb_iconquestion)=mrok then
Application.Terminate;
end;
end.

9. Untuk Menjalankannya klik tombol run , lalu masukkan uang yang ingin anda konversikan, terus klik tombol konversi, lihat apa yang terjadi!! Program akan menampilkan jumlah masing- masing pecahan, jika seluruh pecahan itu di jumlahkan maka hasilnya sama dengan nilai uang yang anda masukkan tadi.




Nah,,, kurang lebihnya seperti itu, Selamat Mencoba. ^_^

Diposkan oleh Borland7

Mengkoneksikan MYSQL dengan Delphi 7

di 21.34 | 0 komentar  

Berikut ini adalah cara mengkoneksikan database MySQL dengan IDE Delphi :

1. Salinlah DBEXPMYS.DLL yang terdapat pada C:\Program Files\Borland\Delphi7\Bin ke C:\Windows\system

2. Di Direktori C:\Borland Shared\DBExpress terdapat berkas bernama dbxdriver.txt, dengan menggunakan text editor, misalkan Notepad, ubahlah teks berikut:[MySQL]
GetDriverFunc = getSQLDriverMYSQL
LibraryName=dbexpmysql.dll

menjadi

[MySQL]
GetDriverFunc = getSQLDriverMYSQL
LibraryName=dbexpmys.dll
3. Downloadlah file libmysql.dll dari situs http://www.dll-files.com/dllindex/dll-files.shtml?libmysql

4. Salinlah file libmysql.dll tersebut ke dalam C:\windows\System

5. Untuk mengkoneksikan antara program yang kita buat dalam Delphi dengan MySQL kita dapat menggunakan komponen SQLConnection yang terdapat dalam dbExpress

Semoga bermanfaat :D

Diposkan oleh Borland7

Menginstal Komponen QuickReport Di Delphi7

di 21.32 | 0 komentar  

Untuk menginstal Komponen QuickReport pada delphi 7, caranya kaya gini neh?
- Buka Delphi7 Anda
- Masuk menu component dan pilih install packages
- Tambahkan komponen baru dengan memilih add
- Setelah itu cari fiel dclqrt70.bpl
- Kemudian OK
- Komponen QuickReport sudah terinstal dalam delphi7

catatan :
file dclqrt70.bpl ada di folder bin delphi7 OK

semoga bermanfaat ...

Diposkan oleh Borland7

Menampilkan waktu di delphi

di 21.31 | 0 komentar  

Untuk menampilkan tanggal atau waktu atau keduanya di delphi secara real time
anda bisa menggunakan Komponen Timer pada event OnTimer.
berikut ini tutorial singkatnya (saya menggunakan delphi 7) :

* Buat sebuah project baru di delphi. tambahkan sebuah komponen Label dan
sebuah komponen Timer (ada di tab System)
* Set property Interval komponen Timer
menjadi 100 atau berapa saja (satuan dalam milli second) lebih kecil interval yang diberikan,
lebih cepat event OnTimer dieksekusi
* Tambahkan perintah berikut pada Event OnTimer komponen Timer

//

label1.Caption :=
formatdatetime(‘"Tanggal : "dd/mm/yyyy’,now)+chr(10)+
formatdatetime(‘"Pukul : "hh:nn:ss’,now);
label1.Refresh;

//

Diposkan oleh Borland7

Menampilkan Data Di Listview

di 21.30 | 0 komentar  

Database adalah merupakan kumpulan data yang saling berhubungan yang diorganisasi sedemikian rupa agar kelak dapat dimanfaatkan kembali dengan cepat dan mudah. Dalam hal pemrograman database sudah menjadi bagian yang sangat penting dalam menyimpan data. Bermacam-macam cara yang dapat dilakukan agar database dapat ditampilkan didalam pemrograman. Salah satunya menggunakan DBGrid, Listview, ataupun komponen lainnya. Saya akan berbagi bagaimana menampilkan teks dari database yang ditampilkan ke Listview. Saya pilih listview karena mungkin DBGrid sudah umum banyak dipakai dan menurut saya tampilannya kurang begitu bagus.

Ada dua cara untuk menampilkan data di listview :

1. Melalui properties di komponennya (klik kanan listview, pilih “column editor” atau “item editor”)

2. Menggunakan code program.

Saya akan menjelaskan untuk no.2.

Berikut code programnya :


procedure TForm1.Button1Click(Sender: TObject);
var
KolomBaru:TListColumn;
ItemBaru:TListItem;
begin
ListView1.ViewStyle := vsReport;
ListView1.Columns.Add;
ListView1.Columns[0].Caption:='No';
ListView1.Columns.Add;
ListView1.Columns[1].Caption:='Judul Buku';
ListView1.Columns.Add;
ListView1.Columns[2].Caption:='Komentar';
ItemBaru:=ListView1.Items.Add;
ItemBaru.Caption:='1';
ItemBaru.SubItems.Add('Belajar Delphi');
ItemBaru.SubItems.Add('Terus coba ya');
end;

procedure TForm1.Button2Click(Sender: TObject);
var
jmlkolom,i:integer;
begin
for i := ListView1.Items.Count - 1 downto 0 do
ListView1.Items.Delete(i);
for i := ListView1.Columns.Count - 1 downto 0 do
ListView1.Columns[i].Destroy;
end;

Prosedur pertama digunakan untuk tombol membuat data dan kolom, dan prosedur yang ke dua digunakan untuk tombol hapus data.

Nah untuk menampilkan data dari database yang ditampilkan di ListView nantikan artikel selanjutnya.

Diposkan oleh Borland7

Membuat kalkulator dengan Delphi 7

di 21.28 | 0 komentar  

Buat para pembaca yang tertarik pengen belajar pemrograman delphi,khususnya bagi para pemula...hahahhaa..kayak dah hebat aja..padahal ilmunya aja masih seujung jarum...tapi nggak salahkan saling berbagi pengetahuan..siapa tahu ada pembaca yang lagi membutuhkan..pada postingan kali ini saya akan menuliskan sedikit tentang bagaimana cara membuat kalkulator sederhana dengan menggunakan aplikasi delphi..versi yang saya gunakan disini masih sama seperti postingan saya sebelumnya

yaitu dengan menggunakan delphi versi 7..karna saya juga belajarnya pakai versi 7,makanya saya juga buat programnya pakai versi 7..berikut adalah contoh Tampilan program kalkulator sederhana pada saat di running..



Buat para pembaca yang berminat pebngen nyobain buat kalkulator seperti gambar diatas,berikut langkah-langkahnya :
1. Buat Form baru terlebih dahulu,kemudian letakkan 1 buah Panel yang berada
pada tab standard

2. Seletah itu,pada tab properties hilangkan caption panel tersebut, dan
kemudian pada warna panel pilih “clGradientInactiveCaption”.

3. Kemudian masih pada tab standard letakkan 6 buah button,4 buah data edit dan
4 buah label.

4. Setelah itu atur letak kesemuanya seperti terlihat pada gambar diatas
Nah sekarang pembaca tinggal meletakkan sedikit coding pada masing masing button tersebut.

1. Klik 2x pada button “ + “,kemudian paste kode berikut :

b1:integer;
b2:integer;
jml:integer;
begin
b1:=StrToInt(Eb1.Text);
b2:=StrToInt(Eb2.Text);
jml:=b1+b2; ///operasi penambahan
Ejml.text:=FloatToStr(jml);
End;
2. Pada button “ –“ klik 2x dan paste code berikut :

b1:integer;
b2:integer;
jml:integer;
begin
b1:=StrToInt(Eb1.Text);
b2:=StrToInt(Eb2.Text);
jml:=b1-b2; //operasi pengurangan
Ejml.text:=FloatToStr(jml);
end;

3. Klik 2 x pada button “ / “, kemudian paste code berikut :

b1:integer;
b2:integer;
jml:integer;
begin
b1:=StrToInt(Eb1.Text);
b2:=StrToInt(Eb2.Text);
jml:=b1 div b2;
Ejml.text:=FloatToStr(jml);
end;
4. Pada operasi perkalian,paste code berikut :

b1:integer;
b2:integer;
jml:integer;
begin
b1:=StrToInt(Eb1.Text);
b2:=StrToInt(Eb2.Text);
jml:=b1*b2;
Ejml.text:=FloatToStr(jml);
end;
5. Untuk button “ulang” paste lagi code berikut :
begin
Eb1.Text:='0';
Eb2.Text:='0';
Ejml.Text:='0';
end;
6. Sedangkan untuk button “KELUAR” anda hanya tinggal menambahkan code berikut
“ close ; “ tanpa tanda kutip.
7. Nah selesai sudah...sekarang coba anda running program yang sudah anda buat
tadi..mudahan berhasil..hehehheee

Semoga bermanfaat

Diposkan oleh Borland7

Membuat Setting Database Pada Registry

di 21.27 | 0 komentar  

Uses Registry
Menyimpan Settingan Database
procedure TForm1.BBSimpanClick(Sender: TObject);
begin
try
// Membuat key baru
Reg.OpenKey(‘\Softwareku’, true);
// Menulis data string (Caption form) ke registry
Reg.WriteString(‘Host’, EHost.Text);
Reg.WriteString(‘Port’, EPortname.Text);
Reg.WriteString(‘User’, Euser.Text);
Reg.WriteString(‘Pass’, Epass.Text);
Reg.WriteString(‘Database’, EDBname.Text);
finally
Reg.CloseKey;
end;

end;

//ONCREATE FORM
procedure TForm1.FormCreate(Sender: TObject);
begin
Reg := Tregistry.Create;
Reg.RootKey := HKEY_CURRENT_USER;
end;

Memanggil Settingan database
try
try
Reg.OpenKey(‘\Softwareku’, false);
Edit1.Text := Reg.ReadString(‘Host’);
ComboBox1.Text := Reg.ReadString(‘Port’);
Edit2.Text := Reg.ReadString(‘User’);
Edit3.Text :=Reg.ReadString(‘Pass’);
Edit4.Text := Reg.ReadString(‘Database’);
except on ERegistryException do
ShowMessage(‘Gagal membaca settingan…’);
end;
finally