اطلاعیه

Collapse
No announcement yet.

مشکل با جدا سازی اطلاعات دریافتی از پورت سریال

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

    مشکل با جدا سازی اطلاعات دریافتی از پورت سریال

    سلام دوستان من این برنامهرو نوشتم که یه عدد 4 رقمیرو از پورت سریال دریافت کنم بعد یکی یکی اعدادشو جدا کنم اما فقط بار اول جواب میده دفعه های بعدی با اصلا کار نمیکنه یا قاطی جواب میده ..
    اینم کدام ..
    $regfile = "m32def.dat">
    $crystal = 1000000
    $baud = 1200
    Config Porta = Output
    Config Portb = Output
    Enable Interrupts
    Enable Urxc

    On Urxc Rea
    Dte Alias Porta
    Block Alias Portb


    Dim A As String * 5
    Dim Ch_1 As String * 1
    Dim Ch_2 As String * 1
    Dim Ch_3 As String * 1
    Dim Ch_4 As String * 1
    Main:
    Ch_1 = ""
    Ch_2 = ""
    Ch_3 = ""
    Ch_4 = ""
    A = ""


    Do

    Loop
    Rea:
    Input , A

    Ch_1 = Mid(a , 1 , 1)
    Ch_2 = Mid(a , 2 , 1)
    Ch_3 = Mid(a , 3 , 1)
    Ch_4 = Mid(a , 4 , 1)



    Print "ch1=" ; Ch_1
    Print "ch2=" ; Ch_2
    Print "ch3=" ; Ch_3
    Print "ch4=" ; Ch_4

    Goto Main
    Return
    >

    پیشاپیش ممنون و متشکر

    #2
    پاسخ : مشکل با جدا سازی اطلاعات دریافتی از پورت سریال

    دوستان کسی نبود کمک کنه به ما؟؟؟؟؟؟؟؟؟؟

    دیدگاه


      #3
      پاسخ : مشکل با جدا سازی اطلاعات دریافتی از پورت سریال

      سلام مهندس
      ظرفیت استرینگ هایی که تو برنامه تعریف کردی ببر بالا تر (5 یا 6 بذار)
      ایشالله ردیف میشه
      داده رو از سریال درست میخونی دیگه؟؟
      تیم کاوش در مسابقات بین المللی ایران اپن 2016.نمایشی.مین یاب.
      علم را باید در آزمایشگاه یاد گرفت نه در دانشگاه!

      دیدگاه


        #4
        پاسخ : مشکل با جدا سازی اطلاعات دریافتی از پورت سریال

        نوشته اصلی توسط pars_paya
        سلام مهندس
        ظرفیت استرینگ هایی که تو برنامه تعریف کردی ببر بالا تر (5 یا 6 بذار)
        ایشالله ردیف میشه
        داده رو از سریال درست میخونی دیگه؟؟
        سلام
        ضمن تایید فرمایش دوستمون، اگه بعد از استفاده از رشته ها خالیشون کنی -یا قبل از اینکه دیتا توش بریزی - خالیشون کنی احتمال زیاد حل میشه مشکلت.
        بعد از دستور input متغیرهاتو یکی یکی برابر "" قرار بده بعد از دستور mid استفاده کن.
        ممنون
        تشكر نكن، صلوات بفرست:

        [img width=165 height=100]http://www.askdin.com/gallery/images/29839/1___________5.png[/img]

        دیدگاه

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