Bascom finde den Fehler nicht

[rici35]

Hi,

ich möchte die Uhrzeit für den RTC per Fernbedienung eingeben.

Leider habe komme ich da mit dem Code nicht weiter da immer eine Fehlermeldung kommt.

Könnt Ihr mir bitte helfen?

$regfile = "m16def.dat"                                     'ATmega 16
$crystal = 8000000                                          'Quarz: 8 MHz
$baud = 9600
$lib "mcsbyte.lbx"                                          ' for smaller code
$lib "ds1307clock.lib"                                      '  lib

Config Rc5 = Pind.2

Dim Ein_aus As Bit
'Dim Time$ As String * 8
Time$ = "17:37:00"

Enable Interrupts

Dim Address As Byte , Command As Byte

Print "Waiting for RC5..."

Do

  Getrc5(address , Command)

If Address = 0 Then
          Command = Command And &B01111111
   '       Print Address ; "  " ; Command

      If Command = 32 Then
              If Ein_aus = 1 Then
                 Ein_aus = 0
              Else
                 Ein_aus = 1
              End If
        End If
      Waitms 500
      Print "Status " ; Ein_aus
    End If

  Select Case Command

    Case 16 : Print "0"
    Case 17 : Print "1"
    Case 18 : Print "2"
    Case 19 : Print "3"
    Case 20 : Print "4"
    Case 21 : Print "5"
    Case 22 : Print "6"
    Case 23 : Print "7"
    Case 24 : Print "8"
    Case 25 : Print "9"
    Case 40 : Print "ok"
    Case 19 : Print "3"
    Case 20 : Print "4"
    Case 21 : Print "5"
    Case 22 : Print "6"
    Case 23 : Print "7"
'    Case Else : Print "Not in Case statement"

  End Select

Time$ = Command

Print Time$

Loop

End

Mit freundlichen Grüßen

Schmidt R.

 

[StevieL]

Hallo,

willst du uns auch noch mitteilen, welche Fehlermeldung du erhältst? Dann muss nicht jeder, der dir helfen möchte, den Code kopieren und compilieren.

 

[rici35]

Sorry,

folgende Fehlermeldung:
Error :46 Line:13 Assignment error [TIME$: 0 "17:37:00"; 108] , in File : F:\RTC REALLTIME CLOCK\Test.BAS
Error :46 Line:13 Assignment error [TIME$: 0 COMMAND: 2] , in File : F:\RTC REALLTIME CLOCK\Test.BAS
Error :46 Line:13 Numeric Parameter excepted [TIME$] , in File : F:\RTC REALLTIME CLOCK\Test.BAS

Ich versuche, per Fernbedienung die Variable Time$ zu füllen um die Daten danach an den ds1307 zu übergeben.

Das sollte doch möglich sein, oder?

Hallo,

willst du uns auch noch mitteilen, welche Fehlermeldung du erhältst? Dann muss nicht jeder, der dir helfen möchte, den Code kopieren und compilieren.

 

[Cassio]

Das sollte doch möglich sein, oder?

Hallo rici!

Natürlich ist das möglich!

Die Fehlermeldung besagt aber, dass deine "Uhrzeit"-Übergabe so nicht möglich ist.


Mal eine Frage vorab:
Hast du dir mal die Beispieldatei zur DS1307 im BASCOM\SAMPLE-Ordner angesehen?

Vielleicht solltest du dir erst mal das Beispiel ansehen, um mit der RTC überhaupt kommunizieren zu können.
Wenn das fehlerfrei klappt, kannst du dich um den RC5-Empfang kümmern.

Sollte dir das dann gelungen sein musst du dir nur noch überlegen, wie du die einzeln empfangenen Werte in zweistellige Zahlen zusammenfügst und obendrein noch "mundgerecht" zur RTC sendest.


Dein derzeitiges Programm kannst du also erst mal getrost löschen......
Es wird auch später keinen wirklichen nutzen haben.


Grüße,
Cassio

 

[dino03]

Hallo zusammen,

ich mach mal nen Kreuzverweise ...
bascom-forum.de - DS1307 über Fernbedienung RC5 beschreiben
Damit der Zusammenhang nicht verloren geht

Ist mir grad beim stöbern im anderen Forum aufgefallen.

Gruß
Dino

 

[Cassio]

ich mach mal nen Kreuzverweise ...

Hallo Dino!

Da kann ich mich "Don" nur anschließen.....

Danke dir, für den Hinweis.


Grüße,
Cassio