× Do tohoto fóra nemůžete přispívat. Diskuse bude vždy přesměrována do příslušné sekce.

file SORG

Více
24. dub 2015 12:15 #14769 od Aleš Krátký
Aleš Krátký replied the topic: SORG
vím vím, musím toho opravit více než jen to :(
koukal jsem a gliderscore se docela pohnul, vybral nápady ze sorgu a vesele se šíří .... mno,snad bude čas

Je to rebel ! při zatýkání tři vojáky těžce zranil, dva zhmoždil a jednoho... jednoho zesměšnil, navrhuji zavřít ho nadoživotí! To jako do konce života?

Please Přihlásit se or Vytvořit účet to join the conversation.

Více
27. čen 2015 19:06 #15185 od Aleš Krátký
Aleš Krátký replied the topic: SORG
Opravil jsem u všech RCEV bonusové body správně (jen v DB, nikoli v těch výsledovkách co lezou se sorgu)

Je to rebel ! při zatýkání tři vojáky těžce zranil, dva zhmoždil a jednoho... jednoho zesměšnil, navrhuji zavřít ho nadoživotí! To jako do konce života?

Please Přihlásit se or Vytvořit účet to join the conversation.

Více
27. čen 2015 19:06 #15186 od Aleš Krátký
Aleš Krátký replied the topic: SORG
Opravil jsem u všech RCEV bonusové body správně (jen v DB, nikoli v těch výsledovkách co lezou se sorgu)

Je to rebel ! při zatýkání tři vojáky těžce zranil, dva zhmoždil a jednoho... jednoho zesměšnil, navrhuji zavřít ho nadoživotí! To jako do konce života?

Please Přihlásit se or Vytvořit účet to join the conversation.

Více
06. čec 2015 20:38 #15212 od Aleš Krátký
Aleš Krátký replied the topic: SORG
Pár lidí se mě už ptalo na komunikační protokol SORG hodin :

Níže základní commandy + v att je zdroják programu pro ovládání hodin + FW přímo do hodin.

Soubor přílohy:

Název souboru: SORGClock.zip
Velikost souboru:1,501 kB

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


                          
                                        

Je to rebel ! při zatýkání tři vojáky těžce zranil, dva zhmoždil a jednoho... jednoho zesměšnil, navrhuji zavřít ho nadoživotí! To jako do konce života?
Přílohy:

Please Přihlásit se or Vytvořit účet to join the conversation.

Více
12. srp 2016 21:08 #17143 od Aleš Krátký
Aleš Krátký replied the topic: SORG
Nový EXE k SORGu... je tam změna kvůli uploadu výsledků. Prosím rozbalte a překopírujte místo původního souboru.

v novém sorgu (V6 :-D) už nebude žádná kompatibila, a vše pojede na čisto.

Je to rebel ! při zatýkání tři vojáky těžce zranil, dva zhmoždil a jednoho... jednoho zesměšnil, navrhuji zavřít ho nadoživotí! To jako do konce života?
Přílohy:

Please Přihlásit se or Vytvořit účet to join the conversation.

Více
13. srp 2016 15:36 #17147 od Petr Semerák
Petr Semerák replied the topic: SORG
Ahoj Aleši, odeslal jsem výsledky dnešní soutěže (č. 642) ještě s původním ...exe a nevím, zda ti dorazily, tady k vidění nejsou. Zkusil jsem to ještě s novým exe souborem, ale to hlásí, že už to má nějaké ID a že dál nemůže...

Please Přihlásit se or Vytvořit účet to join the conversation.

Více
13. srp 2016 15:37 - 13. srp 2016 16:06 #17148 od Aleš Krátký
Aleš Krátký replied the topic: Re:SORG
Pošli mi složku soutěže na email

EDIT : zkus to ted :)

Je to rebel ! při zatýkání tři vojáky těžce zranil, dva zhmoždil a jednoho... jednoho zesměšnil, navrhuji zavřít ho nadoživotí! To jako do konce života?
Poslední úprava: 13. srp 2016 16:06 od Aleš Krátký.

Please Přihlásit se or Vytvořit účet to join the conversation.

Více
13. srp 2016 17:05 #17149 od Petr Semerák
Petr Semerák replied the topic: Re:SORG
Je to tam, super, díky moc. :)

Please Přihlásit se or Vytvořit účet to join the conversation.

Více
14. srp 2016 11:04 #17150 od Radek Novotny
Radek Novotny replied the topic: Re:SORG
Petře, ve výsledkovce ti chybí 5 bonusových bodů za umístění. Aleši, a nešlo by v Sorgu dodělat jednoduchou kontrolu syntaxe tak, aby nešlo zadat bonus body bez středníku na konci?
Zrovna tahle chyba se děje poměrně často, a pak ti to přidělává práci... Vidíš, myslím na tvoje dobro, abys měl víc času na lítání, namísto dodatečnýho ručního opravování výsledovek :)

Please Přihlásit se or Vytvořit účet to join the conversation.

Více
14. srp 2016 11:51 #17151 od Petr Dušek
Petr Dušek replied the topic: Re:SORG
Vyhoďte z pravidel ty nesmyslné bonusy a bude klid, bonusy dávaly nějaký smysl za finálové umístění, ale bonus za umístění bez finále, k čemu to je dobré??

Please Přihlásit se or Vytvořit účet to join the conversation.

Vygenerováno za 0.810 sekund

Stoupák.cz je nezávislým komunitním webem. Pokud máte cokoliv, co by jste chtěli zde uveřejnit, neváhejte nás kontaktovat. Rádi se podělíme o zajímavé informace, reportáže nebo návody.

Weby přátel

Banner baterie

banner6

Chceš tu být ? napiš nám

Koho podporujeme a kdo nás ?

Chceš tu být ? napiš nám