ورود به حساب ثبت نام جدید فراموشی کلمه عبور
برای ورود به حساب کاربری خود، نام کاربری و کلمه عبورتان را در زیر وارد کرده و روی «ورود به سایت» کلیک کنید.





اگر فرم ورود برای شما نمایش داده نمیشود، اینجا را کلیک کنید.









اگر فرم ثبت نام برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.









اگر فرم بازیابی کلمه عبور برای شما نمایش داده نمی‌شود، اینجا را کلیک کنید.





کاربران برچسب زده شده

نمایش نتایج: از 1 به 3 از 3
  1. #1
    2016/06/21
    232
    68

    کمک فوری.کار با بلوتوث مویایل و ماژول HC-05

    سلام.
    یه برنامه ترمینال با B4A برای گوشی های اندروید نوشتم که با ماژول بلوتوث HC-05 ارتباط بر قرارمی کنه .مشکلی دارم اینکه رشته برای ماژول ارسال می کنم HC-05 اونو دریافت می کنه ولی ولی برعکس دریافت دریافتی ندارم . روی گوشی خودم که اندرویدش 4.2 هست اینطوری ولی روی گوشی مدل بالا تر خودم، برنامه به درستی کار می کنه به نظر شما مشکل کجاست.
    #Region  Project Attributes 
    #ApplicationLabel: مانیتورینگ
    #VersionCode: 1
    #VersionName:
    'SupportedOrientations possible values: unspecified, landscape or portrait.
    #SupportedOrientations: portrait
    #CanInstallToExternalStorage: False
    #End Region

    #Region Activity Attributes
    #FullScreen: True
    #IncludeTitle: False
    #End Region

    'Activity module
    Sub Process_Globals
    Dim Serial1 As Serial
    Dim TextReader1 As TextReader
    Dim TextWriter1 As TextWriter
    'Dim Timer1 As Timer
    'Dim s As String
    Dim connected As Boolean
    Dim t1 As Thread
    End Sub

    Sub Globals
    Dim btnSend As Button
    Dim txtLog As EditText
    Dim txtSend As EditText

    End Sub

    Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("1")
    Activity.AddMenuItem("Connect", "mnuConnect")
    Activity.AddMenuItem("DisConnect", "mnuDisconnect")
    If Serial1.IsInitialized = False Then
    Serial1.Initialize("Serial1")

    'Timer1.Initialize("TIMER1" ,200)
    t1.Initialise("thread")
    End If

    End Sub
    Sub Activity_Resume
    If Serial1.IsEnabled = False Then
    Msgbox("Please enable Bluetooth.", "")
    Else
    Serial1.Listen 'listen for incoming connections


    End If

    End Sub
    Sub mnuConnect_Click
    Dim m1 As Map
    Dim l1 As List
    Dim result As Int

    m1.Initialize
    l1.Initialize

    m1 =Serial1.GetPairedDevices
    For i = 0 To m1.Size-1
    l1.Add(m1.GetKeyAt(i))
    Next

    result = InputList(l1,"Select One Of Device",-1)

    If result <> DialogResponse.CANCEL Then
    Serial1.Connect(m1.Get(l1.Get(result))) 'Connecting
    End If
    End Sub

    Sub Serial1_Connected (Success As Boolean)
    If Success Then
    ToastMessageShow("Connected successfully", False)
    TextReader1.Initialize(Serial1.InputStream)
    TextWriter1.Initialize(Serial1.OutputStream)

    t1.Start(Me,"count",Null)
    ' Timer1.Enabled = True
    connected = True

    Else
    connected = False
    'Timer1.Enabled = False
    Msgbox("Not Connecting", "Error connecting.")
    End If

    End Sub
    Sub mnuDisconnect_Click
    Serial1.Disconnect
    connected = False
    End Sub

    Sub Activity_Pause (UserClosed As Boolean)

    End Sub

    Sub btnSend_Click
    If connected Then

    TextWriter1.WriteLine(txtSend.Text)
    TextWriter1.Flush
    txtSend.Text = ""
    End If
    End Sub
    Sub count
    Dim i As Int
    Dim a As Byte:a=1
    Do While a=1
    i=i+1
    TextReader1.Initialize(Serial1.InputStream)
    If TextReader1.Ready Then
    t1.RunOnGuiThread("show",Array As Object(TextReader1.ReadLine))
    End If
    t1.Sleep(100)
    'Next
    Loop
    End Sub


    Sub show(index As Object)
    txtLog.Text = txtLog.Text & index & CRLF
    txtLog.SelectionStart = txtLog.Text.Length
    'If index<>"" Then
    'txtLog.Text = index
    'End If
    End Sub

  2. #2
    2016/06/21
    232
    68

    پاسخ : کمک فوری.کار با بلوتوث مویایل و ماژول HC-05

    کسی نیست کمک کنه
  3. #3
    2016/06/21
    232
    68

    پاسخ : کمک فوری.کار با بلوتوث مویایل و ماژول HC-05

    اساتید محترم
    کسی نیست جواب مارو بده
نمایش نتایج: از 1 به 3 از 3

موضوعات مشابه

  1. بهترین ماژول بلوتوث صوتی برای ساخت هدفون بلوتوث
    توسط yaser1373 در انجمن ماژول های RF - ISM Band و بلوتوث
    پاسخ: 1
    آخرين نوشته: 2016/11/04, 16:03
  2. ماژول بلوتوث SPP-C
    توسط soodi در انجمن مباحث دیگر علم الکترونیک
    پاسخ: 1
    آخرين نوشته: 2015/08/29, 00:19
  3. ارتباط ماژول کول دیسک با ماژول بلوتوث
    توسط پاستا در انجمن ماژول های RF - ISM Band و بلوتوث
    پاسخ: 1
    آخرين نوشته: 2014/04/16, 20:20
  4. چگونگي وصل شدن از يك ماژول بلوتوث BCD100 به ماژول UD100
    توسط tictactoe در انجمن میکروکنترلرهای AVR
    پاسخ: 3
    آخرين نوشته: 2010/09/29, 23:30
  5. ماژول بلوتوث
    توسط hrhgroup در انجمن سیستمهای مخابراتی
    پاسخ: 12
    آخرين نوشته: 2007/07/19, 12:08

کلمات کلیدی این موضوع

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •