User manual

mikroBasic PRO for dsPIC30/33 and PIC24
MikroElektronika
297
‘--- le has been found - get its modied date
Cf_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)
UART1_Write_Text(outstr)
WordToStr(hour_, outstr)
UART1_Write_Text(outstr)
WordToStr(minute_, outstr)
UART1_Write_Text(outstr)
‘--- get le size
fsize = Cf_Fat_Get_File_Size
LongIntToStr(fsize, outstr)
UART1_Write_Line(outstr)
else
‘--- le was not found - signal it
UART1_Write(0x55)
Delay_ms(1000)
UART1_Write(0x55)
end if
end sub
‘-------------- Tries to create a swap le, whose size will be at least 100
‘ sectors (see Help for details)
sub procedure M_Create_Swap_File()
dim i as word
for i=0 to 511
Buffer[i] = i
next i
size = Cf_Fat_Get_Swap_File(5000, “mikroE.txt”, 0x20) ‘ see help on this function
for details
if (size <> 0) then
LongIntToStr(size, err_txt)
UART1_Write_Line(err_txt)
for i=0 to 4999
Cf_Write_Sector(size, Buffer)
Inc(size)
UART1_Write(“.”)
next i
end if
end sub