Проекты на микроконтроллерах AVR

Управление пином через регистры?

twinsen_kiev — Tue, 24 Dec 2019 09:33:26 GMT

Нужно на ножку повесить устройство, которое на свой вход от МК может принимать три возможных состояния: землю, питание и обрыв - тоесть ничего, по каждому из которых оно совершает три разных действия.
Будет ли работать такая схема? (Для примера условный пин А1 и три подпрограммы).

1:                                    'на ножке земля
Ddra.1 = 1                            'ставим на выход
Porta.1 = 0                           'на землю
Return

2:                                    'на ножке питание
Ddra.1 = 1                            'ставим на выход
Porta.1 = 1                           'на питание
Return

3:                                    'на ножке высокий импеданс (Hi-Z) - обрыв
Ddra.1 = 0                            'ставим на вход
Port a.1 = 0                          'на землю
Return

LCD Дисплей Nextion и Bascom

vlad-sf — Sat, 21 Dec 2019 09:19:46 GMT

Добрый день. Прикупил вот такой дисплей: http://ru.aliexpress.com/item....2.html. Общается с контроллером по UART. Программирование на Bascom осваиваю потихоньку, но здесь попал в ступор. Дисплей выдает данные в UART при нажатии на кнопки на нем и заканчивает отсылку такой последовательностью: 0XFF 0XFF 0XFF (пример, код нажатия клавиши на сенсорном экране: 0X65 0X00 0X02 0X01 0XFF 0XFF 0XFF). А Bascom "ждет" в завершении команды код возврата каретки и поэтому программа дальше не выполняется. Как "заставить" Bascom понять нужную последовательность (0XFF 0XFF 0XFF) без ожидания "Enter" ?

Работа с ATMega64

exersizze — Sat, 16 Feb 2019 18:25:56 GMT

В планах есть большой проект с использованием микроконтроллера atmega64 (одно из требований - 4 внешних прерывания и такой камень у меня давно уже пылится). Беглый взгляд по даташиту родил сомнения в плане простоты работы с Bascom-avr. Может есть у кого примеры использования этого камня?

MMA8451 GY-45 модуль 3-х осевой цифровой акселерометр

qewin — Thu, 23 Nov 2017 17:53:58 GMT

Форум: Общие вопросы по Bascom-AVR
Описание темы: I2C
Автор темы: qewin
Автор последнего сообщения: qewin
Количество ответов: 1

я не волшебник ,я просто учусь

trim — Tue, 21 Nov 2017 19:44:05 GMT

вот решил забабахать чтоб серва от энкодера регулировалась ,в чем косяк ,где собака зарыта подскажите

Code

$regfile = "m16def.dat"
$crystal = 2000000
$hwstack = 40
$swstack = 16
$framesize = 32

$prog &HFF , &H44 , &HD9 , &H00

Config Porta .0 = Output
Config Porta.4 = Output

Config Servos = 1 , Servo1 = Porta .0 , Reload = 10
Dim W As Byte
Dim S As Integer

S = 75

Config Int0 = Falling ' прерывание INT0 по нисходящему фронту (c + на -)
On Int0 Encod

Enable Interrupts

Enable Int0
Do
Loop

Encod:
Porta.4 = 0
Waitus 10 ' ждем пока утихнет дребезг контактов
If Pinb.1 = 1 Then ' если на ноге единица (импульс не пришел) тогда
Incr W
W = S + 1
Porta.4 = 1
End If

If W = 151 Then
W = 150
Gosub Encod

End If
Porta.5 = 0
Waitms 2
If Pinb.1 = 1 Then ' если на ноге единица (импульс не пришел) тогда
Decr W

W = S - 1
Porta.5 = 1
End If

If W = -1 Then
W = 0
Gosub Encod

End If

Servo(1) = W

Return

12-ти битный ЦАП MCP4921 SPI

vakulyuk — Mon, 23 Oct 2017 03:46:36 GMT

Имеется ЦАП MCP4921, но не получается добиться нормального выходного напряжения.. В большинстве просмотренным мною программ не был нормально сконфигурирован SPI интерфейс. А именно: "CONFIG SPI = SOFT, DIN = PIN и т.д. Кто-нить может подсказать или написать небольшой примерчик как сконфигурировавши SPI (как это сделать я понял) можно взять какую то переменную и отправить в ЦАП? Например при опорном напряжении в 5В нужно получить 3В.

bascom и ST7735S-дисплей 128 x 160

bulat — Tue, 08 Aug 2017 15:33:39 GMT

пришел с ебея дисплей 128*160 вот такой http://ru.aliexpress.com/item....94.html
есть ли у кого пример его использования?
он общается по SPI,какой лучше-софтовый или хардовый?
потихоньку буду выкладывать если чего получится,и жду помощи от вас

Самодельный I2C в режиме ведомого

a5020k — Wed, 24 May 2017 18:47:31 GMT

Добрый день коллеги!
Знаю, что есть готовые либы у bascoma, но из за одной поделки покупать их нет смысла.
Есть желание связать самодельное устройство с блоком контроля по I2S.
Обмен данными между устройствами минимальный.
Ведущий кидает данные - ведомый всегда ожидает и как только получает - исполняет - отвечает по i2c что исполнил и ждет дальше.
Устройств на шине несколько..
Может кто делал примитивный обмен?

опрос устройств i2c

virus-error — Sat, 13 May 2017 10:45:33 GMT

Форум: Общие вопросы по Bascom-AVR
Автор темы: virus-error
Автор последнего сообщения: virus-error
Количество ответов: 1

Декодирование сигналов протокола NEC на ATmega324

christian — Sat, 22 Apr 2017 17:22:43 GMT

Здравствуйте уважаемые,
Есть готовый проект декодирование сигналов протокола NEC на ATmega8 ( http://radioparty.ru/prog-av....ecoding ). Хотелось переписать скрипт для ATmega324A. Вот что у меня вышло:

Код

// Декодирование сигналов протокола NEC

#define F_CPU 16000000
#include
#include
#include
#include

#define LED_BLINKER(ms,times) for (uint8_t q = 0; q < times; q++) {_delay_ms(ms); PORTD |= _BV(PD7); _delay_ms(ms); PORTD &= ~_BV(PD7); } _delay_ms(25);
#define LED_BLINKER2(ms,times,after) for (uint8_t q = 0; q < times; q++) {_delay_ms(ms); PORTD |= _BV(PD7); _delay_ms(ms); PORTD &= ~_BV(PD7); } _delay_ms(after);

unsigned char signal_time;
static unsigned char ir_ok,ir_decode_ok;
unsigned char ir_code[4]; // Массив для хранения значений адресов и команд
unsigned char ir_signal[33]; // Массив для хранения значений интервалов

// Прерывание по совпадению T1(каждые 560мкс)
ISR(TIMER1_COMPA_vect)
{
    signal_time++; // Счетчик интервалов
}

// Внешнее прерывание по INT0
ISR(INT0_vect)
{
    static unsigned char i;

    // Определяем начало приема посылки
    if(signal_time > 9) // (4,5ms+562us)/560 = 9
        i = 0; // Выбираем первый интервал

    ir_signal [i]= signal_time; // Записываем в буфер значения интервалов
    signal_time = 0; // Обнуляем счетчик интервалов
    i++; // Следующий интервал

    if(i == 33) // Если все интервалы приняты
        ir_ok = 1; // Устанавливаем флаг окончания приема сигнала
}

// Функция декодирования сигнала
void ir_decode(void)
{
    unsigned char k = 0;
    unsigned char signal_length,value = 0;

    for(unsigned char i = 0; i < 4; i++) // Обработка байтов адреса или команды
    {
        for(unsigned char j = 0; j < 8; j++) // Обработка 8-ми битов адреса или команды
        {
            k++;
            value = value >> 1; // Сдвигаем биты вправо
            signal_length = ir_signal[k]; // Выбираем следущее значение интервала
            if(signal_length > 4) // Если интервал больше (1,675ms+562us)/560 = 4
                value = value | 0x80; // Добавляем к старшему разряду единицу
          }
        ir_code [i]= value; // Запоминаем в буфере байт адреса или команды
        value = 0; // Обнуляем значение адреса или команды
    }

    // Производим явное приведение типов и проверяем принятые байты
    if(((unsigned char)ir_code[0] == (unsigned char)~ir_code[1]) && ((unsigned char)ir_code[2] == (unsigned char)~ir_code[3]))
    {
        ir_decode_ok = 1; // Устанавливаем флаг окончания декодирования сигнала
        ir_ok = 0; // Сбрасываем флаг окончания приема сигнала
    }
    else
    {
        ir_decode_ok = 0; // Сбрасываем флаг окончания декодирования сигнала
        ir_ok = 0; // Сбрасываем флаг окончания приема сигнала
    }
}

int main(void)
{
    /* ATMEGA8
    MCUCR |= (1 << ISC01); // Внешнее прерывание по заднему фронту
    GICR |= (1 << INT0); // Разрешение внешнего прерывния по INT0
    TCCR1B |= (1 << WGM12)|(1 << CS10); // Режим CTC, предделитель 1
    OCR1A = 279; // 1000000/2*(279+1) = 1786Hz(560us)
    TIMSK |= (1 << OCIE1A); // Разрешаем прерывание по совпадению Т1
    */

    /* ATMEGA324A */
    EICRA |= _BV(ISC01); // Внешнее прерывание по заднему фронту
    EIMSK |= _BV(INT0);  // Разрешение внешнего прерывния по INT0

    TCCR1B |= _BV(WGM12); // Режим CTC
    TCCR1B |= _BV(CS11); // предделитель(prescaler) clk/8
    OCR1A = 559; // 16000000/2*N*(559+1) = 1786Hz(560us) , N = 8 aici, a nu se confunda 559+1 de la 560us, este doar o coincidenta
    TIMSK1 |= _BV(1/*OCIEA*/); // Разрешаем прерывание по совпадению Т1

    sei(); // Глобально разрешаем прерывания

    /* LED BLINK */
    DDRD = 0;
    DDRD |= _BV(PD7);

    while(1) {

        if(ir_ok) {
            ir_decode(); // Если сигнал принят, декодируем его
            LED_BLINKER2(3,10,5);
        }

        if(ir_decode_ok) // Если обработка сигнала завершена, выводим данные на дисплей
        {
            LED_BLINKER(5,1);
            ir_decode_ok = 0; // Сбрасываем флаг окончания декодирования сигнала

        }
    }
}

Но, не работает) Я чтото не так делаю в коде или проблема в схеме.
П.С. вместо TSOP1738 у меня TSOP31238, но думаю тоже самое.

Модуль Console

уни — Sat, 22 Apr 2017 17:21:29 GMT

Пример работы с ANSI-терминалом ZOC/Pro 5.07 или PuTTY: https://mysvn.ru/avr/examples/ansibas/
Экспортировать к себе при помощи плагина к проводнику TortoiseSVN: http://tortoisesvn.net/downloads.html

Список доступных функций можно посмотреть тут: https://mysvn.ru/avr/examples/ansibas/Console_Header.bas
Функции будут постепенно дополняться.

Схема в Proteus приложена. Для отладки рекомендую использовать Proteus 7.7 SP2 + Virtual Serial Ports Driver XP 4.0 + ZOC/Pro 5.07. Всё искать на рутрекере.

ANSI-терминал поддерживает работу с цветами, курсором и экраном, вы можете рисовать в псевдографике CP866. Иными словами, используя команды терминала, можно создать свой собственный псевдографический интерфейс.

Ошибка при компиляции PWM2

Trikon — Sat, 22 Apr 2017 17:12:27 GMT

Здравствуйте уважаемые.

Стоит задача откомпилировать готовый проект взятый из Австрийского журнала.
https://www.elektormagazine.com/magazine/elektor-201201/19791
Это контроллер лямбда зонда.

Программа уже готова и теоретически корректна, надо просто откомпилировать.
К сожалению с Bascom не знаком и быстрым нахрапом глюк не понял.

По идее идёт обращение к зарезервированному слову, почему выбивает в ошибку?
Подозрение на собственную криворукость ака незнание баскома.

Проект целиком в аттаче.

Помогите советом с программой

KoSS_89 — Sat, 04 Mar 2017 18:44:03 GMT

Здравствуйте, есть задача создавать сигнал синусоидальной формы с "плавающей" частотой в пределах от24.5 до 25.5 кГц. Для простоты решил использовать кусок готовой программы, но столкнулся с ошибкой при компиляции. Подскажите как правельно распределить память в МК. Может есть более простой способ решить задачу с генерацией плавающей частоты синуса?
Пока изменение частоты не писал...

Код

$regfile = "attiny2313.DAT"
$crystal = 11059200
$hwstack = 60                    'Оперативка для GoTo & GoSub
$swstack = 60                    'Оперативка для GoTo & GoSub
$framesize = 16                    'Область памяти для операторов PRINT
'
'
Config Portb = Output                    'Тут R/2R ЦАП

Enable Interrupts
'
' Frequency = r24/r25/r26* (xtal freq/cycles in loop)/16777216  (2^24)
' Fincr = frequenza voluta / multiplier
'
Const Cycles = 8                    'DDS cycles loop
Const Multiplier =(_xtal / Cycles) / 2 ^ 24
Const F_ref = 0.5                    'Поправка
'
'
Dim Wave(256) As Byte At &H100
Dim Tmpw As Word
'
Dim Fincr As Long                    'для расчёта частоты
Dim Tmpl As Long
'
Dim Singl As Single                    'расчитанная частота

'                  Конвертируем и генерируем заданную чаcтоту
Fincr = 25000
'
Singl = Fincr / Multiplier
Fincr = Singl + F_ref
'
'
      Restore Sine_table
      rjmp Run_gen
'
Run_gen:
      Do
         Read Wave(tmpw)                    'trasferisce in ram function table
         Incr Tmpw
      Loop Until Tmpw > 256
      Loadadr Wave(1) , Z                    'ldi  r31,$01    ldi  r30,$00
'
      ldi r29,$00                    'clear accumulator
      ldi r28,$00
      lds r24,{Fincr+0}                    'LSB passa incremento frequenza
      lds r25,{Fincr+1}                    'usa 24 dei 32 bit
      lds r26,{Fincr+2}                    'MSB
Gen:
      add r28, r24                    ' 1 cycle
      adc r29, r25                    ' 1 cycle
      adc r30, r26                    ' 1 cycle
      ld  r0, Z                    ' 2 cycle
!     Out Portb,R0                    ' 1 cycle
'      sbic Pinc,4                    ' 1         check tasto Run/stop
      rjmp Gen                    ' 2 cycles  totale 9 cicli
'      Portd = 127                    ' lascia uscita ad 1/2 scala

End
'_______________________________________________________________________________
'
'
Sine_table:
'
   Data &H80 , &H83 , &H86 , &H89 , &H8C , &H8F , &H92 , &H95
   Data &H98 , &H9C , &H9F , &HA2 , &HA5 , &HA8 , &HAB , &HAE
   Data &HB0 , &HB3 , &HB6 , &HB9 , &HBC , &HBF , &HC1 , &HC4
   Data &HC7 , &HC9 , &HCC , &HCE , &HD1 , &HD3 , &HD5 , &HD8
   Data &HDA , &HDC , &HDE , &HE0 , &HE2 , &HE4 , &HE6 , &HE8
   Data &HEA , &HEC , &HED , &HEF , &HF0 , &HF2 , &HF3 , &HF5
   Data &HF6 , &HF7 , &HF8 , &HF9 , &HFA , &HFB , &HFC , &HFC
   Data &HFD , &HFE , &HFE , &HFF , &HFF , &HFF , &HFF , &HFF
   Data &HFF , &HFF , &HFF , &HFF , &HFF , &HFF , &HFE , &HFE
   Data &HFD , &HFC , &HFC , &HFB , &HFA , &HF9 , &HF8 , &HF7
   Data &HF6 , &HF5 , &HF3 , &HF2 , &HF0 , &HEF , &HED , &HEC
   Data &HEA , &HE8 , &HE6 , &HE4 , &HE2 , &HE0 , &HDE , &HDC
   Data &HDA , &HD8 , &HD5 , &HD3 , &HD1 , &HCE , &HCC , &HC9
   Data &HC7 , &HC4 , &HC1 , &HBF , &HBC , &HB9 , &HB6 , &HB3
   Data &HB0 , &HAE , &HAB , &HA8 , &HA5 , &HA2 , &H9F , &H9C
   Data &H98 , &H95 , &H92 , &H8F , &H8C , &H89 , &H86 , &H83
   Data &H80 , &H7C , &H79 , &H76 , &H73 , &H70 , &H6D , &H6A
   Data &H67 , &H63 , &H60 , &H5D , &H5A , &H57 , &H54 , &H51
   Data &H4F , &H4C , &H49 , &H46 , &H43 , &H40 , &H3E , &H3B
   Data &H38 , &H36 , &H33 , &H31 , &H2E , &H2C , &H2A , &H27
   Data &H25 , &H23 , &H21 , &H1F , &H1D , &H1B , &H19 , &H17
   Data &H15 , &H13 , &H12 , &H10 , &H0F , &H0D , &H0C , &H0A
   Data &H09 , &H08 , &H07 , &H06 , &H05 , &H04 , &H03 , &H03
   Data &H02 , &H01 , &H01 , &H00 , &H00 , &H00 , &H00 , &H00
   Data &H00 , &H00 , &H00 , &H00 , &H00 , &H00 , &H01 , &H01
   Data &H02 , &H03 , &H03 , &H04 , &H05 , &H06 , &H07 , &H08
   Data &H09 , &H0A , &H0C , &H0D , &H0F , &H10 , &H12 , &H13
   Data &H15 , &H17 , &H19 , &H1B , &H1D , &H1F , &H21 , &H23
   Data &H25 , &H27 , &H2A , &H2C , &H2E , &H31 , &H33 , &H36
   Data &H38 , &H3B , &H3E , &H40 , &H43 , &H46 , &H49 , &H4C
   Data &H4F , &H51 , &H54 , &H57 , &H5A , &H5D , &H60 , &H63
   Data &H67 , &H6A , &H6D , &H70 , &H73 , &H76 , &H79 , &H7C

WS2811

radan — Sat, 08 Oct 2016 19:48:46 GMT

Форум: Общие вопросы по Bascom-AVR
Автор темы: radan
Автор последнего сообщения: radan
Количество ответов: 4

Просмотр файлов на SD карте

marss70 — Fri, 16 Sep 2016 06:00:56 GMT

Привет, всем! Нужна помощь в организации просмотра файлов на SD карте. Рабочий код позволяет читать построчно текстовую переменную К из файла "Mach2mm.cnc" и выводить на дисплей. Но проблема в том, что нужно точно указать с какого файла читать. А мне нужно организовать прокрутку файлов на дисплее и выбор с какого читать.

Код

$regfile = "m32def.dat"
$crystal = 16000000
$hwstack = 100
$swstack = 100
$framesize = 100

$include "Config_MMCSD_HC.bas"
$include "Config_AVR-DOS.BAS"

Config Lcd = 16 * 2
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , Db7 = Portc.3 , E = Portc.4 , Rs = Portc.5
Cursor Off
Cls

Config Serialin = Buffered , Size = 20
Config Clock = Soft
Enable Interrupts
Config Date = Dmy , Separator = .

Dim K As String * 24

Lcd "Test_Dos_Drive compiled at " ; Version()

Wait 1
Cls
'Dim Btemp1 As Byte
Lcd "Wait for Drive"
Wait 1
Cls
If Gbdriveerror = 0 Then
' Include AVR-DOS Configuration and library

Lcd "Init File System ... ";
Wait 1
Cls
Btemp1 = Initfilesystem(1) ' Partition 1
' use 0 for drive without Master boot record
If Btemp1 <> 0 Then
Lcd "Error: " ; Btemp1 ; " at Init file system"
Wait 2
Cls

Else
Lcd " OK!"
Wait 1
Cls
End If
Else
Lcd "Error during Drive Init: " ;
Lowerline
Lcd Gbdriveerror
Wait 2
Cls
End If

Do

Open "Mach2mm.cnc" For Input As #1
Input #1 , K
' write is also supported
'Close #1

Lcd "Read Mach2mm.cnc"
Lowerline
Lcd K
Waitms 200
Cls
Loop
End

Электронный потенциометр mpc41010

marss70 — Sun, 05 Jun 2016 19:15:03 GMT

Здравствуйте. Набросал прогу для демонстрации работы mpc41010. Но при симуляции в Протеусе отказывается работать. Может кто даст дельный совет, что не так. Вот код:

$regfile = "m8def.dat"
$crystal = 4000000
$hwstack = 40
$swstack = 16
$framesize = 32

Dim A As Byte
Dim B As Byte

Config Portb.0 = Output
Config Portb.1 = Output
Config Portb.2 = Output

Config Lcdpin = Pin , Rs = Portc.0 , E = Portc.1 , Db4 = Portc.2 , Db5 = Portc.3 , Db6 = Portc.4 , Db7 = Portc.5
Config Lcd = 16 * 1
Cursor Off
Cls
Lcd "mcp41010"
Waitms 200
B = 17 ' "COMMAND Byte" '&B00010001
A = 100 '"Data Byte"

Cls
Lcd A ; " " ; B
Waitms 20

Do
Shiftout Portb.1 , Portb.0 , B , 1 'отсылка кода "COMMAND Byte" Data Port, Clc Port,Данные, опция 1
Shiftout Portb.1 , Portb.0 , A , 1 'отсылка кода "Data Byte" Data Port, Clc Port,Данные, опция 1
Pulseout Portb , 2 , 5000 ' импульс CS на порт PORTB.2 длительностью 5000 мкс
Loop
End

Подключение Atmega-8 к китайской светодиодной матрице P10

samego — Wed, 27 Apr 2016 18:09:53 GMT

Всем добрый день.
Собрал схему на Atmega-8 с двумя светодиодными китайскими матрицами P10 Red/Green.
При написание программы возникла одна проблема. При свечение изображения некоторые светодиоды, расположенные с теми которые светятся, немного подсвечиваются и иногда подмигивают (еле еле заметно).
В этом куске программы данные берутся из внешней памяти.
Может кто сможет подсказать где у меня ошибка. Сразу скажу - код возможно кривоват. Из него даже бегущую строку не сделать.

$map
$regfile = "m8def.dat"
$crystal = 12000000
$hwstack = 128
$swstack = 128
$framesize = 128
$baud = 9600

Config Portd = &B11000000 ' 6,7 port out
Config Portb = &B00001111 ' 0-3 port out
Config Portc = &B00000011 ' 0,1 port out

Sh Alias Portb.0
D_red Alias Portd.6
D_green Alias Portc.0
A_pos Alias Portb.2
B_pos Alias Portb.1
Port_write Alias Portd.7

Peredacha Alias Portc.1
Peredacha = 1

Config Int0 = Low Level
Config Portb.3 = Output
Portb.3 = 1
Tccr2 = &B01101100
Ocr2 = 1

$lib "mcsbyte.lbx"

Config Scl = Portc.5
Config Sda = Portc.4
Config I2cdelay = 1
I2cinit

Dim Temp As Byte , T As Byte , Y As Byte , R(128) As Byte , Temp2 As Byte
Dim Adres As Byte , Page As Byte , Page_read As Byte , Pause As Byte

Page = 164
Page_read = 165
Adres = 0
Pause = 100

Gosub Read_dannie

Do

Gosub Lpokaz

Loop

End

Loads_a:
I2cstart
I2cwbyte Page
I2cwbyte Adres
I2cstart
I2cwbyte Page_read

For T = 1 To 15
I2crbyte R(y) , Ack
lds R16 , {y}
inc R16
sts {y} , R16
Next T
I2crbyte R(y) , Nack

I2cstop
Return

Read_dannie:
Y = 1
For Temp = 1 To 8
Gosub Loads_a
Adres = Adres + 16
lds R16 , {y}
inc R16
sts {y} , R16
Next
Return

Lpokaz:
A_pos = 1 : B_pos = 1
T = 1 : Y = 32
Gosub Sbor
A_pos = 0 : B_pos = 0
T = 33 : Y = 64
Gosub Sbor
A_pos = 1 : B_pos = 0
T = 65 : Y = 96
Gosub Sbor
A_pos = 0 : B_pos = 1
T = 97 : Y = 128
Gosub Sbor
Return

Sbor:
For Temp = T To Y
Gosub Indikator
Next Temp

Port_write = 1
!NOP
!NOP
Port_write = 0
Return

Indikator:
Shiftout D_green , Sh , R(temp) , 0
'Shiftout D_red , Sh , R(temp) , 0
Waitus Pause
Return
Подсвечивающие светодиоды обведены на картинке красным цветом.

выход из подпрограммы

exersizze — Tue, 22 Mar 2016 12:17:43 GMT

Заметил одну особенность, если из подпрограммы выходить преждевременно по команде Return, то выполнение программы начнется, заново а не с того места в главном цикле, откуда эта подпрограмма была вызвана.
Глюк или оно так и задуманно, и как вернуться из подпрограммы в тоже самое место?

Вот кусок кода с которым работаю, если переменная А=2 тогда после выполнения условия нужно вернуться в основной цикл, не проверяя больше значение этой переменной. На деле получается что после вызова команды Return программа начинается выполняться с самого начала, а не с места вызова подпрограммы.

Code

Button:
  Timer1 = 0
  Start Timer1
  Backlight = 1

    If A = 2 Then
     A = 0
     If Tdispl <> Temp Then
       Temp = Tdispl
       Temp_eeprom = Temp
       Cls
       Lcd "Temp rec"
       Wait 1
     End If

     If Hdispl <> Hum Then
        Hum = Hdispl
        Hum_eeprom = Hum
        Cls
   Lcd "Humidity rec"
  Wait 1
  End If
  Waitms 30
  Gifr = 64
  Return
  End If

  If A = 1 Then
   A = 2
   Hdispl = Hum
   End If

  If A = 0 Then
   A = 1
   Tdispl = Temp
  End If

  Waitms 30
  Gifr = 64
Return

Работа с avr dos.

kox — Wed, 30 Dec 2015 21:26:11 GMT

Добрый день! Имеется проблема- используя avr dos открываю бинарный файл с карты памяти,
и операторов GET пытаюсь его читать, пример- GET #2, byte, adr. Где byte- переменная, в которую считывается байт данных из файла, adr- адрес байта в файле.
Все прекрасно работает до адреса 511, по последующим адресам считываются рандомные значения, вплоть до конца файла.
Кто-нибудь сталкивался с таким поведением?
Как исправить?
Заранее спасибо!

работа с уарт

Aleks8383 — Fri, 06 Nov 2015 13:55:28 GMT

Подскажите как разбить данные приходящие на Уарт и забить их в переменные для дальнейшей работы с ними.На приведённых картинках видно что в контроллер приходит челая строка с данными ,а нужно из этого отсеять номер команды и подкоманды и естественно само значения этой команды(ВСD код).Интересует как именно отделить их и забить в переменные.Мне тут подказывали что нужно использовать inputbin но чтото толкового из этого не чего не получилось,как правельно работать с этой командой или как по другому можно разобрать данные подскажите п.ж.если несложно с кусочком кода.
Зараннее спасибо.