Get , Put

[bplus]

That is QUITE a first program, we better step ours a up little

Code: (Select All)

Const Xpix = 1300 ' you guys with the giant screen give me a break
Const Ypix = 700
Screen _NewImage(Xpix, Ypix, 32)
_ScreenMove 0, 0 ' my task bar in on right
_FullScreen

Dim As Long Pismeno(1 To 7)
Pismo& = _LoadFont("Arial.ttf", 75, "monospace") ' don't have that other font 300 = 300 pixel high font
_Font Pismo&

Cx = 450: CY = 110
x = 100: y = 100
For t = 1 To 7
    Cls ' one image first baby steps
    Pismeno(t) = _NewImage(_PrintWidth("1 Hello World"), 100, 32)
    _PrintString (0, 16), _Trim$(Str$(t)) + " Hello World"
    Line (0, 10)-(_PrintWidth("1 Hello World"), 90), , B

    'Get (Cx - x, CY - y)-(Cx + x, CY + y), Pismeno(t)  - I keep getting this error
    _PutImage , 0, Pismeno(t), (0, 0)-(_PrintWidth("1 Hello World"), 100)
    _Delay .1 'check her out
Next t
Cls
t = 1: d = 1
Do
    Cls
    '_Source Pismeno(t)
    '_Dest 0
    _PutImage ((_Width - _PrintWidth("1 Hello World")) / 2, (t - 1) * 100 + 5), Pismeno(t), 0
    'c = c + 200
    t = t + 1
    If t = 8 Then t = 1
    _Display
    _Delay d
    d = d - .02
    If d <= 0 Then d = .1
Loop Until _KeyDown(27)
Cls
_PrintString ((_Width - _PrintWidth("Goodbye")) / 2, (_Height - 75) / 2), "Goodbye"
_Display '<<<<<<<<<<<<<<<<<<<<<<< very important once you start using _display you need to after every print thing!!!
Sleep