نویز ماژول HMT و HMR
سلام مهمان عزیز، اگر این پیغام را مشاهده نموده ای به معنی آن است که شما هنوز ثبت نام نکردی. برای ثبت نام اینجا کلیک کن و از تمام امکانات انجمن ما استفاده کن و لذت ببر.
اگر قبلا ثبت نام کرده اید، وارد شوید. با تشکر مدیریت ایرانا ربات
درود مهمان گرامی!

l ثبت نام
زمان کنونی: 2018/08/20، 01:11 AM
facebook twitter youtube google+ feedburner
  • به انجمن الکترونیک و رباتیک خوش آمدید
  • شروع دوره های آموزشی کلیک کنید.

 پاسخ ها: 15    بازدید ها: 13482
امتیاز موضوع:
  • 12 رأی - میانگین امتیازات: 3.25
  • 1
  • 2
  • 3
  • 4
  • 5
 نویز ماژول HMT و HMR
2015/09/06، 09:06 AM, (آخرین ویرایش در این ارسال: 2015/09/06، 06:32 PM، توسط ehsan2774.)
آفلاین
کاربر جدید
تاریخ عضویت: Sep 2015
ارسال ها : 28
اعتبار: 0
سپاس ها 2
سپاس شده 16 بار در 10 ارسال
#1
نویز ماژول HMT و HMR

سلام می خوام نویز ماژول های HMT و HMR رو به صفر برسونم ؟؟؟
آیا این امکانش هست؟؟؟
چجوری ؟؟
از خازن 104 بین تغذیه + و - استفاده کردم...
اگه راه دیگه ای داره هم بگین...
برنامه ام هم اینه...
برنامه فرستنده:
کد:
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
Config Porta = Input
Dim C1 As String * 13
Dim C2 As String * 13
Dim C3 As String * 13
Dim C4 As String * 13
Dim A As Byte
C1 = "salam"
C2 = "test"
C3 = "good"
C4 = "off"
Main:
Do
  If Pina.0 = 1 Then Goto Ch1
  If Pina.1 = 1 Then Goto Ch2
  If Pina.2 = 1 Then Goto Ch3
  If Pina.3 = 1 Then Goto Ch4
Loop
End

Ch1:
For A = 1 To 8
Print C1 ; Chr(13);
Waitms 20
Next A
Goto Main

Ch2:
For A = 1 To 8
Print C2 ; Chr(13);
Waitms 20
Next A
Goto Main

Ch3:
For A = 1 To 8
Print C3 ; Chr(13);
Waitms 20
Next A
Goto Main

Ch4:
For A = 1 To 8
Print C4 ; Chr(13);
Waitms 20
Next A
Goto Main

اینم برنامه گیرنده:
کد:
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2
Dim S As String * 13
Cls
Lcd " ehsan2774"
Waitms 500
Cls
Enable Interrupts
Enable Urxc
On Urxc Ee
Do
Lcd " salam"
Waitms 500
Cls
Lcd " is good"
Waitms 500
Cls
Loop

Ee:
Input S
Select Case S
Case "salam" : Gosub Salam
Case "test" : Gosub Test
Case "good" : Gosub Good
Case "off" : Gosub Turn_off
End Select
Salam:
Cls
Locate 2 , 1
Set Portc.0
Lcd S
Waitms 500
Cls
Return
Test:
Cls
Locate 2 , 1
Reset Portc.2
Set Portc.1
Lcd S
Waitms 500
Cls
Return
Good:
Cls
Locate 2 , 1
Reset Portc.1
Set Portc.2
Lcd S
Waitms 500
Cls
Return
Turn_off:
Locate 2 , 1
Reset Portc.2
Reset Portc.1
Reset Portc.0
Lcd S
Waitms 500
Cls
Return


امضای ehsan2774 
*****عيب جامعه اين است که همه مي خواند آدم مهمي باشند ولي هيچ کس نمي خواهد فرد مفيدي باشد.*****
(آخرین ویرایش در این ارسال: 2015/09/06، 06:32 PM، توسط ehsan2774.)
2015/09/06، 09:06 AM
پاسخ
تبلیغات
QUAD
By: My-BB.Ir
2015/09/06، 09:58 AM,
آفلاین
مدیرکل
تاریخ عضویت: Sep 2015
ارسال ها : 666
اعتبار: 59
سپاس ها 394
سپاس شده 250 بار در 171 ارسال
#2
RE: نویز ماژول HMT و HMR

(2015/09/06، 09:06 AM)ehsan2774 نوشته است: سلام می خوام نویز ماژول های HMT و HMR رو به صفر برسونم ؟؟؟
آیا این امکانش هست؟؟؟
چجوری ؟؟
از خازن 104 بین تغذیه + و - استفاده کردم...
اگه راه دیگه ای داره هم بگین...
برنامه ام هم اینه...
برنامه فرستنده:

کد:
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
Config Porta = Input
Dim C1 As String * 13
Dim C2 As String * 13
Dim C3 As String * 13
Dim C4 As String * 13
Dim A As Byte
C1 = "salam"
C2 = "test"
C3 = "good"
C4 = "off"
Main:
Do
 If Pina.0 = 1 Then Goto Ch1
 If Pina.1 = 1 Then Goto Ch2
 If Pina.2 = 1 Then Goto Ch3
 If Pina.3 = 1 Then Goto Ch4
Loop
End

Ch1:
For A = 1 To 8
Print C1 ; Chr(13);
Waitms 20
Next A
Goto Main

Ch2:
For A = 1 To 8
Print C2 ; Chr(13);
Waitms 20
Next A
Goto Main

Ch3:
For A = 1 To 8
Print C3 ; Chr(13);
Waitms 20
Next A
Goto Main

Ch4:
For A = 1 To 8
Print C4 ; Chr(13);
Waitms 20
Next A
Goto Main

اینم برنامه گیرنده:

کد:
$regfile = "m32def.dat"
$crystal = 1000000
$baud = 9600
Config Lcdpin = Pin , Db4 = Portb.2 , Db5 = Portb.3 , Db6 = Portb.4 , Db7 = Portb.5 , E = Portb.1 , Rs = Portb.0
Config Lcd = 16 * 2
Dim S As String * 13
Cls
Lcd " ehsan2774"
Waitms 500
Cls
Enable Interrupts
Enable Urxc
On Urxc Ee
Do
Lcd " salam"
Waitms 500
Cls
Lcd " is good"
Waitms 500
Cls
Loop

Ee:
Input S
Select Case S
Case "salam" : Gosub Salam
Case "test" : Gosub Test
Case "good" : Gosub Good
Case "off" : Gosub Turn_off
End Select
Salam:
Cls
Locate 2 , 1
Set Portc.0
Lcd S
Waitms 500
Cls
Return
Test:
Cls
Locate 2 , 1
Reset Portc.2
Set Portc.1
Lcd S
Waitms 500
Cls
Return
Good:
Cls
Locate 2 , 1
Reset Portc.1
Set Portc.2
Lcd S
Waitms 500
Cls
Return
Turn_off:
Locate 2 , 1
Reset Portc.2
Reset Portc.1
Reset Portc.0
Lcd S
Waitms 500
Cls
Return

سلام
وقت بخیر
اولین اقدام و مهم ترینش در حالت بی کاری ماژول hmt/hmr باید یک مد ارسال بشه به گیرنده
در این صورت نویز خیلی کم میشه که تاثیری زیادی در کارکرد مدار داره


امضای محمد مومنی 
مهندسی رباتیک،بهشت ریاضیات است...
عضویت در کانال آموزشی تیم EEFZ
2015/09/06، 09:58 AM
پاسخ
تبلیغات
QUAD
By: My-BB.Ir
2015/09/06، 11:08 AM,
آفلاین
کاربر جدید
تاریخ عضویت: Sep 2015
ارسال ها : 28
اعتبار: 0
سپاس ها 2
سپاس شده 16 بار در 10 ارسال
#3
RE: نویز ماژول HMT و HMR

(2015/09/06، 09:58 AM)محمد مومنی نوشته است: سلام
وقت بخیر
اولین اقدام و مهم ترینش در حالت بی کاری ماژول hmt/hmr باید یک مد ارسال بشه به گیرنده
در این صورت نویز خیلی کم میشه که تاثیری زیادی در کارکرد مدار داره
سلام
ممنون از کمکتون 
برنامه ای که گذاشتم هم فکر می کنم همین کارو بکنه ... چون داره 8 بار پشت سر هم با یه تاخیر کوچیک داده رو به گبرنده ارسال می کنه... 
منظور تون اینه که ماژول به حالت بیکاری نره ؟؟درسته ؟؟
می تونین بیشتر توضیح بدین...


امضای ehsan2774 
*****عيب جامعه اين است که همه مي خواند آدم مهمي باشند ولي هيچ کس نمي خواهد فرد مفيدي باشد.*****
2015/09/06، 11:08 AM
پاسخ
تبلیغات
QUAD
By: My-BB.Ir
2015/09/06، 02:56 PM,
آفلاین
مدیرکل
تاریخ عضویت: Sep 2015
ارسال ها : 666
اعتبار: 59
سپاس ها 394
سپاس شده 250 بار در 171 ارسال
#4
RE: نویز ماژول HMT و HMR

(2015/09/06، 11:08 AM)ehsan2774 نوشته است:
(2015/09/06، 09:58 AM)محمد مومنی نوشته است: سلام
وقت بخیر
اولین اقدام و مهم ترینش در حالت بی کاری ماژول hmt/hmr باید یک مد ارسال بشه به گیرنده
در این صورت نویز خیلی کم میشه که تاثیری زیادی در کارکرد مدار داره
سلام
ممنون از کمکتون 
برنامه ای که گذاشتم هم فکر می کنم همین کارو بکنه ... چون داره 8 بار پشت سر هم با یه تاخیر کوچیک داده رو به گبرنده ارسال می کنه... 
منظور تون اینه که ماژول به حالت بیکاری نره ؟؟درسته ؟؟
می تونین بیشتر توضیح بدین...

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


امضای محمد مومنی 
مهندسی رباتیک،بهشت ریاضیات است...
عضویت در کانال آموزشی تیم EEFZ
2015/09/06، 02:56 PM
پاسخ
تبلیغات
QUAD
By: My-BB.Ir
2015/09/06، 03:53 PM,
آفلاین
کاربر جدید
تاریخ عضویت: Sep 2015
ارسال ها : 28
اعتبار: 0
سپاس ها 2
سپاس شده 16 بار در 10 ارسال
#5
RE: نویز ماژول HMT و HMR

(2015/09/06، 02:56 PM)محمد مومنی نوشته است:
(2015/09/06، 11:08 AM)ehsan2774 نوشته است:
(2015/09/06، 09:58 AM)محمد مومنی نوشته است: سلام
وقت بخیر
اولین اقدام و مهم ترینش در حالت بی کاری ماژول hmt/hmr باید یک مد ارسال بشه به گیرنده
در این صورت نویز خیلی کم میشه که تاثیری زیادی در کارکرد مدار داره
سلام
ممنون از کمکتون 
برنامه ای که گذاشتم هم فکر می کنم همین کارو بکنه ... چون داره 8 بار پشت سر هم با یه تاخیر کوچیک داده رو به گبرنده ارسال می کنه... 
منظور تون اینه که ماژول به حالت بیکاری نره ؟؟درسته ؟؟
می تونین بیشتر توضیح بدین...

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

1)میشه اشکالاتش رو بگید؟؟؟
2) میشه یه مثال بزنید تا بهتر متوجه بشم؟؟؟


امضای ehsan2774 
*****عيب جامعه اين است که همه مي خواند آدم مهمي باشند ولي هيچ کس نمي خواهد فرد مفيدي باشد.*****
2015/09/06، 03:53 PM
پاسخ
تبلیغات
QUAD
By: My-BB.Ir
2015/09/06، 06:33 PM,
آفلاین
مدیرکل
تاریخ عضویت: Sep 2015
ارسال ها : 666
اعتبار: 59
سپاس ها 394
سپاس شده 250 بار در 171 ارسال
#6
RE: نویز ماژول HMT و HMR

(2015/09/06، 03:53 PM)ehsan2774 نوشته است:
(2015/09/06، 02:56 PM)محمد مومنی نوشته است:
(2015/09/06، 11:08 AM)ehsan2774 نوشته است:
(2015/09/06، 09:58 AM)محمد مومنی نوشته است: سلام
وقت بخیر
اولین اقدام و مهم ترینش در حالت بی کاری ماژول hmt/hmr باید یک مد ارسال بشه به گیرنده
در این صورت نویز خیلی کم میشه که تاثیری زیادی در کارکرد مدار داره
سلام
ممنون از کمکتون 
برنامه ای که گذاشتم هم فکر می کنم همین کارو بکنه ... چون داره 8 بار پشت سر هم با یه تاخیر کوچیک داده رو به گبرنده ارسال می کنه... 
منظور تون اینه که ماژول به حالت بیکاری نره ؟؟درسته ؟؟
می تونین بیشتر توضیح بدین...

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

1)میشه اشکالاتش رو بگید؟؟؟
2) میشه یه مثال بزنید تا بهتر متوجه بشم؟؟؟

انشاالله تا فردا شب 1 برنامه نمونه میگذارم براتون.


امضای محمد مومنی 
مهندسی رباتیک،بهشت ریاضیات است...
عضویت در کانال آموزشی تیم EEFZ
2015/09/06، 06:33 PM
پاسخ
تبلیغات
QUAD
By: My-BB.Ir
2015/09/06، 06:40 PM,
آفلاین
کاربر جدید
تاریخ عضویت: Sep 2015
ارسال ها : 28
اعتبار: 0
سپاس ها 2
سپاس شده 16 بار در 10 ارسال
#7
RE: نویز ماژول HMT و HMR

(2015/09/06، 06:33 PM)محمد مومنی نوشته است: انشاالله تا فردا شب 1 برنامه نمونه میگذارم براتون.

ایشالله ... منتظرم


امضای ehsan2774 
*****عيب جامعه اين است که همه مي خواند آدم مهمي باشند ولي هيچ کس نمي خواهد فرد مفيدي باشد.*****
2015/09/06، 06:40 PM
پاسخ
تبلیغات
QUAD
By: My-BB.Ir
2015/09/07، 02:56 PM,
آفلاین
مدیرکل
تاریخ عضویت: Sep 2015
ارسال ها : 666
اعتبار: 59
سپاس ها 394
سپاس شده 250 بار در 171 ارسال
#8
RE: نویز ماژول HMT و HMR

سلام
وقت بخیر
برنامه نمونه :


فرستنده :

کد:
:EEFZ


Do
"Print "7h2s
If Pind.0 = 1 Then Exit Do
"Print "7h2s
LOOP

Do
If Pind.0 = 1 Then Goto EEFZ1
LOOP


:EEFZ1
For A = 1 To 254
"Print "A8C9J
If Pind.0 = 0 Then
Goto E
End If
Next A
Goto E

گیرنده :
کد:
:EEFZ

Do

()S = Inkey
If S = "A8C9J" Then
Goto EEFZ1
Elseif S = "7h2s" Then
Goto No
End If

LOOP

  :EEFZ1

  If S = "7h2s" Then Goto No
 Portb.1 = 1
GOTO EEFZ

:NO
  Portb.1 = 0
GOTO EEFZ


امضای محمد مومنی 
مهندسی رباتیک،بهشت ریاضیات است...
عضویت در کانال آموزشی تیم EEFZ
2015/09/07، 02:56 PM
پاسخ
تبلیغات
QUAD
By: My-BB.Ir
2015/09/07، 05:36 PM,
آفلاین
کاربر جدید
تاریخ عضویت: Sep 2015
ارسال ها : 28
اعتبار: 0
سپاس ها 2
سپاس شده 16 بار در 10 ارسال
#9
RE: نویز ماژول HMT و HMR

(2015/09/07، 02:56 PM)محمد مومنی نوشته است: سلام
وقت بخیر
برنامه نمونه :


فرستنده :


کد:
:EEFZ


Do
"Print "7h2s
If Pind.0 = 1 Then Exit Do
"Print "7h2s
LOOP

Do
If Pind.0 = 1 Then Goto EEFZ1
LOOP


:EEFZ1
For A = 1 To 254
"Print "A8C9J
If Pind.0 = 0 Then
Goto E
End If
Next A
Goto E

گیرنده :

کد:
:EEFZ

Do

()S = Inkey
If S = "A8C9J" Then
Goto EEFZ1
Elseif S = "7h2s" Then
Goto No
End If

LOOP

  :EEFZ1

  If S = "7h2s" Then Goto No
 Portb.1 = 1
GOTO EEFZ

:NO
  Portb.1 = 0
GOTO EEFZ

سلام
ممنون از برنامه تون
میشه بگین E چیه ؟؟؟ 
قصد فرستادن چیرو دارین؟؟
طریقه کد کردنتون رو توضیح بدین؟؟
Huh


امضای ehsan2774 
*****عيب جامعه اين است که همه مي خواند آدم مهمي باشند ولي هيچ کس نمي خواهد فرد مفيدي باشد.*****
2015/09/07، 05:36 PM
پاسخ
تبلیغات
QUAD
By: My-BB.Ir
2015/09/07، 05:59 PM,
آفلاین
مدیرکل
تاریخ عضویت: Sep 2015
ارسال ها : 666
اعتبار: 59
سپاس ها 394
سپاس شده 250 بار در 171 ارسال
#10
RE: نویز ماژول HMT و HMR

(2015/09/07، 05:36 PM)ehsan2774 نوشته است:
(2015/09/07، 02:56 PM)محمد مومنی نوشته است: سلام
وقت بخیر
برنامه نمونه :


فرستنده :



کد:
:EEFZ


Do
"Print "7h2s
If Pind.0 = 1 Then Exit Do
"Print "7h2s
LOOP

Do
If Pind.0 = 1 Then Goto EEFZ1
LOOP


:EEFZ1
For A = 1 To 254
"Print "A8C9J
If Pind.0 = 0 Then
Goto E
End If
Next A
Goto E

گیرنده :


کد:
:EEFZ

Do

()S = Inkey
If S = "A8C9J" Then
Goto EEFZ1
Elseif S = "7h2s" Then
Goto No
End If

LOOP

  :EEFZ1

  If S = "7h2s" Then Goto No
 Portb.1 = 1
GOTO EEFZ

:NO
  Portb.1 = 0
GOTO EEFZ

سلام
ممنون از برنامه تون
میشه بگین E چیه ؟؟؟ 
قصد فرستادن چیرو دارین؟؟
طریقه کد کردنتون رو توضیح بدین؟؟
Huh

e ==eefz

کد رو میفرستیم تو گیرنده میگیریم
در حالت بیکاری هم 7hs2 ارسال میشه و تو گیرنده تا این دریافت مشه خروجی که portb.1 هست صفره


امضای محمد مومنی 
مهندسی رباتیک،بهشت ریاضیات است...
عضویت در کانال آموزشی تیم EEFZ
2015/09/07، 05:59 PM
پاسخ
تبلیغات
QUAD
By: My-BB.Ir
« قدیمی‌تر | جدیدتر »
کاربرانِ درحال بازدید از این موضوع: 1 مهمان



پرش به انجمن:

تیم اموزشی ما از سال ۱۳۸۸ در سطح استان فارس اموزش های خود را ارئه داد اما به دلیل نبود موسسه و اموزشگاه های فعال در دیگر استان ها تصمیم گرفتیم اموزشهای الکترونیک و رباتیک را بصورت مجازی ارائه دهیم.امیدوارم اموزشهای ارائه شده از طرف تیم ما رضایت شما کاربران عزیز را جلب کرده باشددر صورت هرگونه سوال،انتقاد،پیشنهاد اموزش به شماره زیر پیامک بزیند یا در واتس اپ پیغام بگذارید. ۰۹۱۷۶۷۶۲۵۸۵ © 2015. Translated By Yasserp66