; -------------------------------------------------------- ; **** Чтение первых десяти ячеек памяти данных **** ; -------------------------------------------------------- XIncludeFile "MK_Prog_Procedure.pbi" ; Подключение дополнительного исходного текста ComProg_Init() ; Загрузка настроек из файла Preferences.ini If OpenCom_Port(ComPortName)=0 ;- Открытие COM порта MessageRequester("Ошибка", "Не удалось открыть порт "+ComPortName, 16) End ; Завершение работы программы EndIf If ComProg_Test()=0 ; Проверка наличия программатора MessageRequester("Ошибка", "Не найден программатор", 16) EndIf ComProg_StartStop(1) ; Подача напряжения программирования Delay(1000) ; Ждём секунду. Text.s="" ; Объявление переменной строкового типа For x=1 To 10 ; Цикл чтения данных из микроконтроллера ComProg_OutByteCommand(%000101) ;- Команда "Чтение данных из памяти данных" Slovo=ComProg_InByteData() ; Чтение слова (два байта) Slovo=Slovo & %11111111 ; Обнуление незначащих бит Text=Text+RSet(Hex(Slovo),2,"0")+Chr(10) ; Преобразование полученных данных в строковой вид. ComProg_OutByteCommand(%000110) ;- Команда "Увеличение адреса" Next x Delay(100) ; Ждём 0.1 секунды ComProg_StartStop(0) ;- Отключение напряжения программирования CloseCom_Port() ;- Закрытие порта MessageRequester("Чтение памяти данных",Text, 64) End ; Завершение работы программы ; IDE Options = PureBasic 4.10 (Windows - x86) ; CursorPosition = 13 ; Folding = - ; EnableXP ; Executable = MK_ReadData.exe