[решено] Генератор штрихкода EAN-13

morgan1991 · Отправлено: **00:19, 03-02-2022** | #5

У меня получилось как то так:
Полный код во вложении. Ограничение форума 30000 символов

Код:

$ArrResult = StringSplit($Result, "", 2)
;ConsoleWrite(@CRLF & StringLen($Result) & @CRLF)

Local $hGUI, $hGraphic, $hPen

; Создаёт GUI
$hGUI = GUICreate("GDI+", 400, 300)
GUISetState()

; Рисует линию
_GDIPlus_Startup ()
$hGraphic = _GDIPlus_GraphicsCreateFromHWND ($hGUI)
$hPen = _GDIPlus_PenCreate (0xFF000000)
_GDIPlus_GraphicsDrawLine ($hGraphic, 10, 150, 10, 220, $hPen)
_GDIPlus_PenSetColor($hPen, 0xFFFFFFFF)
_GDIPlus_GraphicsDrawLine ($hGraphic, 11, 150, 11, 220, $hPen)
_GDIPlus_PenSetColor($hPen, 0xFF000000)
_GDIPlus_GraphicsDrawLine ($hGraphic, 12, 150, 12, 220, $hPen)
;_GDIPlus_PenSetColor($hPen, 0xFFFFFFFF)
;_GDIPlus_GraphicsDrawLine ($hGraphic, 13, 150, 13, 220, $hPen)



For $i = 0 To 41 Step +1
   If $ArrResult[$i] = 0 Then _GDIPlus_PenSetColor($hPen, 0xFFFFFFFF)
   If $ArrResult[$i] = 1 Then _GDIPlus_PenSetColor($hPen, 0xFF000000)
   _GDIPlus_GraphicsDrawLine ($hGraphic, 12+$i+1, 150, 12+$i+1, 210, $hPen)
Next

_GDIPlus_PenSetColor($hPen, 0xFFFFFFFF)
_GDIPlus_GraphicsDrawLine ($hGraphic, 55, 150, 55, 220, $hPen)
_GDIPlus_PenSetColor($hPen, 0xFF000000)
_GDIPlus_GraphicsDrawLine ($hGraphic, 56, 150, 56, 220, $hPen)
_GDIPlus_PenSetColor($hPen, 0xFFFFFFFF)
_GDIPlus_GraphicsDrawLine ($hGraphic, 57, 150, 57, 220, $hPen)
_GDIPlus_PenSetColor($hPen, 0xFF000000)
_GDIPlus_GraphicsDrawLine ($hGraphic, 58, 150, 58, 220, $hPen)
_GDIPlus_PenSetColor($hPen, 0xFFFFFFFF)
_GDIPlus_GraphicsDrawLine ($hGraphic, 59, 150, 59, 220, $hPen)

For $i = 42 To 83 Step +1
   If $ArrResult[$i] = 0 Then _GDIPlus_PenSetColor($hPen, 0xFFFFFFFF)
   If $ArrResult[$i] = 1 Then _GDIPlus_PenSetColor($hPen, 0xFF000000)
   _GDIPlus_GraphicsDrawLine ($hGraphic, 17+$i+1, 150, 17+$i+1, 210, $hPen)
Next


_GDIPlus_PenSetColor($hPen, 0xFF000000)
_GDIPlus_GraphicsDrawLine ($hGraphic, 102, 150, 102, 220, $hPen)
_GDIPlus_PenSetColor($hPen, 0xFFFFFFFF)
_GDIPlus_GraphicsDrawLine ($hGraphic, 103, 150, 103, 220, $hPen)
_GDIPlus_PenSetColor($hPen, 0xFF000000)
_GDIPlus_GraphicsDrawLine ($hGraphic, 104, 150, 104, 220, $hPen)
_GDIPlus_PenSetColor($hPen, 0xFFFFFFFF)
_GDIPlus_GraphicsDrawLine ($hGraphic, 105, 150, 105, 220, $hPen)