[mshh]

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

dim I as byte
DIM DAT AS BYTE
DIM G AS CHAR

main:

Usart_Init(9600)


ADCON1 = 0 ' all PORTA pins as analog, VDD as Vref
TRISA = $FF ' all PORTA pins as inputs
ADCON0=01
DELAY_MS(1)
LOP:
ADCON0.2=1
WAITELAY_MS(1) ' wait 1ms till conversion end
IF ADCON0.2=1 THEN
GOTO lop
END IF
while true
I = Adc_Read(2) >> 2
IF USART_DATA_READY=1 THEN
DAT=USART_READ
IF DAT=G THEN PORTB=01 'check send if it was (g) turn on rb0

Usart_Write(I)
END IF
END IF
wend

end.

[mshh]

ليه محدش رد يا جماعه