Bascom Windows Zeit via Uart an C übertragen

$port= new-Object System.IO.Ports.SerialPort COM4,9600,None,8,one
$port.open() #open serial connection
$port.WriteLine("Hello world") 
$port.Close()

$regfile "m8adef.dat"                                       'ATmega8a auswählen
$framesize = 32
$swstack = 32
$hwstack = 64
$crystal = 3686400                                          'Prozessor auf 3,6 MHz setzen
$baud = 9600

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
'LCD pins Konfigurieren
Config Lcd = 16 * 2                                         'LCD Größe
Initlcd
Cursor Off                                                  'Schreibmarke nicht anzeigen
Cls                                                         'LCD Löschen
Dim H As String * 16


Do
Input "Test: " , H
Cls
Locate 1 , 1
Lcd H
Loop
End

$ErrorActionPreference = "SilentlyContinue" #Fehlermeldungen auschalten

$port= new-Object System.IO.Ports.SerialPort COM17,9600,None,8,one #Comport definieren
 
$port.open() #Serielle verbindung starten
"Auf Mikrocontroller warten..."

Do{ #Mit µC synchronisieren, Solange lesen, bis Zeichen von µC bekommen
$test = $port.ReadLine()
}
Until ($test=1)
cls
$port.write("1")
"Signal erhalten!"
"beginne übertragung der Uhrzeit..."
""

Start-Sleep -Milliseconds 100 #100ms warten
#$port.Write() #Testzeile schreiben
$port.Write("12");
$port.Write("`r")
$port.close()
Start-Sleep -Milliseconds 100

"Zeit erfolgreich übertragen!" #Meldung ausgeben, dass die Zeit übertragen wurde
" " #Leerzeile
Write-Host "Beliebiege Taste zum Beenden drücken ..." 
$x = $host.UI.RawUI.ReadKey("NoEcho,IncludeKeyDown") #Wenn eine beliebige Taste gedrückt wird, wird das Programm beendet

$regfile "m8adef.dat"                                       'ATmega8a auswählen
$framesize = 32
$swstack = 32
$hwstack = 64
$crystal = 3686400                                          'Prozessor auf 3,6864 MHz setzen
$baud = 9600                                                'Datenrate Setzen

Config Lcdpin = Pin , Db4 = Portd.4 , Db5 = Portd.5 , Db6 = Portd.6 , Db7 = Portd.7 , E = Portd.3 , Rs = Portd.2
'LCD pins Konfigurieren
Config Lcd = 16 * 2                                         'LCD Größe
Initlcd                                                     'LCD Initalisieren
Cursor Off                                                  'Schreibmarke nicht anzeigen
Cls                                                         'LCD Löschen

'Ports Konfigurieren/Aliase/Pullups

Config Portd = Output                                       'LCD Pins sind output

Config Portc.0 = Input
Squarein Alias Pinc.0
Portc.0 = 0

Config Portc.1 = Output
Led0 Alias Portc.1

'Variablen Deklarieren

Dim X As Word

Dim Yy As Word
Dim Mm As Byte
Dim Dd As Byte
Dim H As Byte
Dim M As Word
Dim S As Word
Dim Weekday As Byte


'Konfiguration I²C

Config Sda = Portc.4                                        ' I2C Bus konfigurieren
Config Scl = Portc.5
Const Ds1307w = &HD0                                        ' Addresse der Ds1307 Uhr
Const Ds1307r = &HD1

Config Clock = User                                         ' Interne Time/Date Routinen für Bascom konfigurieren
Config Date = Dmy , Separator = .

' Stellen der Uhr, muss nur einmal ausgeführt werden
'Time$ = "11:55:00"
'Date$ = "24.04.15"
Gosub Squareout                                             'Rechtecksignal des DS1307 einschalten


Config Timer2 = Timer , Prescale = 1024
On Timer2 Isr_timer2
Enable Interrupts
Enable Timer2


Do
Print "1"
Locate 1 , 1
Lcd "Wait for PC..."
Loop Until Inkey() <> 0
Cls

Input "Jahr: " , _year
Disable Timer2                                              'Timeout Timer Abschalten
Input "Monat: " , _month
Input "Tag: " , _day

Input "Stunde: " , _hour
Input "Minute: " , _min
Input "Sekunde: " , _sec

Gosub Setdate
Gosub Settime
Led0 = 1
Waitms 2000
Led0 = 0
Uhrzeitabbruch:





' Main Loop
Do
Locate 2 , 1 : Lcd Date$                                    'Datum ausgeben
Locate 1 , 1 : Lcd Time$                                    'Zeit ausgeben


If Squarein = 1 Then Gosub Getdatetime
'End If


Loop

' Unterprogramme für die Bascom Date/Time-Funktionen
Getdatetime:
  I2cstart
  I2cwbyte Ds1307w
  I2cwbyte 0
  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)
Return

Setdate:
  _day = Makebcd(_day) : _month = Makebcd(_month) : _year = Makebcd(_year)
  I2cstart
  I2cwbyte Ds1307w
  I2cwbyte 4
  I2cwbyte _day
  I2cwbyte _month
  I2cwbyte _year
  I2cstop
Return

Settime:
  _sec = Makebcd(_sec) : _min = Makebcd(_min) : _hour = Makebcd(_hour)
  I2cstart
  I2cwbyte Ds1307w
  I2cwbyte 0
  I2cwbyte _sec
  I2cwbyte _min
  I2cwbyte _hour
  I2cstop
Return

Squareout:
I2cstart
I2cwbyte Ds1307w
I2cwbyte 7
I2cwbyte &B00010000
I2cstop
Return

End

Isr_timer2:
Toggle Led0
X = X + 1
If X = 150 Then                                             'Ca 10 Sekunden
   Led0 = 0
   Disable Timer2
   Goto Uhrzeitabbruch
End If
Return