Cześć napisałem program który działa ok ale tylko pozornie bo w symulacji.
zawiesza mi sie na tej linijce jak go umieszcze w procku.
zawiesza się jak zaczyna pobierac" Warprad = Getadc(5)
Warnap = Getadc(3) "
stan portu sie jeszcze ustawia i koniec.
jesli wyremuje "getadc " to to petla jest ok.
Nic nie rozumię z tego i pierwszy raz się spotkałem z takim czymś
zawiesza mi sie na tej linijce jak go umieszcze w procku.
..
..
Config Timer0 = Timer , Prescale = 64
Config Adc = Free , Prescaler = Auto , Reference = Avcc
Start Adc
Dim Sek As Byte
Dim Minuta As Byte
Dim Godzina As Byte
Dim Krok As Byte
Dim A As Integer
Dim B As Byte
Dim C As Byte
Dim D As Byte
Dim E As Byte
Dim F As Byte
Dim G As Byte
Dim X As Byte
Dim Y As Byte
Dim Warprad As Integer
Dim Warnap As Integer
Dim Warnapx As String * 3
Dim Warpradx As String * 3
Dim Ah As Word
Dim Ogniwo As Word
Dim Wartosc As Word
Dim Wartosc1 As Single
Dim P As Single
Dim N As Single
Dim Licznik As Integer
..
..
Do
If S4 = 0 Then
Goto Na_czas:
End If
If S1 = 0 Then
Waitms 500
Goto Czas
End If
If S2 = 0 And S3 = 0 Then
Goto Koniec2:
End If
Set Portd.5
Warprad = Getadc(5)
Warnap = Getadc(3)
P = Warprad
Warpradx = Fusing(p , "#.##")
Locate 2 , 1
Lcd "A = " ; Warpradx;
N = Warnap * 0.032
Warnapx = Fusing(n , "#.##")
Locate 1 , 1
Lcd "V = " ; Warnapx;
Loop
zawiesza się jak zaczyna pobierac" Warprad = Getadc(5)
Warnap = Getadc(3) "
stan portu sie jeszcze ustawia i koniec.
jesli wyremuje "getadc " to to petla jest ok.
Nic nie rozumię z tego i pierwszy raz się spotkałem z takim czymś
siedze nad tym juz 2 dzień więc może mało już widze. sądze że coś sie gryzie ale nie mam błędów i chodzi w symulacji więc sam nie wiem juz 
) kod:]
