Welcome, Guest |
You have to register before you can post on our site.
|
Online Users |
There are currently 17 online users. » 0 Member(s) | 15 Guest(s) Applebot, Bing
|
Latest Threads |
Welcome
Forum: Standard Small Basic
Last Post: z-s
05-06-2025, 10:34 AM
» Replies: 18
» Views: 3,350
|
How I discovered Small Ba...
Forum: Discussion
Last Post: martmen
05-06-2025, 03:55 AM
» Replies: 1
» Views: 32
|
Announcing RebornDOS.sb
Forum: Standard Small Basic
Last Post: martmen
05-06-2025, 03:52 AM
» Replies: 1
» Views: 28
|
Oh my gosh!!
Forum: Standard Small Basic
Last Post: martmen
05-05-2025, 02:42 PM
» Replies: 1
» Views: 62
|
Twin Basic
Forum: Discussion
Last Post: Lester
05-04-2025, 07:18 PM
» Replies: 0
» Views: 36
|
LDProcess und Datenbankpr...
Forum: Extensions
Last Post: martmen
05-04-2025, 07:56 AM
» Replies: 1
» Views: 68
|
Zahl ins deutsche Format ...
Forum: Extensions
Last Post: AbsoluteBeginner
05-04-2025, 07:34 AM
» Replies: 3
» Views: 76
|
wieso ist es in der deuts...
Forum: Standard Small Basic
Last Post: martmen
05-04-2025, 07:29 AM
» Replies: 2
» Views: 50
|
Fun fact
Forum: Discussion
Last Post: sm4llprogrammer2008
05-02-2025, 07:58 PM
» Replies: 0
» Views: 26
|
A question. (sorry if too...
Forum: Discussion
Last Post: sm4llprogrammer2008
05-02-2025, 07:40 PM
» Replies: 4
» Views: 75
|
|
|
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!
|
|
|
|