| Welcome, Guest |
You have to register before you can post on our site.
|
| Online Users |
There are currently 212 online users.
» 0 Member(s) | 210 Guest(s)
Bing, Google
|
| Latest Threads |
Challenge 14 - Rainbow
Forum: Challenges
Last Post: tiagomoreira41
10-07-2026, 12:51 AM
» Replies: 6
» Views: 2,028
|
Use second screen by smal...
Forum: Extensions
Last Post: litdev
09-05-2026, 08:11 PM
» Replies: 2
» Views: 251
|
Small Basic as the "LEGO ...
Forum: Discussion
Last Post: litdev
08-17-2026, 11:06 AM
» Replies: 5
» Views: 479
|
I never thought this woul...
Forum: Discussion
Last Post: litdev
07-10-2026, 10:18 AM
» Replies: 1
» Views: 246
|
ListView issues by use LD...
Forum: Extensions
Last Post: martmen
06-11-2026, 09:46 AM
» Replies: 6
» Views: 847
|
I think that no more Smal...
Forum: Discussion
Last Post: eddylo
04-24-2026, 12:54 AM
» Replies: 2
» Views: 805
|
D'ont read a file
Forum: Standard Small Basic
Last Post: WhTurner
04-12-2026, 03:39 PM
» Replies: 1
» Views: 446
|
close a file
Forum: Standard Small Basic
Last Post: francesco
04-12-2026, 08:59 AM
» Replies: 2
» Views: 596
|
random in a array
Forum: Standard Small Basic
Last Post: francesco
04-05-2026, 06:40 PM
» Replies: 4
» Views: 1,001
|
Sqlite Version
Forum: Extensions
Last Post: Lester
03-24-2026, 06:58 PM
» Replies: 3
» Views: 778
|
|
|
How I discovered Small Basic |
|
Posted by: sm4llprogrammer2008 - 05-06-2025, 02:09 AM - Forum: Discussion
- Replies (1)
|
 |
Bored, scrolling through the MS Store, of course checking everything that Microsoft ever published, I found Small Basic 1.3 (UWP), it didn't have extension compatibility, and I thought it was a great start.
Since then I've been more familiar with JScript, Python and PowerShell, I've downloaded SB 1.2's MSI installer and got the extension compatible version, tested out LitDev extension (since it was the first one I came across, the only one that worked from the extensions lib). I felt happy for my first LD program.
All of this began this year (2025), and I'm very proud of finding some welcoming programming lang for me.
QUICK EDIT
By extensions lib I meant the extensions list on MS Learn. (or Tech Community iirc)
|
|
|
| Twin Basic |
|
Posted by: Lester - 05-04-2025, 07:18 PM - Forum: Discussion
- No Replies
|
|
I came across a new Basic language called Twin BASIC. Its in late BETA, and is scheduled for release in early summer. I played with it for an hour or two yesterday and it looks good. According to the website: "twinBASIC is a modern BASIC compiler that aims to be fully compatible with all existing VB6 and VBA code"
Check it out, Lester
|
|
|
|
| Fun fact |
|
Posted by: sm4llprogrammer2008 - 05-02-2025, 07:58 PM - Forum: Discussion
- No Replies
|
|
Windows' built-in VGA typeface/font is Fixedsys, you might find worth it using on your Small Basic GW projects.
|
|
|
|
| Zahl ins deutsche Format umwandeln |
|
Posted by: martmen - 05-02-2025, 03:26 PM - Forum: Extensions
- Replies (3)
|
|
Hallo zusammen,
Das Programm (mit der Erweiterung LitDev) WNWQ963.000 formatiert eine Zahl in das deutsche Format mit Tausendertrennzeichen und Rundung.
Hat jemand einen Vorschlag für eine Verbesserung der Optimierung?
Vielen Dank
Martin
|
|
|
|
| Hey |
|
Posted by: sm4llprogrammer2008 - 04-20-2025, 06:27 PM - Forum: Discussion
- No Replies
|
|
I'm making a website for submitting and sharing SB programs quickly.
It'll be easier to share SB programs there.
Just telling. (if any of you want to use the website)
|
|
|
|
| Small Basic hash retriever |
|
Posted by: sm4llprogrammer2008 - 04-20-2025, 04:09 PM - Forum: Standard Small Basic
- No Replies
|
|
This is for the safety guaranteed for the file integrity kingdom of Windows.
ID: QQNW492.000
Link: https://smallbasic.com/program/?QQNW492.000
Requires: LitDev 1.2.30.0 Beta or higher, Small Basic 1.2 (web download version, 1.3 is UWP and doesn't support libs)
Code: main()
Sub main
TextWindow.Hide()
path = LDDialogs.InputBox("Get a MD5 hash of a file. Use 'dialog' to open a file selection dialog instead.", "Hash Retriever")
If path = "dialog" Then
getFile = LDDialogs.OpenFile("All files (*.*)|*.*", "")
retrievedHash = LDEncryption.MD5HashFile(getFile)
showHash()
Else
retrievedHash = LDEncryption.MD5HashFile(path)
showHash()
EndIf
EndSub
Sub showHash
TextWindow.Hide()
TextWindow.Title = ""
TextWindow.Show()
TextWindow.WriteLine("MD5 Hash: "+retrievedHash)
TextWindow.Write("Retrieve another hash? (Y/N) ")
getYorN = TextWindow.Read()
If getYorN = "y" Then
main()
ElseIf getYorN = "n" Then
Program.End()
EndIf
EndSub
Feel free to expand or to bundle in your own SB apps!
|
|
|
|
| Oh my gosh!! |
|
Posted by: sm4llprogrammer2008 - 04-19-2025, 05:48 PM - Forum: Standard Small Basic
- Replies (1)
|
|
I've made a media player w/ Small Basic!!
Requirements: LitDev 1.2.30.0 Beta and higher
ID: FMBV557.000
Link: https://smallbasic.com/program/?FMBV557.000
Code: Init()
Sub Init
GraphicsWindow.BackgroundColor = "#FF408080"
GraphicsWindow.Title = "Untitled Small Media Player Window"
GraphicsWindow.BrushColor = "Black"
GraphicsWindow.FontName = "MS Gothic"
SlFlBtn = Controls.AddButton("Select File",20,140)
Controls.SetSize(SlFlBtn,101,25)
PlayBtn = Controls.AddButton("Play",20,170)
Controls.SetSize(PlayBtn,101,25)
GraphicsWindow.BrushColor = "#FF000040"
GraphicsWindow.PenColor = "#FF000040"
Overlay = Shapes.AddRectangle(530,290)
Shapes.Move(Overlay,220,100)
GraphicsWindow.BrushColor = "Black"
GraphicsWindow.FontName = "Times New Roman"
GraphicsWindow.FontBold = "False"
NmWnTb = Controls.AddTextBox(20,100)
Controls.SetTextBoxText(NmWnTb,"")
Controls.SetSize(NmWnTb,100,25)
GraphicsWindow.FontName = "MS Gothic"
GraphicsWindow.FontBold = "True"
SubmitBtn = Controls.AddButton("Submit",140,100)
Controls.SetSize(SubmitBtn,51,25)
GraphicsWindow.FontName = "Ubuntu Mono"
GraphicsWindow.FontBold = "False"
LabelNmWn = Shapes.AddText("Name Window:")
Controls.SetSize(LabelNmWn,87,15)
Shapes.Move(LabelNmWn,20,80)
GraphicsWindow.BrushColor = "#FFFFFF80"
GraphicsWindow.FontName = "Segoe UI"
GraphicsWindow.FontBold = "True"
GraphicsWindow.FontSize = 24
Logo = Shapes.AddText("Basic Media Player")
Controls.SetSize(Logo,220,30)
Shapes.Move(Logo,0,0)
GraphicsWindow.FontBold = "False"
GraphicsWindow.BrushColor = "Black"
GraphicsWindow.FontName = "MS Gothic"
GraphicsWindow.FontSize = 12
GraphicsWindow.FontBold = "True"
AboutBtn = Controls.AddButton("About",230,10)
Controls.SetSize(AboutBtn,51,25)
LicenseBtn = Controls.AddButton("Licensing",290,10)
Controls.SetSize(LicenseBtn,71,25)
MediaPlayer = LDControls.AddMediaPlayer(530,290)
Shapes.Move(MediaPlayer,220,100)
PauseBtn = Controls.AddButton("Pause",20,200)
Controls.SetSize(PauseBtn,101,24.5)
LDControls.MediaPlayerEnded = Pause
Controls.ButtonClicked = Onclick
EndSub
Sub Pause
LDControls.MediaPlayerPause(MediaPlayer)
EndSub
Sub Onclick
last = Controls.LastClickedButton
If last = SubmitBtn Then
windowname = Controls.GetTextBoxText(NmWnTb)
GraphicsWindow.Title = windowname
ElseIf last = LicenseBtn Then
GraphicsWindow.ShowMessage("GPLv3", "")
ElseIf last = AboutBtn Then
GraphicsWindow.ShowMessage("You have the right to modify and republish the altered software. Created by sm4llprogrammer2008", "")
ElseIf last = SlFlBtn Then
getfile = LDDialogs.OpenFile("1=png;2=jpg;3=mp3;4=wav;5=mp4","")
ElseIf last = PlayBtn Then
LDControls.MediaPlayerLoad(MediaPlayer, getfile)
LDControls.MediaPlayerPlay(MediaPlayer)
ElseIf last = PauseBtn Then
LDControls.MediaPlayerPause(MediaPlayer)
EndIf
EndSub
Feel free to expand, again!
|
|
|
|
|
