Дополнительные команды AVR-DOS — различия между версиями

Материал из roboforum.ru Wiki
Перейти к: навигация, поиск
(понемножку добавляю команды)
(ещё команды)
Строка 98: Строка 98:
  
 
<code>sFile = Dir(mask)</code>
 
<code>sFile = Dir(mask)</code>
 +
 
<code>sFile = Dir()</code>
 
<code>sFile = Dir()</code>
  
 
{| class="wikitable"
 
{| class="wikitable"
 
| SFile(String)
 
| SFile(String)
−
| Имя файла. Строка пуста, если больше нет файлов, удовлетворяющих маске.
+
| Имя файла. Строка пуста, если больше нет файлов, удовлетворяющих маске
 
|-
 
|-
 
| Mask(String)
 
| Mask(String)
−
| Файловая маска, удовлетворяющая требованиям обычного DOS, напр. '*.TXT'. Маска *.* удовлетворяет всем файлам
+
| Файловая маска, удовлетворяющая требованиям обычного DOS, напр. *.TXT. Маска *.* удовлетворяет всем файлам
 
|}
 
|}
  
Строка 124: Строка 125:
  
 
=== FileLen ===
 
=== FileLen ===
−
=== FileDateTime ===
+
Возвращает размер файла.
 +
 
 +
<code>lSize = FileLen ()</code>
 +
 
 +
<code>lSize = FileLen (file)</code>
 +
 
 +
{| class="wikitable"
 +
| lSize(Long)
 +
| Размер файла в Байтах
 +
|-
 +
| File(String)
 +
| Полный или относительный(?) путь к файлу. Если путь не указан, выбирается путь к файлу, выбранному с помощью DIR()
 +
|}
 +
 
 +
Пример вызова:
 +
 
 +
<pre>Print "File demo"
 +
Print Filelen( "josef.img") ; " length" ' length of file
 +
Print Filetime( "josef.img") ; " time" ' time file was changed
 +
Print Filedate( "josef.img") ; " date" ' file date
 +
</pre>
 +
 
 
=== FileDate ===
 
=== FileDate ===
 +
Возвращает дату создания или изменения(?) файла.
 +
 +
<code>sDate = FileDate ()</code>
 +
 +
<code>sDate = FileDate (file)</code>
 +
 +
{| class="wikitable"
 +
| sDate(String)
 +
| Дата создания или изменения(?) файла
 +
|-
 +
| File(String)
 +
| Полный или относительный(?) путь к файлу. Если путь не указан, выбирается путь к файлу, выбранному с помощью DIR()
 +
|}
 +
 +
Пример вызова:
 +
 +
<pre>Print "File demo"
 +
Print Filelen( "josef.img") ; " length" ' length of file
 +
Print Filetime( "josef.img") ; " time" ' time file was changed
 +
Print Filedate( "josef.img") ; " date" ' file date
 +
</pre>
 +
 
=== FileTime ===
 
=== FileTime ===
 +
Возвращает время создания или изменения(?) файла.
 +
 +
<code>sTime = FileTime ()</code>
 +
 +
<code>sTime = FileTime (file)</code>
 +
 +
{| class="wikitable"
 +
| sTime(String)
 +
| Время создания или изменения(?) файла
 +
|-
 +
| File(String)
 +
| Полный или относительный(?) путь к файлу. Если путь не указан, выбирается путь к файлу, выбранному с помощью DIR()
 +
|}
 +
 +
Пример вызова:
 +
 +
<pre>Print "File demo"
 +
Print Filelen( "josef.img") ; " length" ' length of file
 +
Print Filetime( "josef.img") ; " time" ' time file was changed
 +
Print Filedate( "josef.img") ; " date" ' file date
 +
</pre>
 +
 +
=== FileDateTime ===
 +
Возвращает дату и время создания или изменения(?) файла.
 +
 +
<code>Var = FileDateTime ()</code>
 +
 +
<code>Var = FileDateTime (file)</code>
 +
 +
{| class="wikitable"
 +
| Var(String)
 +
| Время создания или изменения(?) файла
 +
|-
 +
| File(String)
 +
| When the target variable is a string, it must be dimensioned with a length of at least 17 bytes.
 +
|-
 +
| File(Byte array)
 +
| When the target variable is a byte array, the array size must be at least 6 bytes.
 +
|-
 +
| File(Numeric)
 +
| When you use a numeric variable, the internal file date and time format will be used.
 +
|}
 +
 +
Пример вызова:
 +
 +
<pre>' Read and print Directory and show Filename, Date, Time, Size
 +
' for all files matching pStr1 and create/update younger than pDays
 +
Sub Directorylist(pstr1 As String , Byval Pdays As Word)
 +
Local lFileName as String * 12 ' hold file name for print
 +
Local lwCounter as Word , lFileSizeSum as Long ' for summary
 +
Local lwNow as Word , lwDays as Word
 +
Local lSec as Byte , lMin as Byte , lHour as byte , lDay as byte , lMonth as byte , lYear as byte
 +
print "Listing of all Files matching " ; pStr1 ; " and create/last update date within " ; pdays ; " days"
 +
lwNow = SysDay()
 +
lwCounter = 0 : lFileSizeSum = 0
 +
lFileName = Dir(pStr1)
 +
While lFileName <> ""
 +
lsec = FileDateTime()
 +
lwDays = lwNow - SysDay(lDay) ' Days between Now and last File Update; uses lDay, lMonth, lYear
 +
if lwDays <= pDays then ' days smaller than desired with parameter
 +
print lFileName ; FileDate() ; " " ; FileTime() ; " " ; filelen()
 +
incr lwCounter : lFileSizeSum = FileLen() + lFileSizeSum
 +
end if
 +
lFileName = Dir()
 +
WEnd
 +
print lwCounter ; " File(s) found with " ; lFileSizeSum ; " Byte(s)"
 +
End Sub
 +
</pre>
 +
 
=== GetAttr ===
 
=== GetAttr ===
 +
Возвращает атрибуты файла.
 +
 +
<code>bAttr = FileDate ()</code>
 +
 +
<code>bAttr = FileDate (file)</code>
 +
 +
{| class="wikitable"
 +
| bAttr(Byte)
 +
| Атрибуты файла, совместимые с DOS-форматом. Байт расшифровывается как 00ADVSHR, где биты 5-0:
 +
A=Archiv
 +
D=Directory
 +
V=Volume ID
 +
S=System
 +
H=Hidden
 +
R=Read Only
 +
|-
 +
| File(String)
 +
| Полный или относительный(?) путь к файлу. Если путь не указан, выбирается путь к файлу, выбранному с помощью DIR()
 +
|}
 +
 +
Пример вызова:
 +
 +
<pre>Print "File demo"
 +
Print Filelen( "josef.img") ; " length" ' length of file
 +
Print Filetime( "josef.img") ; " time" ' time file was changed
 +
Print Filedate( "josef.img") ; " date" ' file date
 +
Print Bin(GetAttr(“Josef.img”)) ; “Attributes” ‘ DOS Attributes
 +
</pre>
 +
 
=== Name ===
 
=== Name ===
 
=== ChDir ===
 
=== ChDir ===

Версия 12:13, 6 января 2009

Список команд AVR-DOS — нижеследующий список команд для операционной системы AVR-DOS.

Диск/Директория

InitFileSystem

Читает Master boot record и partition boot record (Sector) флэшкарты и инициализирует файловую систему.

Эта функция должна быть вызвана перед любым другим использованием системы!

bErrorCode = InitFileSystem (bPartitionNumber)

bErrorCode(Byte) Error Result from Routine, Returns 0 if no Error
bPartitionNumber(Byte) Partitionnumber on the Flashcard Drive (normally 1, but use 0 on mediums without Master boot record)

Пример вызова: 

Dim bErrorCode as Byte
bErrorCode = InitFileSystem(1)
If bErrorCode > 0 then
Print "Error: " ; bErrorCode
Else
Print "Filesystem successfully initialized"
End If

DiskSize

Возвращает размер диска.

lSize = DiskSize ()

lSize(Long) Объем диска в КБайтах

Пример вызова: 

Dim Gbtemp1 As Byte ' scratch byte
Gbtemp1 = Initfilesystem(1) ' we must init the filesystem once
If Gbtemp1 > 0 Then
Print #1 , "Error " ; Gbtemp1
Else
Print #1 , " OK"
Print "Disksize : " ; Disksize() ' show disk size in Kbytes
Print "Disk free: " ; Diskfree() ' show free space too
End If

DiskFree

Возвращает размер свободного пространства диска.

lFreeSize = DiskFree ()

lFreeSize(Long) Размер свободной области в КБайтах

Пример вызова: 

Dim Gbtemp1 As Byte ' scratch byte
Gbtemp1 = Initfilesystem(1) ' we must init the filesystem once
If Gbtemp1 > 0 Then
Print #1 , "Error " ; Gbtemp1
Else
Print #1 , " OK"
Print "Disksize : " ; Disksize() ' show disk size in Kbytes
Print "Disk free: " ; Diskfree() ' show free space too
End If

Kill

Удаляет файл с диска. Открытый файл не может быть удален. Специальные символы(WildCards) в имени файла, маски не поддерживаются. Код ошибки хранится в глобальной переменной gDOSError.

Kill sFileName

sFileName(String) Полный или относительный(?) путь к файлу

Пример вызова: 

'We can use the KILL statement to delete a file.
'A file mask is not supported
Print "Kill (delete) file demo"
Kill "test.txt"

Dir

Возвращает имя файла, удовлетворяющее маске.

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

sFile = Dir(mask)

sFile = Dir()

SFile(String) Имя файла. Строка пуста, если больше нет файлов, удовлетворяющих маске
Mask(String) Файловая маска, удовлетворяющая требованиям обычного DOS, напр. *.TXT. Маска *.* удовлетворяет всем файлам

Пример вызова: 

'Lets have a look at the file we created
Print "Dir function demo"
S = Dir( "*.*")
'The first call to the DIR() function must contain a file mask
' The * means everything.
'
While Len(s) > 0 ' if there was a file found
Print S ; " " ; Filedate() ; " " ; Filetime() ; " " ; Filelen()
' print file , the date the fime was created/changed , the time and the size of the file
S = Dir() ' get next
Wend

FileLen

Возвращает размер файла.

lSize = FileLen ()

lSize = FileLen (file)

lSize(Long) Размер файла в Байтах
File(String) Полный или относительный(?) путь к файлу. Если путь не указан, выбирается путь к файлу, выбранному с помощью DIR()

Пример вызова: 

Print "File demo"
Print Filelen( "josef.img") ; " length" ' length of file
Print Filetime( "josef.img") ; " time" ' time file was changed
Print Filedate( "josef.img") ; " date" ' file date

FileDate

Возвращает дату создания или изменения(?) файла.

sDate = FileDate ()

sDate = FileDate (file)

sDate(String) Дата создания или изменения(?) файла
File(String) Полный или относительный(?) путь к файлу. Если путь не указан, выбирается путь к файлу, выбранному с помощью DIR()

Пример вызова: 

Print "File demo"
Print Filelen( "josef.img") ; " length" ' length of file
Print Filetime( "josef.img") ; " time" ' time file was changed
Print Filedate( "josef.img") ; " date" ' file date

FileTime

Возвращает время создания или изменения(?) файла.

sTime = FileTime ()

sTime = FileTime (file)

sTime(String) Время создания или изменения(?) файла
File(String) Полный или относительный(?) путь к файлу. Если путь не указан, выбирается путь к файлу, выбранному с помощью DIR()

Пример вызова: 

Print "File demo"
Print Filelen( "josef.img") ; " length" ' length of file
Print Filetime( "josef.img") ; " time" ' time file was changed
Print Filedate( "josef.img") ; " date" ' file date

FileDateTime

Возвращает дату и время создания или изменения(?) файла.

Var = FileDateTime ()

Var = FileDateTime (file)

Var(String) Время создания или изменения(?) файла
File(String) When the target variable is a string, it must be dimensioned with a length of at least 17 bytes.
File(Byte array) When the target variable is a byte array, the array size must be at least 6 bytes.
File(Numeric) When you use a numeric variable, the internal file date and time format will be used.

Пример вызова: 

' Read and print Directory and show Filename, Date, Time, Size
' for all files matching pStr1 and create/update younger than pDays
Sub Directorylist(pstr1 As String , Byval Pdays As Word)
Local lFileName as String * 12 ' hold file name for print
Local lwCounter as Word , lFileSizeSum as Long ' for summary
Local lwNow as Word , lwDays as Word
Local lSec as Byte , lMin as Byte , lHour as byte , lDay as byte , lMonth as byte , lYear as byte
print "Listing of all Files matching " ; pStr1 ; " and create/last update date within " ; pdays ; " days"
lwNow = SysDay()
lwCounter = 0 : lFileSizeSum = 0
lFileName = Dir(pStr1)
While lFileName <> ""
lsec = FileDateTime()
lwDays = lwNow - SysDay(lDay) ' Days between Now and last File Update; uses lDay, lMonth, lYear
if lwDays <= pDays then ' days smaller than desired with parameter
print lFileName ; FileDate() ; " " ; FileTime() ; " " ; filelen()
incr lwCounter : lFileSizeSum = FileLen() + lFileSizeSum
end if
lFileName = Dir()
WEnd
print lwCounter ; " File(s) found with " ; lFileSizeSum ; " Byte(s)"
End Sub

GetAttr

Возвращает атрибуты файла.

bAttr = FileDate ()

bAttr = FileDate (file)

bAttr(Byte) Атрибуты файла, совместимые с DOS-форматом. Байт расшифровывается как 00ADVSHR, где биты 5-0:

A=Archiv D=Directory V=Volume ID S=System H=Hidden R=Read Only

File(String) Полный или относительный(?) путь к файлу. Если путь не указан, выбирается путь к файлу, выбранному с помощью DIR()

Пример вызова: 

Print "File demo"
Print Filelen( "josef.img") ; " length" ' length of file
Print Filetime( "josef.img") ; " time" ' time file was changed
Print Filedate( "josef.img") ; " date" ' file date
Print Bin(GetAttr(“Josef.img”)) ; “Attributes” ‘ DOS Attributes

Name

ChDir

MkDir

RmDir

Файлы

FreeFile

Open

Открывает устройство

OPEN "device" for MODE As #channel

OPEN file FOR MODE as #channel

Device The default device is COM1 and you don't need to open a channel to use INPUT/OUTPUT on this device.

With the implementation of the software UART, the compiler must know to which pin/device you will send/receive the data. So that is why the OPEN statement must be used. It tells the compiler about the pin you use for the serial input or output and the baud rate you want to use. COMB.0:9600,8,N,2 will use PORT B.0 at 9600 baud with 2 stopbits.

The format for COM1 and COM2 is : COM1: or COM2:

There is no speed/baud rate parameter since the default baud rate will be used that is specified with $BAUD or $BAUD1

The format for the software UART is: COMpin:speed,8,N,stopbits[,INVERTED] Where pin is the name of the PORT-pin. Speed must be specified and stop bits can be 1 or 2. 7 bit data or 8 bit data may be used. For parity N, O or E can be used.

An optional parameter ,INVERTED can be specified to use inverted RS-232. Open "COMD.1:9600,8,N,1,INVERTED" For Output As #1 , will use pin PORTD.1 for output with 9600 baud, 1 stop bit and with inverted RS-232.


For the AVR-DOS filesystem, Device can also be a string or filename constant like

"readme.txt" or sFileName

Mode You can use BINARY or RANDOM for COM1 and COM2, but for the software UART pins, you must specify INPUT or OUTPUT.

For the AVR-DOS filesystem, MODE may be INPUT, OUTPUT, APPEND or BINARY.

Channel The number of the channel to open. Must be a positive constant >0.

For the AVR-DOS filesystem, the channel may be a positive constant or a numeric variable. Note that the AVD-DOS filesystem uses real filehandles. The software UART does not use real file handles.

Пример вызова: 

OPEN "com1:" for binary as #1
Call test
End
Sub test
Print #1, "test" 
End Sub
Close #1

Close

Flush

Print

Write

Input

Line Input

Get

Put

Seek

Свойства файла

EOF

LOC

LO

FileAttr

Другие

Bload

Bsave

См. также

Источник — «http://wiki.roboforum.ru/index.php?title=Дополнительные_команды_AVR-DOS&oldid=6115»