السلام عليكم
انا جربت التوصيله وكتبت الكود التالي
**************************************************
program thermalFinal
dim ADCResult , kk as word
dim value as word[3]
dim vstring as string[3]
dim vv as byte
sub procedure GlobInit
TRISB = 0
PORTB = 0
TRISA = 1
TRISC = 0
PORTC = 0
TRISD = 0
PORTD = 0
ADCON1 = $80
end sub
main:
GlobInit
kk = 29
PORTC.0 = 1
Delay_ms(1000)
PORTC.1 = 1
Delay_ms(1000)
PORTC.0 = 0
PORTC.1 = 0
while true
ADCResult = ADC_Read(0)*5/1024
ADCResult = ADCResult * 100 - 273
if ADCResult <kk then ' its the hex value of 60 degree in C
PORTC .0 = 1
PORTC.1 = 0
else
PORTC.1 =1
PORtC.0 = 0
end if
wend
end.
************************************************** **
المفروض حسب الكود انها اذا كانت قيمة الفولتية على input = 3.02
او اكبر يقلب الضو يطفي ال portc.0 ويضوي portc.1
بس ما صار هيك يلي صار هو انه لما كان مفروض portc.0 يضوي كان يادوب الضوي مبين كان خافت على الاخر والفولتيه عليه كتتير قليلة
فما بغرف وين المشكلة بالزبط ممكن حدا يساعدني