Witammój problem polega na tym że
podłączyłem do megi termometr i po wywołaniu tego kodu
w zmiennej TMP zawsze jest temperatura 85'C
co jest chyba dziwne
oczywiście linia danych jest podpieta przez rezystor 4,7k do VCC
proszę o pomoc bo siędzę nad tym od paru godzin i nie moge znaleźć przyczyny tego błędu
podłączyłem do megi termometr i po wywołaniu tego kodu
im T1 As Single
Dim T2 As Single
Dim B1 As Byte , B2 As Byte , R As Byte
Dim Tmp As String * 6
Dim Znak As String * 1
Sub Temp
1wr 'podprogram 1wr
1wwrite &HCC 'komenda skip ROM
1wwrite &H33 'komenda convert T
Waitms 250
Waitms 250
1wr 'podprogram 1wr
1wwrite &HCC 'komenda skip ROM
1wwrite &HBE 'komenda read
B1 = 1wread() 'odczyt z termometru
B2 = 1wread()
1wr 'podprogram 1wr
'
If B2 >= 255 Then 'w przypadku temperatur ujemnych
B1 = R - B1 'Od 255 Odejmujemy B1
B2 = R - B2 'od 255 odejmujemy B2
Znak = "-"
Else
Znak = "+"
End If
T1 = B1 / 16 'Przesuniecie w pawo o 4 bajty
T2 = B2 * 16 'przesuniecie w lewo o 4 bajty
T1 = T1 + T2
Tmp = Fusing(t1 , "###.&&")
End Sub
Sub 1wr 'podprogram resetujacy magistrale
1wreset
End Sub
w zmiennej TMP zawsze jest temperatura 85'C
co jest chyba dziwne
oczywiście linia danych jest podpieta przez rezystor 4,7k do VCC
proszę o pomoc bo siędzę nad tym od paru godzin i nie moge znaleźć przyczyny tego błędu
