Hexadecimální mapa – Visual Basic – Fórum – Programujte.com

Hojte. Měl bych jednu prosbičku. Mám vytvořenou hexadecimální mapu:

For b = 0 To 900 Step 300

    For c = 0 To a * 8 Step a * 2

    'prvni sloupec

    Form1.Line (50 + b, 0 + c)-(150 + b, 0 + c)

    Form1.Line (150 + b, 0 + c)-(200 + b, a + c)

    Form1.Line (200 + b, a + c)-(150 + b, a * 2 + c)

    Form1.Line (150 + b, a * 2 + c)-(50 + b, a * 2 + c)

    Form1.Line (50 + b, a * 2 + c)-(0 + b, a + c)

    Form1.Line (0 + b, a + c)-(50 + b, 0 + c)

    'druhej

    Form1.Line (200 + b, a + c)-(300 + b, a + c)

    Form1.Line (300 + b, a + c)-(350 + b, a * 2 + c)

    Form1.Line (350 + b, a * 2 + c)-(300 + b, a * 3 + c)

    Form1.Line (300 + b, a * 3 + c)-(200 + b, a * 3 + c)

    Form1.Line (200 + b, a * 3 + c)-(150 + b, a * 2 + c)

    Form1.Line (150 + b, a * 2 + c)-(200 + b, a + c)

    Next c

Next b