[morgan1991]

Сделал первую часть. Скрипт генерирует строку из цифр исходя их полученного штрихкода.
Осталось эти цифры преобразовать в пиксели и зациклить раз 10, чтобы получились линии, а не точки. Надеюсь двигаюсь в правильном направлении.

Код:

#include<Array.au3>

;Local $ArrL[10][7] = [[0,0,0,1,1,0,1], [0,0,1,1,0,0,1], [0,0,1,0,0,1,1], [0,1,1,1,1,0,1], [0,1,0,0,0,1,1], [0,1,1,0,0,0,1], [0,1,0,1,1,1,1], [0,1,1,1,0,1,1], [0,1,1,0,1,1,1], [0,0,0,1,0,1,1]]
;Local $ArrR[10][7] = [[1,1,1,0,0,1,0], [1,1,0,0,1,1,0], [1,1,0,1,1,0,0], [1,0,0,0,0,1,0], [1,0,1,1,1,0,0], [1,0,0,1,1,1,0], [1,0,1,0,0,0,0], [1,0,0,0,1,0,0], [1,0,0,1,0,0,0], [1,1,1,0,1,0,0]]
;Local $ArrG[10][7] = [[0,1,0,0,1,1,1], [0,1,1,0,0,1,1], [0,0,1,1,0,1,1], [0,1,0,0,0,0,1], [0,0,1,1,1,0,1], [0,1,1,1,0,0,1], [0,0,0,0,1,0,1], [0,0,1,0,0,0,1], [0,0,0,1,0,0,1], [0,0,1,0,1,1,1]]

$ShK = 5627381956205
$ArrShK = StringSplit($ShK, "", 2)
Local $Result = ""
Local $ArrPref[10][12] = [[0,0,0,0,0,0,1,1,1,1,1,1], _
                          [0,0,2,0,2,2,1,1,1,1,1,1], _
                          [0,0,2,2,0,2,1,1,1,1,1,1], _
                          [0,0,2,2,2,0,1,1,1,1,1,1], _
                          [0,2,0,0,2,2,1,1,1,1,1,1], _
                          [0,2,2,0,0,2,1,1,1,1,1,1], _
                          [0,2,2,2,0,0,1,1,1,1,1,1], _
                          [0,2,0,2,0,2,1,1,1,1,1,1], _
                          [0,2,0,2,2,0,1,1,1,1,1,1], _
                          [0,2,2,0,2,0,1,1,1,1,1,1]]

Local $ArrTable[3][10][7] = [[[0,0,0,1,1,0,1], [0,0,1,1,0,0,1], [0,0,1,0,0,1,1], [0,1,1,1,1,0,1], [0,1,0,0,0,1,1], [0,1,1,0,0,0,1], [0,1,0,1,1,1,1], [0,1,1,1,0,1,1], [0,1,1,0,1,1,1], [0,0,0,1,0,1,1]], _
                            [[1,1,1,0,0,1,0], [1,1,0,0,1,1,0], [1,1,0,1,1,0,0], [1,0,0,0,0,1,0], [1,0,1,1,1,0,0], [1,0,0,1,1,1,0], [1,0,1,0,0,0,0], [1,0,0,0,1,0,0], [1,0,0,1,0,0,0], [1,1,1,0,1,0,0]], _
                            [[0,1,0,0,1,1,1], [0,1,1,0,0,1,1], [0,0,1,1,0,1,1], [0,1,0,0,0,0,1], [0,0,1,1,1,0,1], [0,1,1,1,0,0,1], [0,0,0,0,1,0,1], [0,0,1,0,0,0,1], [0,0,0,1,0,0,1], [0,0,1,0,1,1,1]]]

For $i = 0 To 11 Step +1
   For $j = 0 To 6 Step +1
      $Result &= $ArrTable[$ArrPref[$ArrShK[0]][$i]][$ArrShK[$i+1]][$j]
   Next
Next


ConsoleWrite(@CRLF & $Result & @CRLF)

Результат:

Код:

010111100110110010001011110101101110110011111010010011101010000110110011100101001110