SmartBox

ftComputing : Programme für die fischertechnik-Interfaces und -konstruktionskästen
  
ftComputing.de
Home
Back
Sitemap
Index
Links
Impressum
Mail
 

Programming the Economatics SmartBox

SmartBox and SmartBlinker

FishSmartBox.CLS / DLL is a Visual Basic class with basic functions to program the Economatics SmartBox in Visual Basic 6 or VBScript. The layout of the methods of FishSmartBox correponds to that of FishFace (not to them of SmartMove).

A short VBScript Sample :

Set sbx = CreateObject("FishSBox.FishSmartBox")
sbx.OpenInterface 1

MsgBox "model will start"

i = 0
Do
  If i = 8 Then i = 1 Else i = i + 1
  If i = 1 Then j = 8 Else j = i - 1 
  sbx.SetLamp i, sbxOn
  sbx.SetLamp j, sbxOff
  sbx.Pause 111
Loop Until sbx.Finish
sbx.ClearLamps

sbx.CloseInterface
MsgBox "Model has finished"

Just without any additional hardware : The lights of the Digital Outputs are running over the Box Until the Escape Key is pressed.

Here something more complicated written in Visual Basic 6 :

The lights of the tower from top of the page are connected with the Digital Outputs 0 - 3. They are running in different manner, choosen via CombBox. The running speed can be controlled by the slidebar.

An Example :

Private Sub DreierTour(ByVal Frequenz&)

  sbx.SetLamps mL1 + mL2 + mL3
  sbx.Pause Frequenz
  sbx.SetLamps mL2 + mL3 + mL4
  sbx.Pause Frequenz
  sbx.SetLamps mL3 + mL4 + mL1
  sbx.Pause Frequenz
  sbx.SetLamps mL4 + mL1 + mL2
  sbx.Pause Frequenz

End Sub

Always three lights are on, rounding the tower.

A short documentation (in english), the class FishSmartBox (source and as DLL) and the sample programs are contained in SmartBox.ZIP. If you are interested on this software and a mor comfortable version, let it me know.