سلام دوستان این برنامه راه اندازی سنسور فشار هست ؟خروجی این سنسور 4-20 میلی امپره که بایک مقاومت 250 اهمی تبدیل میشه به ولتاژ و میکرو این افت ولتاژ را از طریق adc میخونه حالا بنده میخواهم ان را با pic بنویسم خواستم از شما دوستان بپرسم که چه عملیاتی برابی تبدیل انجام شده است ؟من avr کار نکردم فقط در توضیح کفایت میکند باتشکر
$regfile = “M8DEF.DAT”
$crystal = 8000000
$baud = 9600
‘configure ADC
Config Adc = Single , Prescaler = Auto , Reference = Avcc
‘ADC conversion result
Dim C As Long
‘Depth in cm
Dim D As Long
‘Pressure * 10 at 100m
Const X = 98
‘D =((C*5000000)/256-4000000)/(16*X)
Const Z1 = 5000000 / 256
Const Z2 = 16 * X
‘power ADC
Start Adc
Do
. C = Getadc(0)
. D = C * Z1
. D = D - 4000000
. D = D / Z2
. Print “Depth: “ ; D ; “cm”
. Wait 1
Loop End
$regfile = “M8DEF.DAT”
$crystal = 8000000
$baud = 9600
‘configure ADC
Config Adc = Single , Prescaler = Auto , Reference = Avcc
‘ADC conversion result
Dim C As Long
‘Depth in cm
Dim D As Long
‘Pressure * 10 at 100m
Const X = 98
‘D =((C*5000000)/256-4000000)/(16*X)
Const Z1 = 5000000 / 256
Const Z2 = 16 * X
‘power ADC
Start Adc
Do
. C = Getadc(0)
. D = C * Z1
. D = D - 4000000
. D = D / Z2
. Print “Depth: “ ; D ; “cm”
. Wait 1
Loop End
دیدگاه