Materi SEMESTER Dua

PERHITUNGAN TAHUN KABISAT MENGGUNAKAN PROGRAM DELPHI 7

udh lama rasanya gk posting nihhh.... xixixinahh.. pada postingan kali ini gw akan membahas tentang apa itu tahun kabisat dan bagaimana cara menghitung tahun kabisat menggunakan program delphi..
hmm,, lagi lagi program delpi ya sob.. hiihiihi . gpp deh, buat nambah*  ilmu .. hehehe :D
langsung aja ya gk usah panjang lebarr... hahaha jalan raya kale,,, heheheh :)

Tahun kabisat adalah tahun yang habis di bagi dengan 4. 
Contoh tahun kabisat adalah 2004, 2012. pokoknya angka  yang dominan habis di bagi dngan 4, tidak tersisa satu pun itu adalah tahun kabisat. dan jika tahun misalkan 2001, angka tersebut kan bila dibagi 4 maka hasilnya ada sisa angka, nahhh.. itu termasuk bukan tahun kabisat .. Mengerti kan sob :D :D
 langsung aja kita buat perhitungan tahun kabisat ke program delphinya sob.

Langkah pertama seperti biasa, buat dulu form seperti di bawah ini : 

 

Langkah selanjutnya yaitu mengatur Properties seperti berikut ini : 

Nama	Propertis	keterangan
Form1	Name	Salimah ( 112222099 )
Button1	Caption	Input
Button2	Caption	Clear
Label1	Caption	Data Tahun
Label2	Caption	Jumlah Data
Label3	Caption	Jumlah Tahun Kabisat
Edit1	Text	Dikosongkan
Edit2	text	Dikosongkan
ListBox1	-	-

Lalu ikutilah langkah - langkah berikut : 

Tekan Dua Kali pada  button1 (Input) dan masukkan script di bawah ini  :

 

procedure TForm1.Button1Click(Sender: TObject);

var

i,a,t:integer;

tahun:array[1..10] of string;

s:string;

begin

s:=inputbox('Input Data','Masukkan Jumlah Tahun : ','');

t:=0;

for i:=1 to strtoint(s) do

begin

tahun[i]:=inputbox('Tahun Ke : '+inttostr(i),'Masukkan Tahun','');

ListBox1.Items.Add(tahun[i]);

edit1.Text:=inttostr(ListBox1.Items.Count);

a:=strtoint(tahun[i]);

if a mod 4=0

then t:=t+1

else t:=t+0;

edit2.Text:=inttostr(t);

end;

end;

Lalu tekan Dua Kali pada button2 (Clear) dan masukkan scriptnya seperti di bawah ini :

procedure TForm1.Button2Click(Sender: TObject);
begin
ListBox1.Clear;
edit1.Text:='';
edit2.Text:='';
end;

Langkah terakhir yaitu memastikan apakah script tersebut dapat berjalan pada program Delphi. yaitu dengan cara menekan tombol F9. jika berhasil maka tampilan seperti berikut ini :

Selamat Mencoba Dan Semoga Sukses Sob :D
Keberhasilan dapat kita raih jika kita Berusaha untuk mencapainya :))

CARA MENAMBAHKAN ATAU MEMBERI MUSIC PADA BLOG

            

Haiii sob..
Akku punya caraa nih buat Ngasih music di blog kalian..
Sering kali kita lihat kalau ada blog yang ada musicnya,, nah.. itu kan bisa mengurangi rasa jenuh buat yang ngelihat* atau yang nyari informasi apa atau apa gitu blog kita.. atau dalam artian tidak bosan lah jika mengunjungi blog kita..
tau gakk sob gimana carany?
akuu tauu lhoo gimana caranya...
Langsung sajaa yukkk... capcus dehhh... heheheh :D

1. Login ke blogger.

2. Pilih menu Template, edit HTML.

3. Cari code <body> .

4. Masukkan script inii tepat dibawah code <body> .

<embed align="CENTER" autostart="TRUE" height="1" loop="TRUE" src="http://divine-music.info/musicfiles/01 Grenade.swf" width="1"></embed>

5. Simpan dan lihat hasilnya..

Silahkan di share ya Sob .. :D

MATERI SEMESTER DUA [2]

hmmm... kali ini saya akan barbagi sedikit ilmu untukk sobat* semua,,

sekarang kita simak saja ya sob..

di bawah ini adalah materi* untuk perkuliahan semester dua..

langsung saja pada pokok pembahasannya ya sobb.. hihihiih :D

Bab 1 TUTORIAL MEMBUAT PERCABANGAN PADA PROGRAM DELPHI

PERCABANGAN

Ada yang tau gakk , apa sih percabangan itu??

Percabangan dalam bahasa pemrograman disebut juga pengkondisian dalam menentukan keputusan(seleksi), sehingga bila kondisi tertentu memenuhi maka akan diambil keputusan berdasarkan kondisi yang terpenuhi tersebut. Dalam bahasa pemrograman delphi dikenal dua percabangan yaitu pernyataan if (if statement) dan pernyataan case of (case of statement), kalau dalam bahasa pemrograman VB dikenal dengan Select Case, dalam PHP dikenal dengan switch case sedangkan untuk pernyataan if sendiri semua bahasa pemrograman menggunakannya ( ditulis dengan kata yang sama yaitu “if”.

Percabangan if (if statement) di delphi

Ada dua bentuk pernyataan if yaitu if…then dan if…then…else.
Cara/format penulisan if…then adalah if kondisi then proses;

Percabangan case of (case of statement) di delphi

Setelah membahas percabangan if, sekarang pembahasan kita mengenai percabangan case of, saya harap tetap semangat . :D

case of dan peraturan

1. selectorExpression adalah ekspresi atau yang terpilih dan harus berupa angka dengan tipe ordinal, tidak boleh bertipe string.
2. caseList adalah daftar pilihan.
3. statement adalah proses yang akan dilakukan bila kondisinya memenuhi.

Adapun peraturan-peraturan/kriteria yang perlu diketahui adalah sebagai berikut :

1. selectorExpression harus berupa angka dengan tipe ordinal, tidak boleh bertipe string.
2. Setiap caseList memiliki bagian dari salah satu sifat berikut:
• Berupa angka atau sebuah konstanta dengan tipe data ordinal.
• Nilai caseList adalah unik antara caseList yang lainnya, jadi tidak boleh sama.
• caseList bisa memiliki subrange. Misalnya pertama..terakhir dan nilai pertama harus lebih kecil atau sama dengan terakhir.

Sekarang kita akan membuat percabangannya ya sob,, tapi sebelumnya kita harus membuat membuat desain form seperti dibawah ini . Yaitu  dengan membuka program Borland Delphi 7. Klik File – New – Application.

Klik 2x pada tombol proses. Lalu masukan script dibawah ini :

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;

Klik 2x pada tombol BARU. Lalu masukkan script dibawah ini :

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


Klik 2x pada  tombol KELUAR. Dan  masukkan script dibawah ini :

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

Itulah tadi script dari Percabangan program delphi, jika kalian ingin memastikan apakah script itu dapat berjalan atau tidak? Kita dapat mengeceknya dengan tombol F9.

Jika berhasil, maka tampilannya seperti  di bawah ini :

 

Sekian dulu ya sob postingan yang ini,, kita lanjutt saja pada postingan yang selanjutnya..

Selamatt Mencoba SOb :D

Bab 2 TUTORIAL MEMBUAT PERULANGAN BILANGAN PANGKAT PADA PROGRAM DELPHI

PERULANGAN

Apakah sobat-sobat  pernah mendengar  istilah perulangan dalam program delphi??

Nah.. ini adalah salah satu dari materi kuliah kita. Jadi, Kita dapat belajar sama-sama dari materi ini dan bisa mendapatkan ilmu yang bermanfaat.. amin :D

Perulangan adalah suatu cara untuk mengulang satu atau sekumpulan perintah sampai mencapai kondisi tertentu. Percabangan merupakan salah struktur kendali yang memungkinkan pemilihan atas perintah yang akan dijalankan.

Dalam Delphi terdapat beberapa perulangan yaitu :
Perulangan menggunakan For To Do : perulangan ini berjalan dengan menggunakan suatu variabel counter yang akan bertambah secara otomatis ketika perintah yang diulang telah selesai dikerjakan.Bentuk umum dari perulangan ini adalah :

For counter := nilai awal To Nilai akhir Do
Begin

End;

Perulangan menggunakan For DownTo Do : Perulangan ini sama seperti perulangan dengan menggunakan For To Do tetapi arah isi counternya berkurang (mundur/turun).
Bentuk umum dari perulangan ini adalah :

For counter := nilaiawal DownTo Nilaiakhir Do
Begin
End;

Perulangan menggunakan Repeat Until : Perulangan ini bekerja sampai kondisi yang diinginkan tercapai. Perulangan ini bisa digunakan sebagai perulangan yang menggunakan banyak kondisi keluar (multi condition loop).

Perulangan menggunakan While Do : Perulangan ini mirip dengan perulangan Repeat Until tetapi pengecekannya berada di awal sebelum melakukan proses yang berulang. Perulangan ini berjalan selama kondisi pengecekan bernilai true. Jika kondisi telah mempunyai nilai false maka perulangan tidak dilakukan lagi.

Kita akan membahas perulangan tersebut dengan menggunakan program delphi.
yukk .. langsung saja kita mencobanya. :D

Langkah pertama yaitu kita harus masuk ke Delphi yaitu dengan langkah* berikut :

Pilih program Borland Delphi 7. Klik File – New – Application. Lalu buatlah form seperti berikut ini  sob ::

 

Setelah membuat form tersebut,, sekarang kita membuat scripnya sob.

Klik 2x pada tombol For To Do. Lalu masukkan script dibawah ini :

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;

Klik 2x pada tombol For DownTo Do. Lalu masukkan  script dibawah ini :

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;

Klik 2x pada tombol Repeat Until. Lalu masukkan  script dibawah ini :

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;

Klik 2x pada tombol While Do. Lalu masukkan  script dibawah ini :

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;

Klik 2x pada tombol Baru. Lalu masukkan  script dibawah ini :

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

Klik 2x pada tombol Keluar. Masukkan  script dibawah ini :

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

Seperti itulah script yang tadi kita buat. langkah selanjutnya  yaitumenekan tombol F9 pada keyboad kalian sob. 

setelah itu Masukan Angka 15 , dan klik tombol For  to do, for Downto Do Repeat until atau bahkan While Do. itu sih terserah kalian sob, tujuannya untuk memastikan apakah program tersebut dapat berjalan atau tidak. jika berhasil, maka tampilannya seperti berikut ini :

 

Semoga postingan yang ini dapat bermanfaat buat sobat* semuaa..

Silakan di share.. ^_^

Bab 3 Function Dan Prosedure Pada Delphi

Function Dan Prosedure

Didalam Pemrograman menggunakan Bahasa Pascal atau Delphi, kita dapat menyederhanakan program yang kompleks menjadi potongan-potongan program yang lebih sederhana. Dimana potongan-potongan program tersebut disebut dengan modul/subrutin yang dapat menjalankan suatu tugas tertentu.

Function adalah sekumpulan statement, variabel, parameter yang dijadikan satu untuk mengerjakan satu atau lebih operasi dan mempunyai satu feedback atau nilai balik, feedback bisa ber tipe data apa saja sesuai deklarasi.

Procedure adalah sekumpulan statement, variabel, parameter yang dijadikan satu untuk mengerjakan satu atau lebih operasi.

Ada 2 macam subrutin dalam bahasa Pascal maupun Delphi :

1. Fungsi (Function)

Bentuk Umum :

Function nama_fungsi (parameter formal:type data):type keluaran;

begin

proses perhitungan;

end;

2. Prosedur (Procedure)

Bentuk Umum :

Procedure nama_procedure (parameter formal:type data);

var lokal

begin

proses perhitungan;

pencetakan hasil;

end;

Dari pada saya berbicara terus,, langsung saya kita buat scriptnya yuk sob..

Pertama* kita buka program delphi, yaitu dengan cara :

Pilih Borland Delphi 7. Klik File – New Application.

Buat desain form seperti dibawah ini :

 

Setelah membuat form seperti diatas, kalian ikuti sajja langkah* berikut...

Klik 2x Button1(Procedure) kemudian masukan script seperti di bawah ini sob :

procedure TForm1.Button1Click(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;

Setelah itu, kalian deklarasikan procedure dan function . Lalu masukan script seperti di bawah

ini :

 

Setelah itu , tulis script dibawah ini tepat dibawah script Button1(Procedure)  tadi tanpa merubah script Button1 yang sebelumnya:

procedure TForm1.pangkat1(p,l:string);

var

a,b,c,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;

edit4.text:=inttostr(c);

end;

function TForm1.pangkat2(p,l:string):string;

var

a,b,c,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(p,l:integer):integer;

var

a,b,c,i:integer;

begin

i:=1;

c:=1;

while i<=l do

begin

c:=c*p;

i:=i+1;

end;

pangkat3:=c;

end;

Klik 2x pada Button2(Procedure 1) . Lalu masukan script dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);

begin

pangkat1(edit2.Text,edit1.Text);

end;

Klik 2xpada button3(Function). Lalu masukan script dibawah ini :

procedure TForm1.Button3Click(Sender: TObject);

begin

edit5.Text:=pangkat2(Edit2.Text,edit1.Text);

end;

klik 2x pada button4(Function 1) . Lalu masukan script dibawah ini :

procedure TForm1.Button4Click(Sender: TObject);

var

a,b,c:integer;

begin

a:=strtoint(edit1.Text);

b:=strtoint(edit2.Text);

c:=pangkat3(a,b);

edit6.Text:=inttostr(c);

end;

Alham.. usai sudah scriptnya ya sob...

tapi,, jangan senang dulu. Kita masih belum mencoba script yang sudah di buat tadi...

Kalian tau gak gimana cara untuk cek script tadi apakah dapat berfungsi atau tidakk?? Hayoooo ... :D

langsung saja ya sob,, untuk cek script tersebut apakah dapat berjalan atau tidaknya, kita tekan saja tombol F9 di keyboard kita. Untuk Running yang dapat berjalan, hasilnya ituu seperti gambar di bawah ini : 

 

Di bawah ini adalah keterangan dari script di atas :

Str  :: Berupa procedure yang digunakan untuk mendapatkan nilai string dari suatu data numeric. Penulisannya seperti berikut ini :

Str(x[:Width[:Decimal]], var S)

x adalah data numeric dan S adalah variabel bertipe String.

StrToCurr  :: Berupa Function yang dipakai untuk mendapatkan nilai berupa data numeric bertipe Currency dari suatu data String. Bentuk penulisannya seperti berikut :

StrToCurr(S:string)
 

Argumen S adalah suatu data String yang akan diambil nilai Currencynya.

 StrToDate  :: Berupa function yang dipakai untuk mendapatkan nilai berupa data bertipe TdateTime dari suatu data String. Bentuk penulisannya sebagai berikut :

StrToDate(S:String)

Argumen S adalah suatu data string yang akan diambil nilai TdateTimenya.

 StrToFloat ::   Digunakan untuk mendapatkan nilai bertipe extended (salah satu tipe real). Bentuk penulisannya sebagai berikut :

StrToFloat(S:String)

S adalah data tipe string yang akan diambil extendednya.

StrToInt :: Digunakan untuk mendapatkan nilai integer dari suatu data string. Bentuk penulisannya sebagai berikut :

StrToInt(S:String)

S adalah data tipe string yang akan diambil nilai Integernya. 

 

Sekian Dulu ya sob Dan selamat Mencoba  ..^_^

Semoga Bermanfaat..

Kita Lanjut Pada Materi Yang selanjutnya ya sob .. :D

Bab 4 Mod Dan Div Pada Pogram Delphi

Mod Dan Div 

Pada program delphi,, kita bisa membuat mod dan div lhooo sob..

Pingin tauuu gakk gimana cara membuatnya...

Langsung saja yukkk kita simakkk bareng* pembahasannya dan scriptnya ... :D

Div adalah operator aritmatika pada Delphi untuk melakukan operasi aritmatika yaitu operasi pembagian pada bilangan bulat. Sedangkan pada bilangan pecahan menggunakan operator ( / ).

Div (hasil pembagian dengan pembulatan kebawah),

Misalnya : 20 div 4 = hasilnya adalah 5

Karena angka 20 terdiri dari angka 4 sebanyak 5 kali (4,4,4,4,4)

Misalnya : 19 div 4 = hasilnya adalah 4

Karena angka 19 terdiri dari angka 4 sebanyak 4 kali(4,4,4,4) dan sisanya adalah 3 dan tidak akan di kenali.

- Mod (sisa hasil pembagian dengan pembulatan keatas).

Misalnya : 20 mod  4 = hasilnya adalah 0

Karena angka 20 terdiri dari angka 4 sebanyak 5 kali (4,4,4,4,4) dan tidak ada sisa jadi jawabanya 0

Misalnya : 19 mod  4 = hasilnya adalah 3

Karena angka 19 terdiri dari angka 4 sebanyak 4 kali(4,4,4,4) dan sisanya adalah 3, jadi jawabanya adalah 3

Kita langsung saja buat scripnya yuk,,
tapi sebelumnya kita buat dulu form seperti di bawah ini ya. masih ingat caranya gakk?

Pertama* kita buka program delphi, yaitu dengan cara :

Pilih Borland Delphi 7. Klik File – New Application.

Buat desain form seperti dibawah ini :

 

Setelah itu kalian ikuti langkah* berikut ini ..

Klik 2x pada Button1(Mod) . Lalu masukkan script dibawah ini :

procedure TForm1.Button1Click(Sender: TObject);

var

angka1,angka2,hasil:integer;

begin

angka1:=strtoint(edit1.Text);

angka2:=strtoint(edit2.Text);

hasil:=angka1 mod angka2;

edit3.Text:=inttostr(hasil);

end;

Klik 2x pada Button2(Div). Lalu masukkan script dibawah ini :

procedure TForm1.Button2Click(Sender: TObject);

var

angka1,angka2,hasil:integer;

begin

angka1:=strtoint(edit1.Text);

angka2:=strtoint(edit2.Text);

hasil:=angka1 div angka2;

edit4.Text:=inttostr(hasil);

end;

Script yang tadi itu harus di cek dulu sob,, caranya sama kok yang kayak tadi . yaitu dengan tombol F9 untuk me runnignya.. :D. script yang berhasil, maka tampilannya kayak gini sob..

 

Selamat Mencoba sob..

Semoga Bermanfaatt.. :D
Tunggu Postingan ku untukk materi yang selanjutnya yaaa...
Tetap Semangat Buat Belajar.. Masa depan Sudah menantimu di sana ... ^_^

Jangan Lupa di Share Ya,, karena hidup itu indah Bila kita saling berbagi .. :))