Gudang Buku

Pembahasan pemograman bascom kali ini membahas tentang 7 segmen, dimana dalam blog ini yang akan saya buat adalah bagai mana membuat program mengaktifkan 7 segment pada pemograman bascom dan hasil simulasinya pada Proteus.

Dibawah ini merupakan program dalam menjalankan 7 segment dengan pengaturan pengaktifan 7 segment pada porta sedangkan untuk memberikan angka atau nilainya terletak pada kaki mikro portc.

$regfile = "m8535.dat"

$crystal = 4000000

'konfigurasi port kaki – kaki mikro

Config Porta = Output

Config Portc = Output

Do

'untuk 7segmen pertama

Portc = 249

Porta = 1

Waitms 200 ' jeda waktu

'untuk 7segmen kedua

Portc = 164

Porta = 2

Waitms 200

'untuk 7segmen ketiga

Portc = 176

Porta = 4

Waitms 200

'untuk 7segmen keempat

Portc = 153

Porta = 8

Waitms 200

'untuk 7segmen kelima

Portc = 146

Porta = 16

Waitms 200

'untuk 7segmen keenam

Portc = 130

Porta = 32

Waitms 200

'untuk 7segmen ketujuh

Portc = 248

Porta = 64

Waitms 200

'untuk 7segmen kedelapan

Portc = 128

Porta = 128

Waitms 200

Loop ' pengulangan

End ' Akhir

setelah membuat program diatas pada bascom avr, dibawah ini merupakan gambaran bentuk diagram dari simulasi pada Proteus