Product Summary
Text Box: beWISE .NET ADVANCED

www.edelwise.com

Price: $44.95

If you need more than just a few variables this product may be right for you. It supports over 5,000 variables and LIST objects to manage them. If you want to share a lot of information among applications, but have no need for data streams or serialized data exchange, then this is the right product for you.

Text Box: Features
allows 5,120 SHARED variables
STRING, INTEGER and DOUBLE
provides CHANGED events
LISTS for variable  management
Text Box: Supported Platforms
Windows 2000 (SP3 and higher)
Windows XP 
Visual Basic 2005 
Platforms other than the ones mentioned above are currently not supported.
Text Box: Installation Instructions
Before installing this version make sure to uninstall any previous installation of this or any other beWISE product. Use the Control Panel to remove the programs.
To begin with the installation start the beWISEadv.exe file. The program will guide you thru the installation process.
During installation the directory 
 .\Edelwise\ is created under your programs folder. In the English version of Windows this folder is  C:\Program Files\Edelwise\
The VB.NET specific sample code can be found in the directory
.\Edelwise\VB.NET.Samples\
You can immediately compile and run the sample programs.
The product comes with a 14 day trial period. To continue using the product beyond the trial period, please obtain a registration key and register your product. 
Text Box: Documentation
Documentation is included in the installation package. Latest versions may be downloaded using the link below.

Example “Listening”:

This example demonstrates how the LIST object can be used to manipulate larger numbers of variables. One program, called HANS, constantly updates 100 readings (variables that receive random numbers).  At the same time another program, called KARL, listens in, reads these variables and displays their values in a listbox. HANS works under strict supervision from KARL. I.e. the program KARL tells the program HANS when to start and when to stop updating the variables. It does this using the “KARLtoHANS” variable. On the other hand, HANS informs KARL when all 100 variables have been updated by incrementing the “Ready” variable. When KARL receives a ‘Changed’ event for the “Ready” variable, he reads all 100 readings (all variables that start with “Reading”) and displays their values in the listbox. Multiple instances of KARL.exe can be started simultaneously. Each one will be able to listen in, display the readings and give HANS commands. In fact, also other programs could listen in, read the variables and give HANS commands at the same time.

Program HANS:


Dim
Create As New beWISE.Functions 'REQUIRED statement

Dim AllReadings As beWISE.obj_LIST  'list with all readings

Dim UpdateOk As beWISE.var_INTEGER 'values-transfered event

Dim WithEvents KarlSays As beWISE.var_STRING  'commands from KARL

Private Sub Form_Load()

    Dim i As Integer

    Randomize

    KarlSays = Create.New_var_STRING("KARLtoHANS")

    UpdateOk = Create.New_var_INTEGER("Ready")

    UpdateOk.Value = 0

    '--- we create the list object ---

    AllReadings = Create.New_obj_LIST()

    '---- using the LIST object we create 100 vars of type DOUBLE

    '     The vars we create are "Reading00" thru "Reading99" ---

    For i = 0 To 99 Step 1

        AllReadings.Create("Reading" & Format(i, "00"), _
                                beWISE.enum_TYPES.bwDOUBLE, 0.0)

    Next i

End Sub

Private Sub KarlSays_Changed() Handles KarlSays.Changed

    Select Case KarlSays.Value        'commands from KARL

        Case "Start"

            Increment.Enabled = True  'start update

        Case "Stop"

            Increment.Enabled = False 'stop update

    End Select

End Sub

Private Sub Increment_Tick(ByVal sender As System.Object, _
            ByVal
e As System.EventArgs) Handles Increment.Tick

 

    '--- here we update ONLY the vars with name "Reading*"

    '    To do this we set the FILTER to "Reading"  ---

    AllReadings.Filter = "Reading"   'we set the FILTER

    If AllReadings.FindFirst Then    'now we browse all 'Reading*'

        While AllReadings.varIsValid 'check for end of the list

            AllReadings.varValue = Rnd() * 99 'set random value

            AllReadings.FindNext()   'get NEXT var in list

        End While

    End If                           'end of list reached

    UpdateOk.Value += 1        'event for KARL

End Sub

 

Program KARL:


Dim
Create As New beWISE.Functions 'REQUIRED statement

Dim TellHans As beWISE.var_STRING  'commands we give HANS

Dim AllReadings As beWISE.obj_LIST 'list with all readings

Dim WithEvents UpdateOk As beWISE.var_INTEGER 'ready event

Private Sub Form_Load()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, _
                 ByVal
e As System.EventArgs) Handles MyBase.Load

   TellHans = Create.New_var_STRING("KARLtoHANS"'create VAR

   UpdateOk = Create.New_var_INTEGER("Ready") 'create VAR

    '--- create the list object with FILTER = "Reading" ---

   AllReadings = Create.New_obj_LIST("Reading")    'create LIST

End Sub

'HANS tells KARL — ready!

Private Sub UpdateOk_Changed() Handles UpdateOk.Changed

    Dim i, j As Integer

    Dim s As String

    ListBox1.Items.Clear()           'clear listbox

    AllReadings.Filter = "Reading"   'set the FILTER to 'Reading'

    If AllReadings.FindFirst Then    'if there are variables

        For i = 0 To 9 Step 1        'read them 10 by 10

            s = ""                   'one listbox line (10 values)

            For j = 0 To 9 Step 1    'create listbox line

                If AllReadings.varIsValid Then 'check for EOL

                    s = s & Format(AllReadings.varValue, "00.0 ")

                    AllReadings.FindNext  'get NEXT matching var

                End If

            Next j

            ListBox1.Items.Add(s)   'add a line to listbox

        Next i

    End If                          'EOL - all varaibles browsed

End Sub

Private Sub StartReporting_Click(ByVal sender As System.Object, _
         ByVal
e As System.EventArgs) Handles StartReporting.Click

    TellHans.Value = "Start"        'Start button was klicked

End Sub

Private Sub StopReporting_Click(ByVal sender As System.Object, _
         ByVal
e As System.EventArgs) Handles StopReporting.Click

    TellHans.Value = "Stop"         'Stop button was klicked

End Sub

The Essential Resource for Visual Basic Developers