{"id":249,"date":"2007-10-12T09:43:31","date_gmt":"2007-10-12T08:43:31","guid":{"rendered":"http:\/\/www.evertdekker.com\/wp\/?p=249"},"modified":"2015-08-03T15:55:44","modified_gmt":"2015-08-03T14:55:44","slug":"manchester-decode","status":"publish","type":"post","link":"https:\/\/evertdekker.com\/wp\/?p=249","title":{"rendered":"Manchester Decode"},"content":{"rendered":"<p>This will decode the received manchester code on the pc-side, that&#8217;s <a href=\"http:\/\/www.evertdekker.com\/wp\/?p=252\">coded by the Bascom sample<\/a> .<\/p>\n<pre class=\"brush: vbnet; gutter: true\">&#039;Manchester decoder VB5\/6 Evert 2007 V1.0\r\nDim Mansword As Double\r\nMansword = Highbyte                                         &#039;Make a word out of the high and low byte\r\nMansword = Mansword * 256\r\nMansword = Mansword + Lowbyte\r\nManchesterdecode = 0                                        &#039;Set output to zero\r\nFor Lus = 1 To 8                                            &#039;Run loop 8 times\r\nManchesterdecode = Manchesterdecode * 2                     &#039;Shift the bit to the left\r\nIf(mansword And 49152) = 16384 Then                         &#039;If the left 2 bits are 01\r\n    Manchesterdecode = Manchesterdecode + 1                 &#039; Incr Output\r\nEnd If\r\nMansword = Mansword * 4                                     &#039;Shift bit 2x to the left\r\nNext Lus\r\nEnd Function<\/pre>\n","protected":false},"excerpt":{"rendered":"<p>This will decode the received manchester code on the pc-side, that&#8217;s coded by the Bascom sample . &#039;Manchester decoder VB5\/6 Evert 2007 V1.0 Dim Mansword As Double Mansword = Highbyte &#039;Make a word out of the high and low byte Mansword = Mansword * 256 Mansword = Mansword + Lowbyte Manchesterdecode = 0 &#039;Set output [&#8230;]<\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[21],"tags":[26,29],"class_list":["post-249","post","type-post","status-publish","format-standard","hentry","category-vb-5-2010","tag-bascom","tag-machester-decode"],"_links":{"self":[{"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/posts\/249","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=249"}],"version-history":[{"count":3,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/posts\/249\/revisions"}],"predecessor-version":[{"id":256,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=\/wp\/v2\/posts\/249\/revisions\/256"}],"wp:attachment":[{"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=249"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=249"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/evertdekker.com\/wp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=249"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}