Witam,
Dlaczego wartość odczytana z pamięci jest inna niż zapisana.
Dlaczego jak odłączę zasilanie od procesora wszystkie dane z pamięci znikają.
Dlaczego wartość odczytana z pamięci jest inna niż zapisana.
Dlaczego jak odłączę zasilanie od procesora wszystkie dane z pamięci znikają.
$regfile = "m162def.DAT"
$crystal = 8000000
$baud = 9600
Dim Znak_chr As Byte
Dim Licznik1 As Integer
Dim Licznik2 As Integer
Dim Blokada_7 As Integer
Dim Blokada_6 As Integer
Dim Odczyt1 As Integer
Dim Odczyt2 As Integer
Readeeprom Licznik1 , 1
Readeeprom Licznik2 , 2
Do
If Pinb.0 = 0 Then
If Blokada_7 = 0 Then
Blokada_7 = 1
Incr Licznik1
Writeeeprom Licznik1 , 1
End If
End If
If Pinb.0 = 1 Then
Waitms 50
Blokada_7 = 0
End If
If Pinb.1 = 0 Then
If Blokada_6 = 0 Then
Blokada_6 = 1
Incr Licznik2
Writeeeprom Licznik2 , 2
End If
End If
If Pinb.1 = 1 Then
Waitms 50
Blokada_6 = 0
End If
Znak_chr = Inkey()
If Znak_chr = 65 Then
Print Chr(12)
Print "Licznik_1 " ; Licznik1
Print "Licznik_2 " ; Licznik2
Readeeprom Odczyt1 , 1
Readeeprom Odczyt2 , 2
Print "Licznik_odczyt1 " ; Odczyt1
Print "Licznik_odczyt2 " ; Odczyt2
End If
Loop
End