Menambah dan Menghapus data Via Array

posting baru lagi lah,lumayan panjang sumpah ni listing kodenya,
kali ini tentang bagaimana menghapus dan menambhan data memakai Array.
skrinsut nya bisa dilihat seperti gambar dibawah ini :

Read More

Simple MP3 Player

ketika saya masih semester 3, saya pernah terpikir untuk membuat winamp atow semacam mp3 player. Tapi saya bingung coz saya waktu itu saya ga bisa apa2, saya cuma bisa delphi. Itu juga masih belajar…
Nah setelah mengumpulkan kemauan keras, akhirnya saya maksain diri buat bikin mp3 player pake delphi.. ga sebagus winamp sih, tapi untuk saya yang masih semester 3 dan baru bisa delphi.. seneng banget bisa bikin yang kayak ginian…
Ini langkah2 ama source code-nya:

Read More

Logika IF (DELPHI) yang sederhana

Setelah posting kemarin mengenai statemen pemilihan yang membahas if dan case,sekarang kita praktekan pada delphi dengan contoh sederhananya.. ,,,
okelah sekarang kita mulai saja okeh okeh.
kita bentuk formny kaya gini

untuk tombol keluar
cukup ketikan close; saja pada scriptnya
dan untuk tombol new scriptnya

edit1.text:='';
edit2.text:='';
edit3.text:='';
edit1.setfocus;

dan untuk tombol proses
scriptnya kaya gini

procedure TForm1.Button1Click(Sender: TObject);
var
nilai:integer;
ket:string;
begin
nilai:=strtoint(edit2.Text);
if nilai > 85 then
ket:='lulus'
else
ket:='tidak lulus';
edit3.Text:=ket;
edit3.enabled:=false;
end;

Read More

Tipe Data dan Operator pada Delphi

a. Tipe Data
Tipe Data adalah suatu aturan dalam delphi untuk menentukan jenis dari sebuah variabel.
Berikut dijelaskan secara singkat beberapa tipe data yang dikenal dalam borland Delphi. :D

# Tipe data Integer
adalah bentuk tipe data untuk variabel yang mempunyai nilai bilangan bulat.Perhatikan tabel dibawah ini.

Tipe	Jangkauan
ShortInt	-128 s/d 127
SmallInt	-32768 s/d 32767
LongInt	-21474836448 s/d 21474836447
Int64	-2 x E+63 s/d 2 x E-63-1
Byte	0 s/d 255
Word	0 s/d 65535

# Tipe Data Real
Adalah bentuk tipe data untuk variabel yang mempunyai nilai pecahan desimal.just look at a table OKE :D

Tipe	Jangkauan
Real48	2.9 x E-39 s/d 1.7 x E+38
Singlet	1.5 x E-45 s/d 3.4 x E+38
Double	5.0 x E-324 s/d 1.7 x E+308
Extended	3.6 x E-4951 s/d 1.1 x E+4932
Comp	-2^63+1 s/d 2^63-1
Currency	-922337203685477.5808 s/d 922337203685477.5807

#Tipe Data Boolean
adalah tipe data yang mempunyai nilai true dan false

Tipe	Penyimpanan memori
Boolean	1
ByteBool	1
WordBool	2
LongBool	4

#Tipe Data String
adalah bentuk tipe data yang menyimpan karakter atau tulisan

Tipe	Jangkauan
ShortSrting	255 karakter
AnsiString	-2^31 karakter
WideString	-2^30 karakter

b. Operator
Operator adalah bentuk-bentuk penugasan pada sebuah ekspresi program, sebagai contoh:
Diberikan sebuah ekspresi sebagai berikut "2+4" maka yang disebut operatornya dalah tanda (+).
Dibawah ini dijelaskan beberapa operator yang dikenal dalam Borland Delphi.

#Operator Aritmatik
Operator aritmatik adalah jenis operator yang berfungsi untuk melakukan operasi matematika.seperti perkalian,pembagian,penjumlahan,pengurangan,sisa bagi dan pembagian pada bilangan bulat.
Naaaaaah ini dia operator aritmatik2nya +,-,*,/,mod,div
Dimana 'div' adalah pembagian bilangan bulat. seperti contoh 7 div 2 = 3
dan mod adalah sisa hasil bagi. seperti contoh 7 mod 2 = 1
:D

#Operator Pembanding
adalah suatu bentuk operator yang berfungsi untuk membandingkan dua buah nilai.Hasil perbandingan dua buah nilai ini menghasilkan nilai true atau false.

Operator	Keterangan	contoh penggunaan
'>'	Lebih dari	4>2 hasilnya T. 4>4 hasilnya F
'>='	Lebih dari sama dengan	4>=2 hasilnya T. 4>=4 hasilnya T
'<'	Kurang dari	2<4 hasilnya T. 2<2 hasilnya F
'<='	Kurang dari sama dengan	2<=4 hasilnya T. 2<=2 hasilnya T
'='	sama dengan	2=4 hasilnya F. 2=2 hasilnya T
'<>'	Tidak sama dengan	2<>4 hasilnya T. 2<>2 hasilnya F

#Operator Logikal
Bentuk operator Logikal yaitu AND(pernyataan DAN), OR(pernyataan ATAU), dan NOT(pernyataan TIDAK). Ketiga operator ini merupakan bentuk dari operator logikal yang akan menghasilkan nilai true dan false saat digunakan

Read More

Membuat kalkulator sederhana lewat delphi

10/10/2011

Nah sekarang mari kita buat sebuah aplikasi Kalkulator sederhana,, yo men lets start it,,, buka borland Delphimu men....
oke sekarang bentuk Formnya seperti ini



ok ,sekarang waktunya kita coding
pertama tama buat variabelnya dulu

procedure TForm1.Button1Click(Sender: TObject);
var
ed3 : real ;
begin
ed3 :=strtoint(edit1.text)+strtoint(edit2.Text);
edit3.Text:=floattostr(ed3);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
ed3 : real ;
begin
ed3 :=strtoint(edit1.text)-strtoint(edit2.Text);
edit3.Text:=floattostr(ed3);
end;

procedure TForm1.Button3Click(Sender: TObject);
var
ed3 : real ;
begin
ed3 :=strtoint(edit1.text)*strtoint(edit2.Text);
edit3.Text:=floattostr(ed3);
end;

procedure TForm1.Button4Click(Sender: TObject);
var
ed3 : real ;
begin
ed3 :=strtoint(edit1.text)/strtoint(edit2.Text);
edit3.Text:=floattostr(ed3);
end;

dan kemudian pada buttom2 yang bercaption clear silahkan isi sintax

procedure TForm1.Button5Click(Sender: TObject);
begin
edit1.text:='';
edit2.text:='';
edit3.Text:='';
end;

end.

# perintah strtoint digunakan untuk mengubah nilai string menjadi integer agar bisa di matematiskan
#floattostr merupakan fungsi untuk mengubah hasil dari integer menjadi sting yang akan di tampilkan
# Variabel berfungsi untuk mendeklarasikan suatu string yang berisikan nilai tertentu

kurang lebihnya akan seperti ini



silahkan kalian run untuk melihat hasilnya

Read More

Delphi Membuat Program input kata

3 Oktober 2011

Di pertemuan yang ke tiga kini sudah mulai masuk materi pratek, walau sebenarnya seharusnya minggu ke 2 namun di undur karna masih ada beberapa mahasiswa yang belum punya delphi dan notebook saya juga yang belum di perbaiki layarnya yang eror

dalam praktek pertama langsug di buat program yang benar benar sangat sederhana nyaitu menginput kata
kurang lebih seperni ini hasilnya

untuk source codenya tinggal klik 2x di tombol ok lalu masukin sourcenya seperti ini

label2.Caption:=edit1.Text;

lalu pada tombol exit masukan sourcenya

close

selesai , sangat mudah kan

Read More