[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » форумы » Общие вопросы по Bascom-AVR » AVR-DOS (AVR-DOS запись больших данных)
AVR-DOS
AlekSДата: Суббота, 22.06.2013, 22:34 | Сообщение # 1
Группа: Проверенные
Сообщений: 247

Статус: Offline
Разбираюсь с AVR-DOS
Как вписать длинное слово сочетание или данные (24с256) вфайл?
Целый день разбираюсь и все ноль.
Вот что в файле.
<Start 128_GSM> 21:21 5/22/6/13
Ds18b20 =
errC  Lm75 = +29.2C
GSM128
ь
GSM128
ь
GSM128
ь
GSM128
ь
Код
Print "ATD" ; Phonebook_balans ; Chr(59)                  'Или  Print "ATD"; Chr(34); Phonebook_balans ; ";"
   Locate 1 , 1 : Lcd "ATD" ; Phonebook_balans ; Chr(59)
   Waitms 500
   Getline Sk                    'Ответ: OK
   Getline Sk                    'Ответ: +CUSD: 2,"Vash balans 130.50 rub. Bonus: 0.00 rub. Besplatnyh sekund: 0.0. Dopolnitel'nye balansy: #106#",15
   Otvet = Mid(sk , 16 , 16)                    'Left(sk , 25)         'берем только первые 25 символов из смс
   Locate 2 , 1 : Lcd Otvet
   Waitms 500
   Otvet = "GSM128" + Chr(10) + Otvet + Chr(10)

    Print "AT+CMGD=1"                    ' а то снова передаем!   'удаление смс
  '  Flushbuf

' 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 "

   Wait 3

If Gbdriveerror = 0 Then
' Запускаем AVR-DOS конфигурацию и библиотеку

$include "Config_AVR-DOS.BAS"

   Btemp1 = Initfilesystem(1)                    ' Partition 1 use 0 for drive without Master boot record
   If Btemp1 <> 0 Then
      Locate 1 , 1
      Lcd "OБёІєa: " ; Btemp1 ; " FAT"                       'ошибка FAT системы
   Else
      Locate 2 , 1
      Lcd "               "
      Waitms 500
      Locate 2 , 1
      Lcd "AVR-DOS OK"
  End If
      Wait 2
                    'время и дата
    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  "
             While X_byte < 10000                    '10000 * 102 Byte / 100 = 10200 Byte
           Print #10 , Otvet
           X_byte = X_byte + 100
       Wend

    '   Print #10 , " " ; Otvet
       Print #10 , "*************************** "
    Close #10
' конец

    End If
  Cls
   Flushbuf

Переменная "Otvet" не пишется!!!!




Сообщение отредактировал AlekS - Суббота, 22.06.2013, 22:35
 
spaceДата: Понедельник, 24.06.2013, 21:23 | Сообщение # 2
Группа: Проверенные
Сообщений: 42

Статус: Offline
Закляни на робофорум, там AVR-DOS демонстрировался в работе. Может чем поможет



Сообщение отредактировал space - Понедельник, 24.06.2013, 21:23
 
AlekSДата: Вторник, 25.06.2013, 20:33 | Сообщение # 3
Группа: Проверенные
Сообщений: 247

Статус: Offline
space, что то там нет ни чего, может плохо смотрел wacko  это уже видел http://roboforum.ru/wiki/AVR-DOS
Ссылку плиззз.




Сообщение отредактировал AlekS - Среда, 26.06.2013, 18:50
 
AlekSДата: Понедельник, 01.07.2013, 22:15 | Сообщение # 4
Группа: Проверенные
Сообщений: 247

Статус: Offline
Вот так, все пошло!!

 
Код
Open Sd_fail2 For Append As #10
       Print #10 , " "
       Print #10 , "<Start 128_GSM> " ; Hour ; ":" ; Mine ; " " ; Dat ; "/" ; Month ; "/" ; Year
       Print #10 , "Ds18b20 = " ; T1str ; "C" ; "  Lm75 = " ; Out_temp ; "C  "
       Print #10 , "</> " ; Otvet_sd
       Print #10 , "*************************** "
       Write #10 , Otvet
       Flush #10
    Close #10


 
Форум » форумы » Общие вопросы по Bascom-AVR » AVR-DOS (AVR-DOS запись больших данных)
  • Страница 1 из 1
  • 1
Поиск: