BroomBot бывший МиниБот-ПРО (MiniBot-PRO)

EdGull

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

EdGull

кстати, вот хороший пример для желающих поучаствовать в разработке
написать на васике код для подключения SAMSUNG SGH-E700 и складывания в озу кадра
http://o-d-v.nm.ru/tel_cam/cameras/samsung_E700.htm

Сергей

Вообщето мы, с Кириллом, разрабатываем ЖКИ модуль

EdGull

какой именно?

Сергей

модуль на основе экранчика от S65, управляемый по uart или i2c

EdGull

ну... эт не считается
от S65 я уже и так запустил, я вот завтра поеду попробую купить от жки моторолки C115 он с I2C уже изначально, поменьше правда в два раза, но и цена обещается быть в два раза меньше
правда он еще и монохромный
зато у него есть место под динамик

исходник под него взят от сюда http://bascomavr.3bb.ru/viewtopic.php?id=109
автор Ведущийспециалист

Код:

$regfile = "m32DEF.DAT"
$crystal = 1000000
'знакогенератор еще не загонял...
'программа переконвертированна из си файла, пока не до конца
' но уже проверенна
Declare Sub Column_set(byval Y As Byte)
Declare Sub Video_mode(byval Vid_mode As Byte)
Declare Sub Clear_lcd()
Declare Sub Lcd_init()
Res Alias Portb.0 : Set Ddrb.0

Dim I As Word , Temp As Byte
Dim X As Byte , Y As Byte
Config Scl = Portc.0
Config Sda = Portc.1
I2cinit


Call Lcd_init()

I2cstart
  I2cwbyte &H78
  I2cwbyte &H40                                             'команда записи в дисплей
  '............
  '............
  '............          можно так все 918 байт выводить
  I2cwbyte &HFF                                             'вывести вертикальную строчку в 8 бит
I2cstop


Do
Loop


Sub Column_set(byval Y As Byte)                             'Выбор координаты по Y
 If X < 8 Then
  I2cstart                                                  '
    I2cwbyte &H78                                           '
    I2cwbyte &H00                                           '
    I2cwbyte &H20                                           '
    I2cwbyte &H80
    Temp = X + &H40
    I2cwbyte X
    I2cstop                                                 '
 End If

End Sub


 Sub Video_mode(byval Vid_mode As Byte)                     'выбор режима вывода
   '1 -инверсия 0 -нормальный
   I2cstart
   If Vid_mode = 1 Then

   I2cwbyte &H78
   I2cwbyte &H00
   I2cwbyte &H20
   I2cwbyte &H0C
   I2cstop
   Else
   I2cwbyte &H78
   I2cwbyte &H00
   I2cwbyte &H20
   I2cwbyte &H0D
   I2cstop
   End If
   End Sub

 Sub Clear_lcd()                                            'очистка диспа

  I2cstart
  I2cwbyte &H78
  I2cwbyte &H40
  For I = 0 To 918                                          'Заполняем весь контент диспа
  I2cwbyte &H00
  Next I

 End Sub

 Sub Lcd_init()                                             'инициализация дисплея

 Reset Res
 Waitms 500
 Set Res

 I2cstop
 Waitms 100

  I2cstart
  I2cwbyte &H78
  I2cwbyte &H00
  I2cwbyte &H2E
  I2cwbyte &H21

  I2cwbyte &H12
  I2cwbyte &HC0
  I2cwbyte &H0B
  I2cwbyte &H20

  I2cwbyte &H11
  I2cwbyte &H0C
  I2cwbyte &H40
  I2cwbyte &H80
  I2cstop

  I2cstart
  I2cwbyte &H78
  I2cwbyte &H00
  I2cwbyte &H20
  I2cwbyte &H08
  I2cstop

  Call Video_mode(1)                                        'нормальный режим
  Call Clear_lcd()                                          'очистим дисплей
  End Sub

Сергей

EdGull писал(а):

ну... эт не считается
от S65 я уже и так запустил

Хехе, мы покажем особую, уличную магию)

EdGull

ну позырим-позырим...

Добавлено спустя 36 минут 49 секунд:
кстати, начал по тихоньку переводить хелпник AVR-DOS для минибота-про
[[Запускаем_AVR-DOS_на_SD-Card_МиниБота]]

Код:

Dim S As string * 10 , W As Word ,L As Long
 
S = "write test"
Open "write.dmo" For Output As #2
Write #2 , S , W , L ' так же поддерживается такой формат
Close #2
 
Open "write.dmo" For Input As #2
Input #2 , S , W , L ' так же поддерживается такой формат
Close #2
Print S ; " " ; W ; " " ; L

Добавлено спустя 40 минут 26 секунд:
короче, осталось только интерпритатор написать!...

желающие есть?

semyonov

Что на счет возможности подключения внешнего H-моста, который ВАЗовские стеклоподъемники потянет?
Ну и самого моста, а то в соседней ветке про это что-то тихо...

EdGull

притихло, потому что я схему зафиксировал, жду комплектующие чтобы проверить
кстати, появилась идея поставить туда степ-ап с 3 до 12В на 34063 для IR2101, удорожание копеешное, но тогда мы сможем рулить любыми движками от 3 до 15В даже при питании от нашего стандартного литиевого акб.
но тогда это можно прям на плате делать ибо универсально и на все случаи жизни

hudbrog

Я конечно понимаю что нереально, но не хочешь рассмотреть установку в качестве камня чего-нить вроде
http://atmel.com/dyn/products/product_c ... rt_id=2538

Просто с точки зрения базового программирования тот же AVR, зато есть кусок FPGA, на котором можно реализовать всякие приятности, типа шины быстрого получения данных из камеры, или математического сопроцессора, который быстрое преобразование фурье будет щелкать как орешки.. или чего еще хорошего...

EdGull

Да всё реально, тока он в васике на работает
Ты его будешь туда вкрячивать?

hudbrog

В каком-таком ASIC'е?? :shock:

Он FPGA, он не ASIC... или ты о чем?

без паники всё под контролем ) <Myp>

EdGull

васик это bascom avr basic ...
тут все знают что такое васик

hudbrog

Ээ.. насколько я понимаю, этот ваш бейсик прекрасно работает с любым АВРом, т.е. и с той зверюгой должен бы работать, взаимодействия с плисовыми частями там происходит вроде просто через регистры внутренние, которые(по крайней мере в си) для каждого отдельного АВРа всегда завадались в отдельных файликах... а саму ПЛИС программировать само собой на любом HDL-языке, типа vhdl или верилога.

roboforum.ru

BroomBot бывший МиниБот-ПРО (MiniBot-PRO)

Кто сейчас на конференции