| Welcome, Guest |
You have to register before you can post on our site.
|
| Online Users |
There are currently 105 online users. » 1 Member(s) | 101 Guest(s) Baidu, Bing, Google, WarrenFeems
|
| Latest Threads |
ListView issues by use LD...
Forum: Extensions
Last Post: martmen
06-11-2026, 09:46 AM
» Replies: 6
» Views: 236
|
I think that no more Smal...
Forum: Discussion
Last Post: eddylo
04-24-2026, 12:54 AM
» Replies: 2
» Views: 398
|
D'ont read a file
Forum: Standard Small Basic
Last Post: WhTurner
04-12-2026, 03:39 PM
» Replies: 1
» Views: 132
|
close a file
Forum: Standard Small Basic
Last Post: francesco
04-12-2026, 08:59 AM
» Replies: 2
» Views: 211
|
random in a array
Forum: Standard Small Basic
Last Post: francesco
04-05-2026, 06:40 PM
» Replies: 4
» Views: 393
|
Sqlite Version
Forum: Extensions
Last Post: Lester
03-24-2026, 06:58 PM
» Replies: 3
» Views: 323
|
Small Basic Explorer with...
Forum: Challenges
Last Post: martmen
03-17-2026, 03:48 PM
» Replies: 0
» Views: 159
|
Example Program
Forum: Extensions
Last Post: martmen
03-13-2026, 04:15 PM
» Replies: 0
» Views: 164
|
BASIC Jam 7 is in progres...
Forum: Discussion
Last Post: eddylo
03-11-2026, 12:40 AM
» Replies: 3
» Views: 439
|
LitDev extension
Forum: Extensions
Last Post: martmen
02-24-2026, 07:20 AM
» Replies: 2
» Views: 374
|
|
|
| LDCommPort |
|
Posted by: Eddie - 07-13-2025, 05:56 AM - Forum: Extensions
- Replies (8)
|
 |
Hallo zusammen, ich versuche gerade, mit SB eine Steuerung für meine Modelleisenbahn zu schreiben. Dabei bin ich auf ein Problem gestoßen, das ich nicht lösen kann. Ich habe folgenden Code zur Steuerung der Lokomotiven erstellt.
lokAdresseTB = Controls.AddTextBox(20,930)
Controls.SetTextBoxText(lokAdresseTB, "3")
lokSlider = LDControls.AddSlider(150.930.200)
LDControls.SetSliderRange(lokSlider,0,126)
LDControls.SetSliderValue(lokSlider,0)
LokVorBTN = Controls.AddButton("▶️ Vorwärts",380,930)
LokZurBTN = Controls.AddButton("◀️ Rückwärts",450,930)
LokStopBTN = Controls.AddButton("⏹️ Halt",520,930)
Sub-LokSteuerung
adresse = Controls.GetTextBoxText(lokAdresseTB)
geschw = LDControls.GetSliderValue(lokSlider)
Wenn Controls.LastClickedButton = LokVorBTN, dann
LDCommPort.TXString("<t " + adresse + geschw +"1 ">")
EndIf
Wenn Controls.LastClickedButton = LokZurBTN, dann
LDCommPort.TXString("<t " + adresse + geschw + "0 ">")
EndIf
Wenn Controls.LastClickedButton = LokStopBTN, dann
LDCommPort.TXString("<t " + adresse + " 1 0>")
EndIf
EndSub
Das Problem liegt in dieser Zeile: LDCommPort.TXString("<t " + address + speed +"1 ">"). Hier behauptet SB, ich hätte drei Argumente angegeben, obwohl nur eines benötigt wird. Hat jemand eine Idee, wie man das anders schreiben könnte?
Der Befehl, der an die DCC-EX-Zentrale gesendet werden muss, sieht folgendermaßen aus: <t 3 50 1> Das t steht für die anzusprechende Lokomotive; die 3 ist die DCC-Adresse, die 50 die Geschwindigkeit und die 1 die Richtung.
Viele Grüße, Eddie
|
|
|
| Diving into Z-S's SB.js web program |
|
Posted by: sm4llprogrammer2008 - 06-25-2025, 01:48 PM - Forum: Standard Small Basic
- Replies (2)
|
 |
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 |
|
Posted by: sm4llprogrammer2008 - 06-24-2025, 07:02 PM - Forum: Standard Small Basic
- Replies (2)
|
 |
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 |
|
Posted by: sm4llprogrammer2008 - 06-23-2025, 09:47 PM - Forum: Standard Small Basic
- No Replies
|
 |
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!
|
|
|
| LDGraphicsWindow.TransparentGW() only one |
|
Posted by: martmen - 06-11-2025, 11:54 AM - Forum: Extensions
- Replies (2)
|
 |
Hello LitDev,
In the BJTN694.000 program, I am trying to create four windows. Windows 1–3 using LDGraphicsWindow.TransparentGW(), and the fourth window with LDWindows.Create().
However, only the first and last windows are being generated. Can LDGraphicsWindow.TransparentGW() only create one window at a time?
Is there anything you can change about this?
Best regards,
Martin
|
|
|
| Replace Small Basic? |
|
Posted by: z-s - 06-09-2025, 02:22 AM - Forum: Discussion
- Replies (12)
|
 |
After all discussion I think i should create SharpBasic basic version of CSharp with small basic syntax and library but much more stuff.
So I set this my current goal but I need help of you people on this forum for every step.
So first should we create it on .Net core (8,9,10) or .net framework 4.8
EDIT BY litdev
Split from https://litdev.uk/mybb/showthread.php?ti...16#pid2316 since this is a big new topic
|
|
|
|