PERCOBAAN 5

-

 RUNNING LED


Langkah-langkah dalam pembuatan running LED adalah sebagai berikut :

  1. Buatlah design seperti gambar di atas menggunakan tool palette standard yaitu label & button, tool palette additional yaitu image, serta tool palette system yaitu timer. Dalam tiap-tiap Button kecepatan perubahan warna lampu berbeda-beda.
  2. Coding pada Button 1 yaitu :

    3. Coding pada Button 2 yaitu :

    4. Coding pada Button 3 yaitu :

    5. Coding pada Button 4 yaitu :

    6. Coding pada Timer 1 yaitu :


    7. Coding pada Timer 2 sampai dengan Timer 27 sama dengan  Timer 1 hanya saja terdapat perbedaan pada kondisi Visible di tiap-tiap shape, image, dan label mana yang ingin ditampilkan pada Timer tersebut.










Komentar

Posting Komentar

Postingan populer dari blog ini

PERCOBAAN 2

-
Gambar
  MENAMPILKAN DATA BAMASIS DENGAN MEMASUKKAN PASSWORD DAN NIM Tool Palette yang digunakan sebagai berikut : 1. Standard : label, edit, button 2. Additional : image 1. Coding  memasukkan password dan apabila password salah akan menampilkan sebuah tulisan ‘WRONG PASSWORD!!!’ 2. Coding untuk masuk ke data bamasis dengan memasukkan NIM masing-masing procedure TForm2.Button1Click(Sender: TObject); begin   if Edit1.Text='20200522' then begin   Form3.Show; end; begin   if Edit1.Text='20200523' then begin   Form4.Show; end; begin   if Edit1.Text='20200524' then begin   Form5.Show; end; begin   if Edit1.Text='20200525' then begin   Form6.Show; end; begin   if Edit1.Text='20200526' then begin   Form7.Show; end; begin   if Edit1.Text='20200527' then begin   Form8.Show; end; begin   if Edit1.Text='20200528' then begin   Form9.Show; end; begin   if Edit1.Text='20200529' then begin   Form10.Show; end; begin   if Edit1.Text='20200530
Baca selengkapnya

PERCOBAAN 6

-
Gambar
ARAH PUTAR TANK Langkah-langkah percobaan : Buatlah gambar tank sebanyak 36 buah dengan posisi yang berbeda. Tool palette yang digunakan pada percobaan ini adalah Edit, BitBtn, dan Image. Coding pada saat tank berputar 10 derajat adalah sebagai berikut. procedure TForm1.BitBtn1Click(Sender: TObject); begin if Edit1.Text='10' then begin   Image1.Visible:=false;   Image2.Visible:=true;   Image3.Visible:=false;   Image4.Visible:=false;   Image5.Visible:=false;   Image6.Visible:=false;   Image7.Visible:=false;   Image8.Visible:=false;   Image9.Visible:=false;   Image10.Visible:=false;   Image11.Visible:=false;   Image12.Visible:=false;   Image13.Visible:=false;   Image14.Visible:=false;   Image15.Visible:=false;   Image16.Visible:=false;   Image17.Visible:=false;   Image18.Visible:=false;   Image19.Visible:=false;   Image20.Visible:=false;   Image21.Visible:=false;   Image22.Visible:=false;   Image23.Visible:=false;   Image24.Visible:=false;   Image25.Visible:=false;   Image26.Visi
Baca selengkapnya