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