Hallo Forumsmitglieder :) ! Möchte einen kleinen SD-Logger mit Bascom bauen. Habe mich da an diese Seite gehalten: http://kampis-elektroecke.de/?page_id=421 die ZIP mit der SD Karte und Beschaltung von hier: http://members.aon.at/voegel/index.html?Downloads.htm Hab nach Anleitung formatiert, in der mmc_config die Pins definiert, aber es wird leider nichts gespeichert auf der Karte. Den abgespeckten Code hab ich hier mit angehängt. Fehlt da irgendwas, ab ich zu viel entfernt? Wäre für jede Hilfe dankbar!
1 | 'Controller |
2 | $regfile = "M128def.dat" |
3 | $crystal = 8000000 |
4 | $baud = 19200 |
5 | |
6 | 'Stacks |
7 | $hwstack = 200 |
8 | $swstack = 200 |
9 | $framesize = 400 |
10 | |
11 | |
12 | 'AVR-DOS einbinden |
13 | $include "config_mmc.bas" |
14 | $include "config_avr-dos.bas" |
15 | |
16 | |
17 | Dim Zu_schreiben As Byte |
18 | Dim Tmpbyte As Byte ' |
19 | Dim Btemp1 As Byte |
20 | |
21 | |
22 | |
23 | |
24 | 'Unterprogramme |
25 | |
26 | Declare Sub Speichern |
27 | Declare Sub Init |
28 | |
29 | |
30 | Call Init |
31 | |
32 | Do |
33 | |
34 | Btemp1 = Initfilesystem(1) |
35 | If Btemp1 <> 0 Then |
36 | Call Init |
37 | End If |
38 | |
39 | Call Speichern |
40 | |
41 | Wait 10 |
42 | |
43 | Loop |
44 | End |
45 | |
46 | |
47 | '****************************************************************** |
48 | |
49 | |
50 | 'SD Karte initialisieren |
51 | Sub Init |
52 | Initialisieren: |
53 | Tmpbyte = Driveinit() |
54 | Print "" |
55 | Print "Init: " ; Str(tmpbyte) |
56 | Print "Trying to read File system..." |
57 | Btemp1 = Initfilesystem(1) |
58 | Print "Btemp1: " ; Btemp1 |
59 | |
60 | 'Fehlerausgabe |
61 | If Btemp1 <> 0 Then |
62 | Print "Error: " ; Btemp1 ; " beim Initialisieren des Dateisystems" |
63 | Waitms 500 |
64 | Print "SD - FEHLER" |
65 | Wait 5 |
66 | Goto Initialisieren |
67 | Else |
68 | Print "SD OK" |
69 | Print "" |
70 | End If |
71 | End Sub |
72 | |
73 | 'SD Karte beschreiben |
74 | Sub Speichern |
75 | Open "Log.txt" For Append As #1 'Erstellen oder öffnen der Log.txt Datei |
76 | Print #1 , "test" ; "text" |
77 | Close #1 |
78 | Return |
79 | End Sub |
Thread beobachten
Seitenaufteilung abschalten