Good Site učiť prepojenia s C

[electrojit]

http://www.learn-c.com/

stiahnuť celú stránku "Offline Explorer" a tešiť sa obsah offline vo vašom convinence

 

[jog]

čítaj mojej skúsenosti s paralelný port rozhrania z yahoo skupiny-booksbybibin
http://tech.groups.yahoo.com/group/booksbybibin/

Bibinje John
www.bibinjohn.tk

 

[shabab]

skúste tento program
Kód:

# Include "stdio.h"

# Include "conio.h"

# Include "graphics.h"

# Include "dos.h"

# Include "stdlib.h"

# Define ESC 27

# Define outport 0x378

# Define ledon 0xff

# Define ledoff 0x00

int statické nie [8] = (0x01, 0x02, 0x04, 0x08, 0x10, 0x20, 0x40, 0x80);

int c, f = 0;

void tlačidlo (int, int, int, int, char []);

void blikání (int, int, int, int);

void zobrazenie (void);

void main (void)

(

int dr = odhaliť, m, a, b;

initgraph (& dr, & m, "c: \ \ tc \ \ bgi");

char ch meno [10];

hlavné:

cleardevice ();

displeji ();

Tlačidlo (80,75,130,100, "A");

Tlačidlo (80.125.130.150, "B");

Tlačidlo (80.175.130.200, "C");

Tlačidlo (80.225.130.250, "D");

Tlačidlo (80.275.130.300, "E");

Tlačidlo (80.325.130.350, "F");

Tlačidlo (80.375.130.400, "Exit");

setcolor (1);

settextstyle (11,0,3);

outtextxy (140390, "stlačením klávesu Esc Exit");

outtextxy (140,90, "Glow LED podľa vášho výberu");

outtextxy (140140, "blikajúca LED");

outtextxy (140190, "Otočiť doľava");

outtextxy (140240, "Otočiť doprava");

outtextxy (140290, "Otočiť doľava PRAVÝ");

outtextxy (140340, "jeden na ONE OFF");

ch = getch ();

if (ch == 27) / / na výstupe

(

closegraph ();

exit (0);

)

iné

if (ch == 'a' | | ch == 'A') / / Enter Jan Nie

(

rep:

cleardevice ();

displeji ();

setcolor (1);

setfillstyle (1,0);

obdĺžnik (100100550300); / / čierna

floodfill (120,120,1);

setcolor (1);

obdĺžnik (315140330160); / / modré

setcolor (4);

kruhu (400,180,5); / / viedla 7

kruhu (380,180,5); / / viedol 6

kruhu (360,180,5); / / LED 5

kruhu (340,180,5); / / viedlo 4

kruhu (320,180,5); / / LED 3

kruhu (300,180,5); / / LED 2

kruhu (280,180,5); / / LED 1

kruhu (260,180,5); / / viedlo 0

setcolor (1);

settextstyle (10,0,1);

outtextxy (180100, "ENTER LED NIE 0 - 7");

gotoxy (41,10);

dostane (name);

if (názov [0] == 48) / / 0 viedla záře

(

outportb (outport, nie [0]);

setcolor (4);

setfillstyle (1,4);

floodfill (261,181,4);

)

if (názov [0] == 49) / / 1 vedené záře

(

outportb (outport, nie [1]);

setcolor (4);

setfillstyle (1,4);

floodfill (281,181,4);

)

if (názov [0] == 50) / / 2 viedla záře

(

outportb (outport, nie [2]);

setcolor (4);

setfillstyle (1,4);

floodfill (301,181,4);

)

if (názov [0] == 51) / / 3 vedenej záře

(

outportb (outport, nie [3]);

setcolor (4);

setfillstyle (1,4);

floodfill (321,181,4);

)

if (názov [0] == 52) / / 4 viedol záře

(

outportb (outport, nie [4]);

setcolor (4);

setfillstyle (1,4);

floodfill (341,181,4);

)

if (názov [0] == 53) / / 5 viedlo záře

(

outportb (outport, nie [5]);

setcolor (4);

setfillstyle (1,4);

floodfill (361,181,4);

)

if (názov [0] == 54) / / 6 viedlo záře

(

outportb (outport, nie [6]);

setcolor (4);

setfillstyle (1,4);

floodfill (381,181,4);

)

if (názov [0] == 55) / / viedla 7 záře

(

outportb (outport, nie [7]);

setcolor (4);

setfillstyle (1,4);

floodfill (401,181,4);

)

setcolor (1);

settextstyle (11,0,10);

outtextxy (210350, "PRESS R pre návrat na hlavnú");

outtextxy (240370, "stlačením klávesu Esc Exit");

ch = getch ();

if (ch == 'r' | | ch == 'R')

goto hlavné;

iné

if (ch == 27) / / na výstupe

(

closegraph ();

exit (0);

)

iné

goto rep;

) / / A KON

////////// LED NO B

if (ch == 'b' | | ch == 'B')

(cleardevice ();

displeji ();

setcolor (1);

setfillstyle (1,0);

obdĺžnik (100100550300); / / čierna

floodfill (120,120,1);

setcolor (4);

kruhu (400,180,5); / / viedla 7

kruhu (380,180,5); / / viedol 6

kruhu (360,180,5); / / LED 5

kruhu (340,180,5); / / viedlo 4

kruhu (320,180,5); / / LED 3

kruhu (300,180,5); / / LED 2

kruhu (280,180,5); / / LED 1

kruhu (260,180,5); / / viedlo 0setcolor (14);

settextstyle (10,0,1);

outtextxy (145.100, "stlačením ľubovoľného tlačidla STOP");

setcolor (1);

settextstyle (11,0,10);

outtextxy (210350, "PRESS R pre návrat na hlavnú");

outtextxy (240370, "stlačením klávesu Esc Exit");

int a = 4;

while (! kbhit ())

(

/ / Harware rozhrania

outportb (outport, ledon);

setcolor (11);

kruhu (400,180,5); / / viedla 7

kruhu (380,180,5); / / viedol 6

kruhu (360,180,5); / / LED 5

kruhu (340,180,5); / / viedlo 4

kruhu (320,180,5); / / LED 3

kruhu (300,180,5); / / LED 2

kruhu (280,180,5); / / LED 1

kruhu (260,180,5); / / viedlo 0

setfillstyle (1, a);

floodfill (261,181,11);

floodfill (281,181,11);

floodfill (301,181,11);

floodfill (321,181,11);

floodfill (341,181,11);

floodfill (361,181,11);

floodfill (381,181,11);

floodfill (401,181,11);

omeškania (800);

outportb (outport, ledoff);

a = 0;

setcolor (11);

setfillstyle (1, a);

floodfill (261,181,11);

floodfill (281,181,11);

floodfill (301,181,11);

floodfill (321,181,11);

floodfill (341,181,11);

floodfill (361,181,11);

floodfill (381,181,11);

floodfill (401,181,11);

a = 4;

omeškania (800);

)ch = getch ();

if (ch == 'r' | | ch == 'R')

goto hlavné;

iné

if (ch == 27) / / na výstupe

(

closegraph ();

exit (0);

)

) ///////// B END

/ / Žiadne viedol C

if (ch == 'c' | | ch == 'C')

(

cleardevice ();

displeji ();

setcolor (1);

setfillstyle (1,0);

obdĺžnik (100100550300); / / čierna

floodfill (120,120,1);

setcolor (4);

kruhu (400,180,5); / / viedla 7

kruhu (380,180,5); / / viedol 6

kruhu (360,180,5); / / LED 5

kruhu (340,180,5); / / viedlo 4

kruhu (320,180,5); / / LED 3

kruhu (300,180,5); / / LED 2

kruhu (280,180,5); / / LED 1

kruhu (260,180,5); / / viedlo 0

setcolor (14);

settextstyle (10,0,1);

outtextxy (145.100, "stlačením ľubovoľného tlačidla STOP");

setcolor (1);

settextstyle (11,0,10);

outtextxy (210350, "PRESS R pre návrat na hlavnú");

outtextxy (240370, "stlačením klávesu Esc Exit");

c = 401;

while (! kbhit ())

(

setcolor (11);

setfillstyle (1,4);

kruhu (400,180,5); / / viedla 7

kruhu (380,180,5); / / viedol 6

kruhu (360,180,5); / / LED 5

kruhu (340,180,5); / / viedlo 4

kruhu (320,180,5); / / LED 3

kruhu (300,180,5); / / LED 2

kruhu (280,180,5); / / LED 1

kruhu (260,180,5); / / viedlo 0

floodfill (c, 181,11);

omeškania (200);

setfillstyle (1,0);

floodfill (c, 181,11);

omeškania (200);

c-= 20;

if (c == 241)

c = 401;/ / Hardware

pre (a = 0, a <= 7; a )

(

outportb (outport, no [a]);

omeškania (800);

)

)

ch = getch ();

if (ch == 'r' | | ch == 'R')

goto hlavné;

iné

if (ch == 27) / / na výstupe

(

closegraph ();

exit (0);

}////////////// C konca

)

////////////////////// D

if (ch == 'd' | | ch == 'D')

(

cleardevice ();

displeji ();

setcolor (1);

setfillstyle (1,0);

obdĺžnik (100100550300); / / čierna

floodfill (120,120,1);

setcolor (4);

kruhu (400,180,5); / / viedla 7

kruhu (380,180,5); / / viedol 6

kruhu (360,180,5); / / LED 5

kruhu (340,180,5); / / viedlo 4

kruhu (320,180,5); / / LED 3

kruhu (300,180,5); / / LED 2

kruhu (280,180,5); / / LED 1

kruhu (260,180,5); / / viedlo 0

setcolor (14);

settextstyle (10,0,1);

outtextxy (145.100, "stlačením ľubovoľného tlačidla STOP");

setcolor (1);

settextstyle (11,0,10);

outtextxy (210350, "PRESS R pre návrat na hlavnú");

outtextxy (240370, "stlačením klávesu Esc Exit");

c = 261;

while (! kbhit ())

(

setcolor (11);

setfillstyle (1,4);

kruhu (400,180,5); / / viedla 7

kruhu (380,180,5); / / viedol 6

kruhu (360,180,5); / / LED 5

kruhu (340,180,5); / / viedlo 4

kruhu (320,180,5); / / LED 3

kruhu (300,180,5); / / LED 2

kruhu (280,180,5); / / LED 1

kruhu (260,180,5); / / viedlo 0

floodfill (c, 181,11);

omeškania (500);

setfillstyle (1,0);

floodfill (c, 181,11);

omeškania (500);

c = 20;

if (c == 421)

c = 261;

/ / Tvrdá keramika

pre (a = 7; a> = 0; a -)

(

outportb (outport, no [a]);

omeškania (800);

)

)

ch = getch ();

if (ch == 'r' | | ch == 'R')

goto hlavné;

iné

if (ch == 27) / / na výstupe

(

closegraph ();

exit (0);

}///////////

//////////) D koniec

////////////////////// E

if (ch == 'e' | | ch == 'E')

(

cleardevice ();

displeji ();

setcolor (1);

setfillstyle (1,0);

obdĺžnik (100100550300); / / čierna

floodfill (120,120,1);

setcolor (4);

kruhu (400,180,5); / / viedla 7

kruhu (380,180,5); / / viedol 6

kruhu (360,180,5); / / LED 5

kruhu (340,180,5); / / viedlo 4

kruhu (320,180,5); / / LED 3

kruhu (300,180,5); / / LED 2

kruhu (280,180,5); / / LED 1

kruhu (260,180,5); / / viedlo 0

setcolor (14);

settextstyle (10,0,1);

outtextxy (145.100, "stlačením ľubovoľného tlačidla STOP");

setcolor (1);

settextstyle (11,0,10);

outtextxy (210350, "PRESS R pre návrat na hlavnú");

outtextxy (240370, "stlačením klávesu Esc Exit");

c = 401;

while (! kbhit ())

(

setcolor (11);

setfillstyle (1,4);

kruhu (400,180,5); / / viedla 7

kruhu (380,180,5); / / viedol 6

kruhu (360,180,5); / / LED 5

kruhu (340,180,5); / / viedlo 4

kruhu (320,180,5); / / LED 3

kruhu (300,180,5); / / LED 2

kruhu (280,180,5); / / LED 1

kruhu (260,180,5); / / viedlo 0

if (f == 0)

(

floodfill (c, 181,11);

omeškania (100);

setfillstyle (1,0);

floodfill (c, 181,11);

omeškania (100);

c-= 20;

if (c == 241)

(

f = 1;

c = 261;

)

)

if (f == 1)

(

floodfill (c, 181,11);

omeškania (5);

setfillstyle (1,0);

floodfill (c, 181,11);

omeškania (5);

c = 20;

if (c == 421)

(

f = 0;

c = 401;

)

)

/ / Tvrdá keramika

pre (a = 7; a> = 0; a -)

(

outportb (outport, no [a]);

omeškania (800);

)

pre (a = 0, a <= 7; a )

(

outportb (outport, no [a]);

omeškania (800);

)

)

ch = getch ();

if (ch == 'r' | | ch == 'R')

goto hlavné;

iné

if (ch == 27) / / na výstupe

(

closegraph ();

exit (0);

}///////////

////////// E) konca

////////////////////// F

if (ch == 'f' | | ch == 'F')

(

cleardevice ();

displeji ();

setcolor (1);

setfillstyle (1,0);

obdĺžnik (100100550300); / / čierna

floodfill (120,120,1);

setcolor (4);

kruhu (400,180,5); / / viedla 7

kruhu (380,180,5); / / viedol 6

kruhu (360,180,5); / / LED 5

kruhu (340,180,5); / / viedlo 4

kruhu (320,180,5); / / LED 3

kruhu (300,180,5); / / LED 2

kruhu (280,180,5); / / LED 1

kruhu (260,180,5); / / viedlo 0

setcolor (14);

settextstyle (10,0,1);

outtextxy (145.100, "stlačením ľubovoľného tlačidla STOP");

setcolor (1);

settextstyle (11,0,10);

outtextxy (210350, "PRESS R pre návrat na hlavnú");

outtextxy (240370, "stlačením klávesu Esc Exit");

while (! kbhit ())

(

setcolor (11);

setfillstyle (1,4);

kruhu (400,180,5); / / viedla 7

kruhu (380,180,5); / / viedol 6

kruhu (360,180,5); / / LED 5

kruhu (340,180,5); / / viedlo 4

kruhu (320,180,5); / / LED 3

kruhu (300,180,5); / / LED 2

kruhu (280,180,5); / / LED 1

kruhu (260,180,5); / / viedlo 0

floodfill (401,181,11);

floodfill (361,181,11);

floodfill (321,181,11);

floodfill (281,181,11);

omeškania (500);

setfillstyle (1,0);

floodfill (401,181,11);

floodfill (361,181,11);

floodfill (321,181,11);

floodfill (281,181,11);

omeškania (500);

setfillstyle (1,4);

floodfill (381,181,11);

floodfill (341,181,11);

floodfill (301,181,11);

floodfill (261,181,11);

omeškania (500);

setfillstyle (1,0);

floodfill (381,181,11);

floodfill (341,181,11);

floodfill (301,181,11);

floodfill (261,181,11);

omeškania (500);/ / Tvrdá keramikaoutportb (outport, no [0xaa]);

omeškania (800);

outportb (outport, no [0x55])

ch = getch ();

if (ch == 'r' | | ch == 'R')

goto hlavné;

iné

if (ch == 27) / / na výstupe

(

closegraph ();

exit (0);

}///////////

F) ////////// koncagetch ();

closegraph ();

) / / Main koncavoid zobrazenie (void)

(

int i, f [10] = (7,7,100,30,320,60,520,30,629,7);

setcolor (13);

setfillstyle (1,3);

obdĺžnik (1,1,638,478);

floodfill (5,5,13);

setcolor (11);

setfillstyle (7,9); / * Text na pozadí * /

fillpoly (5, f); / * Text Fillpoly * /

setcolor (14);

settextstyle (7,0,3);

outtextxy (170,6 ", LED - displ Y");

setcolor (1);

settextstyle (11,0,3);

outtextxy (150445, "Copyright Hasan & Atif PRODUCTIONS 2006");

outtextxy (220457, "Všetky práva vyhradené");

)void tlačidlo (int c1, int r1, int c2, int r2, char ch [])

(

setcolor (0);

obdĺžnik (c1 1, r1 1, C2 2, r2 2);

setcolor (8);

obdĺžnik (c1 2, r1 2, c2 1, r2 1);

setcolor (15);

obdĺžnik (C1-1, r1-1, C2, r2);

setcolor (7);

setfillstyle (1,7);

obdĺžnik (c1, r1, c2, r2);

floodfill (c1 5, r1 5,7);

setcolor (0);

outtextxy (c1 11, r1 7, ch);

)

void blikání (int c1, int r1, int c2, int r2)

(

setcolor (8);

obdĺžnik (C1-1, r1-1, C2-2, r2-2);

setcolor (0);

obdĺžnik (C1-2, R1-2, C2-1, R2-1);

setcolor (15);

obdĺžnik (c1, r1, c2 1, r2 1);

setcolor (7);

setfillstyle (1,7);

obdĺžnik (c1, r1, c2, r2);

floodfill (c1 5, r1 5,7);

)