Membuat pengukur jarak ultrasonic dengan BASCOM dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Membuat pengukur jarak ultrasonic dengan BASCOM dan at mega 8535

Skema rangkaian pengukur jarak ultrasonic dengan BASCOM dan at mega 8535

Source code pengukur jarak ultrasonic dengan BASCOM dan at mega 8535

$regfile = "8535def.dat"

$crystal = 1000000

Dim Flag As Bit

Dim Jarak As Word

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 "PING dg Timer"

Lowerline

Lcd "Jarak="

Do

Gosub Ukur_jarak

Locate 2 , 7

Lcd Jarak ; " cm"

Loop

End

Ukur_jarak:

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 '

Jarak = Jarak / 58

Return

Jarak_over:

Flag = 0

Stop Timer1

Timer1 = 0

Jarak = 0

Return