Since QB64pe has declared full functional QB45 compatible I have posted this snippet:

The QB45 contains Width with Device$

How do I (or can I) nominate a colour for the string in this code?

Welcome THE Bob!  Just saw your name as our latest member joined.  Welcome home!!  

i had a need of a routine to do the opposite of INSTR( in which I wanted to find the last appearance of a search field in the target string. So I wrote the following functions:

1. '  Reverse instr: finds last position of search in target
   Function Rinstr& (Target As String, Search As String)
   
2. ' Case insensitive search
   Function Iinstr& (start As Long, Target As String, Search As String)
   
3. ' Case insensitive reverse seaarch
   Function RIinstr& (Target As String, Search As String)
   

Attached Files

  rinstr.bas (Size: 1.95 KB / Downloads: 46)

If anyone wants to play with the code for the early adventure game Akalabeth by Richard Garriott & learn how to make a dungeons and dragons style role playing game (or customize it), I cleaned up the spaghetti code somewhat 

• broke up all multi-statement lines
  
• all IF statements have a matching END IF
  
• got rid of line numbers, any GOTO / GOSUB destinations instead use a friendly label
  

Attached Files

  akala22.bas (Size: 102.68 KB / Downloads: 24)

Ever consider adding _SAVE and _SAVEAS? I was thinking today (shut up Steve) that since someone changed the IDE save function to a more Windows type look, it might be fairly easy to code these nice features and add them to our keywords, much like the _InputBox feature.

I figure as long as we never lose our BASIC buildings blocks, to be able to build these functions from scratch, additions like this can't hurt the language and they might make the language more attractive to new users.

Oh, and as a side note, did you folks know the IDE cannot correctly save a program with certain control characters enclosed in quotes? Easy enough to work around that by making the string as CHR(0) + CHR$(1)... etc. Anyway, just thought I'd bring it up in case anyone has the time to look into it, after you're done poking fun at Steve's code while on Discord.

Pete

I have written a program that reads the coastline coordinates of the continents and prints custom perspectives. I've been using SCREEN 12, which is 320x240 pixels:

https://emf.neocities.org/tmp/WestCiv.png

I would like to make the screen bigger, but if I use the _FULSCREEN command the image is distortedQ

https://emf.neocities.org/tmp/WestCiv2.png

I could of course change the code so that the full screen is not distorted. But I wonder: Is there a way to  make it as big as possible but preserve the aspect ratio?

And, even better: can I specify the size of a (larger) screen in pixels? I would certainly like to increase the shight of the image to that of my screen and have a better resolution.

Thanks.

This is tiny little fun port of Paul Dunn's (ZXDunny) "Bubble Universe" demo to QB64-PE and InForm-PE.

I threw the port into an InForm project just to see what would happen if I tweaked some of the values during runtime. Well, now I know.




Have fun!

Attached Files

  Bubble-Universe.zip (Size: 202.01 KB / Downloads: 54)

I didn't find anything about arrays of record variables in the wiki. Here is an example of how to create such arrays.
The first representation is specified in the program, the second can be entered yourself.
Hm, is not a programm, so here.

'Recordarrays. Uebergabe von Recordtype an Array - 1. April 2024



$Console:Only



Option _Explicit



Declare Sub Anzeigen(Motorrad As Any)



'Definition der Datenstruktur

Type MotorradModell

  Modell As String * 30

  Farbe As String * 10

  Hubraum As String * 10

  Kilowatt As String * 15

  Fahrgewicht As String * 10

  Preis As String * 12

End Type



'Array. Global zur Verfuegung stellen in diesem

'Fall nicht noetig.

Dim MotFeld(1 To 10) As MotorradModell



'Modell eingeben

MotFeld(1).Modell = "Honda 350 CB"

MotFeld(1).Farbe = "Rot-Weiss"

MotFeld(1).Hubraum = "350 ccm"

MotFeld(1).Kilowatt = "23 Kilowatt"

MotFeld(1).Fahrgewicht = "156 KG"

MotFeld(1).Preis = "2355.00 Euro"



Locate 2, 0

Print "Daten Selbst eingeben:"



Locate 3, 0

Input "Modell    : ", MotFeld(2).Modell

Input "Farbe      : ", MotFeld(2).Farbe

Input "Hubraum    : ", MotFeld(2).Hubraum

Input "Kilowatt  : ", MotFeld(2).Kilowatt

Input "Fahrgewicht: ", MotFeld(2).Fahrgewicht

Input "Preis      : ", MotFeld(2).Preis



Cls 'Eingabe nicht stehen lassen

Locate CsrLin + 1, 0



'Uebergabe des Arrays von Recordvariablen, und anzeigen

Call Anzeigen(MotFeld(1))



'CsrLin ist noetig, da es sonst zu einer

'Ueberschneidung der Ausgabe kommt

Locate CsrLin + 2, 0

Call Anzeigen(MotFeld(2))



End 'Hauptprogramm



Sub Anzeigen (Motorrad As MotorradModell)



  Print Tab(4); "Modell    : ", Motorrad.Modell

  Print Tab(4); "Farbe      : ", Motorrad.Farbe

  Print Tab(4); "Hubraum    : ", Motorrad.Hubraum

  Print Tab(4); "Kilowatt  : ", Motorrad.Kilowatt

  Print Tab(4); "Fahrgewicht: ", Motorrad.Fahrgewicht

  Print Tab(4); "Preis      : ", Motorrad.Preis

End Sub

#1 -- by SMcNeill