پورتها - بخش سوم

بخش سوم

 

توجه داشته باشيد ما ميخواهيم گام به گام با برنامه نويسي پورت آشنا بشويم پس عجله نكنيد و انتظار نداشته باشيد فوري در محيط ويندوز كار كنيم بسياري از دوستان از ما خواسته اند كه مطالب را ساده و كاربردي مطرح كنيم تا همه بتوانند از آن استفاده كنند . مسلما كساني كه داراي پشتكار و تلاش بيشتري هستند ميتوانند با آشنايي اوليه به مطالب حرفه ايي مراجعه كنند و زودتر به مقصود خودشان برسند.

 

در اين بخش از برنامه آموزشي براي آشنايي بيشتر با برنامه نويسي پورتها برنامه زير را در محيط كيو بيسيك تحت داس بنويسيد و اجرا كنيد.

اين برنامه درگاه ديتا پورت پرينتر را فعال كرده و نشانگر هاي LED  متصل شده به آن را مطابق نقشه زير بترتيب روشن و خاموش ميكند.

شما ميتوانيد با تغيير اين برنامه روش روشن و خاموش شدن نشانگرها را تغيير دهيد.

توجه: پورت هاي كامپيوتر بسيار حساس هستند و از اتصالات نا آگاهانه جدا اجتناب نماييد . حتما از مقامت هاي محدود كننده جريان استفاده كنيد در غير اينصورت پورتها خواهند سوخت.

 

وسايل مورد نياز:

برنامه كيوبيسيك 4 به بالا

سوكت 25 پين نري با قاب مربوطه

كابل فلت 9 سيمه يك متر

مقاومت 680 اهم  8 عدد

LED  به رنگ دلخواه ترجيحا از نوع 3 ميليمتري 8 عدد

بردبورد (تخته آزمايش مدار)

 

 

 

 

 

 

 

  

برنامه در كيو بيسيك:

در اغلب كامپيوتر ها يك درگاه پرينتر وجود دارد كه آدرس پيش فرض اين درگاه  در كد هگز 378 ميباشد كه ما در اين برنامه آزمايشي آنرا به يك ثابت LPT1  منسوب كرده ايم.

در خط بعدي حلقه اصلي برنامه شروع ميشود

خط بعدي وقفه صفحه كليد را فعال ميكند و در خط بعدي چنانچه كاربر كليد Esc  را بزند برنامه تمام مي گردد.

در خط بعدي حلقه شمارنده از يك تا 255 را ميشمارد و عدد متناظر را بر روي درگاه ديتا پرينتر قرار ميدهد و به اينترتيب نشانگر هاي LED  بصورت باينري يك بايتي ( هشت بيت اطلاعات ) روشن و خاموش ميشوند . براي اينكه سرعت برنامه زياد است و شما بتوانيد روشن و خاموش شدن نشانگر ها را ببينيد يك خط تاخيري با استفاده از يك ساب روتين ايجاد ميكنيم كه بطور پيش فرض در برنامه 200 ميلي ثانيه تاخير ايجاد ميكند كه شما اين عدد را ميتوانيد كم يا زياد  نمائيد ( هر يكدهم ثانيه برابر 100 ميلي ثانيه تاخير مي باشد )

 

 

‘برنامه اصلي

 

LPT1=&H378

 

DO

        FOR Index= 1 TO 255

 

                OUT  LPT1,Index

              

               X$= INKEY$

               IF X$=CHR$(27) THEN  END

 

                Delay 02

       

        NEXT Index

LOOP

 

‘ايجاد تاخير

SUB Delay(T)

      

X=TIMER

 

        DO UNTIL TIMER-X>=T

        LOOP

 

END SUB

 

   

 

منتظر بخش ديگر باشيد . لطفا نظرات خودتان را اعلام بفرماييد . تا شما پرسش نكنيد ما نميتوانيم پاسخي به خواسته هاي شما داشته باشيم.

 

 

موفق باشيد