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

بخش چهارم

 

برنامه ذيل توسعه برنامه پست قبل ميباشد.

در اين برنامه با زدن هر يك از كليدهاي 1 تا 8 يكي از نشانگرهاي LED  نصب شده بر روي پورت پرينتر روشن ميشوند و با زدن كليد عدد  0 (صفر)  كليه نشانگرها خاموش ميشوند.

 

 

‘برنامه اصلي

 

LPT1=&H378

 

DO

 

                OUT  LPT1,Index

              

               X$= INKEY$

               IF  X$=CHR$(27)  THEN   END

 

               IF  X$=”1”   THEN  Index=1              ‘D0=PIN2

               IF  X$=”2”   THEN  Index=2              ‘D1=PIN3

               IF  X$=”4”   THEN  Index=4              ‘D2=PIN4

               IF  X$=”8”   THEN  Index=8              ‘D3=PIN5

               IF  X$=”16”  THEN  Index=16          ‘D4=PIN6

               IF  X$=”32”  THEN  Index=32          ‘D5=PIN7

               IF  X$=”64”  THEN  Index=64          ‘D6=PIN8

               IF  X$=”128”  THEN  Index=128      ‘D7=PIN9

 

               IF X$=”0” THEN  Index=0               ‘OFF  DATA PORT      ALL PIN=0

      

LOOP

 

 

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

 

 

موفق باشيد