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