BASCOM AVR в вопросах и ответах

[Аlex]

Ну дак передавайте ещё дополнительные символы, в зависимости от значения переменной (<10, <100, =100).

[edm2007]

Либо FORMAT.

[OLEGKARAS]

Поясните как это сделать практически, а то мне компилятор ошибки видает если я пытаюсь использовать FORMAT.

[Аlex]

Показывайте что пишите, и какие ошибки выдаёт компилятор.

[OLEGKARAS]

Собственно программа не моя, я только добавил одну переменную и строку 142.

[serg_svd]

Поделитесь пожалуйста библиотекой glcdSSD1306-I2C.lib.
Не могу найти где скачать.

[edm2007]

Поясните как это сделать практически, а то мне компилятор ошибки видает если я пытаюсь использовать FORMAT.

Встаньте курсором на команду, и нажмите F1. У баскома шикарная справка с примерами. Касаемо же Вашей ошибки, то все ведь понятно:

string expected for assignment

Ожидается строка для назначения. Если синтаксис команды посмотреть, то можно увидеть что команда и принимает и возвращает строку:

Syntax

target = FORMAT(source, "mask")

Remarks

target
The string that is assigned with the formatted string.

source
The source string that holds the number.

А у Вас:

Код: Выделить всё

Dim Urms As Long

[Microtech]

AtTiny13. Странные глюки программного UART.
Мне необходимо менять скорость передачи, отправляя часть посылок на одной скорости, а часть на другой.
написал тестовую программу. Не работает.
Программа повисает, не отправляя ничего в порт, даже на скорости 9600. До мигалки тоже не доходит. При этом, На TxD (portb.3) произвольно меняется лог. уровень с низкой скоростью.

Если заремарить строку с Baud#1 , 19200, - корректно уходят 2 посылки на скорости 9600, диод мигает.

Добавлено:
C "переоткрыванием" порта на другой скорости, - ничего не получается. Даже после команды Close #1, повторная команда Open вызывает ошибку, типа порт уже открыт.



$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 16
$swstack = 8
$framesize = 16
config portb.4 = output 'LED


Open "comb.3:9600,8,n,1" For Output As #1
Print #1 , "Program UART 9600"
Waitms 250

Baud#1 , 19200
Print #1 , "Program UART 19200"

do
waitms 250
toggle portb.4
Loop
End

[max50]

Поделитесь пожалуйста библиотекой glcdSSD1306-I2C.lib.
Не могу найти где скачать.

[Microtech]

Победил глюк с программным UART.
Всё оказалось просто, и на баскомовском сайте, в разделе помощь, про это сказано.

$regfile = "attiny13.dat"
$crystal = 9600000
$hwstack = 16
$swstack = 8
$framesize = 16
config portb.4 = output 'LED

Open "comb.3:9600,8,n,1" For Output As #1
Baud#1 , 9600
Print #1 , "Program UART 9600"
Waitms 250

Baud#1 , 19200
Print #1 , "Program UART 19200"

do
waitms 250
toggle portb.4
Loop
End

[xorkrus]

Уважаемые, подскажите в чем косяк в нижеприведенном коде. После включения моргает, при нажатии отключается, но включаться уже не включается. Перелопатил толпу материала, но все равно ощущение что я упустил какую-то... фигнюёвину.

Спойлер

Код: Выделить всё

$regfile = "attiny13a.dat"
$crystal = 4000000
$hwstack = 10
$swstack = 20
$framesize = 30
'Pb0 - Led
'Pb2 - Red led
'Pb1 - Button
Config Portb = Output
Config Portb.1 = Input
Config Int0 = Change

Dim Lmode As Bit
Lmode = 1
On Int0 Btnint

Enable Interrupts
Enable Int0

Do
   If Lmode = 1 Then
      Set Portb.0
      Waitms 200
      Reset Portb.0
      Waitms 200
   End If

   If Lmode = 0 Then
      Powerdown
   End If
Loop


Btnint:
   If Lmode = 1 Then Lmode = 0 Else Lmode = 1
Return

End

[Microtech]

А тайни13 не выходит из глубокого сна по изменению уровня на прерывании INT0. Только по Low Level

Спойлер

$regfile = "attiny13a.dat"
$crystal = 4000000
$hwstack = 10
$swstack = 20
$framesize = 30
'Pb0 - Led
'Pb2 - Red led
'Pb1 - Button
Config Portb = Output
Config Portb.1 = Input

Set Portb.1
Config Int0 = low level

Dim Lmode As Bit
Lmode = 1
On Int0 Btnint

Enable Interrupts
Enable Int0

Do
If Lmode = 1 Then
Set Portb.0
Waitms 200
Reset Portb.0
Waitms 200
End If

If Lmode = 0 Then
Powerdown
End If
Loop


Btnint:
If Lmode = 1 Then Lmode = 0 Else Lmode = 1
Return

End

У AtTiny13 есть прерывание по изменению состояния выводов - PCINT0
Можно его задействовать:
......
Enable Interrupts
Enable Pcint0
Pcmsk = 2 ' запрещаем реагировать на все изменения состояния выводов, кроме PCINT1 (portb.1, 6-ая ножка)
On Pcint0 Btnint
......

[xorkrus]

У AtTiny13 есть прерывание по изменению состояния выводов - PCINT0

Оно тоже выводит из глубокого сна?
Спасибо за пример, с PCINTx у меня не пошло, потому привязался к INT0

[rushpil]

Мужики, подcкажите.
Принимаю с компа строку в 65 символов. Выбираю из неё нужный фрагмент. Пусть будет "5,1", к примеру.
Мне нужно преобразовать эту строковую переменную в числовую.

Dim A As String * 3
Dim B As Single

A = "5,1"
----------

B = Val(a) 'преобразовываем стоковую переменную в числовую, ожидая что будет B = 5,1

Но в итоге B = 5,0 получается. Выходит функция округляет дробное число до целого? Как тогда имея дробную переменную типа String преобразовать в дробную переменную типа Single без округления и потери чисел после запятой?

[Аlex]

А что по этому поводу говорит мануал по Баскому ? Может там есть какие стандартные функции ?

PS: Помниться, лет эдак 10 назад, я прогал на Бейсике, дак в нём можно было напрямую присваивать числовые переменные к строковым. Он сам делал преобразование.
Может и тут так ?

[Microtech]

Сейчас нет компилятора под рукой, но вроде как "," - запятая не является десятичной точкой "."

[koms48]

Всё правильно. Запятая не канает. С точкой работает как надо.

[6П3С]

Добрый день всем. Народ, работал кто нибудь с микросхемой HX711 ? именно в Bascom , для ардуинки все есть проверял , работает. Есть пару вопросов по васику )

[Novice user]

есть ли вариант управления дисплеем от сименс м65 L2F50126?попробовал библиотеку http://bascom.at.ua/load/lcd_epson_l2f50_c/1-1-0-38 выдает ошибки-нет шрифтов

[Microtech]

Про HX711
Там совсем простой протокол, вроде как.
Первая попавшаяся статья. Всё расписано.
https://hubstub.ru/circuit-design/74-ve ... ga16..html