f
Warning: Cannot modify header information - headers already sent by (output started at /home/anderian/ftp/www_forum/db/mysql4.php:1) in /home/anderian/ftp/www_forum/includes/sessions.php on line 548

Warning: Cannot modify header information - headers already sent by (output started at /home/anderian/ftp/www_forum/db/mysql4.php:1) in /home/anderian/ftp/www_forum/includes/sessions.php on line 549

Warning: Cannot modify header information - headers already sent by (output started at /home/anderian/ftp/www_forum/db/mysql4.php:1) in /home/anderian/ftp/www_forum/includes/page_header.php on line 343
And-Tech :: Zobacz temat - Obsługa karty SD

Strona korzysta z plików cookie w celu realizacji usług zgodnie z Politykš prywatnoœci.

Możesz okreœlić warunki przechowywania lub dostępu do cookie w Twojej przeglšdarce lub konfiguracji usługi.

And-Tech Strona Główna And-Tech
Forum firmy And-Tech

FAQFAQ  SzukajSzukaj  UżytkownicyUżytkownicy  GrupyGrupy
RejestracjaRejestracja  ZalogujZaloguj  AlbumAlbum  DownloadDownload

Poprzedni temat «» Następny temat
Obsługa karty SD
Autor Wiadomość
piotr94 
Site Admin

Dołączył: 02 Lut 2010
Posty: 606
Skąd: Kraków
Wysłany: Nie Paź 12, 2014 12:45 pm   

Tak, najnowsze biblioteki pod EVB 5.1 (dostępne w dziale donwload) działają z kartami SDHC (testowane na kartach 4 i 8 GB Sandisk micro SD). Dotyczy to zarówno języka BASCOM jak i C.
_________________
http://www.piotr94.net21.pl/
 
     
slavcio2012 

Dołączył: 24 Lip 2013
Posty: 24
Wysłany: Nie Paź 12, 2014 3:46 pm   

Mam jeszcze jedno pytanie czy konwerter poziomów z 5V na 3V rozwiązane za pomocą rezystorów nie będzie wpływać za szybkość zapisu/odczytu karty SD
 
     
piotr94 
Site Admin

Dołączył: 02 Lut 2010
Posty: 606
Skąd: Kraków
Wysłany: Nie Paź 12, 2014 6:18 pm   

Przy procesorach AVR raczej nie powinien, ale to zależy od tego jakich elementów użyjesz i jakie będziesz miał pojemności na ścieżkach.
_________________
http://www.piotr94.net21.pl/
 
     
slavcio2012 

Dołączył: 24 Lip 2013
Posty: 24
Wysłany: Wto Sty 27, 2015 4:45 pm   

Witam,karta SD 4GB pracuje poprawnie ... teraz mam pytanie odnośnie zapisu i odczytu danych do pliku CSV jest tam przykład tylko,że dane są nadpisywane jak to można ,że każde kolejne dane będą w kolejnym wierszu ?
 
     
piotr94 
Site Admin

Dołączył: 02 Lut 2010
Posty: 606
Skąd: Kraków
Wysłany: Sro Sty 28, 2015 3:06 pm   

fragment większego kodu z takim zapisem:
Kod:

 Open Nazwa_pliku For Append As #ff
      Nazwa_pliku = ""
      'kasujemy zmienną, aby nie przeszkadzała w dalszym zapisie i nie dopisywała się do pliku
      'w zależności od ilości czujników zapisujemy odpowiednie dane do pliku
      If Cn > 1 Then
         Print #ff , Date$ ; ";" ; Time$ ; ";" ; Tstr(1) ; ";" ; Tstr(2) ; ";";
      Else
          Print #ff , Date$ ; ";" ; Time$ ; ";" ; Tstr(1) ; ";" ; "-" ; ";";
      End If
      Print #ff , Tstr(3)
      Close #ff


Tylko proszę, nie dublujmy wszystkich pytań, OK?
http://www.elektroda.pl/r...6482&highlight=
_________________
http://www.piotr94.net21.pl/
 
     
slavcio2012 

Dołączył: 24 Lip 2013
Posty: 24
Wysłany: Czw Gru 31, 2015 12:18 pm   

Witam,

mam mały problem z przyporządkowaniem pinów kart SD z schematu evb 4.3 do elementu z mojej biblioteki chodzi mi o piny sygnałowe mam coś takiego

Data_out
data_in
sclk
cs
Dat1
Dat2
 
     
piotr94 
Site Admin

Dołączył: 02 Lut 2010
Posty: 606
Skąd: Kraków
Wysłany: Pią Sty 01, 2016 2:33 am   

http://elasticsheep.com/w...card-pinout.png
_________________
http://www.piotr94.net21.pl/
 
     
slavcio2012 

Dołączył: 24 Lip 2013
Posty: 24
Wysłany: Nie Maj 01, 2016 2:42 pm   

Witam, mam pytanie czy mogę razem współpracować zegar na DS1307 z biblioteką EVB 5 mam taki kod i wyskakuje mi error 220 przy kompilacji programu
kod poniżej
Kod:
$regfile = "m644pdef.dat"                                   ' specify the used micro
$crystal = 16000000
$baud = 19200                                               ' use baud rate
$hwstack = 32                                               ' default use 32 for the hardware stack
$swstack = 10                                               ' default use 10 for the SW stack
$framesize = 40                                             ' default use 40 for the frame space
 
$lib "glcdKS108.lbx"
'$lib "mcsbyte.lbx"                                          ' for smaller code
$lib "ds1307clock.lib"
$include "Card_init.bas"
 
Config Graphlcd = 128 * 64sed , Dataport = Porta , Controlport = Portd , Ce = 6 , Ce2 = 7 , Cd = 4 , Rd = 3 , Reset = 2 , Enable = 5
                                      ' modified lib
 
 
'Const Clockmode = 1
 
Enable Interrupts
'configure the scl and sda pins
Config Sda = Portc.1
Config Scl = Portc.0
Config I2cdelay = 10
I2cinit
'address of ds1307
Const Ds1307w = &HD0                                        ' Addresses of Ds1307 clock
Const Ds1307r = &HD1
Config Date = Dmy , Separator = -                           '
Config Clock = User                                         ' this will dim the bytes automatic
'dim other needed variables
Dim Weekday As Byte
Dim Dzientyg As String * 2
Dim Dzien As String * 10
Dim Miesiac As String * 10
Dim Rok As String * 10
Dim Godzina As String * 3
Dim Minuta As String * 3
Dim Sekunda As String * 3
Dim Dzienroku As Word
Declare Sub Setweekday
Declare Sub Sd_card
 
 
Cls
' assigning the time will call the SetTime routine
Time$ = "07:41:09"                                          ' to watch the day changing value
Date$ = "02-05-16"
Weekday = 0
Call Setweekday
If Card_init_error = 0 Then
   'Sprawdzamy i wyświetlamy typ podpiętej karty pamięci
   Select Case Mmcsd_cardtype
     Case 1
       Setfont My6_8 : Lcdat 2 , 1 , "MMC-Card detected"
     Case 2
       Setfont My6_8 : Lcdat 2 , 1 , "SD-Card Spec. 1.x detected"
     Case 4
       Setfont My6_8 : Lcdat 2 , 1 , "SD-Card Spec. 2.0 detected"
     Case 12
       Setfont My6_8 : Lcdat 2 , 1 , "SD-Card Spec. 2.0 detected"
     Case Else
       Setfont My6_8 : Lcdat 2 , 1 , "No Card detected"
   End Select
 
 Else                                                       'jeśli karta nie zostala prawidłowo zainicjalizowana to wyświetlamy komunikat o błędzie
    Setfont My6_8 : Lcdat 3 , 1 , "Error: " ; Card_init_error
 End If                                           ' 13 november 2002
Do
Dzien = Mid(date$ , 4 , 2)
Miesiac = Left(date$ , 2)
Rok = Right(date$ , 2)
Godzina = Left(time$ , 2)
Minuta = Mid(time$ , 4 , 2)
Sekunda = Right(time$ , 2)
Dzienroku = Dayofyear()
    Setfont My6_8 : Lcdat 1 , 1 , Dzien ; "." ; Miesiac ; "." ; Rok ;
 
    'Setfont My6_8 : Lcdat 2 , 1 , "Date Time : " ; Date$ ; " "
    Setfont My6_8 : Lcdat 1 , 62 , ; Time$ ;
    'Setfont My6_8 : Lcdat 2 , 1 , Dzientyg
 
Loop
 
End
 
Getdatetime:
  I2cstart
  I2cwbyte Ds1307w
  I2cwbyte 0
  I2cstop
  I2cstart
  I2cwbyte Ds1307r
  I2crbyte _sec , Ack
  I2crbyte _min , Ack
  I2crbyte _hour , Ack
  I2crbyte Weekday , Ack
  I2crbyte _day , Ack
  I2crbyte _month , Ack
  I2crbyte _year , Nack
  I2cstop
  _sec = Makedec(_sec) : _min = Makedec(_min) : _hour = Makedec(_hour)
  _day = Makedec(_day) : _month = Makedec(_month) : _year = Makedec(_year)
   'If Weekday = 1 Then                                      'dopasowanie zakresu do potrzeb programu i zakresu RTC
  'Weekday = 6
   ' Else
     'Weekday = Weekday - 2
  'End If
  Dzientyg = Lookupstr(weekday , Weekstrdays)
Return
 
Setdate:
 'If Weekday = 6 Then                                        'dopasowanie zakresu do potrzeb programu i zakresu RTC
   'Weekday = 1
   'Else
    'Weekday = Weekday + 2
  'End If
  _day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
  I2cstart
  I2cwbyte Ds1307w
  I2cwbyte 4
  I2cwbyte _month
  I2cwbyte _day
  I2cwbyte _year
  I2cstop
  Waitms 10
  Dzientyg = Lookupstr(weekday , Weekstrdays)
Return
 
Setweekday:
  I2cstart
  I2cwbyte Ds1307w
  I2cwbyte 3
  I2cwbyte Weekday
  I2cstop
  Waitms 10
Return
 
Settime:
  _sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
  I2cstart
  I2cwbyte Ds1307w
  I2cwbyte 0
  I2cwbyte _sec
  I2cwbyte _min
  I2cwbyte _hour
  I2cstop
  Waitms 10
Return
Sub Sd_card
     Ff = Freefile()
   Open "logaqva.csv" For Append As #ff                     'For Output As #ff
   'zapisujemy zmienne
   Dim A As Word , B As Integer , C As Word
   A = 20
   B = 11
   C = 3674
 
   Write #ff , A , B , C , Chr(13)                          'te dane zostaną zapisane w pierwszym wierszu
 
   Close #ff
'------------------------Odczyt zmiennych z csv---------------------------------
   Print "Czytam z pliku csv"
   Ff = Freefile()
   Open "logaqva.csv" For Input As #ff
   Input #ff , A , B , C                                    'odczytujemy kolejne pola pliku csv
 
   Close #ff
 
   Setfont My6_8 : Lcdat 5 , 1 , A ; B ; C ;
 
End Sub
Weekstrdays:
Data "Poniedzialek" , "Wtorek" , "Sroda" , "Czwartek" , "Piatek" , "Sobota" , "Niedziela"
$include "my6_8.font"
 
     
FireIsland

Dołączył: 30 Sie 2016
Posty: 1
Wysłany: Wto Sie 30, 2016 2:50 pm   

Witam wszystkich.
Z racji tego, że temat jest przyklejony zdecydowałem się nie tworzyć nowego.
Mam problem z obsługą karty SD. Korzystam z płytki startowej EvB 5.1, programuję procesor ATmega32A programatorem USBASP. Korzystam z kodów i bibliotek dołączonych do 10 części kursu programowania w Bascomie. Mój problem polega na tym, że pojawia się bład inicjalizacji 227 lub 229. Zasilanie karty jest w porządku. Sprawdziłem też połączenia pinów karty z pinami z którymi karta powinna być połączona (mam na myśli SPI, bufory itp - wszystko jest zgodnie ze schematem w instrukcji ), nie znalazłem też zimnych lutów. Nie zmienia się stan pinu CS SD informujący o włożeniu karty, ale omijam ten problem przez zewnętrzne podłączenie pinu procesora do GND kiedy wkładam kartę. Program działa dobrze, najpierw w terminalu pojawia się napis " oczekuję na kartę " więc wkładam kartę i zwieram pin procesora do GND, wtedy wyskakuje błąd inicjalizacji.

Z góry dziękuję za pomoc.
Pozdrawiam Piotrek,
 
     
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group