User manual

mikroBasic PRO for dsPIC30/33 and PIC24
MikroElektronika
405
le_contents[26] = 10 ‘ LF
Mmc_Fat_Write(le_contents, 27) ‘ Write data to assigned le
end sub
‘-------------- Opens an existing le, reads data from it and puts it to USART
sub procedure M_Open_File_Read()
lename[7] = “B”
Mmc_Fat_Assign(lename, 0)
Mmc_Fat_Reset(size) ‘ To read le, procedure returns size of le
while size > 0
Mmc_Fat_Read(character)
UART1_Write(character) ‘ Write data to UART
Dec(size)
wend
end sub
‘-------------- Deletes a le. If le doesn’t exist, it will rst be created
‘ and then deleted.
sub procedure M_Delete_File()
lename[7] = “F”
Mmc_Fat_Assign(lename, 0)
Mmc_Fat_Delete
end sub
‘-------------- Tests whether le exists, and if so sends its creation date
‘ and le size via USART
sub procedure M_Test_File_Exist
dim
fsize as longint
year as word
month_, day, hour_, minute_ as byte
outstr as char[12]
lename[7] = “B”
if Mmc_Fat_Assign(lename, 0) <> 0 then
‘--- le has been found - get its date
Mmc_Fat_Get_File_Date(year,month_,day,hour_,minute_)
UART1_Write_Text(“ created: “)
WordToStr(year, outstr)
UART1_Write_Text(outstr)
ByteToStr(month_, outstr)
UART1_Write_Text(outstr)
WordToStr(day, outstr)
UART1_Write_Text(outstr)
WordToStr(hour_, outstr)
UART1_Write_Text(outstr)
WordToStr(minute_, outstr)
UART1_Write_Text(outstr)
‘--- le has been found - get its modied date
Mmc_Fat_Get_File_Date_Modied(year, month_, day, hour_, minute_)
UART1_Write_Text(“ modied: “)
WordToStr(year, outstr)
UART1_Write_Text(outstr)
ByteToStr(month_, outstr)
UART1_Write_Text(outstr)
WordToStr(day, outstr)