[سوال] ارسال دما به صورت بیسیم!

[abbasalifix]

سلام میخوام متغیر دما رو با ماژول ارسال کنم باید از چه فرمانی برای ارسال استفاده کنم؟
مدار کار میکنه و متغییر های دیگه ای رو میتونم بفرستم اما برای دما مشکل دارم چون تو گیرنده نویز زیادی داره اعدادی به غیر از ائنهایی که لازم دارم دیده میشه؟

---

زبان بیسیک باشه

[salehjg]

سلام میخوام متغیر دما رو با ماژول ارسال کنم باید از چه فرمانی برای ارسال استفاده کنم؟
مدار کار میکنه و متغییر های دیگه ای رو میتونم بفرستم اما برای دما مشکل دارم چون تو گیرنده نویز زیادی داره اعدادی به غیر از ائنهایی که لازم دارم دیده میشه؟

---

زبان بیسیک باشه

کد:

Dim Str1 As String * 13
Dim Str2 As String * 13

Dim Num As Integer , T1 As Byte , T2 As Byte




Input Str1
' Str1 = "587t/212/t"
Home

Lcd Str1
T1 = Instr(str1 , "g/")
T2 = Instr(str1 , "/g")

If T1 <> 0 And T2 <> 0 And T2 > T1 Then


T1 = T1 + 2
T2 = T2 - T1
Str2 = Mid(str1 , T1 , T2)

Locate 2 , 1

Lcd Str2 ; " "
end if

همچین راه حلی، کار شما رو راه میندازه
یعنی در فرستنده بجای data ، این عبارت رو بفرستید g/data/g

[abbasalifix]

مرسی از کمکتون اگه بیشتر توضیح بدین ممنون میشم!

[sharin]

سلام.

دما رو بربز تو يه متغيير string يعني تبديلش كن ...
بعد اول و آخر اين اطلاعاتت رو يه حروف يا اعدادي بذار كه استفاده نمي كني ...
در واقع اطلاعاتت رو كد كن .
سمت گيرنده هم همون ها رو ديكود كن.
براي ديكود كردن هم بايد ازهمون توابع مربوط به كار با رشته استفادهه كني ...

موفق باشي.
يا علي.

[abbasalifix]

منم همین فکر رو داشتم اما نمی دونم چه جوری باید دما دو بریزم توی متغیر string ??????

[sharin]

ساده ست ...

Returns a string representation of a number
var = STR( x)

تو help بسكام توضيحاتش رو بخون ...

موفق باشي.
يا علي.

[abbasalifix]

کد:

Dim A As Byte , S As String * 10

A = 123

S = Str(a)

Print S                                                     ' 123

'when you use print a, you will get the same result.

'but a string can also be manipulated with the string routines.

End

مرسی از کمکتون الان تست میکنم جوابشو میگم

---

زدم !
اما هیچی دریاقت نکردم!

[sharin]

اول ارتباط رو با سيم بر قرار كن ، بعد كه جواب گرفتي برو سراغ بي سيم.

سمت گيرندهه با چي مي خوني ...
من با waitkey خوب نتيجه مي گيرم ، تو تاپيك هاي مشابه هم كدش گذاشته شدهه ...
يه تست ديگه با سيم بزن ...

يا علي.

[abbasalifix]

شاید باورت نشه اما هربار که برنامه رو یه تغییر کوچیک میدم کلی عوض میشه!
میشه یه برنامه که جواب گرفتین رو بزارید

[maxn@morteza]

با چه ماژولی میفرستی ؟

[abbasalifix]

hmt -TTL hmtr-TTL
433mhz
baud=4800
xtal=12M