Config Adc = Single , Prescaler = Auto , Reference = Internal 'konfiguracja wewnętrznego przetwornika ADC
Start Adc 'uruchomienie przetwornika ADC


'--------------------DEKLARACJA ZMIENNYCH--------------------------------------'
Dim Wart_ac As Word
Dim V As Single , I As Single , Vv As Single , Ia As Single
Dim Wart_pr As String * 3 , Wart_nap As Word
Dim Wart_str As String * 3 , W As Single
Dim Wart_wat As String * 3


'------------------------KONFIGURACJA LCD--------------------------------------'

Config Lcd = 16 * 2
Config Lcdpin = Pin , Rs = Portb.5 , E = Portb.4 , Db4 = Portb.3 , Db5 = Portb.2 , Db6 = Portb.1 , Db7 = Portb.0
Config Pind.0 = Output

Cls
Cursor Off
Lcd ; Spc(3) ; "Napis 1"
Lowerline
Lcd ; Spc(3) ; "Napis 2" 'wyświetlanie ekranu początkowego
Wait 2
Cls
Set Pind.0


'------------------------POCZĄTEK PĘTLI GŁÓWNEJ--------------------------------'

Do

Wart_ac = Getadc(0) 'pobranie wartości mierzonego napięcia
Wart_nap = Getadc(1) 'pobranie wartości mierzonego napięcia do obliczenia prądu

V = Wart_nap * 0.0025 'unormowaanie zmierzonego napięcia i napięcia do pomiaru prądu
Vv = Wart_ac * 0.025

I = V / 0.1 'dzielenie zmierzonego spadku napięcia na rezystorze (prawo Ohma)
W = I * Vv


Wart_str = Fusing(vv , "##.&")
Wart_pr = Fusing(i , "#.&&") 'zaokrląglanie do dwóch miejsc po przecinku wartości wyświetlanych na LCD

Home Upper
Lcd "Volt: " ; Wart_str ; "V" ; Spc(1)
Lowerline
Lcd "Amper: " ; Wart_pr ; "A" ; Spc(1) 'wyświetlanie pomierzonych wartości
Waitms 100





Loop
End
'----------------------------KONIEC PĘTLI GŁÓWNEJ------------------------------'