.::کمک::.مشکل در ساخت ریموت با ماژول ask .::کمک::.

[zoheyr79]

سلام دوستان خسته نباشید
من تونستم ماژول رو راه بندازم ولی یک مشکل دارم اینکه وقتی میکرو سوییچ رو فشار میدم گیرنده دستور رو میگیره و انجام میده (مثلا یک led رو روشن میکنه) اما میخوام وقتی که میکرو سوویچ دیگه فشار نمیدم از اونور دستور قطع بشه (یا همون led خاموش شه)
حالا نمی دونم چی کار کنم
ممنون می شم کمک کنید :nerd:
دوستان مشکل بالا حل شد الان مسکل گرفتن نویز هست اگه هرکس راهی میدونه و یا نظری داره بگه ممنون میشم
این کد گیرنده اگه فکر می کنید لازمه:
[code=qbasic]
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600

Config Portb = Output
Dim A As Byte

Do
A = Inkey()
If A = 1 Then
Set Portb.0
End If
If A = 2 Then
set Portb.1
End If

Loop
End[/code]

اینم فستنده
[code=qbasic]
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
Config Porta = Input

Do
If Pina.0 = 1 Then
Printbin 1
End If

If Pina.1 = 1 Then
Printbin 2
End If
Loop
End[/code]

[2227140]

پاسخ : .::کمک::.مشکل در ساخت ریموت با ماژول ask .::کمک::.

سلام دوستان خسته نباشید
من تونستم ماژول رو راه بندازم ولی یک مشکل دارم اینکه وقتی میکرو سوییچ رو فشار میدم گیرنده دستور رو میگیره و انجام میده (مثلا یک led رو روشن میکنه) اما میخوام وقتی که میکرو سوویچ دیگه فشار نمیدم از اونور دستور قطع بشه (یا همون led خاموش شه)
حالا نمی دونم چی کار کنم
ممنون می شم کمک کنید :nerd:
این کد گیرنده اگه فکر می کنید لازمه:
[code=qbasic]
$regfile = "m8def.dat"
$crystal = 1000000
$baud = 9600

Config Portb = Output
Dim A As Byte

Do
A = Inkey()
If A = 1 Then
Set Portb.0
End If
If A = 2 Then
set Portb.1
End If

Loop
End[/code]

اینم فستنده
[code=qbasic]
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
Config Porta = Input

Do
If Pina.0 = 1 Then
Printbin 1
End If

If Pina.1 = 1 Then
Printbin 2
End If
Loop
End[/code]

سلام
کد گیرنده رو به کد زیر تغییر بدید:

  $regfile = "m8def.dat"
  $crystal = 1000000
  $baud = 9600

  Config Portb = OUTPUT
  DIM A AS Byte

  DO
  A = Inkey()
  IF A = 1 THEN
  Set Portb.0
  Else
  Portb.0 = 0
  END IF
  IF A = 2 THEN
  Set Portb.1
  Else
  Portb.1 = 0
  END IF

  LOOP
  END

[zoheyr79]

پاسخ : .::کمک::.مشکل در ساخت ریموت با ماژول ask .::کمک::.

سلام
کد گیرنده رو به کد زیر تغییر بدید:

  $regfile = "m8def.dat"
  $crystal = 1000000
  $baud = 9600

  Config Portb = OUTPUT
  DIM A AS Byte

  DO
  A = Inkey()
  IF A = 1 THEN
  Set Portb.0
  Else
  Portb.0 = 0
  END IF
  IF A = 2 THEN
  Set Portb.1
  Else
  Portb.1 = 0
  END IF

  LOOP
  END

سلام واقعا ممنونم کار :wow: :wow: :wow: :wow: :wow: :wow: :wow: :wow: :wow:
کرد اما یک مشکل دیگه هم دارم اینکه چطور بتونم کد گذاری کنم میشه کمکم کنید؟؟؟

[2227140]

پاسخ : .::کمک::.مشکل در ساخت ریموت با ماژول ask .::کمک::.

سلام واقعا ممنونم کار :wow: :wow: :wow: :wow: :wow: :wow: :wow: :wow: :wow:
کرد اما یک مشکل دیگه هم دارم اینکه چطور بتونم کد گذاری کنم میشه کمکم کنید؟؟؟

خواهش می کنم.
تا جایی که می دونم برای کدگذاری اینجوری عمل می کنند:
ابتدا توسط فرستنده،کد آدرس فرستاده میشه.سپس دیتا و در پایان یک کاراکتر به معنی پایان داده فرستاده میشه.
توی گیرنده بررسی می کنیم اگه کد آدرس دریافت شد،داده ی بعدی همون دیتای ماست و در پایان با دریافت کاراکتر پایان،متوجه پایان دریافت داده میشه.سپس می تونیم از دیتایی که دریافت شد،استفاده کنیم.

[zoheyr79]

پاسخ : .::کمک::.مشکل در ساخت ریموت با ماژول ask .::کمک::.

خواهش می کنم.
تا جایی که می دونم برای کدگذاری اینجوری عمل می کنند:
ابتدا توسط فرستنده،کد آدرس فرستاده میشه.سپس دیتا و در پایان یک کاراکتر به معنی پایان داده فرستاده میشه.
توی گیرنده بررسی می کنیم اگه کد آدرس دریافت شد،داده ی بعدی همون دیتای ماست و در پایان با دریافت کاراکتر پایان،متوجه پایان دریافت داده میشه.سپس می تونیم از دیتایی که دریافت شد،استفاده کنیم.

میشه یک مثال بزنید؟؟؟

[2227140]

پاسخ : .::کمک::.مشکل در ساخت ریموت با ماژول ask .::کمک::.

میشه یک مثال بزنید؟؟؟

من زیاد رو این شیوه کار نکردم بیشتر توضیح اون رو می دونستم!!
یه پیشنهاد بهتره از انکودر و دیکودر pt2262 و pt2272 استفاده کنید.هم دقت بسیار بالایی دارند و هم به آسانی آدرس دهی می شوند!!

[jervis]

پاسخ : .::کمک::.مشکل در ساخت ریموت با ماژول ask .::کمک::.

با سلام
میتونید به تاپیک زیر مراجعه کنید:
http://www.eca.ir/forum2/index.php?topic=52063.0
موفق باشید

[zoheyr79]

پاسخ : .::کمک::.مشکل در ساخت ریموت با ماژول ask .::کمک::.

با سلام
میتونید به تاپیک زیر مراجعه کنید:
http://www.eca.ir/forum2/index.php?topic=52063.0
موفق باشید

سلام چند صفحه اولشو دیدم ولی چیزی دست گیرم نشد :NO: شما نمیتونی یک نمونه کد بهم نشون بدی :sad:
ممنون :redface:

[محمد مومنی22]

پاسخ : .::کمک::.مشکل در ساخت ریموت با ماژول ask .::کمک::.

سلام
دوست عزیز شما برای کار کردن با ask چند نکته رعایت کن :
اول:
هر کد رو چند بار بفرست.(با استفاده از دستور for,next)
کدی که میگیری اگر کار نکرد تغییر بده.
از حروف بیشتر از اعداد استفاده کن.
تو گیرنده برای گرفتن از inkey استفاده کنی بهتر هست تا از waitkey
اگر از جوی استیک استفاده میکنی فاصلهadcهای خونده شده رو زیاد بگذار تا هنگ نکنه
اگر از کلید استفاده میکنی مقاومت پول اپ رو مقاومت مطمعنی بگذار.گاها شده دست میره طرف کلید عمل میکنه.

[zoheyr79]

پاسخ : .::کمک::.مشکل در ساخت ریموت با ماژول ask .::کمک::.

سلام
دوست عزیز شما برای کار کردن با ask چند نکته رعایت کن :
اول:
هر کد رو چند بار بفرست.(با استفاده از دستور for,next)
کدی که میگیری اگر کار نکرد تغییر بده.
از حروف بیشتر از اعداد استفاده کن.
تو گیرنده برای گرفتن از inkey استفاده کنی بهتر هست تا از waitkey
اگر از جوی استیک استفاده میکنی فاصلهadcهای خونده شده رو زیاد بگذار تا هنگ نکنه
اگر از کلید استفاده میکنی مقاومت پول اپ رو مقاومت مطمعنی بگذار.گاها شده دست میره طرف کلید عمل میکنه.

ممنون که پاسخ دادید ولی مشکلم راه اندازی نیست مشکلم اینه که مدار گیرنده سر خود عمل میکنه و ال ای دی هایی که به میکرو وصله خودشون برای یک لحظه کوتاه روشن میشن و من نمی خوام این طور باشه
به نظر شما اگه تعداد کاراکتر هارو زیاد کنم درست میشه؟؟؟

[محمد مومنی22]

پاسخ : .::کمک::.مشکل در ساخت ریموت با ماژول ask .::کمک::.

ممنون که پاسخ دادید ولی مشکلم راه اندازی نیست مشکلم اینه که مدار گیرنده سر خود عمل میکنه و ال ای دی هایی که به میکرو وصله خودشون برای یک لحظه کوتاه روشن میشن و من نمی خوام این طور باشه
به نظر شما اگه تعداد کاراکتر هارو زیاد کنم درست میشه؟؟؟

شما فرستنده خاموش کن
گینده ات روشن بگذار ببین مشکلی هست؟
اگر نبود فرستنده ات روشن کن ببین گیرنده دریافت داره؟
اگر داشت کدهات عوض کن

[محمد مومنی22]

پاسخ : .::کمک::.مشکل در ساخت ریموت با ماژول ask .::کمک::.

این فیلم فرستنده گیرنده ای هست که خودم به همین روش بستم جواب گرفتم
تو گیرنده ال ای دی گذاشتم اما خروجی برای موتور هم داره به خوبی کار میکنه
http://uplod.ir/koxgxvlf6azo/VID_۲۰۱۵۰۴۲۹_۱۹۰۸۵۳.3gp.htm

[zoheyr79]

پاسخ : .::کمک::.مشکل در ساخت ریموت با ماژول ask .::کمک::.

شما فرستنده خاموش کن
گینده ات روشن بگذار ببین مشکلی هست؟
اگر نبود فرستنده ات روشن کن ببین گیرنده دریافت داره؟
اگر داشت کدهات عوض کن

گیرنده رو اگه روشن بزارم و فرستنده رو خاموش کنم نویز بیشتری میگیره
من اگه بخوام حروف بفرستم باید متغیرم رو به string تبدیل کنم درسته؟؟؟
و اینکه یک سوال دیگه برا محکم کاری برای فرستادن از printاستفاده میشه مثل

print "part1"

و برای گرفتن کد باید اینطور نوشت

dim a as string *7
do
input a
if a=part1 then
set potta.0
end if

[محمد مومنی22]

پاسخ : .::کمک::.مشکل در ساخت ریموت با ماژول ask .::کمک::.

سلام
شما در فرستنده اینجور استفاده کنید:

print"momeni"

گیرنده:

a=inkey()

if a="momeni" then porta.0=1

شما اگر کدت رو در " " فرستادی برای گیرنده هم باید در " " تعریف کنی

[zoheyr79]

پاسخ : .::کمک::.مشکل در ساخت ریموت با ماژول ask .::کمک::.

سلام
شما در فرستنده اینجور استفاده کنید:

print"momeni"

گیرنده:

a=inkey()

if a="momeni" then porta.0=1

شما اگر کدت رو در " " فرستادی برای گیرنده هم باید در " " تعریف کنی

هر کاری میکنم نمی شه کلا بعد از اینکه از print بجای printbin استفاده کردم دیگه کار نکرد :sad:
دارم دیوانه میشم
چطور باید حروف بفرستم
اگه میشه کمک کنید