نمایش نتایج 1 تا 40 از 88

نام تاپیک: کنترل وسیله برقی توسط کامپیوتر (سریال و موازی)

Hybrid View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #1
    کاربر دائمی آواتار sam166
    تاریخ عضویت
    شهریور 1388
    محل زندگی
    ???????
    پست
    508

    نقل قول: کنترل وسیله برقی توسط کامپیوتر (سریال و موازی)

    نقل قول نوشته شده توسط kernel مشاهده تاپیک
    اوالا اینکه enable global interrupt

    بعدشم اینکه بهتره اطلاعات رو از سیستم با استفاده از وقفه دریافت کنی !
    ممنون از راهنمایی تون
    ولی من در این دو موردی که شما عرض کردید اطلاعاتی ندارم
    لطفا یک مثال همراه با توضیح اینجا بزارید

    با تشکر

  2. #2

    نقل قول: کنترل وسیله برقی توسط کامپیوتر (سریال و موازی)

    سلام

    در مورد پروژه شما اگه فقط یک کانال رو می خواهیدکنترل کنید یه راه خیلی ساده و کوتاه وجود داره که نیازی هم به میکرو نداره

  3. #3

    نقل قول: کنترل وسیله برقی توسط کامپیوتر (سریال و موازی)

    در مورد برنامه باید از VB چهار بایت رو ارسال کنید
    اگه ار دستور waitkey استفاده کنید حتما موفق می شید یا مستقیما از وقفه پورت سریال و رجیستر های سریال پورت استفاده کنید
    مثال:
    Open "comd.7:9600,8,n,1" For Output As #1
    Printbin #1 , 64 ; 17 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 81 ; 10
    Close #1
    'Waitms 10
    Open "comd.6:9600,8,n,1" For Input As #2
    For I = 1 To 13
    Buf = Waitkey(#2)
    Buffer(i) = Buf
    Next I
    Close #2

  4. #4
    کاربر دائمی آواتار sam166
    تاریخ عضویت
    شهریور 1388
    محل زندگی
    ???????
    پست
    508

    نقل قول: کنترل وسیله برقی توسط کامپیوتر (سریال و موازی)

    نقل قول نوشته شده توسط makhof مشاهده تاپیک
    سلام

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

    نقل قول نوشته شده توسط makhof مشاهده تاپیک
    در مورد برنامه باید از VB چهار بایت رو ارسال کنید
    اگه ار دستور waitkey استفاده کنید حتما موفق می شید یا مستقیما از وقفه پورت سریال و رجیستر های سریال پورت استفاده کنید
    مثال:
    Open "comd.7:9600,8,n,1" For Output As #1
    Printbin #1 , 64 ; 17 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 0 ; 81 ; 10
    Close #1
    'Waitms 10
    Open "comd.6:9600,8,n,1" For Input As #2
    For I = 1 To 13
    Buf = Waitkey(#2)
    Buffer(i) = Buf
    Next I
    Close #2
    من منظورم در برنامه میکرو بود
    شما میتونید یک مثال بزنید که میکرو اطلاعات را دریافت کند

برچسب های این تاپیک

قوانین ایجاد تاپیک در تالار

  • شما نمی توانید تاپیک جدید ایجاد کنید
  • شما نمی توانید به تاپیک ها پاسخ دهید
  • شما نمی توانید ضمیمه ارسال کنید
  • شما نمی توانید پاسخ هایتان را ویرایش کنید
  •