Mari kita lanjutkan materi 7 segment dengan menambahkan 3 buah komponen yang sama. Seperti prinsip penyalaan dot matrix, agar tidak boros port, kita gabungkan semua pin data keempat 7 segment (pin a - dp). Pin common, kita gunakan sebagai pin "enable" untuk masing-masing digit. Agar semua 7segment terlihat menyala bersamaan, kita lakukan scanning dengan mengaktifkan keempat enable secara bergantian dengan timing yang cepat.
Rangkaian yang digunakan (ini tampilan setelah di run) adalah seperti ini (masih menggunakan 7segment CC) :
Yap langsung aja dibuat di proteus dan masukkan program dibawah ini
$regfile = "8535def.dat"
$crystal = 8000000
Config Portc = Output
Config Porta = Output
Segment Alias Portc
Digit Alias Porta
Dim X As Byte , Data_digit As Byte
Data_digit = &B11111110
Do
For X = 1 To 4
Digit = Data_digit
Segment = Lookup(x , Data_7seg)
Waitms 1
Rotate Data_digit , Left , 1
Next X
Data_digit = &B11111110
Loop
Data_7seg:
Data &B00111111 '0
Data &B00000110 '1
Data &B01011011 '2
Data &B01001111 '3
Data &B01100110 '4
Data &B01101101 '5
Data &B01111101 '6
Data &B00000111 '7
Data &B01111111 '8
Data &B01101111 '9
Untuk cek proses scanningnya bisa kita besarkan delaynya di penggalan program di bawah ini
Coba diganti menjadi waitms 200. Nah, bergantian kan?
Download listing program Bascom dan proteus nya di sini (7seg) FREE
Salah satu aplikasi komponen 4x7 segment ini sebagai penampil hasil pembacaan ADC. Mari kita coba rangkaian dibawah ini (komponen yang ditambahkan adalah potensiometer)
Download listing program Bascom dan proteus nya di sini (7seg-ADC) FREE
Perubahan hambatan pada potensiometer ini akan mengubah tegangan yang masuk ke ADC. Nilai yang dibaca ADC ini di konversi dalam bentuk tegangan lagi yang kemudian ditampilkan ke 4x7segment. Digit 1 merupakan nilai satuan yang merupakan angka didepan. Digit1,2,3 merupakan tiga angka dibeakang koma. Demikian, Semoga bermanfaat dan bisa dijadikan referensi. Ditunggu komentarnya.. :)
Thx.. :)
ReplyDelete