Load images

[Kernelpanic]

I am just trying understand the graphics commands. I have a problem with loading an image - even examples from the wiki do not work. The editor shows OK. Can someone tell me where the problem is? Thank you!

Code: QB64: [Select]

1. OPTION _EXPLICIT
2.  
3. DIM NeuesFenster AS LONG, Bild AS LONG
4. DIM Text AS STRING
5.  
6. NeuesFenster = _NEWIMAGE(1024, 768, 256)
7. SCREEN NeuesFenster
8.  
9. COLOR 0, 11
10. LOCATE (CSRLIN + 2), POS(0)
11. PRINT "Hallo, QuickBasic 64!"
12.  
13. 'Bild laden
14. Bild = _LOADIMAGE("MaedchenSozial.jpg", 32)
15. SCREEN Bild
16. _PUTIMAGE (0, 0), Bild
17.  
18. 'Neue Farbe setzen
19. COLOR 7, 0
20. _PALETTECOLOR 7, &HFFDAA520
21.  
22. 'Mit Schriften arbeiten + positionieren
23. Text = "Em todas as religioes ha amor, mas o amor nao tem religiao."
24.  
25. _FONT _LOADFONT("C:\Windows\Fonts\Cour.ttf", 20, "Monospace")
26.  
27. 'Zeile, Spalte (Row, Column)
28. _PRINTSTRING (150, 460), Text
29.  
30. 'Farbe und Schrift zuruecksetzen
31. COLOR 15, 0
32. _FONT 16
33.  
34. END
35.  

Example from the wiki at _Putimage

Code: QB64: [Select]

1. DEFLNG A-Z
2. dest_handle = _NEWIMAGE(640, 480, 32)
3. SCREEN dest_handle '32 bit Screen 12 dimensions
4.  
5. 'Bild wird nicht geladen
6. source_handle = _LOADIMAGE("QB64.PNG", 32)
7.  
8. dx1 = 0: dy1 = 0
9. . . .
10.  

[bplus]

For sure, you don't need this:

Code: QB64: [Select]

1. SCREEN Bild  

_PUTIMAGE does the job of putting the image where you want.

then it's just a matter of finding the image file you want to load and you can check if the image handle assigned is not -1, -1 means no load!

 This is interesting:

Code: QB64: [Select]

1. _FONT _LOADFONT("C:\Windows\Fonts\Cour.ttf", 20, "Monospace")

ususally its

Code: QB64: [Select]

1. myFont& = _LOADFONT("C:\Windows\Fonts\Cour.ttf", 20, "Monospace")

Load to LONG type handle, then call

Code: QB64: [Select]

1. _FONT myFont&

that way you can switch fonts without reload of a font.

[SMcNeill]

NeuesFenster = _NEWIMAGE(1024, 768, 256)
SCREEN NeuesFenster
Bild = _LOADIMAGE("MaedchenSozial.jpg", 32)
SCREEN Bild

A couple of problems with the above.  First, you set NeuesFenster to a 256 color screen.  Then you load a 32-bit color image.  Then you swap screens, throwing away the 256 color screen....

I would think you’d want more of:

NeuesFenster = _NEWIMAGE(1024, 768, 32) ‘USE A 32-bit screen
SCREEN NeuesFenster
 
COLOR _RGB32(0,0,0), _RGB32(255, 255, 0)’MUST USE 32-BIT COLOR VALUES
LOCATE (CSRLIN + 2), POS(0)
PRINT "Hallo, QuickBasic 64!"
 
'Bild laden
Bild = _LOADIMAGE("MaedchenSozial.jpg", 32)
‘SCREEN Bild ‘NO NEED FOR THIS
_PUTIMAGE (0,0), Bild

[Kernelpanic]

Thanks for the help. The picture - I think I now know how "_Loadimage" works. The picture have to be in the same directory as the program and the full path have to be specified.

That will not do:
"MaedchenSozial.jpg"
"..\Bilder\MaedchenSozial.jpg"
"D:\Lab\QuickBasic64\Grafik\Bilder\MaedchenSozial.jpg"

That's working:
"D:\Lab\QuickBasic64\Grafik\MaedchenSozial.jpg"
The full path and it have to in the same directory.

Code: QB64: [Select]

1. 'Uebungen mit Fenstern, Farben und Bildern
2.  
3. OPTION _EXPLICIT
4.  
5. DIM NeuesFenster AS LONG, Bild AS LONG
6. DIM Text AS STRING
7.  
8. NeuesFenster = _NEWIMAGE(1024, 768, 32)
9. SCREEN NeuesFenster
10.  
11. 'Vordergrund- und Hintergrundfarbe
12. COLOR _RGB32(255, 0, 0), _RGB32(255)
13. LOCATE (CSRLIN + 2), POS(0)
14. PRINT "Hallo, QuickBasic 64!"
15. SLEEP
16.  
17.  
18. 'Bild laden
19. Bild = _LOADIMAGE("D:\Lab\QuickBasic64\Grafik\MaedchenSozial.jpg", 32)
20. 'SCREEN Bild - Spalte, Zeile
21. _PUTIMAGE (260, 120), Bild
22.  
23. 'Neue Farbe setzen
24. COLOR _RGB32(255, 165, 0), _RGB32(0, 0, 0)
25. '_PALETTECOLOR 7, &HFFDAA520
26.  
27. 'Mit Schriften arbeiten + positionieren
28. Text = "Em todas as religioes ha amor, mas o amor nao tem religiao."
29.  
30. _FONT _LOADFONT("C:\Windows\Fonts\Cour.ttf", 20, "Monospace")
31.  
32. 'Zeile, Spalte (Row, Column)
33. _PRINTSTRING (140, 560), Text
34.  
35. 'Farbe und Schrift zuruecksetzen
36. COLOR _RGB32(255), _RGB32(0, 0, 0)
37. _FONT 16
38.  
39. END
40.  

[SMcNeill]

The path doesn't have to be the full path to the file, but it does need to be relative to where the EXE is located at.

For example, it seems that you have QB64 installed in: D:\Lab\QuickBasic64\"

If you want to put an image in "D:\Lab\QuickBasic64\Grafik\Bilder\MaedchenSozial.jpg", then you can either use the whole path, or the path relative to the QB64 folder (see note below).

So _LOADIMAGE("D:\Lab\QuickBasic64\Grafik\Bilder\MaedchenSozial.jpg",32) should work.

_LOADIMAGE(".\Grafik\Bilder\MaedchenSozial.jpg") should also work, as the base directory would be D:\Lab\QuickBasic64\, which would be the starting point for pathing to the file.


NOTE:  This is assuming that the EXE you create with QB64 is located inside your QB64 root directory.  If you have the "Save EXE with source" option checked, and the BAS file you're compiling is in a subfolder somewhere, then the EXE will be created in that subfolder, changing the starting point of file paths to that directory instead. 

[Kernelpanic]

Now I understand. QB64 is installed in "D: \ Programme \ qb64", and there are the EXE-files. "D: \ Lab \ QuickBasic 64 \ ..." is the working directory. Now are the EXE-files in the same directory like the source files. Learning by doing. ;-)

[bplus]

Now are the EXE-files in the same directory like the source files.

There is an Option under the Run Menu in the IDE, put a bullet next to:
"Output EXE to Source Folder"

otherwise EXE's will be in QB64.exe Folder (same as untitled, unsaved Runs). Where the EXE's are is the base folder or path where files are sought. Paths should be relative to the EXE folder unless fully pathed.

[Kernelpanic]

Yes, I hadn't noticed / didn't notice that yet. Now I know it and I have see it. Thanks for yours hints.

This works.

Code: QB64: [Select]

1. 'Speicherort EXE- und Programmdateien - 30.10.2020
2.  
3. OPTION _EXPLICIT
4.  
5. SCREEN _NEWIMAGE(800, 600, 32)
6.  
7. DIM Bild AS LONG, myFont AS LONG
8. DIM Text AS STRING, Text2 AS STRING
9.  
10. CLS
11. 'Neue Farbe setzen
12. COLOR _RGB32(255, 165, 0), _RGB32(0, 0, 0)
13.  
14. Bild = _LOADIMAGE("Bilder\Marilyn-1956.jpg") 'see note below examples to get the image
15. _PUTIMAGE (140, 15), Bild 'places image at upper left corner of window w/o stretching it
16.  
17. Text = "A wise girl kisses but doesn't love, listens but doesn't believe,"
18. Text2 = " and leaves before she is left."
19. myFont = _LOADFONT("C:\Windows\Fonts\Dauphinn.ttf", 25, "")
20. _FONT myFont
21.  
22. 'Zeile, Spalte (Row, Column)
23. _PRINTSTRING (135, 510), Text
24. _PRINTSTRING (256, 537), Text2
25.  
26. 'Farbe und Schrift zuruecksetzen
27. COLOR _RGB32(255), _RGB32(0, 0, 0)
28. _FONT 16
29. _FREEFONT myFont
30.  
31.  

;-)

[Kernelpanic]

For a better understanding: This is my file system: