Image Viewer - Help - GameCreators Forum

Author

Message

Rampage

16

Years of Service

User Offline

Joined: 4th Feb 2008

Location: New Zealand

Posted: 7th Jun 2008 10:29 Edited at: 8th Jun 2008 05:34

Link

I'm developing a small piece of software in Visual Basic. And thought
I might shell some DarkBASIC Pro generated exes to show some flashy stuff. Now I am pretty new to DbPro. I have fiddled around with the basics on my friends computer. I have fpsc and dark gdk and stuff.
So, a part of this software is based around an image viewer.
So, can someone tell me please? How can I make a basic image viewer?
By basic I mean like having these arrows at the bottom of the image.

For next image. And

For previous image.
And each time you click next or previous it will change of course.
(with a animation, slide in)
Like this

+ Code Snippet

for t=1 to 300 step 3
 paste image 1,300-t,300-t : sleep 1
next t

So it kinda slides in.
Could someone please help? I'm not asking for someone to do it for
me. Just asking for help and instructions.
Thank you everyone.
Edit: The images I want to show are included inside the exe. If this helps.

Visual Game Studio Express Lead Programmer.

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 7th Jun 2008 12:55

Link

If you are using the full version of DBPro then there a image side and square program all ready there and its a dll, plus you may know how you might do it with Dark gdk, as it almost the same.

As for what you want I would think that most of the bits are in the demos just rip the bits out you need.

If this is not enough help do shout and someone else will hopefully help.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Rampage

16

Years of Service

User Offline

Joined: 4th Feb 2008

Location: New Zealand

Posted: 7th Jun 2008 13:07 Edited at: 7th Jun 2008 13:21

Link

*SHOUT*
Thanks anyway

Yes I'm using full version that a purchased around 5 days ago. But have been busy programming my project.
EDIT: Not to be picky, but could someone please supply me with the code?

Visual Game Studio Express Lead Programmer.

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 7th Jun 2008 13:30

Link

In the ide put in 'bitmap fade' and then press F1 then load the demo view bitmap showcase example this should show you a few things that you might want eg clicking a button loading an image.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Rampage

16

Years of Service

User Offline

Joined: 4th Feb 2008

Location: New Zealand

Posted: 8th Jun 2008 07:27

Link

OK, so I tried figuring out my self and made my first REAL program in DarkBASIC Pro.
Here is the code:

REM Project: Image Viewer
REM Created: 8/06/2008 2:48:06 p.m.
REM
REM ***** Main Source File *****
REM
set text font "Arial" : set text size 20
center text 150,10,"Push any key to scroll through images"
center text 170,25,"These screenshots were taken by members of the TGC Forums"
wait key
if escapekey()=1 then end

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\1.jpg", 1
for t=1 to 300 step 3
  paste image 1,300-t,300-t : sleep 1
next t
wait key

Load image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\2.jpg", 2
for t=1 to 300 step 3
  paste image 2,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\3.jpg", 3
for t=1 to 300 step 3
  paste image 3,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\4.jpg", 4
for t=1 to 300 step 3
  paste image 4,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\6.jpg", 6
for t=1 to 300 step 3
  paste image 6,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\7.jpg", 7
for t=1 to 300 step 3
  paste image 7,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\8.jpg", 8
for t=1 to 300 step 3
  paste image 8,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\9.jpg", 9
for t=1 to 300 step 3
  paste image 9,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\10.jpg", 10
for t=1 to 300 step 3
  paste image 10,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\11.jpg", 11
for t=1 to 300 step 3
  paste image 11,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\12.jpg", 12
for t=1 to 300 step 3
  paste image 12,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\13.jpg", 13
for t=1 to 300 step 3
  paste image 13,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\14.jpg", 14
for t=1 to 300 step 3
  paste image 14,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\15.jpg", 15
for t=1 to 300 step 3
  paste image 15,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\16.jpg", 16
for t=1 to 300 step 3
  paste image 16,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\17.jpg", 17
for t=1 to 300 step 3
  paste image 17,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\18.jpg", 18
for t=1 to 300 step 3
  paste image 18,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\19.jpg", 19
for t=1 to 300 step 3
  paste image 19,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\20.jpg", 20
for t=1 to 300 step 3
  paste image 20,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\21.jpg", 21
for t=1 to 300 step 3
  paste image 21,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\22.jpg", 22
for t=1 to 300 step 3
  paste image 22,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\23.jpg", 23
for t=1 to 300 step 3
  paste image 23,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\24.jpg", 24
for t=1 to 300 step 3
  paste image 24,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\25.jpg", 25
for t=1 to 300 step 3
  paste image 25,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\26.jpg", 26
for t=1 to 300 step 3
  paste image 26,300-t,300-t : sleep 1
next t
wait key

end

+ Code Snippet

REM Project: Image Viewer
REM Created: 8/06/2008 2:48:06 p.m.
REM
REM ***** Main Source File *****
REM
set text font "Arial" : set text size 20
center text 150,10,"Push any key to scroll through images"
center text 170,25,"These screenshots were taken by members of the TGC Forums"
wait key
if escapekey()=1 then end

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\1.jpg", 1
for t=1 to 300 step 3
  paste image 1,300-t,300-t : sleep 1
next t
wait key

Load image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\2.jpg", 2
for t=1 to 300 step 3
  paste image 2,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\3.jpg", 3
for t=1 to 300 step 3
  paste image 3,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\4.jpg", 4
for t=1 to 300 step 3
  paste image 4,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\6.jpg", 6
for t=1 to 300 step 3
  paste image 6,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\7.jpg", 7
for t=1 to 300 step 3
  paste image 7,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\8.jpg", 8
for t=1 to 300 step 3
  paste image 8,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\9.jpg", 9
for t=1 to 300 step 3
  paste image 9,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\10.jpg", 10
for t=1 to 300 step 3
  paste image 10,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\11.jpg", 11
for t=1 to 300 step 3
  paste image 11,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\12.jpg", 12
for t=1 to 300 step 3
  paste image 12,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\13.jpg", 13
for t=1 to 300 step 3
  paste image 13,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\14.jpg", 14
for t=1 to 300 step 3
  paste image 14,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\15.jpg", 15
for t=1 to 300 step 3
  paste image 15,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\16.jpg", 16
for t=1 to 300 step 3
  paste image 16,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\17.jpg", 17
for t=1 to 300 step 3
  paste image 17,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\18.jpg", 18
for t=1 to 300 step 3
  paste image 18,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\19.jpg", 19
for t=1 to 300 step 3
  paste image 19,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\20.jpg", 20
for t=1 to 300 step 3
  paste image 20,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\21.jpg", 21
for t=1 to 300 step 3
  paste image 21,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\22.jpg", 22
for t=1 to 300 step 3
  paste image 22,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\23.jpg", 23
for t=1 to 300 step 3
  paste image 23,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\24.jpg", 24
for t=1 to 300 step 3
  paste image 24,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\25.jpg", 25
for t=1 to 300 step 3
  paste image 25,300-t,300-t : sleep 1
next t
wait key

Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\26.jpg", 26
for t=1 to 300 step 3
  paste image 26,300-t,300-t : sleep 1
next t
wait key




end

Long and boring...yuuup, at least I got a decent image viewer.
Anyway, one problem. Whenever I try to end the program. Its scrolls through all the images semi fast and THEN closes...
How can I fix this to make it so it closes straight away.
I tried coding a

+ Code Snippet

delete image 1

from 1, right down to 26, but it keeps getting errors. Anyone help?

Visual Game Studio Express Lead Programmer.

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 8th Jun 2008 10:31

Link

due to the nature of DBPro it actually runs through all the for next loop in the programme when you try to quit it.

So you now have it going, if you look at your code you will see that it repeats a lot of for next loops the same bar the image number, plus you have two choices,

1. load all the images at once 1 to 26 then show them,

+ Code Snippet

rem load all picture at once
picture_number = 1
for image_number = 1 to 26
   Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\"+str$(picture_number)+".jpg",image_number
   inc picture_number,1
next image_number

or

2. load one at a time into the same image number.

+ Code Snippet

 
rem load one at a time into same image number
picture_number = 0
repeat
   inc picture_number , 1
   Load Image "C:\Documents and Settings\hn\My Documents\My Pictures\visual_g_s Pics\"+str$(picture_number)+".jpg", 1
   for t=1 to 300 step 3
      paste image 1,300-t,300-t : wait 100
   next t
until picture_number>26

If you do use or try the above it may still show all the pictures on quiting.

If I have jumped ahead of you to far, shout again, say I don't see how this or that works and will try to explain.

"+str$(picture_number)+"
this bit is a way of getting integer numbers into a string.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Rampage

16

Years of Service

User Offline

Joined: 4th Feb 2008

Location: New Zealand

Posted: 8th Jun 2008 10:40

Link

I should be fine from now thanks, all I need in a function that closes the program straight away, just like ending a exe through ctrl+alt+delete. Does such exist? Or do I just stick with end?

Visual Game Studio Express Lead Programmer.

Back to top

Profile PM Email Website

HowDo

21

Years of Service

User Offline

Joined: 28th Nov 2002

Location: United Kingdom

Posted: 8th Jun 2008 11:07

Link

where ever the code finds an end thats when it will stop,

if you had,

+ Code Snippet

do
loop

end
function openthis()

endfunction

the end will stop the code from running the function.

I expect given a bit longer and you will be finding better ways of doing the code you are working on.

cheers don't foget to have fun.

Dark Physics makes any hot drink go cold.

Back to top

Profile PM

Sorry your browser is not supported!

Newcomers DBPro Corner / Image Viewer - Help