aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-04-30 12:34:36 -04:00
parent 4bb20c9b71
commit cbaf4c4b64
12390 changed files with 318560 additions and 27248 deletions
Download patch file Download diff file Expand all files Collapse all files

22
Task/Simple-windowed-application/Microsoft-Small-Basic/simple-windowed-application.basic Normal file
View file

@ -0,0 +1,22 @@
GraphicsWindow.Width = 180
GraphicsWindow.Height = 80
' Make it look like a native Windows application
GraphicsWindow.BackgroundColor = "#F0F0F0"
GraphicsWindow.BrushColor = "#000000"
GraphicsWindow.FontName = "Segoe UI"
GraphicsWindow.FontBold = 0
GraphicsWindow.DrawText(10, 10, "There have been no clicks yet")
Controls.AddButton("click me", 65, 40)
Controls.ButtonClicked = CountClick
Sub CountClick
clicks = clicks + 1
GraphicsWindow.Clear()
If clicks = 1 Then
GraphicsWindow.DrawText(10, 10, "There has been 1 click")
Else
GraphicsWindow.DrawText(10, 10, "There have been " + clicks + " clicks")
EndIf
Controls.AddButton("click me", 65, 40)
EndSub