[DBC] whats wrong with this code?

Author

Message

nine09

20

Years of Service

User Offline

Joined: 4th Mar 2004

Location:

Posted: 21st Jun 2005 09:44

Link

heres the code

hide mouse
load bitmap "kirbyrender.jpg",1
`set current bitmap 1
`set current bitmap 0

do
   copy bitmap 1,0
   if controlkey() = 1 then cls
   `set current bitmap 1
   `if upkey() = 1 then fade()
   `if downkey() = 1 then blur()
   blur()
   fade()
   mirror()
   flip()
   if escapekey() = 1 then exit
loop

function mirror()
`performs a repeat loop that mirrors image over n over again - breaks with escape
   repeat
      mirror bitmap 0
      wait 500
      mirror bitmap 0
      wait 500
   until returnkey() = 1
endfunction

function flip()
`performs a repeat loop that flips image over n over again - breaks with escape
   repeat
      flip bitmap 0
      wait 500
      flip bitmap 0
      wait 500
      until returnkey() = 1
endfunction

function fade()
`performs a loop that fades image
while upkey() = 1
   for x = 1 to 6
      fade bitmap 0,x
      wait 500
   next x
endwhile
function blur()
`performs loop that blurs image
while downkey() = 1
   for x = 1 to 6
      blur bitmap 0,x
      wait 500
   next x
endwhile
`exit sequence
print "Press any key to exit!"
wait key
end

+ Code Snippet

hide mouse
load bitmap "kirbyrender.jpg",1
`set current bitmap 1
`set current bitmap 0

do
   copy bitmap 1,0
   if controlkey() = 1 then cls
   `set current bitmap 1
   `if upkey() = 1 then fade()
   `if downkey() = 1 then blur()
   blur()
   fade()
   mirror()
   flip()
   if escapekey() = 1 then exit
loop

function mirror()
`performs a repeat loop that mirrors image over n over again - breaks with escape
   repeat
      mirror bitmap 0
      wait 500
      mirror bitmap 0
      wait 500
   until returnkey() = 1
endfunction

function flip()
`performs a repeat loop that flips image over n over again - breaks with escape
   repeat
      flip bitmap 0
      wait 500
      flip bitmap 0
      wait 500
      until returnkey() = 1
endfunction

function fade()
`performs a loop that fades image
while upkey() = 1
   for x = 1 to 6
      fade bitmap 0,x
      wait 500
   next x
endwhile
function blur()
`performs loop that blurs image
while downkey() = 1
   for x = 1 to 6
      blur bitmap 0,x
      wait 500
   next x
endwhile
`exit sequence
print "Press any key to exit!"
wait key
end

Back to top

Profile PM Email

nine09

20

Years of Service

User Offline

Joined: 4th Mar 2004

Location:

Posted: 21st Jun 2005 12:15

Link

heres the code

hide mouse
load bitmap \"kirbyrender.jpg\",1
`set current bitmap 1
`set current bitmap 0

do
   copy bitmap 1,0
   if controlkey() = 1 then cls
   `set current bitmap 1
   if upkey() = 1 then fade()
   if downkey() = 1 then blur()
   blur()
   fade()
   mirror()
   flip()
   if escapekey() = 1 then exit
loop

function mirror()
`performs a repeat loop that mirrors image over n over again - breaks with escape
   repeat
      mirror bitmap 0
      wait 500
      mirror bitmap 0
      wait 500
   until returnkey() = 1
endfunction

function flip()
`performs a repeat loop that flips image over n over again - breaks with escape
   repeat
      flip bitmap 0
      wait 500
      flip bitmap 0
      wait 500
      until returnkey() = 1
endfunction

function fade()
`performs a loop that fades image
while upkey() = 1
   for x = 1 to 6
      fade bitmap 0,x
      wait 500
   next x
endwhile
function blur()
`performs loop that blurs image
while downkey() = 1
   for x = 1 to 6
      blur bitmap 0,x
      wait 500
   next x
endwhile
`exit sequence
print \"Press any key to exit!\"
wait key
end

+ Code Snippet

hide mouse
load bitmap \"kirbyrender.jpg\",1
`set current bitmap 1
`set current bitmap 0

do
   copy bitmap 1,0
   if controlkey() = 1 then cls
   `set current bitmap 1
   if upkey() = 1 then fade()
   if downkey() = 1 then blur()
   blur()
   fade()
   mirror()
   flip()
   if escapekey() = 1 then exit
loop

function mirror()
`performs a repeat loop that mirrors image over n over again - breaks with escape
   repeat
      mirror bitmap 0
      wait 500
      mirror bitmap 0
      wait 500
   until returnkey() = 1
endfunction

function flip()
`performs a repeat loop that flips image over n over again - breaks with escape
   repeat
      flip bitmap 0
      wait 500
      flip bitmap 0
      wait 500
      until returnkey() = 1
endfunction

function fade()
`performs a loop that fades image
while upkey() = 1
   for x = 1 to 6
      fade bitmap 0,x
      wait 500
   next x
endwhile
function blur()
`performs loop that blurs image
while downkey() = 1
   for x = 1 to 6
      blur bitmap 0,x
      wait 500
   next x
endwhile
`exit sequence
print \"Press any key to exit!\"
wait key
end

basically when i compile i get a -servere error at line 49- i believe thats where the fade function starts...seems to me nothing should be buggy about this, but i\'ve been using DB for a couple days so what do i know!

Back to top

Profile PM Email

Nytmayre

19

Years of Service

User Offline

Joined: 12th Jun 2005

Location: Induced Coma

Posted: 22nd Jun 2005 02:14 Edited at: 22nd Jun 2005 02:16

Link

Well, Mr. Nobody, I am in the same boat as you - I have also had DBC for a couple of days,(well, the trial version anyway), and I also am having compiling difficulties. Although, I have found that when an error occurs, the program tells you it is such-and-such lines down -- it usually gets this wrong and goes completely over the mark. I am not sure, but I think your problem might be in the "function flip" section. But this is just a pure guess.

If I were you, I would keep scanning the code, and try to find any mistakes. I think the program should highlight anything that doesn't make sense in white, so look for that. Also, just keep asking around these forums, I'm sure that there r many people who can help you much more that me.

Good Luck!

--Nytmayre--

Dream the world is doing fine, forget the Nytmayres left behind. Nytmayre of the burning sin, nytmayres scream from you deep within.

Uh... What's the point of this bit?

Back to top

Profile PM

nine09

20

Years of Service

User Offline

Joined: 4th Mar 2004

Location:

Posted: 22nd Jun 2005 12:07

Link

Ah sweet success! the problem has been resolved (forgot to close my functions). anyhow in case you were curious here is the corrected code.

hide mouse
load bitmap "kirbyrender.jpg",1
`set current bitmap 1
`set current bitmap 0

do
   copy bitmap 1,0
   if controlkey() = 1 then cls
   `set current bitmap 1
   `if upkey() = 1 then fade()
   `if downkey() = 1 then blur()
   blur()
   fade()
   mirror()
   flip()
   if escapekey() = 1 then exit
loop

function mirror()
`performs a repeat loop that mirrors image over n over again - breaks with escape
   repeat
      mirror bitmap 0
      wait 500
      mirror bitmap 0
      wait 500
   until returnkey() = 1
endfunction

function flip()
`performs a repeat loop that flips image over n over again - breaks with escape
   repeat
      flip bitmap 0
      wait 500
      flip bitmap 0
      wait 500
      until returnkey() = 1
endfunction

function fade()
`performs a loop that fades image
while upkey() = 1
   for x = 1 to 100
      fade bitmap 0,x
      wait 500
   next x
endwhile
endfunction
function blur()
`performs loop that blurs image
while downkey() = 1
   for x = 1 to 6
      blur bitmap 0,x
      wait 500
   next x
endwhile
endfunction
`exit sequence
print "Press any key to exit!"
wait key
end

+ Code Snippet

hide mouse
load bitmap "kirbyrender.jpg",1
`set current bitmap 1
`set current bitmap 0

do
   copy bitmap 1,0
   if controlkey() = 1 then cls
   `set current bitmap 1
   `if upkey() = 1 then fade()
   `if downkey() = 1 then blur()
   blur()
   fade()
   mirror()
   flip()
   if escapekey() = 1 then exit
loop

function mirror()
`performs a repeat loop that mirrors image over n over again - breaks with escape
   repeat
      mirror bitmap 0
      wait 500
      mirror bitmap 0
      wait 500
   until returnkey() = 1
endfunction

function flip()
`performs a repeat loop that flips image over n over again - breaks with escape
   repeat
      flip bitmap 0
      wait 500
      flip bitmap 0
      wait 500
      until returnkey() = 1
endfunction

function fade()
`performs a loop that fades image
while upkey() = 1
   for x = 1 to 100
      fade bitmap 0,x
      wait 500
   next x
endwhile
endfunction
function blur()
`performs loop that blurs image
while downkey() = 1
   for x = 1 to 6
      blur bitmap 0,x
      wait 500
   next x
endwhile
endfunction
`exit sequence
print "Press any key to exit!"
wait key
end

btw, the only thing fixed is that the program will compile. functions fade(), and blur() still dont work the way i thought they would, but i'll keep hacking away at it.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / [DBC] whats wrong with this code?