Blog Post

Small Basic Blog
2 MIN READ

Small Basic - GetSettingsFilePath

Ed Price's avatar
Ed Price
Former Employee
Feb 12, 2019
First published on MSDN on Sep 13, 2014 Authored by LitDev There are only 16 keywords and 20 objects in Small Basic, and I've been playing with Sma...
Published Feb 12, 2019
Version 1.0
NonkiTakahashi's avatar
NonkiTakahashi
Iron Contributor
Aug 16, 2020

Code block copied again from the forum thread.

settingsFile = File.GetSettingsFilePath()
scoreInit = 12345

tb = Controls.AddTextBox(10,10)
Controls.SetTextBoxText(tb, scoreInit)

save = Controls.AddButton("Save Score", 200,10)
load = Controls.AddButton("Load Score", 200,40)


Controls.ButtonClicked = OnButtonClick


Sub OnButtonClick
  lastButton = Controls.LastClickedButton
  
  If (lastButton = save) And (Controls.GetTextBoxText(tb) <> "") Then
    score = Controls.GetTextBoxText(tb)
    File.WriteLine(settingsFile,1, score)     ' Save score to file
    Controls.SetTextBoxText(tb, "")
  ElseIf lastButton = load Then
    score = File.ReadLine(settingsFile, 1)   ' Load score from file
    Controls.SetTextBoxText(tb, score)
  EndIf
  
EndSub