Small Basic Forum - Standard Small Basic

D'ont read a file

Sun, 12 Apr 2026 09:11:07 +0000

In the following code there is a problem, it does not read the file for me.

Code:
Sub frasi_puoi_passare

max1a = 0

min1a = 1

numero_estratto1a = 0

' Chiedi il percorso del file

filePath1a = Program.Directory +  "/testidescrittivi/fileyes1.txt"

  ' Legge tutto il contenuto del file

  contenuto1a = File.ReadContents(filePath1a)

for i1a=1 to 999 ' ' if there are not more then 999 lines in the file

contenuto1a[i1a]=File.ReadLine(filepath1a,i1a)

if contenuto1a[i1a]="" then

i1a=1000

else

lunghezza1a=i1a 

endif

endfor 

  GraphicsWindow.ShowMessage(contenuto1a,"Contenuto") 

' Calcoliamo la lunghezza della lista

'lunghezza = Array.GetItemCount(contenuto) ' mi da' lunghezza = 0 ERRORE

GraphicsWindow.ShowMessage(lunghezza1a,"LUNGHEZZA")

numeroCasuale1a = Math.GetRandomNumber(lunghezza1a - min1a) + (min1a - 1)

' Generiamo un indice casuale tra 1 e lunghezza

' Estraiamo l'elemento corrispondente

elementoCasuale1a = contenuto1a[numerocasuale1a]

' Mostriamo il risultato

GraphicsWindow.ShowMessage("Elemento estratto: " + elementoCasuale1a, "elemento") 

EndSub 

file:

Puoi passare,

Vai avanti,

Prosegui,

Non ti fermare

close a file

Tue, 07 Apr 2026 22:01:47 +0000

closing a txt file in small basic, I found a link that said it wasn't necessary, but instead if I try to run the program 2 times it gives me an error, because the file is already in use by another task

random in a array

Fri, 27 Mar 2026 19:02:42 +0000

the line of code

lunghezza = Array.GetItemCount(contenuto) ' mi da' lunghezza = 0 ERRORE

give me a lunghezza equal zero = 0

Sudoku Solver Published No.:XZXJ94.000

Sat, 30 Aug 2025 06:06:21 +0000

Hello, I am 'The Old Guy'. I am not new to Small Basic and I am definitely not a guru.
I have a liking for Sudoku and was searching the net for a listing in Small basic to solve Sudoku using a backtracking algorithm.
Having not found one I decided to compile my own.
I am aware there are a lot of solvers available to not require another adaptation to get the job done but once my curiosity was
aroused the bee in my bonnet would let me put it down.
If the members of this forum are also curious enough to take an interest, I would be happy to take comment or criticism.
Thank you.

Question about a program

Thu, 17 Jul 2025 16:32:56 +0000

Hallo, ich habe ein Programm unter der QCBN-Nummer 365.000 veröffentlicht. Das Programm soll zur Steuerung meiner Modellbahn dienen. Beim Start öffnet sich ein grafisches Fenster mit Schaltflächen und einem Gleisplan mit Linien. Alles funktioniert. Klickt man auf die grünen Kreise, bewegt sich eine Linie, die eine Weiche darstellen soll. Nun zum Problem: Stellt man die Weiche per Mausklick, ist alles in Ordnung. Der Befehl wird an die DCC-EX-Zentrale gesendet und die Weiche auf der Anlage schaltet ebenfalls. Drückt man die Schaltfläche Fahrstraße A, werden die Befehle auch korrekt gesendet. Was jedoch nicht schaltet, sind die Weichen in meinem Gleisplan. Meine Idee war, das Textfeld tb1 auszulesen. Dort wird die Rückmeldung der Zentrale angezeigt. Leider ist mir das bisher nicht gelungen. Hat jemand eine Idee?

I finished making my web-based recreation of Small Basic for the web

Fri, 04 Jul 2025 17:04:44 +0000

And honestly, it feels like Small Basic Online but you can use it anywhere!
It'll release soon.

Diving into Z-S's SB.js web program

Wed, 25 Jun 2025 13:48:59 +0000

Z-S shared me a project while I started to create SBJS, and I think it's fast enough, very well engineered.
First I tried this:

Code:
textwindow.writeline("hello, world!");

It probably made sense to include a semicolon, because it maybe was just custom JS objects + classes running with eval() on the background.
Then went on to test some classic SB syntax:

Code:
for i=1 to 5

textwindow.write("Hello, world! ");

endfor

Surprisingly, it worked.
Then tested this:

Code:
uinput = textwindow.read();

textwindow.writeline(uinput);

Also it used the browser's native input box dialog instead of a text cursor within the console.
Then tested JS multiline notes:

Code:
/* Multiline notes

on SB.js */

It was ignored. Didn't throw any errors.
It probably supported my belief of custom JS objects + classes on the background running with eval(). Z-S is truly a web mastermind, and I appreciate that.
Anyway you can try Z-S's SB.js at https://www.zs.rf.gd/SBJS/

SBJS coming soon

Tue, 24 Jun 2025 19:02:41 +0000

I've decided to port Small Basic to JS... Literally.
I've decided to make the SB implementation of JS also more web-friendly, and also C#-like (i.e TextWindow => Console)
Imagine making websites on SB, like the old Silverlight Small Basic Player days and SBO but web-wide.

Google Search Terminal SB Edition v2.0_01

Tue, 24 Jun 2025 13:27:39 +0000

Hotfix for one of my longest programs ever.
Still requires SB 1.2 + LD and ZS extensions.
The fix is located on the info of the 'mnu' / ShowMenu() / Menu() invocations, where semicolons were added for added clarity (inside some help info strings not to separate SB statements).
ID: MSNS590.000
Listing: https://smallbasic.com/program/?MSNS590.000
Code is too long.

Google Search Terminal SB Edition v2.0

Tue, 24 Jun 2025 00:11:16 +0000

(NOT sVB)
Finally out!
This adds a lotta features!
Requires LD + ZS extensions. (SB 1.2 only)
ID: PXCR310.000
Listing: https://smallbasic.com/program/?PXCR310.000
Code is too long.

Google Search Terminal SB Edition

Mon, 23 Jun 2025 21:47:30 +0000

And I've been making it today.
It actually launches a search (via LDProcess) and also parses the query, but doesn't URL encode it.
More features might come soon (GST: SBE v2!)
ID: CVJT898.000
Program listing: https://smallbasic.com/program/?CVJT898.000

Code:
Sub PauseNoMsg

  TextWindow.WriteLine("PRESS ANY KEY TO CONTINUE ... ")

  TextWindow.PauseWithoutMessage()

EndSub

Sub SetToDefaultColor

  TextWindow.ForegroundColor = DefaultColor

EndSub

Sub Logo

  TextWindow.ForegroundColor = "Blue"

  TextWindow.Write("G")

  TextWindow.ForegroundColor = "Green"

  TextWindow.Write("O")

  TextWindow.ForegroundColor = "Red"

  TextWindow.Write("O")

  TextWindow.ForegroundColor = "Yellow"

  TextWindow.Write("G")

  TextWindow.ForegroundColor = "Blue"

  TextWindow.Write("L")

  TextWindow.ForegroundColor = "Green"

  TextWindow.Write("E")

  TextWindow.ForegroundColor = "Red"

  TextWindow.Write("!")

  SetToDefaultColor()

EndSub

Sub Search

  TextWindow.WriteLine("")

  TextWindow.Write("What'd you like to search?")

  getsearch = TextWindow.Read()

  parsedsearch = LDText.Replace(getsearch," ","+")

  LDProcess.Start("https://google.com/search?hl=en-us&udm=14&q="+parsedsearch,"")

  Search()

EndSub

TextWindow.Title = "DOSBox (MS-DOS)"

DefaultColor = TextWindow.ForegroundColor

TextWindow.Write("C:\DOS\NET\TOOLS\GOOGLE>")

totype[1] = "g"

totype[2] = "o"

totype[3] = "o"

totype[4] = "g"

totype[5] = "l"

totype[6] = "e"

totype[7] = "."

totype[8] = "c"

totype[9] = "o"

totype[10] = "m"

For i=1 To Array.GetItemCount(totype)

  TextWindow.Write(totype[i])

  Program.Delay(70)

EndFor

TextWindow.WriteLine("")

TextWindow.Title = "Google Terminal 8981"

TextWindow.ForegroundColor = "Yellow"

TextWindow.Write("WARNING: ")

TextWindow.ForegroundColor = DefaultColor

TextWindow.Write("It is recommended to run this simulation with a really fitting typeface style! Right-click the title bar, click 'Properties', go to 'Font' and scroll until you find 'Raster Fonts', then select it, then select 7x12 on the 'Size' section and click 'OK' (works best on Win10/11, might work on 8/8.1 or 7 though)")

TextWindow.WriteLine("")

PauseNoMsg()

TextWindow.WriteLine("")

TextWindow.Write("Google is starting")

For i=1 To 10

  TextWindow.Write(".")

  Program.Delay(100)

EndFor

TextWindow.WriteLine("")

For i=1 To 6

  TextWindow.WriteLine("")

EndFor

Logo()

TextWindow.WriteLine("")

Search()

PauseNoMsg()

It all started when I realized SB's conhost instance's typeface could be tweaked to feel more like DOS.
In Win10/11, first you'd Win+R, then type 'conhost', then right-click the titlebar, then click 'Properties', then go to 'Font', then scroll 3 times (w/ a mouse) until you find "Raster Fonts", then click it, and then select 7x12 from the 'Size' list, then click 'OK'.
I'm playing around with this typeface, it feels like Windows 7 when WT did not exist and console host was king!

WV2.sb (Small Basic for WebView2) Beta

Sat, 07 Jun 2025 14:58:36 +0000

Coming soon, I'll just compile it & test IntelliSense.
Soon GitHub (making account)

Small Basic super slow ??

Wed, 04 Jun 2025 20:39:41 +0000

Hello everybody,

I found this QBASIC program on Facebook :

DIM SHARED pi, r, t, u, v, x
DIM i AS INTEGER, j AS INTEGER
DIM px AS INTEGER, py AS INTEGER
DIM rr AS INTEGER, gg AS INTEGER, bb AS INTEGER
SCREEN 12
RANDOMIZE TIMER
pi = 4 * ATN(1)
r = 2 * pi / 235
t = 4 * RND
x = 0: u = 0: v = 0
CLS
FOR i = 0 TO 249
FOR j = 0 TO 249
u = SIN(i + v) + SIN(r * i + x)
v = COS(i + v) + COS(r * i + x)
x = u + t
px = INT(320 + 108 * u)
py = INT(240 + 108 * v)
IF px >= 0 AND px < 640 AND py >= 0 AND py < 480 THEN
rr = (i * 3) MOD 256
gg = (j * 3) MOD 256
bb = (255 - (i + j) \ 2) MOD 256
LINE (px, py)-(px + 1, py + 1), _RGB(rr, gg, bb), BF
END IF
NEXT j
NEXT i
SLEEP

I tried it on https://qbjs.org/ and as it was nice I converted it to Small Basic (PSGZ709.000) to compare the performances.
The difference is incredible : 6 seconds on SB and less than a second on QBJS.

Somebone has an explanation ? is my convertion bad ? is there a way to get better performances ? Would Svb be faster ?

SB is actually open-source!

Mon, 02 Jun 2025 21:07:04 +0000

I found the SB dev team's official GitHub profile:
https://github.com/sb

Few questions

Tue, 13 May 2025 22:21:29 +0000

1. Can we share our own extensions in the "Extensions" thread?
2. Can we share pre-compiled binaries of our SB programs?
3. Can we share OneDrive links to zipped SB projects incase they need more files to depend on?
4. Will there be a "Porting to Small Basic" thread? Because I'm doing an effort to find a way to port JavaScript to Small Basic and vice-versa.
5. Can we have a "Small Basic HTTP Testing" thread? I'm testing HTTP communications between Small Basic and a Python http.server.