Get , Put
#1
Can someone help me?
How to make. I will draw several different pictures in QB64.
I want to save these pictures to the computer's memory. Then I want to develop these images using _MapTriangle.
For example: Picture(1-100)
I don't want to record them from a file..


Const Xpix = 1920
Const Ypix = 1080
Screen _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
For t = 1 To 5
    Pismeno(t) = _NewImage(x * 2, y * 2, 32)
    _Dest Pismeno(t)
    Locate 1, 1: Print t
    Line (Cx - x, CY - y)-(Cx + x, CY + y), , B
    'Get (Cx - x, CY - y)-(Cx + x, CY + y), Pismeno(t)   - I keep getting this error
       Cls
Next t
For t = 1 To 5
    _Source Pismeno(t)
    _Dest 0
    _PutImage (Cx - x + c, CY - y), Pismeno(t)
    c = c + 200
Next t
_Display
Reply


Messages In This Thread
Get , Put - by CSslymer - 01-28-2023, 06:23 PM
RE: Get , Put - by bplus - 01-28-2023, 06:54 PM
RE: Get , Put - by CSslymer - 01-28-2023, 11:47 PM
RE: Get , Put - by CSslymer - 01-28-2023, 11:49 PM
RE: Get , Put - by bplus - 01-29-2023, 01:43 AM
RE: Get , Put - by bplus - 01-29-2023, 05:16 PM



Users browsing this thread: 1 Guest(s)