Text Box: Features
allows 5,120 SHARED variables
STRING, LONG and DOUBLE
provides CHANGED events
LISTS for variable  management
PIPES for data streaming

www.edelwise.com

Text Box: beWISE PROFESSIONAL (for VB6)
Product Summary

This is the product for the professional developer. It includes all features of the ADVANCED version plus PIPES and an optional C interface. Pipes allow you to exchange streams of data between applications. The C interface allows sharing of variables between VB and conventional C programs.

Price: $69.95

Example “Messaging”:

This example is functional similar to the Listening example, but instead of beWISE VARIABLES we use beWISE PIPES. One program, called HANS, sends 100 readings (variables that receive random numbers) thru a pipe to program KARL. HANS only sends the data when KARL requests it. KARL can request the data by sending the string "FromKarl: SEND READINGS" to HANS’ pipe. Since beWISE PIPES are unidirectional, each program needs its own pipe in order for the programs to exchange messages in both directions. If a program wants to receive messages, it has to create at least one RECEIVER PIPE. To send messages (to other programs) it has to create SENDER PIPES with the appropriate names. In our example HANS creates a RECEIVER PIPE called “HANS” and a SENDER PIPE called “KARL”. KARL does the opposite. He creates a RECEIVER PIPE called “KARL” and a SENDER PIPE called “HANS”. Now they both can exchange messages with each other. HANS waits until he receives an order from KARL to send the readings. When he receives the order he sends the string “BEGIN”, then each of the 100 values (of type Double) and then the string “END”. KARL uses the “BEGIN” string to synchronize his pipe. He ignores everything until he finds the “BEGIN” string. He then reads and displays the 100 values. After that he empties the pipe from potential garbage (data he does not need).

Program HANS:

 

Dim Create As New beWISE.Functions 'REQUIRED statement

Dim WithEvents MyPipe As beWISE.obj_PIPE

Dim KarlsPipe As beWISE.obj_PIPE

 

Private Sub Form_Load()

    Randomize()

    Set MyPipe = Create.New_obj_PIPEforReceiving("HANS")

    Set KarlsPipe = Create.New_obj_PIPEforSending("KARL")

End Sub

 

Private Sub MyPipe_Changed() 'we have data

    Dim message As Variant

 

    message = MyPipe.ItemValue  'read (and delete) item from pipe

    If message = "FromKarl: SEND READINGS" Then

        Call SendReadingsTo(KarlsPipe)

    End If

 

    '--- We have to COMPLETELY EMPTY the pipe before exiting;

    '    otherwise this handler will NOT be called again ---

    While (MyPipe.PipeIsEmpty = False)   'while pipe no empty

        message = MyPipe.ItemValue       'read message

    End While

End Sub

 

Private Sub SendReadingsTo(ByVal pipe As beWISE.obj_PIPE)

    Dim i As Integer

    pipe.ItemValue = "BEGIN"  'put "START" into the pipe

    For i = 0 To 99           'put 100 random numbers into pipe

        pipe.ItemValue = CDbl(Rnd() * 99)

    Next i

    pipe.ItemValue = "END"    'put "END" into the pipe

    pipe.SendTrigger()        'wake-up trigger

End Sub

 

 

Program KARL:


Dim Create As New beWISE.Functions 'REQUIRED statement

Dim WithEvents MyPipe As beWISE.obj_PIPE

Dim HansPipe As beWISE.obj_PIPE

 

Private Sub FORM_Load()

    Set MyPipe = Create.New_obj_PIPEforReceiving("KARL")

    Set HansPipe = Create.New_obj_PIPEforSending("HANS")

End Sub

 

Private Sub MyPipe_Changed() 'we have data

    Dim i, j As Integer

    Dim s As String

    Dim message As Variant

 

    message = MyPipe.ItemValue  'read (and delete) item from pipe

    If message = "BEGIN" Then

        ListBox1.Clear

        For i = 0 To 9 Step 1

            s = ""

            For j = 0 To 9 Step 1

                If MyPipe.PipeIsEmpty = False Then

                    s = s & Format(MyPipe.ItemValue, "00.0 ")

                End If

            Next j

            ListBox1.AddItems(s) 'add line with 10 values

        Next i

    End If

    ' ---- that's all we needed.

 

    '--- We have to COMPLETELY EMPTY the pipe before exiting;

    '    otherwise this handler will NOT be called again ---

    While (MyPipe.PipeIsEmpty = False)   'while pipe no empty

        message = MyPipe.ItemValue       'read message

    End While

End Sub

 

Private Sub StartReporting_Click()

    HansPipe.ItemValue = "FromKarl: SEND READINGS"  'send message

    HansPipe.SendTrigger()                          'wake HANS up

End Sub

Text Box: Supported Platforms
Windows 2000 (SP3 and higher)
Windows XP 
Visual Basic 6.0 
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 beWISEpro.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 VB6 specific sample code can be found in the directory
.\Edelwise\VB6.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.

Other useful links:  product FAQ    product comparison chart    product licensing

The Essential Resource for Visual Basic Developers