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

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

السلام عليكم اتفضل يا سيدى الكود على برنامج 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

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