Newbie question on Events

[Vader]

Ok, so I am using the serial library. Version 1.21.

Port is an instance of Serial. PairedMACAddress is a string containing the MAC Address to connect to (e.g. "00:12:06:01:53:65")

I have a sub where I connect to a specific MAC Address:

Private Sub ConnectToPairedDevice
   If PairedMACAddress <> "" Then
      Log("Connecting to specified device")
      Port.Connect(PairedMACAddress) 'Attempt Connection
   Else
   End If
End Sub

I have another Sub where I want to process the connection state:

Private Sub Port_Connected (Success As Boolean)
   Log("Connection attempt:" & Success)
End Sub

The problem is that the Port_Connected Sub is never entered.

What am I doing wrong?

 

[Erel]

Where is the code that initializes Port object?

 

[Vader]

'Activity module
Public Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules (Public).
   
   Public Port As Serial

 

[Erel]

Where is the code that initializes the object (not the declaration code)?

 

[Vader]

Sorry. It is just in a generic Sub, called from Activity_Create. Should it be in one of Process_Globals or Globals?

 

[Erel]

Can you post it?

 

[Vader]

Public Sub Process_Globals
   'These global variables will be declared once when the application starts.
   'These variables can be accessed from all modules (Public).
   
   Public Port As Serial

Public Sub Activity_Create(FirstTime As Boolean)
   Private PhoneInfo As Phone
   Private Model As String = PhoneInfo.Model.ToLowerCase
   
   Activity.LoadLayout("Test") ' Form.Load(Test)
      

   
   If FirstTime Then
      RestoreApplicationState
      InitialiseSerialPort
      GetPairedMACAddress

Private Sub RestoreApplicationState
   'Log("State about to be restored...")
   If StateManager.RestoreState(Activity, "Main", 60) = False Then        
      'Set the default values            
   End If
End Sub

Private Sub InitialiseSerialPort
   ' Initialise the Serial port
   Try
      Port.Initialize("Port_Connected")
   Catch
      Log("Error initialising Serial port")
   End Try
End Sub

Private Sub GetPairedMACAddress
   PairedMACAddress = StateManager.GetSetting("PairedMACAddress")
   Log("Retrieved the following pairing: " & PairedMACAddress)
End Sub

Private Sub ConnectToPairedDevice
   If PairedMACAddress <> "" Then
      Log("Connecting to specified device")
      Port.Connect(PairedMACAddress) 'Attempt Connection
   End If
End Sub

Private Sub Port_Connected (Success As Boolean)
   Log("Connection attempt:" & Success)
End Sub

Log:
** Activity (main) Create, isFirst = true **
STATE loaded
Retrieved the following pairing: 00:12:06:01:53:65
Bluetooth is enabled.
Connecting to specified device
** Activity (main) Resume **

 

[Vader]

Oops. you may not have enough info. Here's the whole Activity_Create ...

Public Sub Activity_Create(FirstTime As Boolean)
   Private PhoneInfo As Phone
   Private Model As String = PhoneInfo.Model.ToLowerCase
   
   Activity.LoadLayout("Test") ' Form.Load(Test)
   
   lblSerial.Text = "Hello World"
   
   ' *****************************************************************************
   ' Licensing
   If Model = "sdk" Then
      lc_Allow
   Else
      'CheckLicense
   End If
   ' *****************************************************************************
   
   If FirstTime Then
      RestoreApplicationState
      InitialiseSerialPort
      GetPairedMACAddress
      
      
      If Port.IsEnabled Then
         Log("Bluetooth is enabled.")
         
         If PairedMACAddress = "" Then
            ListPairedDevices
         End If
         
         Try
            ConnectToPairedDevice
         Catch
            Log("***** ERROR connecting to device *****")
         End Try
         
      Else
         Log("Bluetooth not enabled.")
         ToastMessageShow("Enable Bluetooth and restart application.  Closing application.", True)
         Activity.Finish
      End If
      
   End If
   
End Sub

 

[Erel]

Port.Initialize("Port_Connected")

This line is enough. The EventName sets the prefix of the subs that will handle the events. In your case it should be "Port".

 

[Vader]

Ok, so that works.

The argument for Port.Initialize() is "Eventname".
Maybe it should be "InstanceName" as per the following signature:

Port.Initialize(InstanceName as string)

Isn't it strange that the object needs to be told it's own name to initialise it?

Anyway, thanks Erel.

 

[Erel]

Isn't it strange that the object needs to be told it's own name to initialise it?

It doesn't have to be its own name. You can set it to whatever string you want (including allowing different objects to share the same subs).