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

ارسال سریال با بلوتوث


AHA_AMIRHOSEIN

سوال

سلام من یه سورس دیدم! حالا اومدم عوضش کردم! میخوام یه سری کد رو با بلوتوث بفرستم به سخت افزار! که هر باتون یه کد خاصی ! ولی مثل اینکه متصل نمیشه ! میشه کمکم کنین

اینم کدش
 

Sub Process_Globals

End Sub

Sub Globals
Private txtpm As EditText
Dim s1 As Serial
Private ListView2 As ListView
Private btnsend As Button
Dim wr As TextWriter
Dim tmr1 As Timer
Private Button4 As Button
Private Button2 As Button
Private Button1 As Button
Private Button3 As Button

End Sub

Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("frm1")
s1.Initialize("serial1")
If s1.IsEnabled = False Then
 Msgbox("بلوتوث خود را روشن کنید","error")
End If
'Dim m1 As Map
'm1.Initialize
'm1 = s1.GetPairedDevices
'For i = 0 To m1.Size - 1
 ListView2.AddSingleLine2(m1.Get(i),m1.GetKeyAt(i))
Next
tmr1.Initialize("tmr1",1500)

End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub

Sub btnsend_Click
wr.Write(txtpm.Text)
wr.Flush
End Sub

Sub btnconenct_Click
Dim m1 As Map
Dim l1 As List
m1.Initialize
l1.Initialize
m1 = s1.GetPairedDevices
For i = 0 To m1.Size - 1
 l1.Add(m1.GetKeyAt(i))
Next
Dim j As Int
j = InputList(l1,"انتخاب bluetooth",-1)
s1.Connect(l1.Get(j))
End Sub

Sub btndisconnect_Click
s1.Disconnect
End Sub

Sub ListView1_ItemClick (Position As Int, Value As Object)
s1.Connect(Value)
End Sub

Sub serial1_Connected (Success As Boolean)
 If Success = True Then

  wr.Initialize(s1.OutputStream)
  tmr1.Enabled = True
  ToastMessageShow("منصل شد",False)
  btnsend.Enabled = True
  Button1.Enabled = True
  Button2.Enabled = True
  Button3.Enabled = True
  Button4.Enabled = True
 Else
  Msgbox("اتصال برقرار نشد","error")
 End If
End Sub

Sub tmr1_Tick
'	If rr.Ready = True Then
'	 lblget.Text = rr.ReadLine
'	End If
End Sub
Sub Button4_Click
wr.Write("114")
wr.Flush
End Sub
Sub Button2_Click
wr.Write("98")
wr.Flush	
End Sub
Sub Button3_Click
wr.Write("108")
wr.Flush	
End Sub
Sub Button1_Click
wr.Write("102")
wr.Flush	
End Sub


اینم سورس
http://s7.picofile.com/file/8234571200/Client.rar.html

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

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

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

سلام بالاخره میخوای بفرستی یا بگیری . اگه میخوای بفرستی دیگه تایمر نمی خوای . البته موردی نداره فقط یه هزینه ای به cpu متحمل میکنی . 
 
برای دکمه اتصال از این روش استفاده کن .

 

Untitled.png

 

فکر می کنم کتابخانه serial  فقط برای دیوایس های pair شده است . یعنی قبلا باید دستگاهت با دیوایست جفت شده باشه . البته چون توی دستورت میگی ger paired devices میره لیست دیوایس های pair شده را میاره . ببین سخت افزارت چجوری pair میشه

 

روشهای ارتباط با اون را بشناس ببین چه شکلیه .

 

مشکلت توی خط دستوری کانکت بود . 

 

اکتیویتی کریت را هم اینجوری اصلاح کن (هرچند کامنت کرده بودی) .

Sub Activity_Create(FirstTime As Boolaen
("Activity.LoadLayout("frm1
("s1.Initialize("serial1
If s1.IsEnabled = False Then
("error","بلوتوث خود را روشن کنید")msgbox
End If
End Sub

ساب مربوط به کلیک روی لیست ویو را پاک کن .

کد مربوط به دکمه هات درسته فقط به شرطی که توی ساب تایمرت نباشه .

توی رویداد ساکسز بلوتوثت تایمر را نمی خواد فعال کنی ، اصلا تایمر و متعلقاتش را بردار . 

دست آخر اگه همین کدها رو تو فایل سورس برنامه میفرستادی بهتر میشد چیزی فهمید . مثلا نگاه کن ساب مربوط به دکمه های ارسال کدت را سبز کردی ولی علامت کامنت نداره . یا رویداد تایمر تیک را کامنت نکردی ولی دستوراش به غیر از یک خط را کامنت کردی . میدونم ویرایش گردی گذاشتی ولی برای هر کسی که بخواد کمکت کنه نحوه برنامه نوشتنت مهمه که چیکار کردی . بازم میگم باید فایل برنامه را بزاری یا کد گذاشتنت با عکس باشه ، اگه خیلی محرمانه است در قالب یه پروژه ساده دیگه بزارش .

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

بایگانی شده

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

مهمان
این موضوع برای عدم ارسال قفل گردیده است.
  • کاربران آنلاین در این صفحه   0 کاربر

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