Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Kernelpanic on May 17, 2021, 06:52:34 pm

Title: Text line break in QB64
Post by: Kernelpanic 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.  
Title: Re: Text line break in QB64
Post by: Richard Frost on May 18, 2021, 01:16:49 am
Break up the long text manually so it'll fit on the screen or:

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.  
  11. Dim t$
  12. Dim Text As String, Text2 As String, Text3 As String
  14. Dim quadratflaeche As Double, seitenlaenge As Double
  15.  
  16. 'Ausgabefenster bestimmen
  17. Screen _NewImage(800, 600, 32)
  18.  
  19. Locate (CsrLin + 2), Pos(10)
  20. Print "Berechnet die Seitenlaenge eines Quadrats"
  21. Print "========================================="
  23. Input "Flaeche des Quadrats in qm: ", quadratflaeche
  24.  
  25. 'Seitenlaenge = Quadratwurzel des Flaecheninhaltes
  26. seitenlaenge = Sqr(quadratflaeche)
  27.  
  29. Print Using "Die Seitenlaenge eines Quadrat von ###.## qm betraegt: ##.### Meter"; quadratflaeche, seitenlaenge
  30.  
  31. 'Neue Farbe fuer Ausgabe der Quadrate
  32. Color _RGB32(0, 191, 255), _RGB(0, 0, 0)
  33.  
  34. '2 Quadrate neben einander. Die X-Koordinate legt den Abstand
  35. 'vom linken Rand fest, Y die Flaeche. Daher ist die
  36. 'For-Schleife fuer Y in beiden Schleifen gleich.
  37. For x = 50 To 150
  38.     For y = 150 To 250
  39.         PSet (x, y)
  40.     Next
  42.  
  43. For x = 350 To 450
  44.     For y = 150 To 250
  45.         PSet (x, y)
  46.     Next
  48.  
  49. Text = "---------------------------------------"
  50. 'Zeile, Spalte (Row, Column)
  51. _PrintString (86, 191), Text
  52.  
  53. 'Die Zahl in einen String umwandeln, und die Anzahl der Nachkommastellen festlegen
  54. 'Das bedeutet bei einem Double-Wert, keine Ausgabe wie: xy.12345678
  55. Text = Str$(seitenlaenge)
  56. _PrintString (196, 191), Left$(Text, 6)
  57.  
  58. Text2 = "Meter"
  59. _PrintString (256, 191), Text2
  60.  
  61. 'Farbe der Ausgabe festlegen - hier Standard
  62. Color _RGB32(255), _RGB(0, 0, 0)
  63.  
  64. Text3 = "Die Anordnung der Politik fuer 30 Quadratmeter pro Kunde in einem Geschaeft zeigt, " + _
  65. "dass dies ohne Sinn und Verstand erfolgte. Durch dies Anordnung wird naemlich der Abstand pro " + _
  66. "Person von 1,5 Meter auf ueber 5 Meter erweitert. "
  67. '_PrintString (10, 290), Text3
  68.  
  69. p = 1
  70. x = 10
  71. y = 290
  73.     p = InStr(Text3, " ")
  74.     If p = 0 Then Exit Do
  75.     t$ = Left$(Text3, p)
  76.     Text3 = Right$(Text3, Len(Text3) - p)
  77.     If x + _PrintWidth(t$) > (_Width - 20) Then
  78.         x = 10
  79.         y = y + _FontHeight + 2
  80.     End If
  81.     _PrintString (x, y), t$
  82.     x = x + _PrintWidth(t$)
  84.  
  86.  
Title: Re: Text line break in QB64
Post by: Kernelpanic 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.
Text Only | Text with Attachments