Попробовал сделать в рыбе, так как там есть библиотека файловой системы! // device and clock...
Device = 18F452
Clock = 20
'Config OSC = HSPLL
// import SD file system, usart and conversion modules...
#option SD_SPI = MSSP // use hardware SPI
#option LCD_DATA = PORTB.4
#option LCD_RS = PORTB.3
#option LCD_EN = PORTB.0
// import LCD library...
Include "LCD1.bas"
Include "utils.bas"
Include "SDFileSystem.bas"
Include "usart.bas"
Include "Convert.bas"
// variables...
'Dim Index As Byte
// program start...
SetBaudrate(br19200)
Cls
LCD.Write("Initialising card...")
'Repeat
'Until spiOscDiv64=%00100010
If SD.Init(spiOscDiv64) Then
// format SD card...
Cls
LCD.Write("Format,please wait...")
QuickFormat
// write data to SD card...
Cls
LCD.Write("Writing data, please wait...")
If SD.NewFile("test.txt") = errOK Then
'For Index = 0 To 255
SD.Write("Line ",DecToStr(4.55,3),13,10)
SD.Write("Line ",DecToStr(5,5),13,10)
SD.Write("Вроде ясно, но всё же!! ",DecToStr(44.777,3),13,10)
'Next
SD.CloseFile
EndIf
// read data back...
Cls
LCD.Write("Reading data...")
If SD.OpenFile("test.txt") = errOK Then
'Repeat
'Until SD.EOF
SD.CloseFile
Cls
LCD.Write("Finished.")
EndIf
EndIf
End
Все работает!
На бесике буду делать когда будет время