Так вот же в коде прописано Ddrc = &B11111111 весь порт с навыход работает,выход на катоды индикатора у меня тоже на С весят и работают,а вот реле нахочет невкакую.Да и темболее пробовал и output.Ну это бог с ним щас реле весит на порту d и работает.
А в память я вот обращаюсь Code
Minus: 'обработка кнопки минус
Decr Temp 'уменьшаем температуру
If Temp < 0 Then 'если темп. меньше 0 то так и остаётся ноль
Temp = 0
End If
Temp_eep = Temp 'пишем установленный порог в память
C = 1 'ставим флаг для отображения порога
Return
Plus: 'обработка кнопки минус,тут тоже самое что и с минусом только наоборот
Incr Temp
If Temp > 40 Then
Temp = 40
End If
Temp_eep = Temp
C = 1
Return
а в начале программы считываю из памяти
Code
I = I_eep 'пишем флаг из памяти
If I <> 1 Then I = 2 'если он =1 то пишем значение порога из памяти
If I = 1 Then Temp = Temp_eep
If I = 2 Then Temp = 25 'а если он =2 то ставим первоначальное значение порога и ставим
I = 1 'Флаг = 1 что бы следующие значения порога равнялись установленными
I_eep = I 'нами(это нужно при первом включении,и наче будет пустая temp)
но почемуто у меня всё время первоначальное значение вылазиет 25 град порог.
Конфигурация вот
Code
Dim Temp_eep As Eram Byte 'значение порога температуры в еепром
Dim Temp As Byte 'порог температуры в оперативной памяти
Dim I_eep As Byte
Dim I As Byte 'флаг для eeprom