July 15, 2024

Penggunaan 7 Segment Display Sederhana Dengan Delphi

2 min read

Layar tujuh segmen dalam bahasa Inggris: Seven-segment display (SSD) adalah salah satu perangkat layar untuk menampilkan sistem angka desimal yang merupakan alternatif dari layar dot-matrix. Layar tujuh segmen ini seringkali digunakan pada jam digital, meteran elektronik, dan perangkat elektronik lainnya yang menampilkan informasi numerik. Kali ini saya akan mencoba membuat program 7 segment display sederhana menggunakan Delphi 2007. Program ini hanya sekedar simulasi sederhana dari 7 segment display tanpa menggunakan rangkaian elektronik apapun. Penasaran kan? Berikut langkah-langkahnya:

Langkah 1

Buatlah sebuah project baru di Delphi, masukkan komponen TPanel yang ada di Palette Standar ke dalam Form. Aturlah Properties Panel1 sebagai berikut:

properties1

Langkah 2

Masukkan 7 buah komponen TShape yang ada di Palette Additional ke dalam Form, letakkan posisi komponen Shape berada diatas komponen Panel1, aturlah ukuran semua komponen shame menjadi sama dan aturlah posisinya sehingga membentuk angka delapan.

properties2

Langkah 3

Ubah Properties Shape semua komponen TShape menjadi stCircle. Ubah Properties Brush>>Color menjadi clGray (atau warna lain sesuai selera).

Ubahlah properties name semua komponen TShape menjadi huruf a-g sesuai dengan banyak komponen TShape (untuk mempermudah pengkodean).

properties3

seperti berikut:

properties4

Langkah 4

Masukkan komponen TRadioGroup yang ada di Palette Standar ke dalam Form. Double klik properties items dari TRadioGroup. Tambahkan beberapa item seperti berikut:

properties5

Sehingga menjadi seperti berikut:

properties6

Langkah 5

Buatlah sebuah procedure untuk menonatktifkan warna display.

[sourcecode]

procedure TForm1.Off;

begin

a.Brush.Color:=clgray;

b.Brush.Color:=clgray;

c.Brush.Color:=clgray;

d.Brush.Color:=clgray;

e.Brush.Color:=clgray;

f.Brush.Color:=clgray;

g.Brush.Color:=clgray;

end;

[/sourcecode]

klik form1, double klik event OnCreate, panggil procedure off yang kita buat.

[sourcecode]

procedure TForm1.FormCreate(Sender: TObject);

begin

off;

end;

[/sourcecode]

Langkah 6

Double klik komponen TRadioGroup, ketikkan kode berikut untuk mengaktifkan masing-masing angka:

[sourcecode]

if rg1.ItemIndex = 0 then //untuk mengaktifkan angka 0

begin

off;

a.Brush.Color:=clred;

b.Brush.Color:=clred;

c.Brush.Color:=clred;

d.Brush.Color:=clred;

e.Brush.Color:=clred;

f.Brush.Color:=clred;

end;

if rg1.ItemIndex = 1 then //untuk mengaktifkan angka 1

begin

off;

b.Brush.Color:=clred;

c.Brush.Color:=clred;

end;

[/sourcecode]

Ketikkan kode di atas sampai dengan untuk mengaktifkan angka 9. Sesuaikan dengan properties name dari shape yang harus diaktifkan. Gunakan logika anda. Dan terakhir, untuk pilihan off, panggil kembali procedure off yang kita buat

[sourcecode]

if rg1.ItemIndex = 10 then

begin

off

end;

[/sourcecode]

Hasilnya

properties7

Selamat Mencoba.

Leave a Reply

Your email address will not be published. Required fields are marked *

Copyright © All rights reserved. | Newsphere by AF themes.