Код
'Преременные AVR-DOS для SD/MMC карты.
Dim Btemp1 As Byte 'Переменная портишина
Dim Sd_fail As String * 8 'Название файла 8 символов
Dim Sd_fail0 As String * 5 'Расширение файла 5 символов
Dim Sd_fail1 As String * 5 'Расширение файла 5 символов
Dim Sd_fail2 As String * 12 'Сформированый фал "GSM_128.LOG" 12 символов
Dim Sd_fail3 As String * 12 'Сформированый фал "GSM_128.TXT" 12 символов
Sd_fail = "GSM_128"
Sd_fail0 = ".TXT"
Sd_fail1 = ".LOG"
Sd_fail2 = Sd_fail + Sd_fail1 'Формирование имени файла "GSM_128.LOG"
Sd_fail3 = Sd_fail + Sd_fail0 'Формирование имени файла "GSM_128.TXT"
Создаем сам файл.
У меня их 2 "GSM_128.LOG" и "GSM_128.TXT"
Код
' *** MMC/SD кард определяем наличие ***
' CD_SDcard - Pin => Pin 8 of MMC/SD
Config Pinb.4 = Input
' WP_SDcard - Pin => Pin 9 of MMC/SD
Config Pinb.5 = Input
Cls
If Pinb.4 = 1 Then
Lcd "SD/MMC - oБёІєa "
Else
If Pinb.5 = 1 Then
Lcd "WR card - Error "
End If
End If
Wait 3
Locate 2 , 1
Lcd " SD/MMC Ѕa№гeЅa "
Gosub Time_date
Wait 3
If Gbdriveerror = 0 Then
Btemp1 = Initfilesystem(1) ' Partition 1 use 0 for drive without Master boot record
If Btemp1 <> 0 Then
Lcd "OБёІєa: " ; Btemp1 ; " FAT" 'ошибка FAT системы
Else
Lcd "AVR-DOS OK"
End If
'время и дата
Open Sd_fail2 For Append As #10
Print #10 , "<Start 128_GSM> " ; Hour ; ":" ; Mine ; " " ; Day ; "/" ; Dat ; "/" ; Month ; "/" ; Year
Print #10 , "Ds18b20 = " ; T1str ; "C" ; " Lm75 = " ; Out_temp ; "C "
Close #10
' конец
End If
Cls
Wait 4
Здесь пишем на SD или ММС.
Определение наличия фат обязательно!
Кто дополнит или поправит?