Witam
Mam problem z wywolaniem procedury. Wycinek programu na dole:
.....
Declare Sub Temperatura(t As Word , S As String * 4 , Minus As Bit).......to jest linia 58
Do
If Pina.0 = 0 Then
Portb.7 = 0 ' jeśli PINDA.0 jest w stanie niskim to znaczy, ze nacisnięto przycisk S1 wtedy ustaw na PORTB.7 na 0
End If ' koniec instrukcji if
If Pina.1 = 0 Then ' jeśli PINA.1 jest w stanie niskim to znaczy, ze nacisnięto przycisk S2' wtedy ustaw na PORTB.7 na 1
Portb.7 = 1 'koniec instrukcji if
End If
If Portb.7 = 0 Then
Call Temperatura(t , S , Minus)
Locate 1 , 1
Lcd " Wcisnij P1"
Locate 2 , 1
Lcd "pokarze temp. "
End If
Loop
Sub Temperatura(t As Word , S As String * 4 , Minus As Bit )
1wreset
1wwrite &H55 'porównaj numer czujnika
1wverify Id(1)
1wwrite &HBE 'komenda odczytania z czujnika
T = 1wread(2)
.....
Przy kompilacji otrzymuję komunikat :
Line 58 : Byval should be used in declaration [[1]]....
Mam nadzieję , że napisalem to zrozumiale.
Dzieki z góry za podpowiedz.
Mam problem z wywolaniem procedury. Wycinek programu na dole:
.....
Declare Sub Temperatura(t As Word , S As String * 4 , Minus As Bit).......to jest linia 58
Do
If Pina.0 = 0 Then
Portb.7 = 0 ' jeśli PINDA.0 jest w stanie niskim to znaczy, ze nacisnięto przycisk S1 wtedy ustaw na PORTB.7 na 0
End If ' koniec instrukcji if
If Pina.1 = 0 Then ' jeśli PINA.1 jest w stanie niskim to znaczy, ze nacisnięto przycisk S2' wtedy ustaw na PORTB.7 na 1
Portb.7 = 1 'koniec instrukcji if
End If
If Portb.7 = 0 Then
Call Temperatura(t , S , Minus)
Locate 1 , 1
Lcd " Wcisnij P1"
Locate 2 , 1
Lcd "pokarze temp. "
End If
Loop
Sub Temperatura(t As Word , S As String * 4 , Minus As Bit )
1wreset
1wwrite &H55 'porównaj numer czujnika
1wverify Id(1)
1wwrite &HBE 'komenda odczytania z czujnika
T = 1wread(2)
.....
Przy kompilacji otrzymuję komunikat :
Line 58 : Byval should be used in declaration [[1]]....
Mam nadzieję , że napisalem to zrozumiale.
Dzieki z góry za podpowiedz.
