[محمد سميك]

اريد مساعدة في برمجة pic 16f877a بلغة بيسك لاظهار متغير من 0 الى 40 على شاشة lcd عند ادخال جهد متغير من 0الى 2 v على مدخل ra2 رجل رقم 4 في اليك
ولكم جزيل الشكر

[محمد سميك]

لقد عملت هذا البرنامج ولكن يقيس بالاحاد فقط ولا يقيس بالاعشار


dim LCD_RS as sbit at Rb4_bit
LCD_EN as sbit at Rb5_bit
LCD_D4 as sbit at Rb0_bit
LCD_D5 as sbit at Rb1_bit
LCD_D6 as sbit at Rb2_bit
LCD_D7 as sbit at Rb3_bit

LCD_RS_Direction as sbit at TRISb4_bit
LCD_EN_Direction as sbit at TRISb5_bit
LCD_D4_Direction as sbit at TRISb0_bit
LCD_D5_Direction as sbit at TRISb1_bit
LCD_D6_Direction as sbit at TRISb2_bit
LCD_D7_Direction as sbit at TRISb3_bit
dim volt1 as string[5]
dim i as word
dim volt as word
dim volt3 as word
dim volt4 as word
main:


Lcd_Init()
trisc=%00000010
while TRUE
if portc.1=1 then
volt4=volt
end if
volt = ADC_Read(2)
delay_ms(100)
volt3=(volt-volt4)*120/1024
wordtostr(volt3,volt1)
Lcd_Out(2,2,volt1)

delay_ms(200)


wend
end.