Bluetooth errors out on first attempt works on second

[Graham]

Connecting a XOOM to a PIC based board I made. When I attempt to connect Xoom to PIC, first time after powering up PIC board, the connection errors out. The connection works great after I connect again. If I repower PIC board, its the same scenario...errors our first time and then second time BT stays connected. I am assuming I have something out of order on my XOOM code. Any ideas?

Sub Activity_Create(FirstTime As Boolean)

If File.Exists(File.DirRootExternal,"config2.txt") Then
   ' Msgbox("File Exists","GC")
  Else
     Msgbox("Making file","GC")
   File.WriteString(File.DirRootExternal, "Config2.txt", _ 
   2 & CRLF & 2& CRLF & 3& CRLF & 4& CRLF & 5& CRLF & 6& CRLF & 7& CRLF & 8 _ 'GPSRowX
   & CRLF & 9& CRLF & 10& CRLF & 11& CRLF & 12& CRLF & 13& CRLF & 14& CRLF & 15& CRLF & 16 _ 'GPSRowX
   & CRLF & 17& CRLF & 18& CRLF & 19& CRLF & 20& CRLF & 21& CRLF & 22& CRLF & 23& CRLF & 24 _ 'GPSRowX
   & CRLF & 25& CRLF & 26& CRLF & 27& CRLF & 28& CRLF & 29& CRLF & 30& CRLF & 31& CRLF & 32 _ 'GPSRowX
   & CRLF & 33& CRLF & 34& CRLF & 35& CRLF & 36& CRLF & 37& CRLF & 38& CRLF & 39& CRLF & 40 _ 'GPSRowX
   & CRLF & 41& CRLF & 42& CRLF & 43& CRLF & 44& CRLF & 45& CRLF & 46& CRLF & 47& CRLF & 48 _ 'GPSRowX
   & CRLF & 1& CRLF & "Yes" & CRLF & 1& CRLF & 1.00& CRLF & 21& CRLF & "Yes" & CRLF & 30& CRLF & 222& CRLF & 30& CRLF & "Full" _
   & CRLF & 100 & CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100 _ 'Target
   & CRLF & 100 & CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100 _ 'Target
   & CRLF & 100 & CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100 _ 'Target
   & CRLF & 100 & CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100 _ 'Target
   & CRLF & 100 & CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100 _ 'Target
   & CRLF & 100 & CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100& CRLF & 100 _  'Target
   & CRLF & "Yes" & CRLF & 10000 & CRLF & 20000 & CRLF & 30000 & CRLF & 6.0 & CRLF & "Imp" _'Pop1-3,SimSpeed,Units
   & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" _
   & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" _
   & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" _
   & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" & CRLF & "On" _
   & CRLF & "Pull" & CRLF & "100" & CRLF & "210" & CRLF & "310" & CRLF & "5" & CRLF & "20000" & CRLF & "2")
 End If
   
ReadConfig

Activity.LoadLayout("CalScreen")
ScrID=1
PopID=1
HideKeyboard
LoadPlanter
imgBTOn.Left = 1100
imgBTOff.Left = 1100
AdjustGPS
AdjustGPSOffset
StandAloneCheck

MakeXML

If FirstTime Then
   admin.Initialize("admin")
   serial1.Initialize("serial1")
End If

End Sub

Sub Activity_Resume
Awake.KeepAlive(True) 
   If admin.IsEnabled = False Then
      If admin.Enable = False Then 
         ToastMessageShow("Error enabling Bluetooth adapter.", False)
      Else
         ToastMessageShow("Enabling Bluetooth adapter...", False)
         'the StateChanged event will be soon raised
      End If
   Else
      Admin_StateChanged(admin.STATE_ON, 0)
   End If
End Sub

Sub imgBlueTooth_Click
foundDevices.Initialize
   If admin.StartDiscovery   = False Then 
      ToastMessageShow("Error starting discovery process.", False)
   Else
      ProgressDialogShow("Searching for devices...")
   End If
End Sub

Sub Admin_DiscoveryFinished
   ProgressDialogHide
   If foundDevices.Size = 0 Then
      ToastMessageShow("No device found.", False)
   Else
      Dim l As List
      l.Initialize
      For i = 0 To foundDevices.Size - 1
         Dim nm As NameAndMac
         nm = foundDevices.Get(i)
         l.Add(nm.Name)
      Next
      Dim res As Int
      res = InputList(l, "Choose device to connect", -1)
      If res <> DialogResponse.CANCEL Then
         connectedDevice = foundDevices.Get(res)
         ProgressDialogShow("Trying to connect to: " & connectedDevice.Name & " (" & connectedDevice.Mac & ")")
         serial1.Connect(connectedDevice.Mac)
      End If
   End If

End Sub
Sub Admin_DeviceFound (Name As String, MacAddress As String)
   Log(Name & ":" & MacAddress)
   Dim nm As NameAndMac
   nm.Name = Name
   nm.Mac = MacAddress
   foundDevices.Add(nm)
   ProgressDialogShow("Searching for devices (~ device found)...".Replace("~", foundDevices.Size))
End Sub
Sub Serial1_Connected (Success As Boolean)
   ProgressDialogHide
   Log("connected: " & Success)
   If Success = False Then
      Log(LastException.Message)
      ToastMessageShow("Error connecting: " & LastException.Message, False)
      BT="Off"
      BTOff
   Else
      BT="On"
      BTOn
      Timer1.Initialize("Timer1", 100) ' 1000 = 1 second
         Timer1.Enabled = True
        
      If AStream.IsInitialized = False Then
      'AStream.Initialize(serial1.InputStream, serial1.OutputStream, "AStream")
        AStream.InitializePrefix(serial1.InputStream, False, serial1.OutputStream, "AStream")
      End If    

   End If
      
End Sub

Sub AStream_Error
    Msgbox("Connection is broken. GrahamCommand will restart","GC")
   serial1.Disconnect''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
   'Activity.Finish
   ExitApplication
End Sub

Sub AStream_Terminated
  BTOff
  AStream_Error
End Sub

 

[Erel]

Which error do you get?

 

[Graham]

I am on the road for a day or two. I will post the error message when I get back. Thank you