Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - Kernelpanic

Pages: [1] 2 3 ... 7
1
QB64 Discussion / Re: Text line break in QB64
« on: May 18, 2021, 05:53:48 pm »
Quote from: Richard Frost on May 18, 2021, 01:16:49 am
Break up the long text manually so it'll fit on the screen or:
I think I do it manually. I kind of confused this with HTML. Thanks.

2
QB64 Discussion / Text line break in QB64
« on: May 17, 2021, 06:52:34 pm »
Hello, how does a line break work in QB64?
The idiotic arrangement of our equally political idiots that in shops should be 30 square meters of space for each customer has led me to this little program.
Thanks!

Code: QB64: [Select]
  1. 'Seitenlaenge eine Quadrats berechnen - 16. Mai 2021
  2. 'Angeregt durch die idiotische Vorschrift, dass in Geschaeften
  3. 'fuer jeden Kunden zuletzt 30 qm zur Verfuegung stehen sollen.
  4. 'Das damit die Standardabstandsregelung von 1,5 Meter obsolet wird,
  5. 'scheint offenbar Niemand bewusst zu sein.
  6.  
  7. 'Variablendeklaration erzwingen
  9.  
  10. DIM Text AS STRING, Text2 AS STRING, Text3 AS STRING
  12. DIM quadratflaeche AS DOUBLE, seitenlaenge AS DOUBLE
  13.  
  14. 'Ausgabefenster bestimmen
  15. SCREEN _NEWIMAGE(800, 600, 32)
  16.  
  17. LOCATE (CSRLIN + 2), POS(10)
  18. PRINT "Berechnet die Seitenlaenge eines Quadrats"
  19. PRINT "========================================="
  21. INPUT "Flaeche des Quadrats in qm: ", quadratflaeche
  22.  
  23. 'Seitenlaenge = Quadratwurzel des Flaecheninhaltes
  24. seitenlaenge = SQR(quadratflaeche)
  25.  
  27. PRINT USING "Die Seitenlaenge eines Quadrat von ###.## qm betraegt: ##.### Meter"; quadratflaeche, seitenlaenge
  28.  
  29. 'Neue Farbe fuer Ausgabe der Quadrate
  30. COLOR _RGB32(0, 191, 255), _RGB(0, 0, 0)
  31.  
  32. '2 Quadrate neben einander. Die X-Koordinate legt den Abstand
  33. 'vom linken Rand fest, Y die Flaeche. Daher ist die
  34. 'For-Schleife fuer Y in beiden Schleifen gleich.
  35. FOR x = 50 TO 150
  36.   FOR y = 150 TO 250
  37.     PSET (x, y)
  38.   NEXT
  40.  
  41. FOR x = 350 TO 450
  42.   FOR y = 150 TO 250
  43.     PSET (x, y)
  44.   NEXT
  46.  
  47. Text = "---------------------------------------"
  48. 'Zeile, Spalte (Row, Column)
  49. _PRINTSTRING (86, 191), Text
  50.  
  51. 'Die Zahl in einen String umwandeln, und die Anzahl der Nachkommastellen festlegen
  52. 'Das bedeutet bei einem Double-Wert, keine Ausgabe wie: xy.12345678
  53. Text = STR$(seitenlaenge)
  54. _PRINTSTRING (196, 191), LEFT$(Text, 6)
  55.  
  56. Text2 = "Meter"
  57. _PRINTSTRING (256, 191), Text2
  58.  
  59. 'Farbe der Ausgabe festlegen - hier Standard
  60. COLOR _RGB32(255), _RGB(0, 0, 0)
  61.  
  62. Text3 = "Die Anordnung der Politik fuer 30 Quadratmeter pro Kunde in einem Geschaeft zeigt, " + _
  63. "dass dies ohne Sinn und Verstand erfolgte. Durch dies Anordnung wird naemlich der Abstand pro " + _
  64. "Person von 1,5 Meter auf ueber 5 Meter erweitert."
  65. _PRINTSTRING (10, 290), Text3
  66.  
  68.  

3
QB64 Discussion / Re: Video in QB64
« on: December 20, 2020, 01:26:55 pm »
Quote from: Pete on December 19, 2020, 09:00:47 pm
Try...

SHELL _DONTWAIT "START vlc KindMitBall.mp4"

Thanks! Unfortunately, that doesn't work either. There are 1001 commands for the VLC. . .
But it works from the command line.

Code: [Select]
C:\Programme\Videolan\VLC\vlc.exe "[youtube]https://youtu.be/mAWroivNprc[/youtube]" --directx-volume="0.3"  (without [youtube])


  [ You are not allowed to view this attachment ]  

4
QB64 Discussion / Video in QB64
« on: December 19, 2020, 08:08:54 pm »
Hello, I tried to call an external program that then plays a video. Calling the program also works, but the video does not work. Is that even possible?

Code: QB64: [Select]
  1. 'Versuch ein EXE-Programm aufzurufen
  2.  
  3. returncode% = SHELL("C:\Programme\VideoLAN\VLC\vlc.exe") '+ "KindMitBall.mp4"
  4. PRINT returncode%
  5.  
  6. '"D:\Lab\QuickBasic64\Grafik\KindMitBall.mp4"
  7.  
  9.  

This is the video, downloaded from Twitter:
https://twitter.com/i/status/1297539372749742082

5
QB64 Discussion / Re: Problem with image in upcoming v1.5 (dev build)
« on: December 18, 2020, 05:30:16 pm »
Quote from: SMcNeill on December 18, 2020, 05:07:12 pm
Second Question: In 1.5 (where the glitch appears), have you checked the "export EXE  to source folder" option?

That was it! Now it is ok.

It would be good to make that the default.

Addendum: I only know of this that the executable file is by default in the same directory as the source file. QB64 behaves here in a really unusual way.

6
QB64 Discussion / Re: Problem with image in upcoming v1.5 (dev build)
« on: December 18, 2020, 05:01:37 pm »
The same problem. The picture ist in the folder "Bilder". In Version 1.4 no problems.

Code: QB64: [Select]
  1. 'Uebungen Bild laden
  2.  
  4.  
  5. DIM NeuesFenster AS LONG, Bild AS LONG
  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. 'Bild laden
  18. Bild = _LOADIMAGE("Bilder\Marilyn-1956.jpg", 32)
  19. _DEST NeuesFenster
  20. '_PUTIMAGE (0, 0)-(320, 200), NeuesFenster, 0, (0, 0)-(320, 200)
  21. _PUTIMAGE (0, 0), Bild
  22.  
  24.  

7
QB64 Discussion / Re: Problem with image in upcoming v1.5 (dev build)
« on: December 18, 2020, 04:54:22 pm »
File and picture are in the same folder.

Code: QB64: [Select]
  1. 'Uebungen Bild laden
  2.  
  4.  
  5. DIM NeuesFenster AS LONG, Bild AS LONG
  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. 'Bild laden
  18. Bild = _LOADIMAGE("Marilyn.jpg", 32)
  19. _DEST NeuesFenster
  20. '_PUTIMAGE (0, 0)-(320, 200), NeuesFenster, 0, (0, 0)-(320, 200)
  21. _PUTIMAGE (0, 0), Bild
  22.  
  24.  

  [ You are not allowed to view this attachment ]  

  [ You are not allowed to view this attachment ]  

8
QB64 Discussion / Problem with image in upcoming v1.5 (dev build)
« on: December 18, 2020, 02:03:59 pm »
It looks like version 1.5 has a problem with images. The picture will probably not be found. There are no problems with version 1.4.

  [ You are not allowed to view this attachment ]  

9
QB64 Discussion / Re: You learn something new every decade...
« on: December 17, 2020, 08:37:52 pm »
Quote from: Pete on December 17, 2020, 07:45:15 pm
F YouTube and the Progressive a-holes who ruin it.

Pete
A f. . . .

https://www.youtube.com/watch?v=0qanF-91aJo

10
QB64 Discussion / Re: You learn something new every decade...
« on: December 17, 2020, 07:40:25 pm »
https://www.youtube.com/watch?v=NCwzCQcjC0M

11
Programs / Re: Opengl a text without BMP or vectors
« on: December 17, 2020, 06:15:55 pm »
TempoDiBasic - Well, in Linux. I had SuSE Linux on my computer for fourteen years, from 4.3 to 11.2 - but DOS / Windows was always my main system. Linux was a hobby.
So I'm not surprised that QB64 runs differently on Linux than it does on Windows.

12
QB64 Discussion / Re: I have loose a point in Opengl, please help me!
« on: December 17, 2020, 06:03:15 pm »
TempoDiBasic, You are welcome. That would be good for development of course.

13
QB64 Discussion / Re: I have loose a point in Opengl, please help me!
« on: December 17, 2020, 10:49:49 am »
Result see there:

https://www.qb64.org/forum/index.php?topic=3254.msg125337#msg125337

14
Programs / Re: Opengl a text without BMP or vectors
« on: December 17, 2020, 08:12:01 am »
For me it looks like this:

 
DemoTextInOpenGL-Normal.jpg


 
DemoTextInOpenGL-GL.jpg

15
QB64 Discussion / Re: I have loose a point in Opengl, please help me!
« on: December 16, 2020, 08:49:45 am »
"glPointSize = 1":
In OpenGL mode, only 4 points are displayed on the first screen and only 2 points on the second.

With "glPointSize = 3" all eight points are there.

  [ You are not allowed to view this attachment ]  

  [ You are not allowed to view this attachment ]  

Pages: [1] 2 3 ... 7