تحويل اشاره انالوج


(system) #1

لو سمحتوا يا باشمهندسين انا عايز اعمل برنامج يحول قيمه انالوج الي ديجيتال باستخدام
16f877
وابعت القيمه المتحوله الي بورت السيريال في الكمبيوتر
شكرا


(system) #2

السلام عليكم اتفضل يا سيدى الكود على برنامج Picbasic

device 16f877a
xtal 4

clear
dim a as word
dim b as byte
trisd=%00000010
TRISA = %00111111 ’ Configure AN0 (PORTA.0) as an input
ADCON1 =%10000000 ’ Set analogue input on PORTA.0
DECLARE ADIN_RES 10 ’ 10-bit result required
DECLARE ADIN_TAD FRC ’ RC OSC chosen
DECLARE ADIN_STIME 50 ’ Allow 50us sample time
delayms 100
start:

a=adin 0
print at 1,1,dec4 a
b=a/4 ’ to convert 10 bit to 8 bit
print at 2,1,dec3 b
serout portd.0,84,[b]
delayms 400
goto start
end


(system) #3

شكرا عالبرنامج
بس فين الجزء الخاص بارسال القيمه الي السيريال بورت وازاي اتاكد من انها اتبعتت
شكرا