Monitoring 4 buah data sensor suhu / temperature dikirim ke PC mengggunakan mikrokontroler dengan bascom dan at mega 16 Blog Adi Sanjaya Global Techno Solution - AS-GTS

Monitoring 4 buah data sensor suhu /  temperature dikirim ke PC mengggunakan mikrokontroler dengan bascom dan at mega 16

skematik rangkaian Monitoring 4 buah data sensor suhu /  temperature dikirim ke PC mengggunakan mikrokontroler dengan bascom dan at mega 16

source code Monitoring 4 buah data sensor suhu /  temperature dikirim ke PC mengggunakan mikrokontroler dengan bascom dan at mega 16

$regfile = "m16def.dat"

$crystal = 16000000

$baud = 9600

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

Dim W As Word , Volt As Word , Temp As Word

Dim Ch As Byte

Start Adc

Do

For Ch = 0 To 3

W = Getadc(ch)

Volt = W * 5

Temp = Volt / 10

Print "T" ; Ch ; "=" ; Temp ; Chr(&Ha7) ;

If Ch < 3 Then

Print "C ";

Else

Print "C"

End If

Wait 1

Next

Loop

End