Elektronik ve Teknoloji Merkezi Elektrotekno.com
Elektronik ve Teknoloji Merkezi




Click here to go to the original topic

Elektrotekno.com Ana Sayfa Bilgisayar Programlama
Yazar Mesaj
bilsisco
Tarih: 13.12.2006, 04:31 Mesaj konusu: turbo pascal ve c de yapılmış 3 bit paralel port kontrol pro

programları yaptım kusursuz led yakıyorlar hem c hem pascal programım
ama paralel port ile 8 pin kontrol etmem gerekirken neden
sadece 3 (pin yukarıdan assagı 6-7-8. pinler yada d4-d5-d6 data register i/oları)
kontrol ediyorum??

Ekte isteyenler programlarımı da indirebilirler

ve ayrıca sulerden de pascal ve c indirebilirsiniz
turbo pascal..: http://www.tamindir.com/category/167/Pa...files.html
turbo c.........: http://www.csharpnedir.com/download.asp

Hem de bana yardım edecek arkadaslara ihtiyacım var bu konuda


Turbo pascal

uses dos,crt;
var
t,i:integer;

begin
clrscr;
t:=0;
for i:=0 to 7 do
begin
Port[$378]:=t; { veya Port[888] }
writeln(i,'. port[',t,']');
t:=t+16;
readln;
end;
end.
{dongu ilk calstgnda
(i=0)
paralel portun 6,7 ve 8. pini yada d4,d5 ve d6 data register
ckŸlar= 000

(i=1)
paralel portun 6,7 ve 8. pini yada d4,d5 ve d6 data register
ckŸlar= 001
.
.
.
(i=7)
paralel portun 6,7 ve 8. pini yada d4,d5 ve d6 data register
ckŸlar= 111

not:paralel portun diger bitlerini bi trl kontrol edemedim :(
}

Turbo c

#include<stdio.h>
#include<conio.h>
#include<dos.h>
main()
{
int sayi,t;
char c;
clrscr();
printf("Dikkat sonuc alabilmek i‡in tamekran(alt+enter)\nyada dos ortaminda calistirin \n\n(onbilgiyi gecmek i‡in bir tufa basin)");
getch();
do{
clrscr();
printf("3 bitlik lambalara, 0-7 arasi bir deger girin ");
scanf("%d",&sayi);
switch (sayi){
case 0 : {t=0; outp(888,t); printf("Port[0x378]..: %d",t); break;}
case 1 : {t=16; outp(888,t); printf("Port[0x378]..: %d",t); break;}
case 2 : {t=32; outp(888,t); printf("Port[0x378]..: %d",t); break;}
case 3 : {t=48; outp(888,t); printf("Port[0x378]..: %d",t); break;}
case 4 : {t=64; outp(888,t); printf("Port[0x378]..: %d",t); break;}
case 5 : {t=80; outp(888,t); printf("Port[0x378]..: %d",t); break;}
case 6 : {t=96; outp(888,t); printf("Port[0x378]..: %d",t); break;}
case 7 : {t=112; outp(888,t); printf("Port[0x378]..: %d",t); break;}
default : {printf("Yanlis giris yaptiniz"); break;}
}
printf("\n\nTekrar denemek istermisiniz[e/h] ");
c=getch();
}while(c!='h');
// outp(888,t); // veya outp(0x378,t) t=degisken
getch();
return 0;
}
-----------------------------------------------------

Elektrotekno.com Ana Sayfa Bilgisayar Programlama
1. sayfa (Toplam 1 sayfa)

turbo pascal ve c de yapılmış 3 bit paralel port kontrol programları

Gizlilik Politikası

PLC programming