Membuat Timbangan digital (dengan potensio) mengggunakan mikrokontroler dengan bascom dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Membuat Timbangan digital (dengan potensio) mengggunakan mikrokontroler dengan bascom dan at mega 8535

Skema rangkaian Timbangan digital (dengan potensio) mengggunakan mikrokontroler dengan bascom dan at mega 8535

Source code Timbangan digital (dengan potensio) mengggunakan mikrokontroler dengan bascom dan at mega 8535

$regfile = "8535def.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

Cursor Off

Cls

Config Adc = Single , Prescaler = Auto , Reference = Avcc

Dim Adc0 As Word , Berat As Single

Lcd "Berat:"

Start Adc

Do

Adc0 = Getadc(0)

'rumus Berat = 1.019ADC - 0.283

'rumus didapat dari perbandingan adc dgn berat

Berat = Adc0 + 0.283

Berat = Berat / 1.019

Locate 1 , 7

Lcd Fusing(berat , "#.##") ; " gram "

Waitms 300

Loop