Membuat penghitung jumlah orang dalam ruangan mengggunakan mikrokontroler dengan bascom dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Membuat penghitung jumlah orang dalam ruangan mengggunakan mikrokontroler dengan bascom dan at mega 8535

Skema rangkaian Membuat penghitung jumlah orang dalam ruangan mengggunakan mikrokontroler dengan bascom dan at mega 8535

Source code Membuat penghitung jumlah orang dalam ruangan mengggunakan mikrokontroler dengan bascom dan at mega 8535

$regfile = "m8535.dat"

$crystal = 16000000

Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.2 , Db4 = Portc.4

Config Lcdpin = Pin , Db5 = Portc.5 , Db6 = Portc.6 , Db7 = Portc.7

Config Lcd = 16 * 2

Ddrb.0 = 0

Portb.0 = 1

Ddrb.1 = 0

Portb.1 = 1

Config Timer1 = Counter , Edge = Falling

Config Timer0 = Counter , Edge = Falling

Start Timer0

Start Timer1

Dim Total As Word

Cursor Off

Cls

Lcd "IN=0 OUT="

Lowerline

Lcd "Total="

Do

Locate 1 , 4

Lcd Counter0

Locate 1 , 13

Lcd Counter1

Total = Counter0 - Counter1

Locate 2 , 7

lcd total

Loop