اطلاعیه

Collapse
No announcement yet.

دستور serout

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

    دستور serout

    سلام
    من یه مشکل ارتباط سریالی دارم لطفا با تجربه ها کمک کنن
    برای ارتباط با کامپیوتر با دستور serout مدار من جواب نمی ده ولی با دستور print جواب میگیرم . پس مشکل سخت افزاری نداره
    برای تنظیمات هم توی terminal emulator از توی setting و بعد از توی communication مقادیر رو تنظیم می کنم. آیا به تنظیمات دیگه ای هم نیاز داره .
    برنامه هم به این صورت است :


    $[regfile="m16def.dat"
    $crystal=8000000
    $baud=9600
    Dim S As byte
    Dim Mybaud As Long

    S=1
    Mybaud = 9600

    do
    Serout S , 0 , D , 1 , Mybaud , 0 , 8 , 1
    Wait 1
    Loop

    End
    ممنون میشم از راهنماییتون

    #2
    پاسخ : دستور serout

    من فکر می کنم این دستور مربوط به ارسال متغیر های رشته ای باشه
    بنابراین
    DIM S AS STRING * n
    و یک دستور هم برای غیر فعال کردن UART سخت افزاریه
    Ucsr0b = 0 ' DISABLE HW UART
    موفق باشی



    اگه مردم می دونستن زمان چقدر با ارزشه دیگه هیچ وقت کفش بند دار نمی خریدن البرت انیشتن

    دیدگاه


      #3
      پاسخ : دستور serout

      نه ربطی به نوع متغییر نداره!!! توی Help خود بسکام دیتا از نوع Long ارسال کرده!


      $regfile = "2313def.dat" ' specify the used micro

      $crystal = 4000000 ' used crystal frequency

      $baud = 19200 ' use baud rate

      $hwstack = 32 ' default use 32 for the hardware stack

      $swstack = 10 ' default use 10 for the SW stack

      $framesize = 40 ' default use 40 for the frame space



      'tip : Also look at OPEN and CLOSE



      'some variables we will use

      Dim S As String * 10

      Dim Mybaud As Long

      'when you pass the baud rate with a variable, make sure you dimesion it as a LONG



      Mybaud = 19200

      Do

      'first get some data

      Serin S , 0 , D , 0 , Mybaud , 0 , 8 , 1

      'now send it

      Serout S , 0 , D , 1 , Mybaud , 0 , 8 , 1

      ' ^ 1 stop bit

      ' ^---- 8 data bits

      ' ^------ even parity (0=N, 1 = E, 2=O)

      ' ^-------------- baud rate

      ' ^-------------------- pin number

      ' ^----------------------- port so PORTA.0 and PORTA.1 are used

      ' ^--------------------------- for strings pass 0

      ' ^-------------------------------- variable

      Wait 1

      Loop

      End

      دیدگاه


        #4
        پاسخ : دستور serout

        سلام

        من به صورت رشته هم امتحان کردم جواب نداد .

        در مورد ucsrob=0 میشه بیشتر توضیح بدید

        دیدگاه

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