Witam,
Mam taki kod:
Problem poleag na tym, że jak dam
To program przestaje działać, nie wyświetlają się temperatury. Procek zwraca mi to co mu wyślę. W czym może być problem, bo dopiero zaczynam zabawę z RS232.
Pozdrawiam.
Mam taki kod:
$regfile = "m8515.dat"
$crystal = 8000000
$baud = 2400
Config 1wire = Portc.0
Dim Dsid1(8) As Byte
Dim Dsid2(8) As Byte
Dim Dsid3(8) As Byte
Dim I1 As Integer , Ss As String * 6
Dim I2 As Integer
Dim I3 As Integer
Dim A As String * 6
Dim B As Byte
Dsid1(1) = 1wsearchfirst()
Dsid2(1) = 1wsearchnext()
Dsid3(1) = 1wsearchnext()
Do
1wreset
1wwrite &H55
1wverify Dsid1(1)
1wwrite &HBE
I1 = 1wread(2)
'---------------------------------
1wreset
1wwrite &H55
1wverify Dsid2(1)
1wwrite &HBE
I2 = 1wread(2)
'---------------------------------
1wreset
1wwrite &H55
1wverify Dsid3(1)
1wwrite &HBE
I3 = 1wread(2)
'---------------------------------
1wreset
1wwrite &HCC
1wwrite &H44
Waitms 300
Input B
A = Chr(b)
If A = "1" Then
I1 = I1 * 10
I1 = I1 / 16
Ss = Str(i1)
Ss = Format(ss , "0.0")
Print Ss
End If
If A = "2" Then
I2 = I2 * 10
I2 = I2 / 16
Ss = Str(i2)
Ss = Format(ss , "0.0")
Print Ss
End If
If A = "3" Then
I3 = I3 * 10
I3 = I3 / 16
Ss = Str(i3)
Ss = Format(ss , "0.0")
Print Ss
End If
Loop
EndProblem poleag na tym, że jak dam
Input B
A = Chr(b)To program przestaje działać, nie wyświetlają się temperatury. Procek zwraca mi to co mu wyślę. W czym może być problem, bo dopiero zaczynam zabawę z RS232.
Pozdrawiam.