Pembelajaran sederhana menggunakan delphi 2010

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