TIPE DATA DAN OPERATOR PADA DELPHI 7.0

Assalamualaikum Wr. Wb.

Bagi para newbie mungkin ini sedikit materi yang bisa membantu kalian untuk memberikan pengetahuan tentang tipe data, function dan procedure . Ok langsung aja :D

A. TIPE DATA

Tipe Data adalah suatu aturan dalam delphi untuk menentukan jenis dari sebuah variabel, Tipe data yang sederhana sekali dikelompokkan menjadi dua bagian :

1. Text :  

- Char (Terdiri dari 1 huruf / 1 angka)
- String (Terdiri dari beberapa huruf / angka)

2. Bilangan :

- Integer (bilangan bulat). 

Tipe data ini terdiri atas bebrapa varian data yaitu byte, word, longword, shortint, longint, integer, int64 dan sebagainya.

- Real (bilangan pecahan). 

Tipe data real terdiri atas beberapa varian data yaitu single, double, extended, currency.

c)Boolean 
Merupakan tipe variabel logika. Nilai dari variabel bertipe boolean adalah true dan false.

 

B. OPERATOR

Operator digunakan untuk memanipulasi dan mengolah data. Disini ada bermacam – macam operator sebagai berikut :

-) Operator Aritmatika
Operator aritmatika digunakan untuk melakukan operasi aritmatika. Delphi mempunyai beberapa operator aritmatik yaitu :  

[*], [/], [Div], [Mod], [+], [-].

-) Operator Relasi
Atau operasi perbandingan digunakan untuk membandingkan suatu expresi atau data dengan expresi atau data lain. Hasil penggunaan operator relasi adalah dua logika (boolean) benar atau salah. Operator relasi yang digunakan antara lain :

[=], [<>], [<], [>], [<=], [>=].

-) Operator Logika
Operator Logika digunakan untuk mengexpresikan satu atau lebih data atau expresi logika (boolean), menghasilakan data logika (boolean) seperti berikut :

[not], [and], [or] dan [xor].

 

3. FUNCTION DAN PROCEDURE
Function (fungsi) dan Procedure adalah suatu subrutin yang biasa dipakai sebagai alat untuk melakukan tugas tertentu dan mendapatkan nilai tertentu. berikut adalah contoh Function (fungsi) dan Procedure :

-) 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. 

 

 

Mungkin ini saja yang bisa saya sharing untuk para newbie (Termasuk saya hee :D), see u next time :) 

Wasalamualaikum Wr. Wb.

 

Membuat Label Kedap-Kedip Menggunakn Delphi 7

Assalamualaikum Wr. Wb teman-teman yang disitu :)

Saat ini saya akan berbagi tentang label kedap-kedip, OK langsung aja buka aplikasi Borland Delphi 7 anda, kemudian siapkan form, menu label 1 dan timer 1, kemudian klik 2 kali pada timer 1 dan masukkan coding dibawah ini :

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Label1.Font.Color := Trunc(clBLUE*random);
end;

Mudah-mudahan berbagi kita bisa bermanfaat, kurang dan lebihnya saya minta maaf kepada para master.


-TERIMA KASIH-

Membuat Aplikasi Loading Menggunakan Delphi 7

Assalamualaikum Wr. Wb Teman-teman yang disitu :)

Kita ketemu lagi nih dengan tema beda lagi beda lagi, sekaramg saya akan berbagi tentang membuat aplikasi loading menggunakan delphi 7, OK  langsung ajalah ya biar gk kelamaan :

1. Siapkan Aplikasi Borland Delphi 7 anda, kemudian siapkan 2 Form, dimana Form 1 untuk aplikasi loadingnya dan form 2 berfungsi untuk hasil dari Form loading tersebut, sebut saja Form 2 ini sebagai Form Login.

2. Pada Form 1/ Form Loading masukan menu Progress Bar 1 dan Timer 1.

3. Kemudian Klik 2 kali pada menu timer 1 dan masukkan coding seperti dibawah ini :

procedure TForm1.Timer1Timer(Sender: TObject);
beginProgressBar1.Position := ProgressBar1.Position + 1;

if ProgressBar1.Position = 100 then

begin

Form2.show;

Timer1.Enabled := False;

Form1.Visible:= False;

end;
end;
end.

(PERHATIAN!!! Nilai interval pada box properties di Timer1 itu terserah anda tetapi jika nilai intervalnya kecil maka loadingnya akan cepat, begitu juga sebaliknya jika nilai intervalnya besar maka loadingnya akan lambat).

Mudah-mudahan bermanfaat dengan baik, kurang lebihnya saya minta maaf untuk para master hehe :P

-TERIMA KASIH-

Membuat Teks Berjalan Pada Delphi 7

Assalamualaikum Wr. Wb

Hari ini kita berbagi lagi dengan tema yang beda lagi, yaitu gimana cara membuat teks berjalan pada Borland Delphi 7, memang sepele sih pembahasan kita ini tapi gk ada salahnya jika kita menggunakan teks berjalan ini untuk memperindah program kita saat Sidang PKL/ TA/ SKRIPSI/ PROYEK Lainnya :D

lanmgsung aja ke titik permasalahannya, bukalah Borland Delphi anda yang ada di PC/ Laptop kemudian siapkan 1 label d an 1 timer, pada label 1 di propertiesnya terserah anda ganti apa pada captionnya sesuai kebutuhan anda, setelah selesai kemudian kklik 2 kali pada timer 1 kemudian masukkan coding seperti dibawah ini :

procedure TFutama.Timer1Timer(Sender: TObject);
begin

if Label1.Left >= image1.Width then

Label1.Left := 8

else

Label1.Left := Label1.Left + 6;
end;
end.

(Saya menggunakan image1 karena kebetulan itu contoh saya, dan itu terserah kebutuhan anda).

setelah selesai menulis coding diatas, perhatikan interval yang ada diproperties timer 1, PERHATIAN LAGI!!! semakin kecil nilai interval semakin cepat teks tersebut berjalan, dan sebaliknya semakin besar nilai intervalnya semakin lambat teks tersebut berjalan.

Mudah-mudahan bisa bermanfaat dengan baik apa yang sudah ditulis, kurang lebihnya untuk para master saya minta maaf hehe :P

TERIMA KASIH

Cara Instalasi Borland Delphi 7 Di Windows 7

Assalamualaikum wr. wb semua yang disitu :)

Ketemu lagi dengan saya dengan tema yang sedikit berbeda nih, kali ini saya akan berbagi tentang bagaimana cara instalasi Borland Delphi 7 di Windows 7 ( Buat para master mungkin ini basi, ytapi buat yang pemula mungkin lumayan buat emosi dikitlah haha :D ), mungkin anda pernah menginstal Borland Delphi 7 Di OS Windows 7, setelah selesai penginstalan dan anda ingin menggunakan Borland Delphi 7 tersebut tidak taunya menu formnya tidak ada dan itu pasti membuat anda khawatir apakah waktu penginstalan ada yang salah atau ada file yang tidak tercopy, sssttt don't panic itu hanya karena ada settingan yang belum dilakukan, karena di windows 7 sistem keamanannya rada ketat dikit hehe klo gak salah sih :D.

OK dari pada lama-lama langsung aja langkah pertama yaitu :

1. Siapkan apliaksi/ Software Borland Delphi 7 ( Kalo gk ada gimana mau nginstalnya :P )

2. Instal Setup/ .EXE Borland Delphinya ikuti petunjuk instalasinya sampai selesai penginstalannya (Biasanya minta restart).

3. Setelah selesai menginstal&Restart PERHATIKAN LANGKAH DIBAWAH INI :

• Buka properties directory pada c:/program files/borland.
• Pada Tab awal hilangkan tanda cek pada Read-only attribute kemudian klik tombol Apply untuk mengaplikasikan perintah.
• Kemudian buka tab security (masa orang komputer gk tau letaknya dimana :D) untuk memberikan hak full akses untuk users yang anda pakai untuk directory  c:/program files/borland, setelah itu apply dan ok.

PERHATIAN!!! Jika langkah-langkah yang anda lakukan benar maka ketika anda buka Borland Delphi 7 tentu formnya langsung ada.

semoga bermanfaat untuk kelangsungan orang banyak :)

Terima Kasih.

Menghitung Luas Segitiga Menggunakan Delphi 7

Mencoba berbagi buat para teman-teman seperjuangan coding delphi 7, ada niatan nih buat berbagi cara menghitung luas segitiga mudaha-mudahan bermanfaat ya hehe :P

OK langkah pertama yaitu :

1. Buka Borland Delphi 7 anda.

2. Kemudian Masukkan 4 buah label, 3 edit text dan 2 button, seperti gambar dibawah ini :

 

setelah menyiapkan menu yang diperlukan seperti gambar diatas, inget !!!(properties yang diubah pada label&button hanya pada caption saja). setelah selesai kemudian langkah berikutnya.

3. Klik 2 kali pada tombol button hitung, lalu ketikan coding seperti dibawah ini :

 

perhatikan coding pada gambar diatas, coding ini berfungsi untuk menghitung jumlah luas segitiga.

4. Langkah berikutnya setelah coding hitung selesai kemudian masukan coding keluar, klik 2 kali pada button keluar seperti gambar dibawah ini :

 

sippp itu dulu yang bisa saya bagi, mudah-mudahan bisa bermanfaat buat teman-teman yang belum paham, kalo ada salah penulisan coding mohon para master dibantu hehe :D