Bahasa Delphi

10 November 2009

Bahasa Delphi digunakan untuk berbagai keperluan baik untuk perhitungan matematis, aplikasi perkantoran, apliksi multimedia, pembuat aplikasi pengolah, aplikasi kontrokl industri sampai aplikasi database.
Komponen yang disediakan oleh Delphi akan membantu kita dalm merancang dan membangaun database.
• Data accses dan BDE berperan dalam penentuan sumber data seperti SQL, Tabel, query maupun konektivitasnya. Contoh komponen ini adalah tabel, dan DataSource.
• Data contol lebih menekankan pada pengaturan data yang terpasang pada aplikasi
• ADO digunakan untuk komunikasi program dengan database MS acces sehingga data yang dibuat dengan MS Acces akan dapat diintegrasikan dengan Delphi.



Menghitunng volume dan luas permukaan balok

Rumus:
Volume: = P*L*T
Luas : = (2*P*L) + (2*L*T) + (2*P*T)

Tempatkan komponen-komponen berikut pada form lalu ubah propertiesnya.
1. Label 1:
Caption : menghitung volume & luas permukaan
Font.style : Bold
Font.size : 16
2. Label 2:
Caption : panjang
3. Label 3 ;
Caption : lebar
4. Label 4:
Caption : tinggi
5. Label 5 :
Caption : volume
6. Label 6 :
Caption : luas permukaan
7. edit1.text, edit2.text, edit3.text, sampai edit5.text (text diisi dengan nilai 0)
8. Buton 1:
Caption : hitung
Event onlick sebagai berikut :








Var p,l,t, volume, luas : integer; //tempatkan variable di atas procedure

Procedur TForm1.Button1 click(sender: object);
Begin
//konversi dari string ke integer
P = StrToInt (Edit1.Text);
L = StrToInt (Edit2.Text);
T = StrToInt (Edit3.Text);

Vol := P*L*T ;
Luas := (2*P*L) + (2*P*T) + (2*L*T)

//konversi dari integer ke string
Edit4.Text := IntToStr(Vol);
Edit5.Text := IntToStr(Luas);

end;

9. Image1: untuk menampilkan gambar bertipe MBP atau JPEG (optimal)
Picture : balok.bmp (sebelumnya telah dibuat melalui program PAINT)

Hasil Running :(isikan nilai panjang=10, lebar=15, tinggi=12)

10. hasil:
Volume = 1800
Luas permukaan = 900


0 komentar: