Membuat pengukur volume air mengggunakan mikrokontroler dengan bascom dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Membuat pengukur volume air mengggunakan mikrokontroler dengan bascom dan at mega 8535

Skema rangkaian  Membuat pengukur volume air mengggunakan mikrokontroler dengan bascom dan at mega 8535

Source code Membuat pengukur volume air mengggunakan mikrokontroler dengan bascom dan at mega 8535

$regfile = "8535def.dat"

$crystal = 1000000

Dim Flag As Bit

Dim Jarak As Word , H1 As Word , H2 As Word , Ht As Word

Dim Vol As Long , C As Single , D As Single

Const Phi = 3.14

Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6

Config Lcdpin = Pin , Db7 = Porta.7 , E = Porta.1 , Rs = Porta.0

Config Lcd = 16 * 2

Cursor Off

Cls

Config Timer1 = Timer , Prescale = 1

On Timer1 Jarak_over

Enable Interrupts

Sig Alias Portc.0

Pin_sig Alias Ddrc.0

Sig_in Alias Pinc.0

Lcd "Pengukur Volume"

Lowerline

Lcd "Vol="

Ht = 200

D = 100

' Volume=0.25*phi*(D^2)*t

D = D * D

C = Phi * D

C = C / 4

Do

Gosub Ukur_H1

H2 = Ht - H1

Vol = C * H2

Locate 2 , 5

Lcd Vol ; " cm3"

Loop

End

Ukur_h1:

Flag = 1

Pin_sig = 1

Sig = 0

Enable Timer1

Timer1 = 0

Sig = 1

Waitus 5

Sig = 0

Waitus 760

Start Timer1

Pin_sig = 0

Sig = 1

While Flag = 1

If Sig_in = 0 Then

Stop Timer1

Jarak = Timer1

Flag = 0

End If

Wend

H1 = Jarak / 58

Return

Jarak_over:

Flag = 0

Stop Timer1

Timer1 = 0

Jarak = 0

Return