https://wiki.oberon.org/ 2026-04-10T14:31:16+00:00 https://wiki.oberon.org/ https://wiki.oberon.org/lib/tpl/dokuwiki/images/favicon.ico text/html 2026-04-03T08:17:17+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.oberon.org/ob/o7/example/array?rev=1775193437&do=diff Массивы Любой элементарный тип возможно разместить в массиве. Нумерация элементов начинается с нуля. Длина массива определяется с помощью процедуры LEN text/html 2026-04-03T08:14:39+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.oberon.org/ob/o7/example/conversion?rev=1775193279&do=diff Преобразование типов Преобразование элементарных типов возможно через несколько встроенных функций: FLOOR(x) REAL INTEGER округлить до меньшего FLT(x) INTEGER REAL тождественно ORD(x) CHAR, BOOLEAN, SET INTEGER порядковый номер x CHR(x) INTEGER CHAR литера с порядковым номером x… text/html 2026-04-03T08:18:57+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.oberon.org/ob/o7/example/cycles?rev=1775193537&do=diff Циклы WHILE, REPEAT, FOR b := 0 WHILE b <= 10 DO Send(b); INC(b) END; b := 0 REPEAT Send(b); INC(b) UNTIL b > 10; FOR b := 0 TO 10 DO Send(b) END Учебник по программированию микроконтроллеров text/html 2026-04-03T08:13:56+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.oberon.org/ob/o7/example/elementary?rev=1775193236&do=diff Элементарные типы В языке Оберон последней редакции ( дата/версия )поддерживается шесть элементарных типов. В компиляторе O7 они имеют следующую разрядность для 32-битных микроконтроллеров. text/html 2026-04-03T08:15:48+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.oberon.org/ob/o7/example/export?rev=1775193348&do=diff Экспорт Чтобы константой, переменной или процедурой было возможно воспользоваться в другом модуле, который его импортирует, необходимо поставить отметку об экспорте text/html 2026-04-03T08:10:50+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.oberon.org/ob/o7/example/get?rev=1775193050&do=diff Чтение данных из регистра Управление микроконтроллером осуществляет через операции записи и чтения значений регистров. Для чтения значений примеряется процедура text/html 2026-04-03T08:14:20+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.oberon.org/ob/o7/example/import?rev=1775193260&do=diff Импорт модулей Импорт модулей для использования экспортированных процедур, переменных, типов и констант осуществляется в секции IMPORT. Через зяпятую указываются названия модулей. text/html 2026-04-03T08:20:36+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.oberon.org/ob/o7/example/inttostring?rev=1775193636&do=diff Преобразование целого числа в строку PROCEDURE IntToString (x: INTEGER; VAR s: ARRAY OF CHAR): INTEGER; VAR j, k: INTEGER; ch: CHAR; a: ARRAY 32 OF CHAR; BEGIN IF x = 0 THEN s := "0" ELSE IF x < 0 THEN s[0] := "-"; k := 1; x := -x ELSE k := 0 END; j := 0; REPEAT a[j] := CHR(x MOD 10 + ORD("0")); x := x DIV 10; INC(j) UNTIL x = 0; REPEAT DEC(j); ch := a[j]; s[k] := ch; INC(k) UNTIL j = 0; s[k] := 0X END; RETURN k END IntToString;… text/html 2026-04-03T08:18:46+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.oberon.org/ob/o7/example/math?rev=1775193526&do=diff Математические выражения Если микроконтроллер не имеет аппаратной поддержки вычисления чисел с плавающей точкой, то для компиляции доступна только целочисленная арифметика. Она состоит из таких операций как сложение ( text/html 2026-04-03T08:13:18+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.oberon.org/ob/o7/example/modules?rev=1775193198&do=diff Модули Оберон основан на концепции модулей. Модуль — единица компиляции и единица сборки. Модуль имеет название, которое состоит из одного слова, например text/html 2026-04-03T08:20:21+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.oberon.org/ob/o7/example/pccontrol?rev=1775193621&do=diff Передача данных между МК и ПК Если подключить к микроконтроллеру драйвер L293D, то возможно управлять мотором, путем создания разных или одинаковых сигналов на двух выводах Input 1/2. В этом примере управляющие каналы драйвера подключены к выводам PC14 и PC15. text/html 2026-04-03T08:14:53+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.oberon.org/ob/o7/example/put?rev=1775193293&do=diff Запись значения в регистр Управление микроконтроллером осуществляет через операции записи и чтения значений регистров. Для записи значения примеряется процедура text/html 2026-04-03T08:20:50+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.oberon.org/ob/o7/example/realtostring?rev=1775193650&do=diff Преобразование действительного числа в строку PROCEDURE RealToString (x: REAL; VAR s: ARRAY OF CHAR); VAR i, j, p: INTEGER; a: ARRAY 32 OF CHAR; BEGIN IntToString(FLOOR(x), s); i := 0; WHILE s[i] # 0X DO INC(i) END; s[i] := "."; INC(i); p := FLOOR(x*100.0) MOD 100; IF p = 0 THEN s[i] := "0"; INC(i); s[i] := "0"; INC(i) ELSE IntToString(p, a); j := 0; WHILE a[j] # 0X DO INC(j); END; IF j = 1 THEN s[i] := "0"; INC(i) END; j := 0; WHILE a[j] # 0X DO s… text/html 2026-04-03T08:17:47+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.oberon.org/ob/o7/example/record?rev=1775193467&do=diff Объявление записей Оберон поддерживает составные типы данных, которые называются записи RECORD. MODULE ExamplesRecord1; VAR pos: RECORD x, y: INTEGER END; BEGIN pos.x := 70; pos.y := 75; END ExamplesRecord1. text/html 2026-04-03T08:15:01+00:00 Anonymous (anonymous@undisclosed.example.com) https://wiki.oberon.org/ob/o7/example/set?rev=1775193301&do=diff Битовые операции В этой заметке мы изложим немного иначе суть статьи Н. Вирта Применение типа SET для управления регистрами. Тип множества SET позволяет удобно осуществлять битовые операции для управления микроконтроллерами.