اطلاعیه

Collapse
No announcement yet.

ارتباط ویژوال بیسیک و پورت سریال و AVR

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

    ارتباط ویژوال بیسیک و پورت سریال و AVR

    سلام

    از مهندسین عزیز، کسی با برنامه ویژوال بیسیک 6 کار کرده؟

    من برای برقراری ارتباط AVR با پورت سریال با هزار مصیبت یه برنامه ویژوال بیسیک نوشتم ،
    برنامم خیلی خوب کار میکنه ، تقریبا هم تمومه ولی نمی دونم با چه دستوری می تونم با ویژوال بیسیک به پورت سریال (com1) اطلاعات بفرستم. :question: :question:

    یه کتاب 700 صفحه ای ویژوال بیسیک گرفتم خوندم ، یه سی دی آموزشی هم گرفتم ، اما توش قسمت ارتباط سریال وجود نداره . help برنامم هم کار نمی کنه.

    کسی می تونه دستورهاش را بهم بگه؟ :applause:
    از چارلی چاپلین پرسیدند خوشبخنی چیست ؟
    گفت : فاصله این بد بختی تا بد بختی دیگر !

    #2
    پاسخ : ارتباط ویژوال بیسیک و پورت سریال و AVR

    دوست عزیز می تونی در فرم لود پورت سریالو پیکر بندی کنی:
    MSComm1.Settings = "9600,N,8,1"
    MSComm1.RThreshold = 1
    MSComm1.SThreshold = 1
    MSComm1.InputLen = 1
    MSComm1.PortOpen = True
    و با این دستور 256 بایتو با هربار ارسال به پورت ارسال کنید (البته عددی)
    MSComm1.Output = Chr$("12&quot
    MSComm1.Output = Chr$("12&quot

    دیدگاه


      #3
      پاسخ : ارتباط ویژوال بیسیک و پورت سریال و AVR

      http://www.eca.ir/forum2/index.php?topic=8039.0

      دیدگاه


        #4
        پاسخ : ارتباط ویژوال بیسیک و پورت سریال و AVR

        سلام

        خیلی ممنون از پاسخ های دوستان...
        من مشکلم فقط توی این بود که فایل Mscomm32.ocx را به برنامه اضافه نمی کردم که اینو با سرچی که توی وبلاگ های بچه های کامپیوتری کردم فهمیدم و مشکلم حل شد.

        نوشته اصلی توسط amir.sabaghian
        دوست عزیز می تونی در فرم لود پورت سریالو پیکر بندی کنی:
        MSComm1.Settings = "9600,N,8,1"
        MSComm1.RThreshold = 1
        MSComm1.SThreshold = 1
        MSComm1.InputLen = 1
        MSComm1.PortOpen = True
        و با این دستور 256 بایتو با هربار ارسال به پورت ارسال کنید (البته عددی)
        MSComm1.Output = Chr$("12&quot
        MSComm1.Output = Chr$("12&quot
        این سه خط چی کار میکنه؟
        MSComm1.RThreshold = 1
        MSComm1.SThreshold = 1
        MSComm1.InputLen = 1

        256 بایت SRAM ندارم. من اطلاعاتم 152 بایته که قصد دارم با حلقه for آن ها را بگیرم...

        از چارلی چاپلین پرسیدند خوشبخنی چیست ؟
        گفت : فاصله این بد بختی تا بد بختی دیگر !

        دیدگاه


          #5
          پاسخ : ارتباط ویژوال بیسیک و پورت سریال و AVR

          اولی نقطه شروع آر رو باز میکنه
          دومی نقطه شروع اسو
          و سومی ورودی میگیره

          دیدگاه


            #6
            پاسخ : ارتباط ویژوال بیسیک و پورت سریال و AVR

            این ربات تعقیب خط کامل که تبلیغشو زدین رو خریدم ولی نتونستم ازش استفاده کنم 9ولت زدم روشن میشه ولی قاط میزنه خطرو دنبال نمیکنه؟؟

            دیدگاه

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