Product Summary
Text Box: beWISE .NET BASIC

www.edelwise.com

Price: $24.95

Choose this product if you have only a limited need for task-to-task communication. This product allows you to create a maximum of 32 shared beWISE variables. It’s a low-cost entry into the world of Inter-Process Communication.

Text Box: Features
allows 5,120 SHARED variables
STRING, INTEGER and DOUBLE
provides CHANGED events
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 beWISEbas.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 “Discussing”:

This example shows how two programs, HANS and KARL, can have a ‘discussion’. I.e. how the two programs can communicate both ways using two beWISE variables of different type. In the example HANS counts the Edelweiss that he sees in the field and reports them to KARL via the “EdelweissFound” variable. But he does that  under strict supervision from KARL. KARL can give HANS orders via the “KARLtoHANS” variable. KARL can order HANS to start and stop counting the Edelweiss or to count faster or slow down. In fact the program KARL is actually remote-controlling the program HANS.

Program HANS:


Dim
Create As New beWISE.Functions 'REQUIRED statement

Dim MyCounter As beWISE.var_INTEGER 'number we report to KARL

Dim WithEvents KarlSays As beWISE.var_STRING  'commands from KARL

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

    MyCounter = Create.New_var_INTEGER("EdelweissFound")

    KarlSays = Create.New_var_STRING("KARLtoHANS")

End Sub

Private Sub KarlSays_Changed() Handles KarlSays.Changed

    Select Case KarlSays.Value

        Case "Start"

            Increment.Enabled = True

        Case "Stop"

            Increment.Enabled = False

        Case "Faster"

            Increment.Interval = 50

        Case "Slower"

            Increment.Interval = 200

    End Select

End Sub

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

    MyCounter.Value += 1

End Sub

 

Program KARL:


Dim
Create As New beWISE.Functions 'REQUIRED statement

Dim TellHans As beWISE.var_STRING  'commands we give HANS

Dim WithEvents MyCounter As beWISE.var_INTEGER 'number HANS counts

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

    MyCounter = Create.New_var_INTEGER("EdelweissFound")

    TellHans = Create.New_var_STRING("KARLtoHANS")

End Sub

Private Sub MyCounter_Changed() Handles MyCounter.Changed

    EdelwiseLabel.Text = Format(MyCounter.Value, "#####0")

End Sub

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

    TellHans.Value = "Start"

End Sub

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

    TellHans.Value = "Stop"

End Sub

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

    TellHans.Value = "Faster"

End Sub

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

    TellHans.Value = "Slower"

End Sub

The Essential Resource for Visual Basic Developers