Подключаем внешнюю флеш-память SD-Card к МиниБоту — различия между версиями

Материал из roboforum.ru Wiki
Перейти к: навигация, поиск
(Новая: <source lang="vb"> $prog &HFF , &HE4 , &HD9 , &HFF ' generated. Take care that the chip supports all fuse bytes. $regfile = "m128DEF.dat" $crystal = 8000000 ...)
 
(ссылка на магазин)
 
(не показаны 42 промежуточные версии 2 участников)
Строка 1: Строка 1:
−
<source lang="vb">
+
[[Категория:МиниБот]]
  
−
$prog &HFF , &HE4 , &HD9 , &HFF                            ' generated. Take care that the chip supports all fuse bytes.
+
[[Изображение:maket_SD-Card.jpg|thumb]]
−
$regfile = "m128DEF.dat"
 
−
$crystal = 8000000
 
−
$baud = 4800
 
  
−
'Нога отвечает за Вкл/Откл SD карты в SPI режиме
+
Писать собственно сильно нечего, всё предельно просто как валенок.<br />
−
Config Porte.2 = Output : Chip_select Alias Porte.2
+
Легким движением руки паяем переходничек о шести проводках согласно схемы. <br />
 +
На самом МиниБоте ничего перепаивать не надо. <br />
 +
Эксперементальным путем установлена работоспособность SD-карт при питании 4.1В (но это не говорит о том что и ваши SD-карты такие же не прихотливые ;-)).На крайний случай на период тестов запускайте МиниБот при разряженом до 3.6В акуумуляторе.<br />
 +
Затем честно себе копируем код теста SD-карты. После этого разрешается править данный код на свое усмотрение... :-)))<br />
 +
Память так же как и сам Минибот и все остальные компоненты можно приобрести здесь http://www.MiniBot.ru <br />
 +
Удачи коллеги в создании искусственного интеллекта!... :-)))<br />
  
−
Config Spi = Hard , Interrupt = Off , Data Order = Msb , Master = Yes , Polarity = Low , Phase = 0 , Clockrate = 4
 
  
−
Dim Флаг As Bit
+
'''Исходники''' [[Медиа:test_SD-Card.rar]]
−
Dim ФлагПроверкиЗаписи As Bit
 
−
Dim ФлагДанныеЗаписаныВерно As Bit
 
  
−
Dim ПринятыйБайт As Byte
+
'''Чтение из SD-Card'''
−
Dim Sd_command(6) As Byte
+
<source lang="vb">
−
'Ответ максимум состоит из 10 байт
 
−
Dim Size_answer As Byte
 
−
Dim Sd_answer(10) As Byte
 
−
Dim Sd_data(512) As Byte
 
  
−
Dim Tmp_byt1 As Byte
+
Sd_address = 0 ; Gosub Read_sd_data  'после чтения данные будут лежать в массиве Sd_data
−
Dim Tmp_byt2 As Byte
 
−
Dim Tmp_byt3 As Byte
 
  
−
Dim Count_wrd As Word
+
</source>
  
−
Dim Tmp_wrd1 As Word
+
'''запись в SD-Card'''
−
Dim Tmp_wrd2 As Word
+
<source lang="vb">
  
−
Dim Sd_address As Long
+
Sd_address = 0 ; Gosub Clear_sd_buffer   'Очистить буфер для чтения/записи SD карты
  
−
Print "Старт программы"
+
  Sd_data(1) = 10
 +
  Sd_data(2) = 20
 +
  Sd_data(3) = 30
 +
  Sd_data(4) = 40
 +
  Sd_data(5) = 50
 +
  Sd_data(6) = 60
 +
  Sd_data(7) = 70
 +
  Sd_data(8) = 80
 +
  Sd_data(9) = 90
 +
  Sd_data(10) = 100
 +
  ' и так можно до 512
  
−
Begin:
+
  Gosub Write_sd_data  'Записать данные в SD карту
−
'Отключить SD карту
 
−
Chip_select = 1
 
−
'Ответ максимум состоит из 1 байт
 
−
Size_answer = 1
 
−
ФлагПроверкиЗаписи = 0
 
−
Sd_address = &H0
 
  
−
'Инициализация SPI у меги
+
</source>
−
Spiinit
 
  
−
'Инициализация SPI у SD карты
+
[[Изображение:Распиновка SD-Card.GIF|thumb]]
−
Gosub Init_sd
+
[[Изображение:MiniBot - SD-Card.GIF|thumb]]
 +
[[Изображение:1.GIF|thumb]]
 +
[[Изображение:тест.GIF|thumb]]
  
−
  Do
 
−
  'Очистить буфер для чтения/записи SD карты
 
−
  Gosub Clear_sd_buffer
 
  
−
  Sd_data(1) = 10
 
−
  Sd_data(2) = 20
 
−
  Sd_data(3) = 30
 
−
  Sd_data(4) = 40
 
−
  Sd_data(5) = 50
 
−
  Sd_data(6) = 60
 
−
  Sd_data(7) = 70
 
−
  Sd_data(8) = 80
 
−
  Sd_data(9) = 90
 
−
  Sd_data(10) = 100
 
  
−
  'Записать данные в SD карту
 
−
  Gosub Write_sd_data
 
  
−
  'Прочитать данные из SD карты
 
−
  Gosub Read_sd_data
 
  
−
  Sd_address = Sd_address + 512
 
  
−
  Loop Until Sd_address = 2048
 
−
End
 
  
−
'-------------------------------------------------------------------------------
 
  
−
Init_sd:
 
−
'Подпограмма инициализирует SPI у SD карты
 
  
−
Print "Инициализация SPI у SD карты"
 
  
−
'Переводим SD карту в SPI режим
 
−
ПринятыйБайт = Spimove(&Hff)
 
−
ПринятыйБайт = Spimove(&Hff)
 
−
ПринятыйБайт = Spimove(&Hff)
 
−
ПринятыйБайт = Spimove(&Hff)
 
−
ПринятыйБайт = Spimove(&Hff)
 
−
ПринятыйБайт = Spimove(&Hff)
 
−
ПринятыйБайт = Spimove(&Hff)
 
−
ПринятыйБайт = Spimove(&Hff)
 
−
ПринятыйБайт = Spimove(&Hff)
 
−
ПринятыйБайт = Spimove(&Hff)
 
  
−
'Включить SD карту
 
−
Chip_select = 0
 
  
−
Print "Ресет"
 
−
'Послать команду ресет SD карты
 
−
Sd_command(1) = &H40
 
−
Sd_command(2) = &H00
 
−
Sd_command(3) = &H00
 
−
Sd_command(4) = &H00
 
−
Sd_command(5) = &H00
 
−
Sd_command(6) = &H95
 
−
Gosub Send_sd_command
 
  
−
Print "Инициализация"
 
−
  Do
 
−
  'Послать команду инициализации SD карты
 
−
  Sd_command(1) = &H41
 
−
  Sd_command(2) = &H00
 
−
  Sd_command(3) = &H00
 
−
  Sd_command(4) = &H00
 
−
  Sd_command(5) = &H00
 
−
  Sd_command(6) = &H55
 
−
  Gosub Send_sd_command
 
−
  Waitms 100
 
−
  Loop Until Sd_answer(1) = 0
 
  
−
'Отключить SD карту
 
−
Chip_select = 1
 
  
−
Print "Инициализация SPI у SD карты окончена"
 
−
Return
 
  
−
Send_sd_command:
 
−
'Подпограмма посылает команду SD карте
 
  
−
ПринятыйБайт = Spimove(&Hff)
 
−
ПринятыйБайт = Spimove(sd_command(1))
 
−
ПринятыйБайт = Spimove(sd_command(2))
 
−
ПринятыйБайт = Spimove(sd_command(3))
 
−
ПринятыйБайт = Spimove(sd_command(4))
 
−
ПринятыйБайт = Spimove(sd_command(5))
 
−
ПринятыйБайт = Spimove(sd_command(6))
 
  
−
'Получить ответ от SD карты
 
−
Gosub Receive_sd_command
 
  
−
ПринятыйБайт = Spimove(ПринятыйБайт)
 
−
Return
 
  
−
Receive_sd_command:
 
−
'Подпограмма получает ответ от SD карты
 
  
−
  Do
 
−
  ПринятыйБайт = Spimove(&Hff)
 
−
  Loop Until ПринятыйБайт <> &HFF
 
  
−
Tmp_byt1 = 0
 
−
  Do
 
−
  Incr Tmp_byt1
 
−
  Sd_answer(tmp_byt1) = ПринятыйБайт
 
−
  ПринятыйБайт = Spimove(&Hff)
 
−
  Loop Until ПринятыйБайт = &HFF Or Size_answer = Tmp_byt1
 
  
−
Print "Ответ SD карты"
 
−
For Tmp_byt2 = 1 To Tmp_byt1
 
−
  Print "Байт №" ; Tmp_byt2 ; " = " ; Sd_answer(tmp_byt2)
 
−
Next
 
−
Return
 
  
−
Clear_sd_buffer:
 
−
'Подпограмма очищяет буфер для чтения/записи SD карты
 
  
−
For Count_wrd = 1 To 512
 
−
  Sd_data(count_wrd) = 0
 
−
Next
 
−
Return
 
  
−
Write_sd_data:
 
−
'Подпограмма записывает данные в SD карту по адресу Sd_address размером 512 байт
 
−
'данные берёт из Sd_data(512)
 
  
−
  Do
 
−
  Tmp_byt3 = 0
 
−
    Do
 
−
    Флаг = 0
 
−
    'Включить SD карту
 
−
    Chip_select = 0
 
  
−
    Print "Запись"
 
  
−
    Print "Записать блок данных (512 байт) по адресу " ; Hex(sd_address)
 
  
−
      Do
 
−
      Incr Tmp_byt3
 
−
      Print "Попытка записать данные №" ; Tmp_byt3
 
−
      'Послать команду записать блок данных по адресу (sd_address) в SD карту
 
−
      Sd_command(1) = &H58
 
  
−
      Tmp_wrd1 = Highw(sd_address)
 
−
      Tmp_wrd2 = Sd_address
 
  
−
      Sd_command(2) = High(tmp_wrd1)
 
−
      Sd_command(3) = Low(tmp_wrd1)
 
−
      Sd_command(4) = High(tmp_wrd2)
 
−
      Sd_command(5) = Low(tmp_wrd2)
 
−
      Sd_command(6) = &H55
 
−
      Gosub Send_sd_command
 
−
      Loop Until Sd_answer(1) = 0 Or Tmp_byt3 = 5
 
  
−
    If Sd_answer(1) <> 0 Then
 
−
      'Команда на запись не прошла
 
−
      Флаг = 1
 
−
      Print "Пришёл неверный ответ от команды записи"
 
−
    Else
 
−
      Print "Послать данные"
 
−
      'Послать данные
 
−
      'Послать стартовые байты
 
−
      ПринятыйБайт = Spimove(&Hff)
 
−
      ПринятыйБайт = Spimove(&Hfe)
 
−
      'Послать данные
 
−
      For Count_wrd = 1 To 512
 
−
        ПринятыйБайт = Spimove(sd_data(count_wrd))
 
−
      Next
 
−
      'Послать CRC16
 
−
      ПринятыйБайт = &H55
 
−
      ПринятыйБайт = Spimove(ПринятыйБайт)
 
−
      ПринятыйБайт = &H55
 
−
      ПринятыйБайт = Spimove(ПринятыйБайт)
 
  
−
      'Получить ответ от SD карты
+
<!--
−
      Gosub Receive_sd_command
+
Здесь я постараюсь оформить свои давние мысли о применении памяти в элементах ИИ.<br />
  
−
      If Sd_answer(1) <> 229 Then
+
Если подходить к памяти с точки зрения организации элементов ИИ, то для начала для начала несколько фактов:<br />
−
        'Данные не записались
+
1. Флеш-память нынче дешева как никогда и при этом постоянно цена еще падает чутли не ежемесячно. По состоянию на 5 июля 2008г. '''2Гб''' micro-SD в розницу стоила '''268р.''' при этом она умещается на ногте и имеет толщину меньше 1мм.<br />
−
        Sd_answer(1) = 1
+
2. Операция поиска у живых организмов происходит '''параллельно''', а не последовательно как принято у нас в программировании. А именно, из милллиона записей БД мы в программировании чтоб найти что либо должны перебрать почти весь список т.е. нам потребуется почти миллион тактов на поиск, у живых же организмов на это уходит несколько тактов при этом размер базы для них не имеет никакого значения. Мы конечно применяем разного рода ухищрения в виде предварительной сортировки и индексации, но это всё от безисходности. Факт остается фактом, чем больше БД тем больше времени уходит на поиск. При этом как такого тактования применяемого сейчас сплош и рядом в микропроцессорах у живых организмов нет. А оно собственно и не надо. Посмотрите как работает паралельная озушка, у нее никакого тактового  нет. Но об этом чуть позже...<br />
−
        If Tmp_byt3 = 5 Then
+
3. флеш-память можно расматривать как скучкованную в одном месте гору микросхем отдельных памятей по 512 байт. В случае с вышеупомянутой 2ГБ карточкой это 3.967.488 микросхемок по 512б <br />
−
          Флаг = 1
 
−
          Print "Пришёл неверный ответ после записи данных"
 
−
        End If
 
−
      Else
 
−
        ПринятыйБайт = Spimove(&Hff)
 
  
−
        'Отключить Sd карту
+
[[Изображение:Мгновенное голосование.GIF|thumb]]
−
        Chip_select = 1
+
Итак для примера рассмотрим самый простой пример, необходимо подсчитать общее количество единичек поступивших на вход, у нас есть три пути:<br />
 +
--- С помощью микроконтроллера или микропроцессора написать соответсвующий '''последовательный''' код. Вывод чем больше у нас входов тем дольше мы будем подсчитывать.<br />
 +
--- С помощью логики собрать схему приведенную на рисунке 11.12 Тут всё хорошо никакого тактования, подсчет происходит мгновенно. Одно плохо, если необходимо увеличить количество входов, то прийдется перепаивать схему.<br />
 +
--- Собрать схему на флешевой памяти. Входа в нашем случае это адресные линии, выход это шина данных. Ложка дегтя которая сразу бросается в глаза, такой вариант прийдется обучать. Но позвольте господа, именно так у живых существ и просиходит! И помоему мы как раз этого и добивались! :-) И обучать-то прийдется всего только один раз, при современных скоростях это займет доли секунд<br />
  
−
        ПринятыйБайт = Spimove(&Hff)
+
И вот тут мы плавно и незаметно подошли к понятию '''ассоциативной''' памяти.<br />
 +
Схеме на базе памяти по большому счету всё равно что там у нее на входах, она четко запомнила, когда на входе то-то, то на выходе должно быть то-то. Я считаю что такому принципу работает любой нейрон, хоть сложения хоть вычитания с умножением, хоть распознования образов. Т.е. в процессе обучения устанавливается ассоциация входного сигнала с номером образа.<br />
  
−
        'Включить SD карту
 
−
        Chip_select = 0
 
  
−
        ПринятыйБайт = Spimove(&Hff)
+
И сдается мне, что весь наш интеоект базируется на трех китах:<br />
−
 
+
-- ПИД регулирования поставленной цели согласно приоритетов<br />
−
        Print "Данные успешно записаны"
+
-- Ассоциативной памяти<br />
−
        Sd_answer(1) = 0
+
-- И системы голосования распознаных образов<br /> -->
−
      End If
 
−
    End If
 
−
 
 
−
    'Отключить Sd карту
 
−
    Chip_select = 1
 
−
    'Время, которое неоюходимо, для записи данных в SD карту
 
−
    Waitms 10
 
−
 
 
−
    If Флаг = 1 Then
 
−
      'Произошла ошибка при записи команды или данных
 
−
      Tmp_byt3 = 0
 
−
 
 
−
      'Инициализация SPI у SD карты
 
−
      Gosub Init_sd
 
−
    End If
 
−
    Loop Until Флаг = 0 And Sd_answer(1) = 0
 
−
  'Проверить правильно ли записали
 
−
  ФлагПроверкиЗаписи = 1
 
−
  'Прочитать данные из SD карты
 
−
  Gosub Read_sd_data
 
−
 
 
−
  If ФлагДанныеЗаписаныВерно = 1 Then
 
−
    Print "Верификация прошла успешно"
 
−
  Else
 
−
    Print "Верификация не прошла"
 
−
  End If
 
−
  Loop Until ФлагДанныеЗаписаныВерно = 1
 
−
Return
 
−
 
 
−
Read_sd_data:
 
−
'Подпограмма читает данные из SD карты по адресу Sd_address размером 512 байт
 
−
'данные записывает в Sd_data(512)
 
−
ФлагДанныеЗаписаныВерно = 1
 
−
 
 
−
  Do
 
−
  Флаг = 0
 
−
  'Включить SD карту
 
−
  Chip_select = 0
 
−
 
 
−
  If ФлагПроверкиЗаписи = 1 Then
 
−
    Print "Верификация"
 
−
  Else
 
−
    Print "Чтение"
 
−
  End If
 
−
 
 
−
  Print "Установить размер блока чтения данных - 512"
 
−
  'Послать команду установить размер блока 512 в SD карту
 
−
  Sd_command(1) = &H50
 
−
  Sd_command(2) = &H00
 
−
  Sd_command(3) = &H00
 
−
  Sd_command(4) = &H02
 
−
  Sd_command(5) = &H00
 
−
  Sd_command(6) = &H55
 
−
  Gosub Send_sd_command
 
−
 
 
−
  Print "Прочитать блок данных по адресу " ; Hex(sd_address)
 
−
  'Послать команду прочитать блок данных по адресу (sd_address) в SD карту
 
−
 
 
−
  Tmp_byt3 = 0
 
−
    Do
 
−
    Incr Tmp_byt3
 
−
    Print "Попытка прочитать данные №" ; Tmp_byt3
 
−
    Sd_command(1) = &H51
 
−
 
 
−
    Tmp_wrd1 = Highw(sd_address)
 
−
    Tmp_wrd2 = Sd_address
 
−
 
 
−
    Sd_command(2) = High(tmp_wrd1)
 
−
    Sd_command(3) = Low(tmp_wrd1)
 
−
    Sd_command(4) = High(tmp_wrd2)
 
−
    Sd_command(5) = Low(tmp_wrd2)
 
−
    Sd_command(6) = &H55
 
−
    Gosub Send_sd_command
 
−
    Loop Until Sd_answer(1) = 0 Or Tmp_byt3 = 5
 
−
 
 
−
  If Sd_answer(1) <> 0 Then
 
−
    'Команда на чтение не прошла
 
−
    Флаг = 1
 
−
    Print "Пришёл неверный ответ от команды чтения"
 
−
  Else
 
−
    'Получение данных
 
−
    'Поймать стартовый байт
 
−
      Do
 
−
      ПринятыйБайт = Spimove(&Hff)
 
−
      Loop Until ПринятыйБайт = &HFE
 
−
    'Получить 512 байт данных
 
−
    For Count_wrd = 1 To 512
 
−
      If ФлагПроверкиЗаписи = 1 Then
 
−
        'Читаем и сравниваем с Sd_data(512)
 
−
        ПринятыйБайт = Spimove(&Hff)
 
−
        If ПринятыйБайт <> Sd_data(count_wrd) Then
 
−
          ФлагДанныеЗаписаныВерно = 0
 
−
        End If
 
−
      Else
 
−
        'Читаем и записываем в Sd_data(512)
 
−
        Sd_data(count_wrd) = Spimove(&Hff)
 
−
      End If
 
−
    Next
 
−
    'Получить КС
 
−
    ПринятыйБайт = Spimove(&Hff)
 
−
    ПринятыйБайт = Spimove(&Hff)
 
−
 
 
−
    Print "Данные успешно считаны"
 
−
  End If
 
−
 
 
−
  'Отключить Sd карту'
 
−
  Chip_select = 1
 
−
 
 
−
  If Флаг = 1 Then
 
−
    'Произошла ошибка при записи команды или данных
 
−
 
 
−
    'Инициализация SPI у SD карты
 
−
    Gosub Init_sd
 
−
  End If
 
−
  Loop Until Флаг = 0
 
−
ФлагПроверкиЗаписи = 0
 
−
Return
 
−
 
 
−
</source>
 

Текущая версия на 09:09, 6 января 2009


Maket SD-Card.jpg

Писать собственно сильно нечего, всё предельно просто как валенок.
Легким движением руки паяем переходничек о шести проводках согласно схемы.
На самом МиниБоте ничего перепаивать не надо.
Эксперементальным путем установлена работоспособность SD-карт при питании 4.1В (но это не говорит о том что и ваши SD-карты такие же не прихотливые ;-)).На крайний случай на период тестов запускайте МиниБот при разряженом до 3.6В акуумуляторе.
Затем честно себе копируем код теста SD-карты. После этого разрешается править данный код на свое усмотрение... :-)))
Память так же как и сам Минибот и все остальные компоненты можно приобрести здесь http://www.MiniBot.ru
Удачи коллеги в создании искусственного интеллекта!... :-)))


Исходники Медиа:test_SD-Card.rar

Чтение из SD-Card <source lang="vb">

Sd_address = 0 ; Gosub Read_sd_data 'после чтения данные будут лежать в массиве Sd_data

</source>

запись в SD-Card <source lang="vb"> 

Sd_address = 0 ; Gosub Clear_sd_buffer   'Очистить буфер для чтения/записи SD карты

  Sd_data(1) = 10   Sd_data(2) = 20   Sd_data(3) = 30   Sd_data(4) = 40   Sd_data(5) = 50   Sd_data(6) = 60   Sd_data(7) = 70   Sd_data(8) = 80   Sd_data(9) = 90   Sd_data(10) = 100 

 ' и так можно до 512

  Gosub Write_sd_data  'Записать данные в SD карту

</source>

Ошибка создания миниатюры: convert: unable to open image `/var/www/vhosts/roboforum.ru/wiki.roboforum.ru/images/f/fb/_SD-Card.GIF': No such file or directory @ error/blob.c/OpenBlob/2589. convert: missing an image filename `/var/www/vhosts/roboforum.ru/wiki.roboforum.ru/images/tmp/transform_e452d0078261.gif' @ error/convert.c/ConvertImageCommand/3015. Error code: 1
MiniBot - SD-Card.GIF
1.GIF
Ошибка создания миниатюры: convert: unable to open image `/var/www/vhosts/roboforum.ru/wiki.roboforum.ru/images/3/3b/.GIF': No such file or directory @ error/blob.c/OpenBlob/2589. convert: no decode delegate for this image format `/var/www/vhosts/roboforum.ru/wiki.roboforum.ru/images/3/3b/.GIF' @ error/constitute.c/ReadImage/532. convert: missing an image filename `/var/www/vhosts/roboforum.ru/wiki.roboforum.ru/images/tmp/transform_21b6b3f58ba1.gif' @ error/convert.c/ConvertImageCommand/3015. Error code: 1


















Источник — «http://wiki.roboforum.ru/index.php?title=Подключаем_внешнюю_флеш-память_SD-Card_к_МиниБоту&oldid=6108»