Hi,

ich würde meine uhr gerne über den pc stellen, dazu will ich in delphi ein prog schreiben, dass mir die 5 werte sendet.

der mc muss diese dann einlesen und als value für die zeitwerte setzen.
der bisherige settime code

Code:
Sub Settime
 S = Makebcd(s)                                             'Sek
 M = Makebcd(m)                                             'Min
 H = Makebcd(h)                                             'Std
 D = Makebcd(d)                                             'Tag
 Month = Makebcd(month)                                     'Monat

 'Setzen der vorgebenen Werte

 I2cstart
 I2cwbyte &HA0                                              'Schreibmodus
 I2cwbyte 0                                                 'select control register
 I2cwbyte 8                                                 'set year and day bit for masking
 I2cstart
 I2cwbyte &HA0                                              'Schreibmodus
 I2cwbyte 2                                                 'Sekundenregister auswählen
 I2cwbyte S                                                 'Sek schreiben
 I2cwbyte M                                                 'min schreiben
 I2cwbyte H                                                 'std schreiben
 I2cwbyte D                                                 'tag schreiben
 I2cwbyte Month                                             'monat schreiben
 I2cstop
End Sub Settime