مشکل در ارسال عدد با فرستنده و گیرنده hmt-hmr

[sinaitg]

سلام
آقا من یه ماهه است که میخوام یه عدد رو با ماژول hmt-hmr بفرستم ولی نمییییییشه :angry: :angry: :angry: :angry: :angry: :angry: :angry:
تور خدا کمکم کنید حیاتیه.. آبروم در میونه ...

[mehrdad_italy]

پاسخ : مشکل در ارسال عدد با فرستنده و گیرنده hmt-hmr

سلام

اول با سیم میکرو ها رو بهم وصل کن ببین کار می کنه ( برنامت رو هم بذار شاید مشکل داشته باشه )

[sinaitg]

پاسخ : مشکل در ارسال عدد با فرستنده و گیرنده hmt-hmr

اینم برنامه:(فرستنده)
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Dim S As String * 13
Dim Count As Integer
S = "sina"
Main:
Do
Waitms 75
Incr Count
Print S ; Count ; Chr(13);

Loop
End
برنامه گیرنده:
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Config Lcdpin = Pin , Db7 = Pinb.7 , Db6 = Pinb.6 , Db5 = Pinb.5 , Db4 = Pinb.4 , E = Pinb.3 , Rs = Pinb.2
Config Lcd = 16 * 2
Dim S As String * 13
Main:
Cls

Do
Input S
Cls
Lcd S
Loop
End

[ict69]

پاسخ : مشکل در ارسال عدد با فرستنده و گیرنده hmt-hmr

اینم برنامه:(فرستنده)
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Dim S As String * 13
Dim Count As Integer
S = "sina"
Main:
Do
Waitms 75
Incr Count
Print S ; Count ; Chr(13);

Loop
End
برنامه گیرنده:
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600
Config Lcdpin = Pin , Db7 = Pinb.7 , Db6 = Pinb.6 , Db5 = Pinb.5 , Db4 = Pinb.4 , E = Pinb.3 , Rs = Pinb.2
Config Lcd = 16 * 2
Dim S As String * 13
Main:
Cls

Do
Input S
Cls
Lcd S
Loop
End

دقیقا بگو کجا شو اشکال داری اول تو پروتئوس ببندش ببین چیزی رد و بدل میشه یا نه
من تابستون همین پروژه رو داشتم
اول تو پروتئوس ببندش ، بعدشم با سیم وصلش کن وقتی جواب گرفتی برو سراغ بیسیم

[sinaitg]

پاسخ : مشکل در ارسال عدد با فرستنده و گیرنده hmt-hmr

چشم . مشکل دقیقا اینه که فقط بصورت رشته ای میفرسته .......
بصورت دیمانسیون عددی نمیفرسته :cry: :cry: :cry: :cry: :cry:

[ict69]

پاسخ : مشکل در ارسال عدد با فرستنده و گیرنده hmt-hmr

چشم . مشکل دقیقا اینه که فقط بصورت رشته ای میفرسته .......
بصورت دیمانسیون عددی نمیفرسته :cry: :cry: :cry: :cry: :cry:

چون که شما از دستور print استفاده میکنی فقط میتونی رشته بفرستی
از help نرم افزارت استفاده کن که هیچ منبعی بهتر از خودش نیست

[arduino]

پاسخ : مشکل در ارسال عدد با فرستنده و گیرنده hmt-hmr

سلام
میشه یه نفر به من توضیح بده چرا این ماژول های HTM , HMR فقط در ایران استفاده میشه؟
جرا ماژول های بهتری مثل سری های NRF که هم فرستنده و هم گیرنده هستن استفاده نمی کنید؟

[ict69]

پاسخ : مشکل در ارسال عدد با فرستنده و گیرنده hmt-hmr

سلام
میشه یه نفر به من توضیح بده چرا این ماژول های HTM , HMR فقط در ایران استفاده میشه؟
جرا ماژول های بهتری مثل سری های NRF که هم فرستنده و هم گیرنده هستن استفاده نمی کنید؟

دوست من کی گفته فقط تو ایران استفاده میشه ؟ مگه همه ی ارتباط ها باید دو طرفه باشه ؟ تازه hmtr دارای ارتباط دو طرفه هست که راه اندازی شون با هم هیچ فرقی نداره

[sinaitg]

پاسخ : مشکل در ارسال عدد با فرستنده و گیرنده hmt-hmr

میشه دستور درستشو که بجای print باید استفاده کنم رو واسم بذارید؟ ممنون میشم.

[ict69]

پاسخ : مشکل در ارسال عدد با فرستنده و گیرنده hmt-hmr

میشه دستور درستشو که بجای print باید استفاده کنم رو واسم بذارید؟ ممنون میشم.

اگه میخوای به صورت باینری بفرستی باید از printbin استفاده کنی که البته در قسمت دریافت هم باید از دستور inputbin استفاده کنی

البته به نظر من اگه همون رشته رو بفرستی کارت راحت تر هستش

[exelance]

پاسخ : مشکل در ارسال عدد با فرستنده و گیرنده hmt-hmr

دوست عزیز ابتدا یک عدد هرز بفرست ماژول از مد اسلیپ بیدار بشه بعد عدد مورد نظرت رو بفرست

[4tan]

پاسخ : مشکل در ارسال عدد با فرستنده و گیرنده hmt-hmr

دوست عزیز برای ارتباط با HMT R ها همونطوری که یکی از دوستان اشاره فرمودن باید برای ارتباط درست و بهتر یک دیتای غیر مهم رو همواره بفرستید تا گیرنده دریافت کنه و اطلاعات دستوریتون رو در بین این اطلاعات غیر مهم بفرستید.(اگه این کار رو نکنی گیرنده همش چرت و پرت دریافت میکنه )
1-همواره یک کارکتر غیر مهم بفرست مثلا 0
2-در بین اطلاعات غیر مهم کارکتر مهم رو بفرستید

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

[sinaitg]

پاسخ : مشکل در ارسال عدد با فرستنده و گیرنده hmt-hmr

سلام..
کسی نمیتونه یه برنامه از فرستنده و گیرنده واسم با بسکام بذاره؟
ممنونم.

[dariai]

پاسخ : مشکل در ارسال عدد با فرستنده و گیرنده hmt-hmr

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

فرستنده:

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 20
$framesize = 40
$baud = 9600

Config Portb = Output

Led Alias Portb.0

Dim I As Integer
Dim S As String * 13
Dim W As Word

'Assr = &H00
'Tccr2 = &H6B
'Tcnt2 = &H00
'Ocr2 = &H00

W = 1234

Wait 10

Do
'  'Set Led
'  Waitms 750
'  Incr I
'  Print "Mohammad - " ; I ; Chr(13)
'  Printbin I
'  Toggle Led
'  Reset Led
  Incr I
  S = Str(w)
  Waitms 100                        'This is best time, if you increase it you will get NOTHING
  Print S ; " - " ; Str(i) ; Chr(13);
  'Ocr2 = Ocr2 + 15
  Toggle Led
Loop


End

گیرنده:

$regfile = "m8def.dat"
$crystal = 8000000
$hwstack = 32
$swstack = 20
$framesize = 40
$baud = 9600

Config Portb = Output
Config Lcdpin = Pin , Db4 = Portb.1 , Db5 = Portb.2 , Db6 = Portb.3 , Db7 = Portb.4 , _
 E = Portb.5 , Rs = Portb.0
Config Lcd = 16 * 2

Dim S As String * 13
Dim B As Byte
Dim W As Word

Config Portd = Output

Rfm Alias Portd.6
Led Alias Portd.7

Cls
Locate 1 , 1
Lcd "turn RFM on"
Wait 2
Cls
Lcd "No DATA..."
Wait 5

Set Led
Set Rfm

Do
'  Inputbin B
'  Cls
'  Locate 1 , 1
'  Waitms 750
'  If S <> "" Then
'   Cls
'   'Waitms 500
'   Locate 1 , 1
'   Lcd S
'  End If
'  Lcd B
  Input S
  W = Val(s)
  Locate 1 , 1
  Cls
  Lcd W
  Lowerline
  Lcd S
Loop

End

[ict69]

پاسخ : مشکل در ارسال عدد با فرستنده و گیرنده hmt-hmr

خودت رو اذیت نکن
رشته بفرست بعد تبدیلش کن به کاراکتر
دیگه از این راه مناسب تری پیدا نمیکنی
در این پروژه مشکل اساسی ارتباط برقرار کردنه خودت رو درگیر مسائل دیگه نکن