Get , Put

[CSslymer]

Môže mi niekto pomôcť?
Ako urobiť. Nakreslím niekoľko rôznych obrázkov v QB64.
Tieto obrázky chcem uložiť do pamäte počítača. Potom chcem tieto obrázky vyvolať pomocou _MapTriangle.
Napríklad: Obrázok(1-100)
Nechcem ich nahrávať zo súboru.


Const Xpix = 1920
Const Ypix = 1080
Obrazovka _NewImage(Xpix, Ypix, 32)
_FullScreen


Dim As Long Pismeno(5)
Pismo& = _LoadFont ("SANFW.ttf", 300, "monospace")
_Font Pismo&

Cx = 450: CY = 110
x = 100: y = 100
Pre t = 1 až 5
    Pismeno(t) = _NewImage(x * 2, y * 2, 32)
    _Dest Pismeno(t) Lokácia
    1, 1: Tlač t
    riadku (Cx - x, CY - y)-(Cx + x, CY + y), , B
    'Získajte (Cx - x, CY - y)-(Cx + x, CY + y), Pismeno(t) – táto chyba sa mi stále zobrazuje
       Cls
Next t
For t = 1 až 5
    _Source Pismeno(t)
    _Dest 0
    _PutImage ( Cx - x + c, CY - y), Pismeno(t)
    c = c + 200
Ďalší t
_Zobraziť