Pembelajaran sederhana menggunakan delphi 2010
Oleh:
JOKO TURWANTO
NIM : 2011.15.458.0016
JURUSAN
TEKNIK INFORMATIKA
FAKULTAS
TEKNIK
UNIVERSITAS
WAHIDIYAH
Untuk pertemuan kita kali ini kita akan mencoba
membuat pembelajaran sederhana menggunakan delphi 2010 seperti calculator, membuat
Pgrm Rumus Phytagoras jika a dan b diketahui, Menentukan Luas persegi panjang,
Menentukan Bil terbesar dari 2 bil,
Menentukan bilangan genap atau ganjil dan Menentukan nilai yang lebih
besar langkah awal kali ini kita akan
membuat form terlebih dahulu komponennya antara lain : di bawah ini dan untuk panel di letakan di paling
bawah atau paling atas .
Karna ini dulu adalah tugs sewaktu saya kuliah maka saya
beri nama pak redi formnya heheheh g papakan
Nama komponen
|
caption
|
nama
|
Tedit
|
-
|
J1
|
Tedit
|
-
|
J2
|
Tedit
|
-
|
J3
|
Tedit
|
-
|
J4
|
Tedit
|
-
|
J5
|
Tedit
|
-
|
J6
|
Tedit
|
-
|
J7
|
Tedit
|
-
|
J8
|
Tedit
|
-
|
J9
|
Tedit
|
-
|
J10
|
Tedit
|
-
|
J11
|
Tedit
|
-
|
J12
|
Tedit
|
-
|
J13
|
TEdit
|
-
|
J14
|
TEdit
|
-
|
J15
|
Tbutton
|
KURANG
|
KURANG
|
Tbutton
|
KALI
|
KALI
|
Tbutton
|
TAMBAH
|
TAMBAH
|
Tbutton
|
BAGI
|
BAGI
|
Tbutton
|
HASIL
|
HASIL
|
TButton
|
PROSES
|
PROSES
|
TButton
|
HITUNG
|
HITUNG
|
TButton
|
NILAI
|
NILAI1
|
TRadioGroup
|
-
|
radioGroup1
|
Timage
|
-
|
IMAGE1
|
Timage
|
-
|
IMAGE2
|
Timage
|
-
|
IMAGE3
|
Timage
|
-
|
IMAGE4
|
Timage
|
-
|
IMAGE5
|
Timage
|
-
|
IMAGE6
|
TImage
|
-
|
IMAGE7
|
TPanel
|
VARIABEL A
|
Panel1
|
TPanel
|
VARIABEL B
|
Panel2
|
Tpanel
|
NILAI
|
Panel3
|
Tpanel
|
PANJANG
|
Panel4
|
Tpanel
|
LEBAR
|
Panel5
|
Tpanel
|
NILAI KE 1
|
Panel6
|
TPanel
|
NILAI KE 2
|
Panel7
|
Tpanel
|
NO 1
|
NO1
|
Tpanel
|
NO 2
|
NO2
|
Tpanel
|
NO 3
|
NO3
|
Tpanel
|
NO 4
|
NO4
|
Tpanel
|
NO 5
|
NO5
|
TPanel
|
NO 6
|
NO6
|
TLABEL1
|
-
|
LABEL1
|
TLABEL
|
Designprogram717
|
LABEL2
|
TTimer
|
-
|
Timer2
|
TTimer
|
-
|
Timer2
|
unit Tugas_pak_redi;
interface
uses
Windows, Messages,
SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,
ExtCtrls, jpeg;
type
TForm1 =
class(TForm)
J1: TEdit;
J2: TEdit;
J3: TEdit;
Kurang: TButton;
Kali: TButton;
Bagi: TButton;
Tambah: TButton;
J6: TEdit;
J5: TEdit;
J4: TEdit;
Hasil: TButton;
J7: TEdit;
Proses: TButton;
J8: TEdit;
J9: TEdit;
J10: TEdit;
Hitung: TButton;
J12: TEdit;
J11: TEdit;
Nilai1: TButton;
J13: TEdit;
J14: TEdit;
RadioGroup1:
TRadioGroup;
J15: TEdit;
Image1: TImage;
Image2: TImage;
Image3: TImage;
Image4: TImage;
Image5: TImage;
Image6: TImage;
Image7: TImage;
Panel1: TPanel;
Panel2: TPanel;
Panel3: TPanel;
Panel4: TPanel;
Panel5: TPanel;
Panel6: TPanel;
Panel7: TPanel;
ComboBox1:
TComboBox;
No1: TPanel;
No2: TPanel;
No3: TPanel;
No4: TPanel;
No5: TPanel;
No6: TPanel;
Label1: TLabel;
Label2: TLabel;
Timer1: TTimer;
waktu12: TPanel;
Timer2: TTimer;
procedure
TambahClick(Sender: TObject);
procedure
KurangClick(Sender: TObject);
procedure
KaliClick(Sender: TObject);
procedure
BagiClick(Sender: TObject);
procedure
HasilClick(Sender: TObject);
procedure
ProsesClick(Sender: TObject);
procedure
HitungClick(Sender: TObject);
procedure
Nilai1Click(Sender: TObject);
procedure
RadioGroup1Click(Sender: TObject);
procedure
ComboBox1Change(Sender: TObject);
procedure
Timer1Timer(Sender: TObject);
procedure
Timer2Timer(Sender: TObject);
private
{ Private
declarations }
public
{ Public
declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
Brikut adalah pengkodean untuk membagi
procedure TForm1.BagiClick(Sender: TObject);
var a,b: real;
begin
a:=strtoint (J1.Text);
b:=strtoint (J2.Text);
J3.Text:=floattostr (a/b);
end;
berikut adalah pengkodean untuk mencari luas persegi panjang
procedure TForm1.HitungClick(Sender: TObject);
var a,b:integer;
begin
a:=strtoint (J8.text);
b:=strtoint (J9.text);
J10.text:=inttostr (a*b);
end;
nah yang ini teman teman berfungsi untuk meberi penjelasan
bahwa sanya gambar no 1-5 itu program apa sih pengkodeanya midah tinggal masukan
di item combobx nya NO 1 _ SAMPAI NO_6
pengkodeanya adalah menggunakan perinita atau even on chang lalu masukan kode
seoerti di bawah ini
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.Text='No 1' then label1.Caption:=('M pgrm
Kalkulator');
if combobox1.Text='No 2' then label1.Caption:=('M Pgrm Rumus
Phytagoras jika a dan b diketahui');
if combobox1.Text='No 3' then label1.Caption:=('M Pgrm untk
Menentukan bilangan genap atau ganjil');
if combobox1.Text='No 4' then label1.Caption:=('M Pgrm
Menentukan Luas persegi panjang');
if combobox1.Text='No 5' then label1.Caption:=('M Pgrm
Menentukan Bil terbesar dari 2 bil');
if combobox1.Text='No 6' then label1.Caption:=('Menentukan
nilai yang lebih besar');
end;
program membuat rumus pyta goras pengkodeanya adalah seperti
di bawah ini
procedure TForm1.HasilClick(Sender: TObject);
var a,b,c: real;
begin
a:=strtofloat (J4.text);
b:=strtofloat (J5.text);
J6.text:=floattostr (sqrt(sqr(a)+sqr(b)));
end;
berikut adalah perintah untuk membuat perkalian
procedure TForm1.KaliClick(Sender: TObject);
var a,b: integer;
begin
a:=strtoint (J1.Text);
b:=strtoint (J2.Text);
J3.Text:=inttostr (a*b);
end;
dan ini untuk kode pengurangan
procedure TForm1.KurangClick(Sender: TObject);
var a,b: integer;
begin
a:=strtoint (J1.Text);
b:=strtoint (J2.Text);
J3.Text:=inttostr (a-b);
end;
dan berikut adalah rumus untuk membuat nilai yang lebih
besar
procedure TForm1.Nilai1Click(Sender: TObject);
var a,b:integer;
begin
a:=strtoint (J11.text);
b:=strtoint (J12.text);
if a>b then showmessage ('Nilai ke 1 Lebih besar')
else
if a<b then showmessage ('Nilai ke 2 lebih besar')
else
if a=b then showmessage ('2=2');
end;
berikut adalah rumus untuk menentukan bilangan genap atau
ganjil
procedure TForm1.ProsesClick(Sender: TObject);
var a,b:integer;
begin
a:=strtoint (J7.text);
b:=a mod 2;
if b=0 then showmessage ('Bilangan Genap')
else
showmessage ('Bilangan Ganjil');
end;
dan yang ini adalah rumus untuk menentukan bialangan
terbesar dari 2 bilangan
procedure TForm1.RadioGroup1Click(Sender: TObject);
var a,b,c:real;
begin
if radiogroup1.ItemIndex =0 then
begin
b:=strtofloat(J14.Text );
c:=strtofloat(J15.Text );
J13.Text:=floattostr(sqrt(sqr(c)-sqr(b)));
end else
if radiogroup1.itemindex=1 then
begin
a:=strtofloat(J13.Text );
c:=strtofloat(J15.Text );
J14.Text:=floattostr(sqrt(sqr(c)-sqr(a)));
end else
if radiogroup1.ItemIndex =2 then
begin
a:=strtofloat(J13.Text );
b:=strtofloat(J14.Text );
J15.Text:=floattostr(sqrt(sqr(a)+sqr(b)));
end else
end;
membuat rumus untuk penjumlahankodenya adalah sebagai
berikut
procedure TForm1.TambahClick(Sender: TObject);
var a,b: integer;
begin
a:=strtoint (J1.Text);
b:=strtoint (J2.Text);
J3.Text:=inttostr (a+b);
end;
dan yang ini adalah untu membuat tulisan berjalan
pengkodeanya adalah,
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label2.Left <= 700 then
label2.Left := label2.Left + 2
else
label2.Left := -310;
end;
dan yang terakhir ini untuk membuat/ menampilkan waktu di
area program kita
procedure TForm1.Timer2Timer(Sender: TObject);
begin
waktu12.Caption:=FormatDateTime('dddd, dd mmmm yyyy
(hh:mm:ss)',Now);
end;
end.
Selesai dech program yang kita buat kali ini
jangan lupa even2 yang akan kita beri perintah yea
Semoga ini bermanfaat buat kita semua amien
Selamat mencoba
g_mail :dprwscout717@gmail.com
blok :designprogram717.blokspot.com
no hp : 082302577717
Tidak ada komentar:
Posting Komentar