INFO - FAQ - CC2-Forum - CCPro-Forum |
|
Hallo habe im Forum ein weiteres Vb-Programm entdeckt, hat bei mir nicht funktioniert da nur VBA in Excel! Was ist davon zu halten? Das Kommando 14 ermöglicht ein automatisches Stellen der Uhr auch ohne eine aktive DFF77-Antenne. Das folgend kleine VB3-Programm überträgt die Zeitinformationen des PC an die CC-Unit. Sub Form_Load () Comm1.CommPort = 2 Comm1.Settings = "9600,N,8,1" Comm1.InputLen = 1 Comm1.PortOpen = True If Comm1.PortOpen = False Then Comm1.CommPort = 1 Comm1.PortOpen = True End If MsgBox "C-Control Uhr stellen", 0 Sende 14 'Kommando Uhr stellen Sende Second(Now) Mod 256 Sende Minute(Now) Mod 256 Sende Hour(Now) Mod 256 Sende Weekday(Now) Mod 256 Sende Day(Now) Mod 256 Sende Month(Now) Mod 256 Sende (Year(Now) Mod 100) Mod 256 End End Sub |
Antwort schreiben |