asdasdasd

$sim                                                        ''do symulatora
$crystal = 16000000
$hwstack = 40
$swstack = 16
$framesize = 32
$regfile = "m32def.dat"

Config Lcdpin = Pin , Db4 = Porta.4 , Db5 = Porta.5 , Db6 = Porta.6 , Db7 = Porta.7 , E = Portc.7 , Rs = Portc.6

'configuracja poboru napiecia reference moze nie byc potrzebne
Config Adc = Single , Prescaler = Auto , Reference = Internal

'Now give power to the chip
Start Adc                                                   ' NOT required since it will start automatic
Dim W As Word , Channel As Byte
Channel = 0
W = Getadc(channel)

'deklaracja funkcji odpowiednich za wybor z niezmiennym parametrem dokonanego pomiaru
Declare Function Auto(byval V As Double) As Double
Declare Function Recznie(byval V As Double) As Double
Config Lcd = 16x2

Cls
Lcd "Wybierz opcje"
'Lcd "Napiecie " ; W
Wait 2
Lowerline
Lcd "1 Auto,2 Recznie"
Wait 2



End