Всё всем спасибо! Вольтметр получился на ура!!! [code]
DEFINE OSC 4
' Èíèöèàëèçàöèÿ ÆÊÈ **********************************************************************
DEFINE LCD_DREG PORTD ' Îïðåäåëÿåì ïîðò, ê êîòîðîìó ïîäêëþ÷åíû öåïè äàííûõ.
DEFINE LCD_DBIT 4 ' Îïðåäåëÿåì ïåðâûé âûâîä, ê êîòîðîìó ïîäêëþ÷åíà øèíà äàííûõ,
DEFINE LCD_RSREG PORTB ' Îïðåäåëÿåì ïîðò, ê êîòîðîìó ïîäêëþ÷åíà öåïü RS.
DEFINE LCD_RSBIT 0 ' Îïðåäåëÿåì âûâîä, ê êîòîðîìó ïîäêëþ÷åíà öåïü RS.
DEFINE LCD_EREG PORTB ' Îïðåäåëÿåì ïîðò, ê êîòîðîìó ïîäêëþ÷åíà öåïü E.
DEFINE LCD_EBIT 1 ' Îïðåäåëÿåì âûâîä, ê êîòîðîìó ïîäêëþ÷åíà öåïü E.
DEFINE LCD_BITS 4 ' Îïðåäåëÿåì ðåæèì 4 – ðàçðÿäíîé øèíû.
DEFINE LCD_LINES 2 ' Îïðåäåëÿåì òèï ÆÊÈ.
DEFINE LCD_COMMANDUS 2000 ' Îïðåäåëÿåì âðåìÿ çàäåðæêè ìåæäó êîìàíäàìè íà ÆÊÈ.
DEFINE LCD_DATAUS 50 ' Îïðåäåëÿåì âðåìÿ çàäåðæêè ìåæäó ïîñûëêàìè äàííûõ.
'*****************************************************************************************
'Èíèöèàëèçàöèÿ ÀÖÏ ***********************************************************************
DEFINE ADC_BITS 10 '
DEFINE ADC_CLOCK 100 '
DEFINE ADC_SAMPLEUS 10 '
trisa = %00000001
ADCON1 = %10001110
'******************************************************************************************
volt var word
test:
Adcin 0, volt
lcdout $fe,1, "Volt=", DEC2(volt/10), ".",DEC1 (volt//100)
goto test
собрано по этой схеме http://www.coolcircuit.com/project/meter/meter.zip - только одаптировано к LCD
Резистор который идёт на щуп заменил на 200К вместо 47 которые идёт по схеме.