ПРОСМОТР ФАЙЛОВ НА SD КАРТЕ

Поделиться12016-09-10 21:02:35

Автор: marss70
Участник
Откуда: Воронеж
Зарегистрирован: 2012-12-23
Приглашений: 0
Сообщений: 46
Уважение: [+0/-0]
Позитив: [+0/-0]
Пол: Мужской
Возраст: 54 [1971-12-22]
Провел на форуме:
1 день 17 часов
Последний визит:
2024-12-13 22:45:36

Привет, всем! Нужна помощь в организации просмотра файлов на 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

0

Поделиться22016-09-10 21:30:13

Автор: radan
Администратор
Откуда: Лисичанск
Зарегистрирован: 2007-01-25
Приглашений: 0
Сообщений: 1570
Уважение: [+359/-0]
Позитив: [+222/-4]
Пол: Мужской
Возраст: 56 [1970-03-27]
Провел на форуме:
1 месяц 4 дня
Последний визит:
2022-03-07 13:49:39

Это поможет:

Код:

         Chdir "TEMP"                                                                                         'Меняем директорию на "TEMP"
         Max_file = 0
         Str_temp = Dir( "*.cnc")                                                                         'выбираем имя первого файла на в корневом каталоге с расширением *.cnc
         'If Len(str_temp) > 0 Then Index = 1                                                       'если файл существует устанавливаем номер текущего файла 1
         While Len(str_temp) > 0                                                                          'запускаем цикл пока имя файла не станет равным 0 - файлы кончатся
            'Print Str_temp                                                                                       'выводим на экран имя файла
            Max_file = Max_file + 1                                                                          'увеличиваем значение переменной количества файлов
            Str_temp = Dir()                                                                                 'получаем имя следующего вайла в каталоге
         Wend
         Print "Number of files: " ; Max_file                                                             'выводим общее число файлов

0

Поделиться32016-09-10 22:24:12

Автор: marss70
Участник
Откуда: Воронеж
Зарегистрирован: 2012-12-23
Приглашений: 0
Сообщений: 46
Уважение: [+0/-0]
Позитив: [+0/-0]
Пол: Мужской
Возраст: 54 [1971-12-22]
Провел на форуме:
1 день 17 часов
Последний визит:
2024-12-13 22:45:36

Спасибо!
Дело сдвинулось. Теперь выводится название файла и количество таких файлов.

Код:

$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 * 12
Dim Str_temp As String * 12
Dim Max_file As Byte
Dim Index As Byte

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

 Chdir "TEMP"                                                                                         'Меняем директорию на "TEMP"
         Max_file = 0
         Str_temp = Dir( "*.cnc")                                                                         'выбираем имя первого файла на в корневом каталоге с расширением *.cnc
         If Len(str_temp) > 0 Then Index = 1                'если файл существует устанавливаем номер текущего файла 1
         While Len(str_temp) > 0                            'запускаем цикл пока имя файла не станет равным 0 - файлы кончатся

Lcd "Read Str_temp"
Lowerline
Lcd Str_temp
Waitms 2000
Cls
           'Print Str_temp                                                                                       'выводим на экран имя файла
            Max_file = Max_file + 1                                                                          'увеличиваем значение переменной количества файлов
            Str_temp = Dir()                                'получаем имя следующего файла в каталоге


         Wend
Lcd "Read Max_file "
Lowerline
Lcd Max_file
Waitms 2000                                                            'выводим общее число файлов
Cls


Cls
Loop
End

Дальше буду работать с бОльшим чем один файл на карте.

0

Поделиться42016-09-10 23:09:30

Автор: marss70
Участник
Откуда: Воронеж
Зарегистрирован: 2012-12-23
Приглашений: 0
Сообщений: 46
Уважение: [+0/-0]
Позитив: [+0/-0]
Пол: Мужской
Возраст: 54 [1971-12-22]
Провел на форуме:
1 день 17 часов
Последний визит:
2024-12-13 22:45:36

Немного упростил код. Теперь по очереди выводятся названия всех файлов с любыми расширениями.

Код:

Do

Str_temp = Dir( "*.*")                                      'выбираем имя первого файла на в корневом каталоге с любым расширением
While Len(str_temp) > 0                                     'запускаем цикл пока имя файла не станет равным 0 - файлы кончатся

Lcd "Read Str_temp" ; " "
Lowerline
Lcd Str_temp
Waitms 2000
Cls

Str_temp = Dir()                                            'получаем имя следующего вайла в каталоге
         Wend
Loop
End

0

Поделиться52016-09-13 20:25:50

Автор: marss70
Участник
Откуда: Воронеж
Зарегистрирован: 2012-12-23
Приглашений: 0
Сообщений: 46
Уважение: [+0/-0]
Позитив: [+0/-0]
Пол: Мужской
Возраст: 54 [1971-12-22]
Провел на форуме:
1 день 17 часов
Последний визит:
2024-12-13 22:45:36

Аппетит приходит во время еды... А подскажите , пожалуйста, как пролистать название папок?

0

Поделиться62016-09-15 07:19:37

Автор: radan
Администратор
Откуда: Лисичанск
Зарегистрирован: 2007-01-25
Приглашений: 0
Сообщений: 1570
Уважение: [+359/-0]
Позитив: [+222/-4]
Пол: Мужской
Возраст: 56 [1970-03-27]
Провел на форуме:
1 месяц 4 дня
Последний визит:
2022-03-07 13:49:39

Вот всё чем пользовался сам:

Код:

'В одной папке не более 512 файлов!
Chdir "\"                                                   'Идём в корень диска
Chdir "Speech"                                          'Меняем директорию карты памяти на "Speech"
Chdir "."                                                   'На директорию выше
Chdir "Mine"                                              'Меняем директорию карты памяти на "Mine"
File_name = Str(mine) + "m.wav"               'полное имя файла из директории и краткого имени

А вот получить список всех директорий я не знаю как...

+1

Поделиться72016-09-15 13:03:13

Автор: marss70
Участник
Откуда: Воронеж
Зарегистрирован: 2012-12-23
Приглашений: 0
Сообщений: 46
Уважение: [+0/-0]
Позитив: [+0/-0]
Пол: Мужской
Возраст: 54 [1971-12-22]
Провел на форуме:
1 день 17 часов
Последний визит:
2024-12-13 22:45:36

Спасибо, попробуем!

0

Поделиться82016-09-15 17:20:15

Автор: sasha_1973
Администратор
Откуда: Киев
Зарегистрирован: 2012-10-30
Приглашений: 0
Сообщений: 2536
Уважение: [+930/-17]
Позитив: [+796/-23]
Пол: Мужской
Возраст: 53 [1973-08-08]
Провел на форуме:
1 месяц 1 день
Последний визит:
2026-09-20 08:37:55

Работа с AVR DOS Bascom

0

Поделиться92016-09-15 17:27:38

Автор: sasha_1973
Администратор
Откуда: Киев
Зарегистрирован: 2012-10-30
Приглашений: 0
Сообщений: 2536
Уважение: [+930/-17]
Позитив: [+796/-23]
Пол: Мужской
Возраст: 53 [1973-08-08]
Провел на форуме:
1 месяц 1 день
Последний визит:
2026-09-20 08:37:55

Когда-то надо было.

Количество папок и файлов

Dim Имя_файла_str As String * 15
Dim Имя_директории_str As String * 15

Dim Счетчик_файлов As Word
Dim Количество_найденных_файлов As Word
Dim Количество_найденных_директорий As Word

' Ищем папки в корне диска
Имя_директории_str = Dir( "*.") ' Выбираем имя первого файла в каталоге с расширением *.bmp

While Len(имя_директории_str) > 0 ' if there was a file found

' Выводим: имя файла; дату и время создания; размер файла в байтах
Print Имя_директории_str
''' ; Filedate() ; " " ; Filetime() ;
Имя_директории_str = Dir() ' Ищем дальше

Incr Счетчик_файлов ' Считаем обнаруженные файлы

Wend

Количество_найденных_директорий = Счетчик_файлов : Счетчик_файлов = 0
Print
Print "Найдено " ; Количество_найденных_директорий ; " папок"
Print

Chdir "picture" ' Заходим в директорию (аналог команды DOS6.22 "cd picture")

' Ищем файлы в директории

Имя_файла_str = Dir( "*.*") ' Выбираем имя первого файла в каталоге с расширением *.bmp

While Len(имя_файла_str) > 0 ' if there was a file found

' Выводим: имя файла; дату и время создания; размер файла в байтах
Print Имя_файла_str ; " - " ; Filelen() ; " byte"
''' ; Filedate() ; " " ; Filetime() ;
Имя_файла_str = Dir() ' Ищем дальше

Incr Счетчик_файлов ' Считаем обнаруженные файлы

Wend

Количество_найденных_файлов = Счетчик_файлов : Счетчик_файлов = 0

Print
Print "Найдено " ; Количество_найденных_файлов ; " файлов"
Print

0

Поделиться102016-09-15 23:25:11

Автор: marss70
Участник
Откуда: Воронеж
Зарегистрирован: 2012-12-23
Приглашений: 0
Сообщений: 46
Уважение: [+0/-0]
Позитив: [+0/-0]
Пол: Мужской
Возраст: 54 [1971-12-22]
Провел на форуме:
1 день 17 часов
Последний визит:
2024-12-13 22:45:36

Александр, спасибо!
В цикле на дисплей выводятся названия папок

Код:

$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 Имя_файла_str As String * 12
  Dim Имя_директории_str As String * 12
  Dim Счетчик_файлов As Word
  Dim Количество_найденных_файлов As Word
  Dim Количество_найденных_директорий As Word

Lcd "Test_Dos_Drive " ; 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
Имя_директории_str = Dir( "*.")                             ' Выбираем имя первого файла в каталоге
While Len(имя_директории_str) > 0                           ' Пока длина названия папки больше 0

Lcd "Name Dir" ; " " ; Имя_директории_str           ' Выводим: имя файла
Waitms 2000
Cls
Имя_директории_str = Dir()                                  ' Ищем дальше
Wend

Loop
End

Дальше надо думать, чтобы названия папок(файлов) выводились на многострочный дисплей в виде некоего списка и можно было стрелками "верх/низ" и "ОК" выбирать нужную папку или файл.

Отредактировано marss70 (2016-09-15 23:38:25)

0

Поделиться112016-09-16 05:46:25

Автор: sasha_1973
Администратор
Откуда: Киев
Зарегистрирован: 2012-10-30
Приглашений: 0
Сообщений: 2536
Уважение: [+930/-17]
Позитив: [+796/-23]
Пол: Мужской
Возраст: 53 [1973-08-08]
Провел на форуме:
1 месяц 1 день
Последний визит:
2026-09-20 08:37:55

marss70 написал(а):

Дальше надо думать, чтобы названия папок(файлов) выводились на многострочный дисплей в виде некоего списка и можно было стрелками "верх/низ" и "ОК" выбирать нужную папку или файл.

Один из вариантов:
При начальном чтении информации с SD Card, создаёте адресный массив с цифровым эквивалентом(для уменьшения размера) названиями файлов и папок (если Bascom => 2.0.7.8, поддерживаются многомерные массивы), далее делаете с ним, что хотите.

Есть программа для создания менюшек под разные LCD

Написал и поддерживает развитие, пользователь этого форума под ником Yuriy.pv.

Спишитесь, наверняка поможет с менюшкой.

Отредактировано sasha_1973 (2016-09-16 05:48:06)

0

Поделиться122016-09-16 08:45:38

Автор: marss70
Участник
Откуда: Воронеж
Зарегистрирован: 2012-12-23
Приглашений: 0
Сообщений: 46
Уважение: [+0/-0]
Позитив: [+0/-0]
Пол: Мужской
Возраст: 54 [1971-12-22]
Провел на форуме:
1 день 17 часов
Последний визит:
2024-12-13 22:45:36

Спасибо, Александр!
Надо покопаться. С первого взгляда похоже на то, что надо.

0

Поделиться132016-09-16 11:25:57

Автор: radan
Администратор
Откуда: Лисичанск
Зарегистрирован: 2007-01-25
Приглашений: 0
Сообщений: 1570
Уважение: [+359/-0]
Позитив: [+222/-4]
Пол: Мужской
Возраст: 56 [1970-03-27]
Провел на форуме:
1 месяц 4 дня
Последний визит:
2022-03-07 13:49:39

Получается, что папки, что файлы, ищутся с помощью одной команды - Dir.
А если они вперемешку идут?
Нужно их ка то разделять.
Наверное можно через свойства смотреть.

0

Поделиться142016-09-16 13:14:15

Автор: marss70
Участник
Откуда: Воронеж
Зарегистрирован: 2012-12-23
Приглашений: 0
Сообщений: 46
Уважение: [+0/-0]
Позитив: [+0/-0]
Пол: Мужской
Возраст: 54 [1971-12-22]
Провел на форуме:
1 день 17 часов
Последний визит:
2024-12-13 22:45:36

Ну это я что-то пропустил момент. Я на карту только папки насовал и все они пролистались. Вечерком попробую вперемежку ("кони, люди" ) папки и сами файлы записать. А так, для файлов наверное нужно применять фильтр по расширению типа Str_temp = Dir( "*.cnc") или Str_temp = Dir( "*.txt")

0

Поделиться152016-09-16 23:02:44

Автор: marss70
Участник
Откуда: Воронеж
Зарегистрирован: 2012-12-23
Приглашений: 0
Сообщений: 46
Уважение: [+0/-0]
Позитив: [+0/-0]
Пол: Мужской
Возраст: 54 [1971-12-22]
Провел на форуме:
1 день 17 часов
Последний визит:
2024-12-13 22:45:36

Попробовал записать на карту и папки и файлы. Dir( "*.") видит только папки.

0

Программирование ATMEL в BASCOM.

Меню навигации

Пользовательские ссылки

Информация о пользователе

ПРОСМОТР ФАЙЛОВ НА SD КАРТЕ

Сообщений 1 страница 15 из 15

Поделиться12016-09-10 21:02:35

Поделиться22016-09-10 21:30:13

Поделиться32016-09-10 22:24:12

Поделиться42016-09-10 23:09:30

Поделиться52016-09-13 20:25:50

Поделиться62016-09-15 07:19:37

Поделиться72016-09-15 13:03:13

Поделиться82016-09-15 17:20:15

Поделиться92016-09-15 17:27:38

Поделиться102016-09-15 23:25:11

Поделиться112016-09-16 05:46:25

Поделиться122016-09-16 08:45:38

Поделиться132016-09-16 11:25:57

Поделиться142016-09-16 13:14:15

Поделиться152016-09-16 23:02:44

Похожие темы