Daylight Saving Time with ML1400

[bachphi]

Would you have any ideas how to implement a Daylight Saving time in ML1400? 
I currently use the Set Date & Time button to set it to the correct time.

TIA



My idea, .NET PC will generate DST event , then PC will write to PLC to change its time:

Code: [Select]

S:37 0 Clock Calendar Year
S:38 0 Clock Calendar Month
S:39 0 Clock Calendar Day
S:40 0 Clock Calendar Hours
S:41 0 Clock Calendar Minutes
S:42 0 Clock Calendar Seconds
S:43 0 STI Interrupt Time
S:44 0 I/O Event Interrupt Time
S:45 0 DII Interrupt Time
S:46 0 Discrete Input Interrupt-


I was able to change the hour as a test:

[Phrog30]

Look at this, https://stackoverflow.com/questions/22297089/get-internet-time-instead-of-pc-time-in-vb-net, I would use the. Net app to be the master, then send to the plc.

Since you already got the hour to work, the rest is easy.

[bachphi]

This may work:

Code: [Select]

Dim localZone As TimeZone = TimeZone.CurrentTimeZone
'
AddHandler SystemEvents.TimeChanged, AddressOf SystemEvents_TimeChanged


Private Sub SystemEvents_TimeChanged(ByVal sender As Object, ByVal e As EventArgs)
      'Occurs when user manually changes the time or due to daylight saving time.
       Dim daylight As DaylightTime = localZone.GetDaylightChanges(DateTime.Now.Year)
       If localZone.IsDaylightSavingTime(DateTime.Now) Then           
            'If daylight.Start = DateTime.Now Or daylight.End = DateTime.Now Then
                'DST occur write to PLC
                PLC.Write("B3:0/14", 1)                 'TimeChange Enable bit
                PLC.Write("N9:3", DateTime.Now.Hour)
                PLC.Write("N9:4", DateTime.Now.Minute)
                PLC.Write("N9:5", DateTime.Now.Second)
                PLC.Write("B3:0/14", 0)
            'End If
       End If
End Sub



[bachphi]

Attached is an updated DST version for Micrologix without PC. Other versions out there are not using the current rule of DST.
Noted that without a PC, the PLC clock will drift overtime.