اطلاعیه

Collapse
No announcement yet.

hmt,hmr

Collapse
X
 
  • فیلتر
  • زمان
  • Show
Clear All
new posts

    hmt,hmr

    سلام
    من یه hmt و یه hmr دارم ،وفتی دیتا رو به صورت باینری(printbin) میفرستم و به صورت باینری(printbin) هم میگیرم موردی نداره و کار میکنه ولی وقتی با دستور(print ) میفرستم و با همین دستور یا به صورت هگز و اسکی دریافت میکنم کار نمیکنه
    لطفا راهنمایی کنید خیلی گیر این موردم :cry2:


    برنامه ای که کار مکینه:
    فرستنده:
    کد:
    $regfile = "m16def.dat"
    $crystal = 8000000
    $baud = 9600
    Dim Xx As Word
    Do
    Xx = 200
    Printbin Xx
    Loop
    End
    گیرنده :
    کد:
    $regfile = "m8def.dat"
    $crystal = 8000000
    Config Portb = Output
    $baud = 9600
    Dim Xx As Word
    
    Do
    Inputbin Xx
    
    If Xx = 200 Then
    Set Portb.0
    Set Portb.2
    Goto A
    End If
    
    Set Portb.0
    Reset Portb.2
    Waitms 35
    Reset Portb.0
    Set Portb.2
    Waitms 35
    A:
    
    
    Loop
    
    End

    برنامه ای که کار نمیکنه:
    فرستنده:
    کد:
    $regfile = "m16def.dat"
    $crystal = 8000000
    $baud = 9600
    Dim Xx As Word
    Do
    Xx = 200
    Print Xx
    Loop
    End
    گیرنده:
    کد:
    $regfile = "m8def.dat"
    $crystal = 8000000
    Config Portb = Output
    $baud = 9600
    Dim Xx As Word
    
    Do
    Input Xx
    
    If Xx = 200 Then
    Set Portb.0
    Set Portb.2
    Goto A
    End If
    
    Set Portb.0
    Reset Portb.2
    Waitms 35
    Reset Portb.0
    Set Portb.2
    Waitms 35
    A:
    
    
    Loop
    
    End






    #2
    پاسخ : hmt,hmr

    نوشته اصلی توسط arm_avr
    سلام
    من یه hmt و یه hmr دارم ،وفتی دیتا رو به صورت باینری(printbin) میفرستم و به صورت باینری(printbin) هم میگیرم موردی نداره و کار میکنه ولی وقتی با دستور(print ) میفرستم و با همین دستور یا به صورت هگز و اسکی دریافت میکنم کار نمیکنه
    لطفا راهنمایی کنید خیلی گیر این موردم :cry2:
    سلام
    اول با سیم تست کن
    ببین جواب میده ؟
    [b]چگونه همه پایه های میکروکنترلر AVR را PWM کنیم؟
    معرفی نرم افزارEasy 7segment (برای راه اندازی آسانتر 7segment )
    معرفی نرم افزار Codewizard PWM
    با من بیشتر آشنا شوید

    دیدگاه


      #3
      پاسخ : hmt,hmr

      با سیم جواب میده

      دیدگاه


        #4
        پاسخ : hmt,hmr

        نوشته اصلی توسط arm_avr
        با سیم جواب میده
        بسکام همیشه عتیقه بوده
        اون موقع ها که با بسکام کار میکردم همیشه با دستور Printbin جواب میگرفتم اونم با String
        متغیر میفرستادم جواب نمیگرفتم !!
        ولی با کدویژن هیچوقت به مشکل برنخوردم .
        حالا چرا میخوای با این Print و input کار کنی ؟
        موقعی که با Printbin جواب گرفتی دیگه نیازی نیست با اون دوتا دستور عتیقه جواب بگیری!!!
        [b]چگونه همه پایه های میکروکنترلر AVR را PWM کنیم؟
        معرفی نرم افزارEasy 7segment (برای راه اندازی آسانتر 7segment )
        معرفی نرم افزار Codewizard PWM
        با من بیشتر آشنا شوید

        دیدگاه


          #5
          پاسخ : hmt,hmr

          من از بسکام سر در نمیارم ولی برای کار با htm & hmr با این نکته رو در نظر بگیری که حتما باید هر 70 میلی ثانیه یه اطلاعاتی برا گیرنده بفرستی وگرنه قاطی میکنه،ببین با در نظر گرفتن این حالت برنامت درست میشه؟

          دیدگاه


            #6
            پاسخ : hmt,hmr

            سلام
            من با سیم که امتحان کردم فهمیدم از ماژول بیچاره نیست
            من یه متغیر از نوع word رو در هر لوپ یکی بهش اضاف میکنم بعد در هر دور اون رو به متغیر استرینگ تبدیل میکنم و میفرستم

            این هم برنامه گیرنده من لطفا بگین گیر کا کجاست ،خیلی گیرم
            کد:
            $regfile = "m8def.dat"
            $crystal = 8000000
            Config Portb = Output
            $baud = 9600
            Dim A As String * 20
            Dim B As String * 20
            Dim C As String * 20
            
            
            Dim Aa As Word
            Dim Bb As Word
            Dim Cc As Word
            
            Dim Aaa As Word
            Dim Bbb As Word
            Dim Ccc As Word
            
            Dim T As Word
            Set Portb.1 این پایه رو دادم اینیبل ماژول
            Do
            Set Portb.1
            A = Waitkey()
            B = Waitkey() چون داده من داره استرینگ میاد به گیرنده و نهایتا 3 کاراکتره من تو 3 waitkey اون رو دریافت کردم
            C = Waitkey()
            
            
            Aa = Val(a)
            Bb = Val(b) و هر کدوم از این 3 کاراکتر رو جداگون به عدد تغییر دادم
            Cc = Val(c)
            
            
            Aaa = Aa * 100
            Bbb = Bb * 10 اینجا هم برا بدست اومدن عدد ارسال شده اون رو در 100 ،10 و 1 ضرب کردم
            Ccc = Cc * 1
            
            
            T = Aaa + Bbb
            T = T + Ccc این جا هم با هم جمشون کردم تا عدد به دست بیاد
            
            
            
            
            
            If T < 100 And Then حالا گفتم این عدد ارسالی اگه کمتر از 100 بود یکled رو روشن و یکی رو خاموش کنه
            Set Portb.0
            Reset Portb.2
            End If
            
            
            
            
            
            
            If T > 100 And Then و اگه از 100 بزرگتر برعکس خالت قبل بشه
            Reset Portb.0
            Set Portb.2
            End If
            
            
            
            
            
            
            Loop
            
            
            
            
            
            
            End
            خواهش میکنم کمک کنید :cry2:


            دیدگاه

            لطفا صبر کنید...
            X