Membuat pengukur tinggi badan digital dengan BASCOM dan at mega 8535 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Membuat pengukur tinggi badan digital dengan BASCOM dan at mega 8535

Skema rangkaian Membuat pengukur tinggi badan digital dengan BASCOM dan at mega 8535

Source code Membuat pengukur tinggi badan digital 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

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 "Tinggi Badan"

Lowerline

Lcd "TB="

Ht = 200

Do

Gosub Ukur_h1

H2 = Ht - H1

Locate 2 , 4

Lcd H2 ; " cm"

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