Minggu, 15 Desember 2013

aplikasi jam digital dengan delphi

Assalamu alaikum Wr.Wb..!!
Salam Sejahtera bagi kita semua….
kali ini saya akan sharing tentang cara membuat jam digital Layaknya seperti yang biasa dilihat pada jalur lampu merah…..Disini saya menggunakan DELPHI7 untuk membuat aplikasi  yang sangat sederhana ini …. perlu teman-teman ketahui bahwa dalam pembuatan aplikasi sederhana ini, itu tidaklah rumit seperti teman-teman pikirkan…, tapi yang menjadi kendala sekarang kurangnya minat teman-teman untuk membuat aplikasi yang sangat sederhana seperti ini…
Yang Paling Penting disini Logika dari pembuatan Aplikasi ini
Saya buat Berdasarkan Stambuk 122063, 3 angka terakhir Stambuk
 

Langsug saja lihat pada gambar dibawah ini
 
 
Gambar 1
Gambar 2
Gambar 3
 \
Gambar 4
 
 

Listing Program
procedure TForm1.Timer1Timer(Sender: TObject);
begin
IF (Shape1.Brush.Color = clwhite)and(Shape9.Brush.Color = clwhite)and(Shape15.Brush.Color = clwhite)  then
 begin
   Shape1.Brush.Color:=clRed;
      Shape2.Brush.Color:=clRed;
         Shape3.Brush.Color:=clWhite;
            Shape4.Brush.Color:=clRed;
                 Shape6.Brush.Color:=clRed;
                     Shape7.Brush.Color:=clRed;
                        Shape5.Brush.Color:=clRed;
      Shape8.Brush.Color:=clRed;
      Shape9.Brush.Color:=clRed;
         Shape10.Brush.Color:=clRed;
            Shape11.Brush.Color:=clWhite;
                 Shape12.Brush.Color:=clRed;
                     Shape13.Brush.Color:=clRed;
                        Shape14.Brush.Color:=clRed;
        Shape15.Brush.Color:=clRed;
          Shape16.Brush.Color:=clRed;
             Shape17.Brush.Color:=clRed;
                 Shape18.Brush.Color:=clRed;
                    Shape19.Brush.Color:=clRed;
                      Shape20.Brush.Color:=clWhite;
                        Shape21.Brush.Color:=clRed;
 end
else if (Shape3.Brush.Color = clwhite) and(Shape11.Brush.Color = clwhite) and(Shape20.Brush.Color = clwhite) then
 begin
   Shape1.Brush.Color:=clRed;
      Shape2.Brush.Color:=clRed;
         Shape3.Brush.Color:=clRed;
            Shape4.Brush.Color:=clWhite;
                 Shape6.Brush.Color:=clRed;
                     Shape7.Brush.Color:=clRed;
                        Shape5.Brush.Color:=clRed;
      Shape8.Brush.Color:=clRed;
      Shape9.Brush.Color:=clRed;
         Shape10.Brush.Color:=clWhite;
            Shape11.Brush.Color:=clRed;
                 Shape12.Brush.Color:=clRed;
                     Shape13.Brush.Color:=clRed;
                        Shape14.Brush.Color:=clRed;
        Shape15.Brush.Color:=clRed;
          Shape16.Brush.Color:=clRed;
             Shape17.Brush.Color:=clRed;
                 Shape18.Brush.Color:=clRed;
                    Shape19.Brush.Color:=clWhite;
                      Shape20.Brush.Color:=clRed;
                        Shape21.Brush.Color:=clRed;
 end
else if (Shape4.Brush.Color = clwhite) and(Shape10.Brush.Color = clwhite) and(Shape19.Brush.Color = clwhite) then
   begin
     Shape1.Brush.Color:=clRed;
      Shape2.Brush.Color:=clWhite;
         Shape3.Brush.Color:=clRed;
            Shape4.Brush.Color:=clRed;
                 Shape6.Brush.Color:=clRed;
                     Shape7.Brush.Color:=clRed;
                        Shape5.Brush.Color:=clWhite;
      Shape8.Brush.Color:=clWhite;
         Shape9.Brush.Color:=clRed;
           Shape10.Brush.Color:=clRed;
              Shape11.Brush.Color:=clRed;
                 Shape12.Brush.Color:=clWhite;
                     Shape13.Brush.Color:=clRed;
                        Shape14.Brush.Color:=clRed;
        Shape15.Brush.Color:=clRed;
          Shape16.Brush.Color:=clWhite;
             Shape17.Brush.Color:=clRed;
                 Shape18.Brush.Color:=clWhite;
                    Shape19.Brush.Color:=clRed;
                      Shape20.Brush.Color:=clRed;
                        Shape21.Brush.Color:=clRed;
    end
else
  begin
     Shape1.Brush.Color:=clGreen;
        Shape2.Brush.Color:=clGreen;
           Shape3.Brush.Color:=clWhite;
              Shape4.Brush.Color:=clGreen;
                 Shape5.Brush.Color:=clGreen;
                    Shape6.Brush.Color:=clGreen;
                       Shape7.Brush.Color:=clGreen;
      Shape8.Brush.Color:=clGreen;
        Shape9.Brush.Color:=clGreen;
           Shape10.Brush.Color:=clGreen;
              Shape11.Brush.Color:=clWhite;
                 Shape12.Brush.Color:=clGreen;
                    Shape13.Brush.Color:=clGreen;
                       Shape14.Brush.Color:=clGreen;
      Shape15.Brush.Color:=clGreen;
        Shape16.Brush.Color:=clGreen;
           Shape17.Brush.Color:=clGreen;
              Shape18.Brush.Color:=clGreen;
                 Shape19.Brush.Color:=clGreen;
                    Shape20.Brush.Color:=clWhite;
                       Shape21.Brush.Color:=clGreen;
  end
end;
end. 


from : dcc-dp.org

Unknown

Author & Editor

Has laoreet percipitur ad. Vide interesset in mei, no his legimus verterem. Et nostrum imperdiet appellantur usu, mnesarchum referrentur id vim.

1 komentar:

  1. 2019 ford edge titanium for sale
    Shop now for 2019 ford edge titanium in titanium mig 170 a very stylish, stylish, safe and reliable titanium ore terraria online babyliss titanium flat iron shopping edc titanium cart. In stock! oakley titanium glasses

    BalasHapus