Re: BASCOM AVR в вопросах и ответах
Добавлено: Вт авг 20, 2013 19:45:35
asd81, тут все. И описание и скачать http://ru.systemexplorer.net/file-datab ... sc-avr-dll
Здесь можно немножко помяукать :)
https://radiokot.ru/forum/
это файл лицензииasd81 писал(а): что такое basc- avr.dll и
антивирусник ругаетсяaleksandr-zh писал(а):это файл лицензииasd81 писал(а): что такое basc- avr.dll и
Качайте демо версию - вам хватит ))
BASCOM (среда + компилятор BASIC для AVR) (zip, 24.5 МБ) >> http://www.ugolok-mastera.ru/bascom-demo_2050.zip
бредasd81 писал(а): антивирусник ругается
вот как применить эту адресацию в моем случае? кто шарит помогите уж пожалуйста. делал по аналогии с http://avrproject.ru/publ/logger_temper ... /1-1-0-134 . автор говорит что у него на i2c висит епромка, датчик и часы и все прекрасно ладят. в моем же случае при подключении часов датчик давления врет.vem566 писал(а): По I2C только адресация.
создайте папку,хоть на рабочем столе,назовите ее как нибудь,например нокиа,потом откройте свой проект и сохраните в эту папку,потом выйдете из баском,в интернете найдите библиотеку для своего дисплея ,посмотрите здесь http://cxem.net/mc/mc201.php скачайте и сохраните в папку нокиа,потом открываете баском и компилируетеasd81 писал(а):при компиляции выдает это. ругается на первые две строки
Код: Выделить всё
' процедура установки часов, даты
Sub Nastroyka
Dim Menu As Byte
Menu = 0
If Nastroy = 0 Then
Do
Loop Until Nastroy = 1
Call D3310clear
Call D3310print( " часы:")
Do
Do
If Nastroy = 0 Then Incr Menu
If Nastroy = 0 And Menu = 0 Then
Call D3310clear
Call D3310position(3 , 0)
Call D3310print( "часы:")
End If
If Nastroy = 0 And Menu = 1 Then
Call D3310clear
Call D3310position(3 , 0)
Call D3310print( "минуты:")
End If
If Vverh = 0 And Menu = 1 Then Incr Mine
If Mine > 59 Then
Mine = 0
End If
If Vverh = 0 And Menu = 0 Then Incr Hour
If Hour > 23 Then
Hour = 0
End If
If Menu > 1 Then Menu = 0
Call D3310position(4 , 1)
Hh = Str(hour)
Hh = Format(hh , "00")
Call D3310print(hh)
' Call D3310print( ":")
Call D3310position(7 , 1)
Minut = Str(mine)
Minut = Format(minut , "00")
Call D3310print(minut)
Vl = Str(menu)
Call D3310print(vl)
If Vihod = 0 Then
Hour = Makebcd(hour)
Mine = Makebcd(mine)
Dat = Makebcd(dat)
I2cstart
I2cwbyte &HD0
I2cwbyte 0
I2cwbyte 0
I2cwbyte Mine
I2cwbyte Hour
I2cwbyte Day
I2cwbyte Dat
I2cwbyte Month
I2cwbyte Year
I2cstop
Waitms 1000
Exit Sub
End If
Waitms 500
Loop
Loop
End If
End Sub