Multiscreen effect

[TempodiBasic]

Hi friends
I'm happy of your feedbacks!

Moreover I have found a conceptual mistake in my first code posted here....
it never gains one image splitted on the multiscreen!
Here the correction of that conceptual error

Code: (Select All)

Rem the goal is to have a screen divided into 3 different panels

Rem and use them both like separated screen both like one compound screen



Const Tot = 4, One = 1, Two = 2, Three = 3

Dim screens(One To Tot) As Long, Movies(One To Three) As Long

If _FileExists("QB64bee.jpeg") Then Movies(One) = _LoadImage("QB64bee.jpeg", 32)

If _FileExists("QB64.jpeg") Then Movies(Two) = _LoadImage("QB64.jpeg", 32)

If _FileExists("QB64pe.jpg") Then Movies(Three) = _LoadImage("QB64pe.jpg", 32)



screens(Tot) = _NewImage(1000, 700, 32)

Screen screens(Tot)

_Title "Multiscreen"

_ScreenMove 1, 1

For c% = 1 To 3

    _PutImage , Movies(c%), screens(Tot)

    _Delay 1

Next c%

Randomize Timer

Dim k(One To Three) As Integer, h(One To Three) As Integer

While InKey$ = ""

    Cls

    _PutImage (20 + k(One), 20 + h(One))-(333, 330), Movies(One), screens(Tot)

    _PutImage (20 + k(Two), 370 + h(Two))-(333, 680), Movies(Two), screens(Tot)

    _PutImage (350 + k(Three), 20 + h(Three))-(980, 680), Movies(Three), screens(Tot)

    _Delay .1

    _Display

    For c% = One To Three

        k(c%) = Int(Rnd * 4)

        h(c%) = Int(Rnd * 5)

    Next c%

Wend

_Delay .5



While InKey$ = ""

    Cls

    _PutImage (20 + k(One), 20 + h(One))-(333, 330), Movies(One), screens(Tot), (1, 1)-(_Width(Movies(One)) / 3, _Height(Movies(One)) / 2)

    _PutImage (20 + k(Two), 370 + h(Two))-(333, 680), Movies(One), screens(Tot), (1, _Height(Movies(One)) / 2)-(_Width(Movies(One)) / 3, _Height(Movies(One)))

    _PutImage (350 + k(Three), 20 + h(Three))-(980, 680), Movies(One), screens(Tot), (_Width(Movies(One)) / 3, 1)-((_Width(Movies(One)) / 3) * 2, _Height(Movies(One)))



    _Delay .1

    _Display

    For c% = One To Three

        k(c%) = Int(Rnd * 4)

        h(c%) = Int(Rnd * 5)

    Next c%

Wend





End

please use the images that you prefer or that posted at the beginning of the thread