loading lots of images with a loop

Author

Message

mo2970

18

Years of Service

User Offline

Joined: 10th Jun 2006

Location:

Posted: 31st Dec 2006 19:08

Link

i have 100 or so little images i need to load and i dont want to manually go through all of them (but i will if i have to) and i was hoping some way i could do it as a loop, because their names are all close of by one number (the next number) and i was wondering if someone had some newer ideas (i am in DBP) thanks a lot

Deep, into that darkness peering, long i stood there, wondering, fearing, doubting. -Edgar Allen Poe

Back to top

Profile PM Email Website

GMan

18

Years of Service

User Offline

Joined: 16th Sep 2006

Location: TEXAS

Posted: 31st Dec 2006 21:40 Edited at: 31st Dec 2006 21:43

Link

if the images are named "image" with the image # at the end like:
image5.bmp then you can load multiple images like this:
(NOTE: change the '.bmp' in the code if you load different file types.)

+ Code Snippet

for a=1
image$="image"+str$(a)+".bmp"
load image image$, a
next a

NOTE: If your images are located in a different folder and you must specify a path to the files, then add the following line right before the 'load image' command:
image$="PATH TO FOLDER CONTAINING IMAGES"+image$
make sure you include a '' at the end of the path.

The right man in the wrong place can make all the difference in the world.

Back to top

Profile PM Email

TDK

Retired Moderator

22

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 31st Dec 2006 22:35 Edited at: 31st Dec 2006 22:36

Link

For that example to work, you need to know how many images there are to load. The line:

For A=1

won't work.

An alternative (and very similar) method would be:

+ Code Snippet

FinishedLoading = 0
A=0
Repeat
  Inc A
  Image$ = "Image"+str$(A)+".bmp"
  If File Exist(Image$)
    load image image$, A
  Else
    FinishedLoading = 1
  Endif
Until FinishedLoading = 1

This will load all images - regardless of how many - as long as they are named 'ImageNumber.bmp' and the numbers used are consecutive.

[Edit] Oops lol - half my code was Delphi. Now fixed!

TDK_Man

DB Tutorials, Hints & Tips and lots more...
New MiniIDE For DB Classic

Back to top

Profile PM Email Website

Grog Grueslayer

Valued Member

19

Years of Service

User Offline

Joined: 30th May 2005

Playing: Green Hell

Posted: 31st Dec 2006 23:27

Link

If their little images it's better to put them into one graphic, load that, then grab each image individually. It takes a lot of work but in the long run it's easy to add new images and use them. Also it cuts down on the files which is always a plus for any project.

+ Code Snippet

` Make 100 images (this is where you just use "load image")
Image=1
for y=1 to 400 step 41
 for x=1 to 400 step 41
  ink rgb(rnd(255),rnd(255),rnd(255)),0
  box x,y,x+40,y+40
  ink rgb(255,255,255),0
  center text x+20,y+12,str$(Image)
  inc Image
 next x
next y

` Grab images
Image=1
for y=1 to 400 step 41
 for x=1 to 400 step 41
  get image Image,x,y,x+40,y+40,1
  inc Image
 next x
next y

` Paste images to the screen
cls
do
 paste image rnd(99)+1,rnd(640),rnd(480),1
loop
wait key

Back to top

Profile PM Email

Flashing Blade

22

Years of Service

User Offline

Joined: 19th Oct 2002

Location: United Kingdom

Posted: 1st Jan 2007 12:12 Edited at: 1st Jan 2007 12:13

Link

or if files not neatly numbered you could do something like:

+ Code Snippet

restore imgfiles
img=1
done=0
repeat
   read img$
   if img$="done"
      done=1
   else
      load image img$,img
      inc img
   endif
until done

imgfiles:
data "button1.png","icons/gold.bmp","menu/start.jpg","menu/quit.jpg","weapons/gun/colt45.png"
data "weapons/medly/axe.bmp","done"

The word "Gullible" cannot be found in any English Dictionary.

Back to top

Profile PM Email Website

mo2970

18

Years of Service

User Offline

Joined: 10th Jun 2006

Location:

Posted: 1st Jan 2007 20:14

Link

ya that helped alot guys and they are all named "image1.bmp" (only 1 being the next number in the next file) so i think i will give TDK's example

Deep, into that darkness peering, long i stood there, wondering, fearing, doubting. -Edgar Allen Poe

Back to top

Profile PM Email Website

GMan

18

Years of Service

User Offline

Joined: 16th Sep 2006

Location: TEXAS

Posted: 1st Jan 2007 22:09

Link

Quote: "for a=1"

oops... meant to add 'to MAX_IMAGES' forgot.

The right man in the wrong place can make all the difference in the world.

Back to top

Profile PM Email

Sorry your browser is not supported!

Newcomers DBPro Corner / loading lots of images with a loop