Ïåðåâîä ñòðîêè â áèíàðíûé ôîðìàò |
| + |
| Àëãîðèòì çàïèñè òåãà 1162 (Êîä òîâàðíîé íîìåíêëàòóðû) ïðè êîäèðîâàíèè äàííûõ ïðè ìàðêèðîâêå òàáà÷íîé ïðîäóêöèè. 1. Êîä òèïà ìàðêèðîâêè Áàéòû [1:2] (2 áàéòà) - Êîä òèïà ìàðêèðîâêè Ïîñòîÿííîå çíà÷åíèå: 00 05 2. Èäåíòèôèêàòîð ïðîäóêòà GTIN Áàéòû [3:8] (6 áàéò) – GTIN Èñïîëüçóåòñÿ 14 ðàçðÿäíûé GTIN, ïðè çàïèñè â ÊÊÒ, GTIN ïðåäñòàâëÿåòñÿ êàê äåñÿòè÷íîå 14 çíàêîâîå ÷èñëî è ïðåîáðàçóåòñÿ â BIN (big endian), ðàçìåðîì 6 áàéò. Åñëè ïîñëå ïðåîáðàçîâàíèÿ ïîëó÷àåòñÿ ìåíåå 6, òî ñëåäóåò äîáàâèòü ëèäèðóþùèå íóëè. 3. Êîä èäåíòèôèêàöèè óïàêîâêè òàáà÷íîé ïðîäóêöèè Áàéòû [9:15] (7 áàéò) - Serial Serial ñîäåðæèò â ñåáå öèôðû, çàãëàâíûå è ñòðî÷íûå áóêâû ëàòèíñêîãî àëôàâèòà. Ñòðîêîâå çíà÷åíèå, â êîäèðîâêå CPP 866, ðàçìåð – 7 áàéò 4. Ðåçåðâ Áàéòû [22:32] (11 áàéò) – çàðåçåðâèðîâàíû, è íå èñïîëüçóþòñÿ. Ðåçåðâ â ÊÊÒ íå ïåðåäàåòñÿ 5. Ïðèìåð ôîðìèðîâàíèÿ òåãà 1162 Èìååì ñëåäóþùèå äàííûå ïî ìàðêå: GTIN: 98765432101234 Ïðåîáðàçóåì GTIN â áèíàðíûé ôîðìàò: 59 D3 9E 7F 19 72 Serial: ABC1234 Ïðåîáðàçóåì â ñòðîêîâîå çíà÷åíèå: 41 42 43 31 32 33 34 Ôîðìèðóåì òåã 1162: Äîáàâëÿåì êîä òèïà ìàðêèðîâêè: 00 05 Ôîðìèðóåì TLV äëÿ ïåðåäà÷è â ÊÊÒ. Òàê êàê òåã 1162 íå èìååò ôèêñèðîâàííîå çíà÷åíèå, 11 áàéò ðåçåðâà â ÊÊÒ íå ïåðåäàþòñÿ: 8A 04 0F 00 00 05 59 D3 9E 7F 19 72 41 42 43 31 32 33 34 Çíà÷åíèå 8A 04 – íîìåð òåãà (1162) 0F 00 – äëèíà äàííûõ (15 áàéò ÊÒÍ) |
| + |
Function TestNumberToBits2() Dim v As Variant, i As Integer, s As String v = CDec(êîä) For i = 40 To 0 Step -1 If v >= CDec(2 ^ i) Then s = s & "1" v = v - CDec(2 ^ i) ElseIf s <> "" Then s = s & "0" End If Next TextBox2 = s Debug.Print s End Function |
https://www.sql.ru/forum/1308018/perevod-stroki-v-binarnyy-format
| Êîììåíòèðîâàòü | « Ïðåä. çàïèñü — Ê äíåâíèêó — Ñëåä. çàïèñü » | Ñòðàíèöû: [1] [Íîâûå] |