رفتن به مطلب
  • 0

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


Mr.Kafiri

سوال

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

1 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

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

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

این موضوع بایگانی و قفل شده و دیگر امکان ارسال پاسخ نیست.

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...