April 2013

BAB PAGKAT [Tugas UTS Semester 2]

Bilangan berpangkat, yaap identik dengan pelajaran matematika yang harus di hitung manual. tenang saja, kali ini syaif design akan berbagi ilmu tentang bagaimana cara membuat aplikasi pangkat, langsung saja simak caranya dibawah ini :
1. Buka aplikasi Delphi 7

2. Kemudian klik menu file, pilih New, dan pilih Application

3. Buatlah desain program seperti gambar dibawah ini.

Perlu diperhatikan pada Object TreeView & Objet Inspector Properties harus di sesuaikan dengan object.

4. Pada tombol PANGKAT masukkan script dibawah ini pada Code Explorer

procedure TForm1.btnPANGKAT1Click(Sender: TObject);
var
a,b,i,c:integer;
begin
i:=1;
c:=1;
a:=strtoint(Edit2.Text);
b:=strtoint(Edit1.Text);
While i<=a do
begin
c:=c*b;
i:=i+1;
end;
edit3.Text:=inttostr(c);
end;

procedure TForm1.pangkat1(p,l:string);
var
a,b,i:integer;
begin
i:=1;
c:=1;
a:=strtoint(p);
b:=strtoint(l);
while i<=a do
begin
c:=c*b;
i:=i+1;
end;
edit3.text:=inttostr(c);
end;

function TForm1.pangkat2(p,l:string):string;
var
a,b,i:integer;
begin
i:=1;
c:=1;
a:=strtoint(p);
b:=strtoint(l);
while i<=a do
begin
c:=c*b;
i:=i+1;
end;
pangkat2:=inttostr(c);
end;

function TForm1.pangkat3(m,n:integer):integer;
var
a,b,i:integer;
begin
i:=1;
c:=1;
while i<=n do
begin
c:=c*m;
i:=i+1;
end;
pangkat3:=c;
end;




procedure TForm1.btnPANGKAT2Click(Sender: TObject);
begin
pangkat1(Edit2.Text,edit1.Text);
end;

procedure TForm1.btnPANGKAT3Click(Sender: TObject);
begin
edit3.Text:=pangkat2(Edit2.Text,edit1.Text);
end;

procedure TForm1.btnPANGKAT4Click(Sender: TObject);
var
A,B,C:INTEGER;
begin
A:=STRTOINT(EDIT1.Text);
B:=STRTOINT(EDIT2.Text);
C:=pangkat3(A,B);
EDIT3.Text:=INTTOSTR(C);
end;

end.

5. Jalankan program dengan klik menu run, kemudian pilih run, dan hasilnya sepert ini.

Download contoh Program disini

Terima kasih atas kunjungan anda, Semoga bermanfaat

BAB PERULANGAN [Tugas UTS Semester 2]

Perulangan adalah cara mengulang perintah-perintah sampai pada kondisi tertentu. Ada beberapa perulangan dalam pemrograman Delphi Antara lain :

- For …To…Do

- For…DOwnTo…Do

- Repeat…Until

- While…Do

Untuk lebih jelasnya mari kita bahas satu per satu.

For …To…Do

Bentuk Umum :

For (counter):= (nilai awal) To (nilai akhir) Do

Begin

Perintah;

End;

For …DownTo…Do

Bentuk Umum :

For (counter):= (nilai awal) DownTo (nilai akhir) Do

Begin

Perintah;

End;

Catatan : Perbedaan perulangan For…To…Do dan For…Down…To…Do adalah : Jika perulangan For…To…Do bergerak naik dari kecil ke besar. Sedangkan For…DownTo…Do bergerak turun dari besar ke kecil.

Repeat…Until

Repeat..Until disini program akan mengulang terlebih dahulu perintah-perintahnya. Sedangkan pengecekannya atau di akhir.

Bentuk Umum :

Repeat

Perintah;

Until (Kondisi);

While…Do

While…Do disini batas akhir perulangannya dikondisikan di awal. Setelah itu program akan mengulang perintah-perintah sampai batas yang telah ditentukan diawal tersebut. Pada perulangan ini menggunakan program counter (mis. i :=i + 1).

Bentuk Umum :

While (Kondisi) Do

Begin

Perintah;

End;

Itulah ulasan sekilas perulangan di bahasa pemrogaman delphi, Yukk langsung saja ke TKP :

1. Buka aplikasi Delphi 7

2. Kemudian klik menu file, pilih New, dan pilih Application

3. Buatlah desain program seperti gambar dibawah ini.

4. Kemudian masukkan script dibawah ini pada Code Explorer, pastikan tepat sesuai dengan obyek

procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
b:= '';
j:= strtoint(Edit1.Text);
For i:=1 to j do
begin
b:= b+inttostr(i)+'     ';
end;
memo1.Text:= b;
end;
procedure TForm1.Button2Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
b:= '';
j:= 1;
For i:= strtoint(Edit1.Text) downto j do
begin
b:= b+inttostr(i)+'     ';
end;
memo1.Text:= b;

end;

procedure TForm1.Button3Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
i:=1;
b:='';
j:= strtoint(Edit1.Text);
repeat
b:= b+inttostr(i)+'     ';
i:=i+1
until i>j;
memo1.Text:= b;
end;

procedure TForm1.Button4Click(Sender: TObject);
var
i,j:integer;
b:string;
begin
i:= strtoint(Edit1.Text);
j:= 1;
b:= '';
while i >= j do
begin
b:= b+inttostr(i)+'     ';
i:=i-1
end;
Memo1.Text := b;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
Edit1.Text := '';
Memo1.Text := 'Memo1';
Edit1.SetFocus;
end;

procedure TForm1.Button6Click(Sender: TObject);
begin
Halt;
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin

end;

procedure TForm1.Memo1Change(Sender: TObject);
begin

end;

end.

5. Jalankan program dengan klik menu run, kemudian pilih run, dan hasilnya sepert ini. Sebagai contoh saya memasukkan angka sepuluh yang akan di repeat, silahkan coba sendiri untuk yang For To Do, For Downto Do, Repeat Util, While Do

Download contoh program disini
Terima kasih atas kunjungan anda. Semoga bermanfaat...!

BAB PERCABANGAN [Tugas UTS Semester 2]

Percabangan di dalam bahasa pemrogaman Delphi ada 2 yaitu If dan Case….Of. Keduanya ini merupakan percabangan yang membedakan hanya penulisan syntaxnya.

Percabangan If

Penulisan Syntax If bentuk umum

If (kondisi) then (pernyataan);

Contoh :

If tgol.text = ‘A’ Then tunjang :=’20000’;

Penulisan Syntax If ….. Else

If (kondisi) then (pernyataan) Else (pernyataan);

Contoh :

If nilai >=70 then ket.caption := ‘Lulus’ Else ket.caption := “Tidak Lulus”;

Penulisan syntax If dengan beberapa pernyataan

If (kondisi) Then

Begin

(pernyataan);

End

Else

If (kondisi) Then

Begin

(pernyataan);

End

Contoh :

If tgol.text = ‘A’ then

Begin

tket.text := ‘Kontrak’;

gaji := 1800000;

tunjang := 50000;

tgaji.text := inttostr(gaji);

ttunj.text:=inttostr(tunjang);

End;

Percabangan Case…. Of

Penulisan syntax Case….. Of

Case (nama variable) Of

(nilai awal..nilai akhir) : (pernyataan);

Else

(Pernyataan);

Contoh :

Case nilai Of

0..25 : tgrade.text :=’E’;

26..55 : tgrade.text :=’D’;

56..75 : tgrade.text :=’C’;

76..85: tgrade.text :=’B’;

85..100 : tgrade.text :=’A’;

Else

tgrade.text:=’Tidak Ada’;

Okay saya kira sudah cukup penjelasannya. Mari kita coding programnya

1. Buka aplikasi Delphi 7

2. Kemudian klik menu file, pilih New, dan pilih Application

3. Buatlah desain program seperti gambar dibawah ini.

4. Kemudian masukkan script dibawah ini pada Code Explorer, pastikan sesuai dengan objek masing-masing

procedure TForm1.btnprosesClick(Sender: TObject);
var
nilai:integer;
begin
nilai := strtoint(tnilai.Text);
If nilai > 85 then
begin
label1.Caption := 'A';
label2.Caption := 'SANGAT MEMUASKAN';
end
else
If nilai > 80 then
begin
label1.Caption := 'AB';
label2.Caption := 'MEMUASKAN';
end
else
If nilai > 75 then
begin
label1.Caption := 'B';
label2.Caption := 'Baik';
end
else
If nilai > 65 then
begin
label1.Caption := 'BC';
label2.Caption := 'Cukup Baik';
end
else
If nilai > 55 then
begin
label1.Caption := 'C';
label2.Caption := 'Cukup';
end
else
If nilai > 25 then
begin
label1.Caption := 'D';
label2.Caption := 'Kurang';
end
else
begin
label1.Caption := 'E';
label2.Caption := 'Gagal';
end;

end;

procedure TForm1.btnbaruClick(Sender: TObject);
begin
tnilai.Text := '';
Label1.Caption := 'Label1';
Label2.Caption := 'Label2';
tnilai.SetFocus;
end;

procedure TForm1.btnkeluarClick(Sender: TObject);
begin
Halt;
end;

procedure TForm1.tnilaiChange(Sender: TObject);
begin

end;

end.

5. Coba Jalankan program dengan klik menu run, kemudian pilih run, dan hasilnya sepert ini.

Download Contoh Program disini
Terima Kasih Atas Kunjungan Andan

BAB DISKON PENJUALAN BARANG [Tugas UTS Semester 2]

Tunjukkan diri anda kalau suka diskon H.H.H, bagaimana kalau anda jadi penjualnya ? tentunya harus bisa memperhitungkan berapa diskon yang harus diberikan kepada customer, tidak ada salahnya jika mencoba membuat sendiri propram DISKON PENJUALAN BARANG.

1. Buka aplikasi Delphi 7

2. Kemudian klik menu file, pilih New, dan pilih Application

3. Buatlah desain program seperti gambar dibawah ini.

Perlu diperhatikan pada Object TreeView & Objet Inspector Properties harus di sesuaikan dengan object. Lihat gambar dibawah ini

4. Pada tombol PROSES masukkan script dibawah ini pada Code Explorer

procedure TForm1.Button1Click(Sender: TObject);
var
w,x:integer; a,y,z:currency;
begin
  x:=strtoint(harga.Text );
      if tipe.Text ='A' then
        begin
          Label8.Caption :='(5%)';
          bonus.Caption :='Honda Jazz';
          Label9.Caption :='(5%)';
          w:=5;
          a:=x*5/100;
        end;
      if tipe.Text ='B' then
        begin
          Label8.Caption :='(10%)';
          bonus.Caption :='Satria F';
          Label9.Caption :='(5%)';
          w:=10;
          a:=x*5/100;
        end;
      if tipe.Text ='C' then
        begin
          Label8.Caption :='(0%)';
          bonus.Caption :='Lampu Ajaib';
          Label9.Caption :='(5%)';
          w:=0;
          a:=x*5/100;
        end;
z:=x-(x*w/100)-a;
y:=x*w/100;
pajak.Caption :=currtostr(a);
disc.Caption :=currtostr(y);
total.Caption :=currtostr(z);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
halt;
end;

end.

Kemudian pada tombol exit tambahkan juga script dibawah ini :
procedure TForm1.Button2Click(Sender: TObject);
begin
halt;
end;

end.

5. Jalankan program dengan klik menu run, kemudian pilih run, dan hasilnya sepert ini.

Download Contoh Program
Terima Kasih Atas Kunjungan anda, Semoga Bermanfaat..

SYAIF DESIGN

Gallery

Kamis, 25 April 2013

BAB PAGKAT [Tugas UTS Semester 2]

BAB PERULANGAN [Tugas UTS Semester 2]

BAB PERCABANGAN [Tugas UTS Semester 2]

BAB DISKON PENJUALAN BARANG [Tugas UTS Semester 2]

Subscribe

Recent Posts

Labels

Email Newsletter

Popular Posts

Recent Posts

Lastest Reviews

Lastest Previews

Blogroll

Total Pageviews

Advertise

Followers

Mengenai Saya

Blog Archive

Blogroll

Blogger news

Labels

Popular Posts

Formulir Kontak

Labels