Navigation

• Main Page

• Random Page
• Create a new Page
• All Pages
• Categories

• Administration
• File Management

• Language Selection

FremyCompany's extension

What does this extension provides

Better Shapes and Controls management

Full interop with .NET FrameWork

New SmallBasic functions

Support for XML

And much more !

How to use it ?

1. Getting the DLL

2. Adding the DLL as plugin for Small Basic

3. Opening Small Basic

Samples

' Init variables
Timer = ""

' Init Window
GraphicsWindow.Show()
GraphicsWindow.BackgroundColor = GraphicsWindow.GetColorFromRGB(240,240,240)
Controls.LoadTheme("Vista")

' Create animation
MyImage = Controls.AddImage("AppIcon.png")
ButtonClick()

' Create button
MyButton = Controls.AddButton(150, 22, "Start/Stop")
Controls.Move(MyButton, 5, 150)
Controls.RegisterMouseUpEvent(MyButton, "ButtonClick")

' Create textbox
MyTextBox = Controls.AddTextBox(175, 22, "")
Controls.Move(MyTextBox, 165, 150)
Controls.SetText(MyTextBox, "Some text")
Controls.RegisterEvent(MyTextBox, "TextChangedEvent", "OnTextChange")

' Create checkbox
MyCheckBox = Controls.AddCheckBox("Cliquez ici !")
Controls.Move(MyCheckBox, 350, 155)
Controls.SetChecked(MyCheckBox, "True")

' Subs
CurrentMyImageRotation = 0
To150 = "False"
Sub RotateMyImage
  CurrentMyImageRotation = CurrentMyImageRotation + 1
  If CurrentMyImageRotation = 360 Then
    CurrentMyImageRotation = 0
    If To150 = "False" Then
      To150 = "True"
      Controls.MoveAsAnimation(MyImage, 0, 0, 1080)
    Else
      To150 = "False"
      Controls.MoveAsAnimation(MyImage, GraphicsWindow.Width-125, 0, 1080)
    EndIf
  EndIf
  Controls.SetRotationAngle(MyImage, CurrentMyImageRotation)
EndSub

Sub ButtonClick
  If Timer = "" Then
    Timer = SmallBasic.SetInterval("RotateMyImage", 3, -1)
    GraphicsWindow.AnimateShape(MyImage, GraphicsWindow.Width-125, 0, 1080)
  Else
    SmallBasic.AsyncStop(Timer)
    Timer = ""    
  EndIf
EndSub

Sub OnTextChange
  GraphicsWindow.ShowMessage(Controls.GetText(MyTextBox),"Text")
EndSub

TextWindow.WriteLine("Test du système XML")

Quote = Text.GetCharacter(34)
Doc = Xml.LoadXMLFile("Data.XML")
TextWindow.WriteLine("")

' First test
Bag2 = Xml.GetNode(Doc, "//bag[2]")
TextWindow.WriteLine("The element : " + Bag2)
TextWindow.WriteLine("Content of the element : " + Xml.GetOuterXML(Bag2))
TextWindow.WriteLine("")

' Second test
ItemE = Xml.GetNode(Bag2, "./item[@name="+Quote+"e"+Quote+"]")
TextWindow.WriteLine("The element : " + ItemE)

Name = Xml.GetNodeValue(Xml.GetNode(ItemE, "@name"))
TextWindow.WriteLine("Name of the element : " + Quote + Name + Quote)

TextWindow.WriteLine("")

Args[0] = "Bonjour "
Builder = Interop.CreateObject("System.Text.StringBuilder",Args)
ClearArgs()

Args[0] = "Objet StringBuilder créé !"
Args[1] = "My TestApp for Interop"
Interop.CallSharedSub("System.Windows.Forms.MessageBox", "Show", Args)
ClearArgs()

TextWindow.Write("Entrez votre nom ici : ")

Args[0] = TextWindow.Read()
Interop.CallSub(Builder, "Append", Args)
ClearArgs()

Args[0] = "L'objet StringBuilder semble avoir fonctionné correctement"
Args[1] = "My TestApp for Interop"
Interop.CallSharedSub("System.Windows.Forms.MessageBox", "Show", Args)
ClearArgs()

TextWindow.WriteLine(Interop.ToString(Builder))

Sub ClearArgs
  Args = ""
EndSub

GraphicsWindow.Show()
GraphicsWindow.BackgroundColor = "#FFEEDD"

' Closed curve points
Arr1[0]["X"] = 10
Arr1[0]["Y"] = 10
Arr1[1]["X"] = 10
Arr1[1]["Y"] = 40
Arr1[2]["X"] = 40
Arr1[2]["Y"] = 40
Arr1[3]["X"] = 40
Arr1[3]["Y"] = 10

' Normal curve points
Arr2 = Arr1
Arr2[4]["X"] = 10
Arr2[4]["Y"] = 10

' Create the graphics
MyCurve = Drawings.CreateEmpyGraphics(50,50)
MyPicture = Drawings.CreateEmpyGraphics(50,50)

' Draw the curves
Drawings.DrawCurve(MyCurve, "Blue", 3, Arr2)
Drawings.DrawClosedCurve(MyPicture, "Red", 3, Arr1)

' Generate the images to use in the Graphics Window
MyCurve = Drawings.GenerateImage(MyCurve)
MyPicture = Drawings.GenerateImage(MyPicture)

Shapes.Move(Shapes.AddImage(MyPicture), 50, 0)
Shapes.Move(Shapes.AddImage(MyCurve), 0, 0)

GraphicsWindow.ShowMessage("THE END!",":)")

GraphicsWindow.Show()

G  = Drawings.CreateGraphics("AppIcon.png")

Drawings.DrawLine(g, "Red", 5, -10,-10,50,50)

Pts[0]["X"] = (5)
Pts[0]["Y"] = (5)
Pts[1]["X"] = (25)
Pts[1]["Y"] = (10)
Pts[2]["X"] = (45)
Pts[2]["Y"] = (40)
Drawings.DrawCurve(g, "Green", 3, Pts)

Drawings.DrawEllipse(g, "Blue", 3, 5, 5, 60, 75)

Drawings.DrawRectangle(G, "Yellow", 3, 40, 40, 20, 20)

I = Drawings.GeneratePartialImage(g, 5, 5, 60, 75)
Drawings.ReleaseGraphics(g)
GraphicsWindow.Title = I
Controls.AddImage(I)


G = Drawings.CreateGraphics(I)
Drawings.SaveGraphicsToFile(G, "Result.png")
Drawings.ReleaseGraphics(g)