Delphi

Membuat animasi text berkedip-kedip dengan Delphi

Posted on Updated on


procedure TForm1.Timer1Timer(Sender: TObject);

begin

if Label1.Visible then Label1.Visible:=False

else label1.Visible:=True;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

application.Terminate;
end;

Logika program        :

Program animasi timer ini akan menampilkan tulisan yang ada pada label1 menjadi berkedip – kedip dengan memanfaatkan timer pada Delphi.

procedure TForm1.Timer1Timer(Sender: TObject);

kode diatas menandakan bahwa statement – statement yang ada dalam blok program dibawahnya merupakan statement yang akan dilakukan saat TForm1 ditampilkan dengan menggunakan komponen timer.ini berarti statement – statement yang ada akan langsung dijalankan saat program running.

begin

if Label1.Visible then Label1.Visible:=False

else label1.Visible:=True;

end;

metode visible pada  kode diatas berfungsi untuk menentukan apakah suatu komponen atau objek ditampilkan atau tidak saat program dijalankan.jadi kode diatas berarti jika nilai dari label1.visible bernilai true dengan kata lain label1 ditampilkan dalam Tform, maka nilai dari label1.visible akkan dirubah menjadi false, sehingga label1 tidak ditampilkan dalam Tform.dan bila nilai label1.visible tidak bernilai true, maka nilainya akan dirubah menjadi false.statement ini akan menyebabkan nilai dari label1.visible akan berubah-rubah nilainya dari true menjadi false dan sebaliknya setiap interval waktu berganti.jadi dengan kata lain label1 akan ditampilkan kemudian akan tidak terlihat selama interval waktu yang telah ditentukan pada timer



Web development jakarta

procedure TForm1.Button1Click(Sender: TObject);

kode diatas menandakan bahwa statement – statement yang ada pada blok program dibawahnya merupakan statement yang akan dilakukan saat button1 diklik.

begin

application.Terminate;
end;

seperti telah dijelaskan sebelumnya, program ini akan menampilkan tulisan yang ada pada label1 seolah – olah berkedip – kedip sesuai dengan interval waktu yang ditentukan.tetapi, timer akan terus berjalan sampai program dikeluarkan atau di close.jadi perlu dibuat satu button untuk membuat efek animasi berhenti.kode diatas berfungsi untuk menghentikan aplikasi yang sedang berjalan.jadi, saat button1 diklik timer akan dihentikan dan keluar dari program.

Output program:

Iklan

Program Percabangan Dengan Delphi

Posted on Updated on


Program ini digunakan untuk menampilkan hasil perulangan dengan angka awal dan banyak perulangan yang ditentukan sebagai input program.langkah pertama yang dapat dilakukan adalah menyusun tampilan program dengan menggunakan fitur – fitur yang telah disediakan Delphi. Sehingga tampilan awal pembuatan akan menjadi:



Web development jakarta

Selanjutnya, untuk memudahkan penuliskan kode program, kita perlu mengedit nama – nama elemen diatas dan mengganti beberapa text.untuk mengatur elemen pada program kita dapat menggunakan object inspector.

Gambar diatas merupakan contoh tampilan object inspector yang digunakan untuk mengatur elemen button yang diganti dengan nama wihle-do.kita dapat mengedit elemen – elemen yang lain dengan cara yang sama. Dalam program ini menggunakan ketentuan – ketentuan sebagai berikut:

Elemen Properties Keterangan
Form Caption Program perulangan sederhana
Name TForm1
Group box Caption Looping box
Name Perulangan_box
Memo Name Memo1
Label1 Caption Angka awal              :
Label2 Caption Banyak perulangan   :
Edit1 Caption (dikosongkan)
Name Input_1
Edit2 Text (dikosongkan)
Name Input_2
Button1 Text While – Do
Name Button1
Button2 Caption Repeat – until
Name Button2
Button3 Caption For – do
Name Button3
Button4 Caption For – downto
Name Button4
Button5 Caption Restart
Name Button5

Setelah kita mengedit semua elemen pada form, dan mengganti namanya, kita dapat mulai menuliskan kode program sebagai penanganan event saat button diklik.jadi, saat button while-do diklik memo akan menampilkan hasil program perulangan dengan menggunakan while do, saat button repeat-until diklik, memo akan menampilkan hasil dari perulangan dengan menggunakan repeat-until, saat button for – do diklik, memo akan menampilkan hasil dari perulangan menggunakan for-do, saat button for-downto diklik, memo akan menampilkan hasil dari perulangan menggunakan for-downto dan saat button restart diklik, semua elemen program akan dikosongkan kembali dan program dapat diulang. untuk membuat event pada button while do, double klik pada elemen button while-do lalu tambahkan kode program seperti dibawah ini:

Kode diatas akan menampilkan hasil dari perulangan menggunakan while – do.logikanya adalah sebagai berikut:

  • a := StrToInt (input_1.text) ;

kode diatas berarti akan mengkonversikan apa yang ada pada variable atau elemen input_2 menjadi integer.hal ini dilakukan supaya nilai yang ada pada variable input_2 dapat diproses dan dijadikan sebagai angka awal hasil perulangan.

  • b := 1 ;

berarti memberikan harga awal b sama dengan 0.b akan digunakan sebagai variable pada prulangan.

  • Memo1.Clear ;

Memo1.Lines.Add (‘perulangan while – do’) ;

Kode diatas berfungsi untuk mengosongkan memo agar tidak ada teks lainnya, dan mencetak judul hasil perulangan ‘perulangan while – do’.

  • While b <= StrToInt (input_2.text) do

Begin

Memo1.Lines.Add (‘perulangan ke-’ , IntToStr(b).’ = ’,IntToStr(a)) ;

a = a + 1 ;

b = b + 1 ;

end ;

Perintah di atas merupakan perintah perulangan while-do. Perulangan akan dilakukan apabila nilai dari variabel “b” kurang dari atau sama dengan isi dari field “input_2” yang telah dikonversi menjadi data integer dengan kode StrToInt() program akan mencetak kalimat perulangan ke-‘b’ = (angka awal) lalu nilai a dan b akan ditambah 1 dan program akan diulang kembali sampai kondisi pada perulangan bernilai salah.

Setelah penanganan event pada button while – do selesai dibuat, selanjutnya double klik pada button repeat- until untuk menangani event jika button tersebut diklik.lalu tambahkan kode berikut:

Kode diatas akan menampilkan hasil dari perulangan menggunakan repeat – until.logikanya adalah sebagai berikut:

  • a := StrToInt (input_1.text) ;

kode diatas berarti akan mengkonversikan apa yang ada pada variable atau elemen input_2 menjadi integer.hal ini dilakukan supaya nilai yang ada pada variable input_2 dapat diproses dan dijadikan sebagai angka awal hasil perulangan.

  • b := 1 ;

berarti memberikan harga awal b sama dengan 0.b akan digunakan sebagai variable pada prulangan.

  • Memo1.Clear ;

Memo1.Lines.Add (‘perulangan repeat-until’) ;

Kode diatas berfungsi untuk mengosongkan memo agar tidak ada teks lainnya, dan mencetak judul hasil perulangan ‘perulangan repeat-until.

  • repeat

Begin

Memo1.Lines.Add (‘perulangan ke-’ , IntToStr(b).’ = ’,IntToStr(a)) ;

a = a + 1 ;

b = b + 1 ;

end ;

until b > StrToInt (input_2.text) ;

Perintah di atas merupakan perintah perulangan repeat – until. Perulangan akan dilakukan sampai nilai dari variabel “b” lebih dari field “input_2” yang telah dikonversi menjadi data integer dengan kode StrToInt() program akan mencetak kalimat perulangan ke-‘b’ = (angka awal) lalu nilai a dan b akan ditambah 1 dan program akan diulang kembali sampai kondisi pada perulangan repat – until bernilai benar.

Setelah penanganan event pada button repeat-until selesai dibuat, selanjutnya double klik pada button for-to untuk menangani event jika button tersebut diklik.lalu tambahkan kode berikut:

Kode diatas akan menampilkan hasil dari perulangan menggunakan for-to-do.logikanya adalah sebagai berikut:

  • a := StrToInt (input_1.text) ;

kode diatas berarti akan mengkonversikan apa yang ada pada variable atau elemen input_2 menjadi integer.hal ini dilakukan supaya nilai yang ada pada variable input_2 dapat diproses dan dijadikan sebagai angka awal hasil perulangan.

  • Memo1.Clear ;

Memo1.Lines.Add (‘perulangan for-to-do’) ;

Kode diatas berfungsi untuk mengosongkan memo agar tidak ada teks lainnya, dan mencetak judul hasil perulangan ‘perulangan for-to-do’.

  • For b :=1 to StrToInt (input_2.text) do

Begin

Memo1.Lines.Add (‘perulangan ke-’ , IntToStr(b).’ = ’,IntToStr(a)) ;

a = a + 1 ;

end ;

Perintah di atas merupakan perintah perulangan for-to-do. Perulangan akan dilakukan sampai nilai dari variabel “b” sama dengan field “input_2” yang telah dikonversi menjadi data integer dengan kode StrToInt() dimana b telah diberi nilai awal sama dengan 1. program akan mencetak kalimat perulangan ke-‘b’ = (angka awal) lalu nilai a akan ditambah 1 dan program akan diulang kembali sampai kondisi pada perulangan for-to-do terpenuhi.

Setelah penanganan event pada button for –to-do selesai dibuat, selanjutnya double klik pada button for-downto untuk menangani event jika button tersebut diklik.lalu tambahkan kode berikut:

Kode diatas akan menampilkan hasil dari perulangan menggunakan for-downto.logikanya adalah sebagai berikut:

  • a := StrToInt (input_1.text) ;

kode diatas berarti akan mengkonversikan apa yang ada pada variable atau elemen input_2 menjadi integer.hal ini dilakukan supaya nilai yang ada pada variable input_2 dapat diproses dan dijadikan sebagai angka awal hasil perulangan.

  • c := 1 ;

berarti memberikan harga awal c sama dengan 1.c akan digunakan sebagai variable untuk mencetak banyaknya perulangan yang sedang berlangsung.

  • Memo1.Clear ;

Memo1.Lines.Add (‘perulangan for-downto’) ;

Kode diatas berfungsi untuk mengosongkan memo agar tidak ada teks lainnya, dan mencetak judul hasil perulangan ‘perulangan for-downto’.

  • For b := StrToInt (input_2.text) downto 1 do

Begin

Memo1.Lines.Add (‘perulangan ke-’ , IntToStr(c)’ = ’,IntToStr(a)) ;

a = a – 1 ;

c = c + 1 ;

end ;

Perintah di atas merupakan perintah perulangan for-downto-do. Perulangan akan dilakukan sampai nilai dari variabel “b” sama dengan 1, dimana b diberikan nilai awal sebesar nilai yang ada pada variable “input_2” yang telah dikonversi menjadi data integer dengan kode StrToInt() program akan mencetak kalimat perulangan ke-‘c’ = (angka awal) lalu nilai a akan dikurang 1, sehingga hasil dari perulngan for – downto – do ini akan semakin kecil nilainya. dan program akan diulang kembali sampai kondisi pada perulangan for-downto-do terpenuhi.

Setelah penanganan event pada button for – downto – do selesai dibuat, selanjutnya double klik pada button restart untuk menangani event jika button tersebut diklik.lalu tambahkan kode berikut:

Kode diatas akan mengosongkan kembali elemen – elemen pada proram, yang sama fungsinya untku mengulang program.jadi, saat button restart diklik, maka program akan kembali lagi ke tampilan awal.

Output program: