SORG - do verze7 (2000-2017)

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