Hallo habe gerade mal ein mittelschweres Problem mit dem Modul von Pollin undzwar auf dem Datenblatt was geliefert wurde ist die Belegung anderes als auf dem Datenblatt was auf der Seite von Pollin steht ich gehe nun mal davon auf das das Datenblatt von der Pollin Seite stimmt weil ich da auch von GND durchgang zum Kondensator habe. Kann das jemand bestätigen wenn das so ist hoffe ich mal das mein Modul noch geht weil ich es genau anders angeschlossen habe so wie ich es auf dem Mitgelieferten Datenblatt haben.
Auf der Pollin seite ist von ausen nach innen
PON
DATA
GND
VCC
Und auf dem Was ich mitgeliefert gekommen habe ist es von ausen
VDD
GND
DATA
PON
genau umgedreht echt komisch
Edit:
So ich weis ja net ob das ein gutes Zeichen ist wenn die LEd die beim Starten an ist dann nach paar sekunden ausgeht und dann nach 3 Minuten SYNC ab und an mal an ist und dann wieder aus un dauch immer mal im sekunden Takt blinkt.
So sieht mein Testprogramm aus dsa hab ich hier gefunden hab es nur an meine einstellungen angepasst.
Auf der Pollin seite ist von ausen nach innen
PON
DATA
GND
VCC
Und auf dem Was ich mitgeliefert gekommen habe ist es von ausen
VDD
GND
DATA
PON
genau umgedreht echt komisch
Edit:
So ich weis ja net ob das ein gutes Zeichen ist wenn die LEd die beim Starten an ist dann nach paar sekunden ausgeht und dann nach 3 Minuten SYNC ab und an mal an ist und dann wieder aus un dauch immer mal im sekunden Takt blinkt.
So sieht mein Testprogramm aus dsa hab ich hier gefunden hab es nur an meine einstellungen angepasst.
Code:
$regfile = "m32def.dat"
$crystal = 16000000
$baud = 9600
$hwstack = 16
$swstack = 32
$framesize = 32
Config Lcd = 16 * 4
Config Lcdpin = Pin , Db4 = Portc.0 , Db5 = Portc.1 , Db6 = Portc.2 , _
Db7 = Portc.3 , E = Portc.5 , Rs = Portc.4
Initlcd
Config Lcdmode = Port
Config Lcdbus = 4
Config Dcf77 = Pind.3 , Inverted = 0 , Timer = 1 , Debug = 0 , Check = 1 , Gosub = Sectic
Config Date = Dmy , Separator = .
Idcf Alias Pind.3
Reset Portd.3
Oled Alias Porta.7
Config Oled = Output
Dcfpon Alias Portd.2
Config Dcfpon = Output
Set Dcfpon
Const Myversion1 = "-DCF77-"
Const Myversion2 = " V 2.7 "
Declare Sub Showtime_lcd()
Declare Sub Init
Dim Lftag As Byte
Dim Tz As Byte
Print Myversion1 ; Myversion2
Reset Oled
Set Dcfpon
Set Oled
Call Init
Reset Oled
Reset Dcfpon
Cls
Enable Interrupts
'****************** HAUPTPROGRAMMSCHLEIFE **********************************
'
Do
If Idcf = 1 Then
Set Oled
Else
Reset Oled
End If
Loop
End
'optional, is called every second by the library
Sectic:
If Dcf_status.7 = 1 Then
Call Showtime_lcd()
Else
Locate 1 , 1
Lcd "sync"
Locate 2 , 1
Lcd Time$
Print Date$ ; " " ; Time$
End If
Return
'************* ENDE HAUPTPROGRAMM ******************************************
Sub Init
Initlcd
Cls
Locate 3 , 1 : Lcd Myversion1
Locate 4 , 1 : Lcd Myversion2
Wait 5
Cls
Cursor Off
End Sub
Sub Showtime_lcd()
Lftag = Dayofyear()
Incr Lftag
Tz = Dcf77timezone()
Print Date$ ; " " ; Time$ ; " " ; Lftag
If _sec = 15 Or _sec = 30 Or _sec = 45 Or _
_sec = 16 Or _sec = 31 Or _sec = 46 Then
Cls
Locate 1 , 1
Lcd Date$
Locate 2 , 2
Lcd "T" ; Lftag
Else
Cls
Locate 1 , 1
If Tz = 1 Then
Lcd "MEZ"
Else
Lcd "MESZ"
End If
Locate 2 , 1
Lcd Time$
End If
End Sub
End