Picture viewer

[Richard Frost]

In the not-so distant past a picture viewer was an essential thing
everyone had to download.  Look how EASY it is with QB64!  37 lines!

Change the directory to where your picture files are, and "q" to how
many rows per page.

I wanted to post this over in Sample - 2D Graphics, but I can't post there.

Code: QB64: [Select]

1. _TITLE "Pix" '                              Display all the picture files in a directory
2. DEFINT A-Z
3. DIM f$(2000): xm = 1280: ym = 800: p$ = "\pix\cars\": d$ = "temp.dir": c$ = "dir " + p$ + " > \qb64\" + d$
4. SHELL c$
5. OPEN d$ FOR INPUT AS #1
6. WHILE NOT (EOF(1))
7.     LINE INPUT #1, t$: t$ = LCASE$(t$)
8.     IF (LEN(t$) > 4) AND (INSTR("jpg gif png bmp", RIGHT$(t$, 3))) THEN
9.         nf = nf + 1
10.         f$(nf) = RIGHT$(t$, LEN(t$) - 39)
11.     END IF
12. WEND
13. CLOSE
14. begin: m& = _NEWIMAGE(xm, ym, 32): _DELAY .3: IF m& >= -1 THEN GOTO begin
15. SCREEN m&: _DELAY .3: _FULLSCREEN: _DELAY .3
16. q = 10: q = ym \ q: x1 = (xm / q - INT(xm / q)) * q / 2: x = x1: y = 0
17. DO
18.     DO
19.         nextfile: n = n + 1: IF n > nf THEN n = 1
20.         f$ = p$ + f$(n): t = 0
21.         tryagain:
22.         IF LEN(INKEY$) THEN SYSTEM
23.         t = t + 1: i& = _LOADIMAGE(f$)
24.         IF (i& >= -1) AND (t < 3) THEN GOTO tryagain
25.         IF (i& >= -1) THEN GOTO nextfile
26.         _PUTIMAGE (x, y)-(x + q, y + q), i&, 0
27.         _FREEIMAGE i&
28.         _PRINTSTRING (x, y), LTRIM$(STR$(n))
29.         x = x + q
30.         IF (x + q) > xm THEN
31.             x = x1: y = y + q
32.             IF (y + q) > ym THEN EXIT DO
33.         END IF
34.     LOOP
35.     DO: _LIMIT 10: i$ = INKEY$: IF i$ = CHR$(27) THEN SYSTEM
36.     LOOP UNTIL LEN(i$): x = x1: y = 0: CLS
37. LOOP
38.