Grote BMP's bewegen

Nieuwe Liberty BASIC programmeurs kunnen hier om hulp vragen.

Moderators: anthonio, Abcott

Grote BMP's bewegen

Berichtdoor Gordon » za jan 16, 2010 3:19 pm

Heeft iemand dit reeds opgelost?

Code: Selecteer alles
'Test bewegende gordijnen

nomainwin
WindowWidth =600 :WindowHeight = 135
UpperLeftX = INT((DisplayWidth-WindowWidth)/2)
UpperLeftY = INT((DisplayHeight-WindowHeight)/2)

loadbmp "bg1","..\sprites\bg1.bmp"  'verwijder ..\ als je het programma vanuit
loadbmp "bg2","..\sprites\bg2.bmp"  'de root van LB uitvoert
loadbmp "bg3","..\sprites\bg3.bmp"

open "testprogramma" for graphics_nsb_nf as #1
#1 "trapclose [quit]"

#1 "drawbmp bg1"
#1 "drawbmp bg2"
#1 "drawbmp bg3 314 0"

#1 "when leftButtonDown [curtainEdge]"
wait

[curtainEdge]

'notice MouseX;" ";MouseY
    if MouseX >310 and MouseX <325 then
    #1 "when leftButtonMove [moveCurtain]"
    end if
    if MouseX >295 and MouseX <310 then
    #1 "when leftButtonMove [moveCurtain]"
    end if
wait

[moveCurtain]
Rc = 314 :Lc = 0
if MouseX>315 or MouseX<305 and curtainOpen = 0 then

    for ct = 1 to 150   '<<<<<<<<
        Rc = Rc + 1
        #1 "drawbmp bg3 ";Rc;" 0"
        Lc = Lc - 1
        #1 "drawbmp bg2 ";Lc;" 0"
    next ct
    curtainOpen = 1
end if

wait


[quit]

unloadbmp "bg1"
unloadbmp "bg2"
unloadbmp "bg3"
close #1
end





Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Re: Grote BMP's bewegen

Berichtdoor KeesW » za jan 16, 2010 5:13 pm

Wat moet er o0pgel;ost worden, het werkt toch.
KeesW
 
Berichten: 23
Geregistreerd: do dec 10, 2009 2:32 pm

Re: Grote BMP's bewegen

Berichtdoor Gordon » za jan 16, 2010 9:22 pm

Bij het verplaatsen van de BMP's gaat LB steeds trager werken.
Het lijkt alsof er een memory-probleem is, of alsof LB volloopt.
Volgens de theorie moet (kan) dat voorkomen worden door
eerst het ID nummer van elk plaatje op te vragen en dan
steeds het oude plaatje met DELSEGMENT te verwijderen
alvorens het beeld te vernieuwen?

In 2002 schreef Alyce het volgende
http://babek.info/libertybasicfiles/lbnews/nl102/4.htm

Mijn testen doen het niet.
Heeft iemand hier betere ervaringen mee?

Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am

Re: Grote BMP's bewegen

Berichtdoor Gordon » za jan 16, 2010 9:29 pm

Ik plaatste mijn vraag ook op een Amerikaans forum.
Daar zijn reeds wat adviezen gegeven.
Ik ga het bestuderen en uittesten.

http://libertybasic.conforums.com/index.cgi?board=novice&action=display&num=1263651249

Gordon
Avatar gebruiker
Gordon
Site Admin
 
Berichten: 684
Geregistreerd: zo mei 22, 2005 12:50 am


Keer terug naar Beginner

Wie is er online

Gebruikers op dit forum: Geen geregistreerde gebruikers. en 1 gast

cron