متصل شده به یک دستگاه با بلوتوث

[Mr.Kafiri 221]

سلام به دوستان، چجوری میشه...

با باز شدن برنامه بلوتوث روشن و لیست دوایس ها امده و قابل انتخاب و کانکت کردن داشته باشه..

[Salar82 901]

سلام از این کد استفاده کنید:

Sub Activity_Create(FirstTime As Boolean)
     
      Dim t As Toggle
	  t.TurnBluetoothOn

      Dim S1 As Serial

      Dim M As Map
      Dim L As List

      S1.Initialize("SERIAL")
      M.Initialize
      L.Initialize

      M = S1.GetPairedDevices

      For i = 0 To M.Size - 1
        L.Add(M.GetKeyAt(i))
      Next

      Dim result As Int

      result = InputListAsync(l , "دستگاه مورد نظر را انتخاب کنید:" , -1 , True)
End Sub

بعد تو رویداد کانکت بلوتوث هر کدی رو خواستین بنویسید:

Private Sub SERIAL_Connected (Success As Boolean)
	ProgressDialogShow2("در حال اتصال" , False)
	
	If Success = True Then
		...............
	Else
		...............
	End If
End Sub