Níže základní commandy + v att je zdroják programu pro ovládání hodin + FW přímo do hodin.
Code:
SORG Clock comunication FAQ
Public Sub enableclockmode()
Dim xmtBuf() As Byte = {&H83, &H0, &H0, &H0, &H83, &H81}
SerialPort.Write(xmtBuf, 0, xmtBuf.Length)
End Sub
Public Sub enablestopwatchmode()
Dim xmtBuf() As Byte = {&H83, &H1, &H0, &H0, &H84, &H81}
SerialPort.Write(xmtBuf, 0, xmtBuf.Length)
End Sub
public Sub setclocktime()
Dim rtct1 As Byte
Dim rtct2 As Byte
Dim crc As Byte
Dim xmtBuf(6) As Byte
rtct1 = rtchod.Value / 10
rtct1 = (rtct1 << 4) Or (rtchod.Value Mod 10)
rtct2 = rtcmin.Value / 10
rtct2 = (rtct2 << 4) Or (rtcmin.Value Mod 10)
xmtBuf(0) = &H84
xmtBuf(1) = rtct1
xmtBuf(2) = rtct2
xmtBuf(3) = 0
crc = xmtBuf(0) + xmtBuf(1) + xmtBuf(2) + xmtBuf(3)
crc = crc And &HFF
xmtBuf(4) = crc
xmtBuf(5) = &H81
SerialPort.Write(xmtBuf, 0, xmtBuf.Length)
End Sub
Public Sub countertimeSET()
Dim t1 As Byte
Dim t2 As Byte
Dim crc As Byte
Dim xmtBuf(6) As Byte
If working = True Then
t1 = countermin.Value
t2 = countersec.Value
Else
t1 = prepmin.Value
t2 = prepsec.Value
End If
systemmin = t1
systemsec = t2
xmtBuf(0) = &H85
xmtBuf(1) = t1
xmtBuf(2) = t2
xmtBuf(3) = 0
crc = xmtBuf(0) + xmtBuf(1) + xmtBuf(2) + xmtBuf(3)
crc = crc And &HFF
xmtBuf(4) = crc
xmtBuf(5) = &H81
SerialPort.Write(xmtBuf, 0, xmtBuf.Length)
End Sub
Public Sub counterUP()
Dim t1 As Byte
Dim t2 As Byte
Dim crc As Byte
Dim xmtBuf(6) As Byte
If working = True Then
t1 = countermin.Value
t2 = countersec.Value
Else
t1 = prepmin.Value
t2 = prepsec.Value
End If
xmtBuf(0) = &H86
xmtBuf(1) = 1
xmtBuf(2) = 0
xmtBuf(3) = 0
crc = xmtBuf(0) + xmtBuf(1) + xmtBuf(2) + xmtBuf(3)
crc = crc And &HFF
xmtBuf(4) = crc
xmtBuf(5) = &H81
' moRS232.PurgeBuffer(Rs232.PurgeBuffers.TxClear Or Rs232.PurgeBuffers.RXClear)
SerialPort.Write(xmtBuf, 0, xmtBuf.Length)
End Sub
Public Sub counterDOWN()
Dim t1 As Byte
Dim t2 As Byte
Dim crc As Byte
Dim xmtBuf(6) As Byte
If working = True Then
t1 = countermin.Value
t2 = countersec.Value
Else
t1 = prepmin.Value
t2 = prepsec.Value
End If
systemmin = t1
systemsec = t2
xmtBuf(0) = &H86
xmtBuf(1) = 2
xmtBuf(2) = 0
xmtBuf(3) = 0
crc = xmtBuf(0) + xmtBuf(1) + xmtBuf(2) + xmtBuf(3)
crc = crc And &HFF
xmtBuf(4) = crc
xmtBuf(5) = &H81
Timer1.Enabled = True
' moRS232.PurgeBuffer(Rs232.PurgeBuffers.TxClear Or Rs232.PurgeBuffers.RXClear)
SerialPort.Write(xmtBuf, 0, xmtBuf.Length)
End Sub
Public Sub counterSTOP()
Timer1.Enabled = False
Dim t1 As Byte
Dim t2 As Byte
Dim crc As Byte
Dim xmtBuf(6) As Byte
t1 = countermin.Value
t2 = countersec.Value
xmtBuf(0) = &H86
xmtBuf(1) = 0
xmtBuf(2) = 0
xmtBuf(3) = 0
crc = xmtBuf(0) + xmtBuf(1) + xmtBuf(2) + xmtBuf(3)
crc = crc And &HFF
xmtBuf(4) = crc
xmtBuf(5) = &H81
' moRS232.PurgeBuffer(Rs232.PurgeBuffers.TxClear Or Rs232.PurgeBuffers.RXClear)
SerialPort.Write(xmtBuf, 0, xmtBuf.Length)
End Sub
Private Sub sorgv4ledclock_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
SerialPort.Close()
If SerialPort.IsOpen = True Then
disconnectbrn.Enabled = True
connectbtn.Enabled = False
' core.pouzivajiseSORGV4LEDCLOCK = True
Else
disconnectbrn.Enabled = False
connectbtn.Enabled = True
'core.pouzivajiseSORGV4LEDCLOCK = False
End If
End Sub
) už nebude žádná kompatibila, a vše pojede na čisto. 
