Программная заглушка программы scont . C.

 

[1] /*########################################################*/

[2] /*

[3] Copyright (C) 2008 by A.E.Stefanovich tel. 236-2729, 268-3916

[4] Moscow State University of the Instrumentation and Informatics

[5] MGUPI

[6] Chair Information Maintenance of Systems Robototechnical and Mechatronic

[7] IS 5

[8] */

[9] /*########################################################*/

[10] /*

[11] File: SYSDV0.h

[12]

[13] */

[14] /*################################################ LEGEND */

[15] /*

[16] Year: 2008

[17] */

[18] /*########################################################*/

[19] /*============================= Declarations */

[20] int Dev0_pct(int kx,int ky); /* Picture */

[21] int Dev0_log(int kx,int ky); /* Logic */

[22] int Dev0_bc();                     /*Black Case */

[23] /*###################################### SUB_PROGRAMMS */

[24] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[25] int Dev0_pct(int kx,int ky)  /* Picture */

[26] {

[27] int dx=kx*COL_DRAFT_DEV;

[28] int dy=ky*ROW_DRAFT_DEV;

[29] int x=dx/2,y=dy/2;

[30] clearviewport();

[31] /*---- Text */

[32] setcolor(RED);

[33] setbkcolor(BLACK);

[34] settextstyle(SMALL_FONT,HORIZ_DIR,5);

[35] settextjustify(CENTER_TEXT,CENTER_TEXT);

[36] outtextxy(x,y," Device_0 is not connected ");

[37] return 0;

[38] }

[39] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[40] int Dev0_log(int kx,int ky)  /* Logic */

[41] {

[42] int dx=kx*COL_DRAFT_DEV;

[43] int dy=ky*ROW_DRAFT_DEV;

[44] int x=dx/2,y=dy-5;

[45] /*---- Text */

[46] setcolor(RED);

[47] setbkcolor(BLACK);

[48] settextstyle(SMALL_FONT,HORIZ_DIR,5);

[49] settextjustify(CENTER_TEXT,CENTER_TEXT);

[50] outtextxy(x,y," Logic of Device_0 is not displaied ");

[51] return 0;

[52] }

[53] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[54] int Dev0_bc()                      /*Black Case */

[55] {

[56] /*---- Variables */

[57] extern int Flag_ini;

[58] /*----*/

[59] if(Flag_ini==NOT_INI)

[60] {/*--------------------Beguin block NOT_INI */

[61] /*---- Openfile BLACK CASE */

[62] if((FpBC_0=fopen("BLACKcs0","w"))==NULL)

[63] {

[64] ALERT_SIGNAL;

[65] perror("Filure openfile BLACKcs0"); STOP;

[66] exit(EXIT_FAILURE);

[67] }

[68] /*---- Date, File entry, File exit */

[69] Get_date_pc_counted();

[70] fprintf(FpBC_0,"%s\n",Str_date_pc_counted);

[71] fprintf(FpBC_0,"File entry: %s\n",Fname_entry);

[72] fprintf(FpBC_0,"File exit: BLACKcs0\n");

[73] /*---- Regime */

[74] if(Regime_work[0]=='0')

[75] fprintf(FpBC_0,

[76] "REGIME: 0.\nEXIT\n");

[77] if(Regime_work[0]=='1')

[78] fprintf(FpBC_0,

[79] "EGIME: 1.\nHand Command\n");

[80] if(Regime_work[0]=='2')

[81] fprintf(FpBC_0,

[82] "REGIME: 2.\nHand Time - Hand Command\n");

[83] if(Regime_work[0]=='3')

[84] fprintf(FpBC_0,

[85] "REGIME: 3.\nCommands file. \n Hand Interval const.\n");

[86] if(Regime_work[0]=='4')

[87] fprintf(FpBC_0,

[88] "REGIME: 4.\nCommands file with Intervals variable.\n");

[89] if(Regime_work[0]=='5')

[90] fprintf(FpBC_0,

[91] "REGIME: 5.\nCommands file with Times.\n");

[92] if(Regime_work[0]=='6')

[93] fprintf(FpBC_0,

[94] "REGIME: 6.\nStep by step.\n");

[95] fprintf(FpBC_0,

[96] "###############################################\n");

[97] }/*--------------------End block NOT_INI */

[98] /*==============================*/

[99] if(Flag_ini==YES_INI)

[100]     {/*--------------------Beguin block YES_INI */

[101] /*---- Counter com.,H,M,S, ADDRESS, COMMAND */

[102] fprintf(FpBC_0,

[103] "- COUNTER - Hour - Min - Sec - Address - Commands -\n");

[104] fprintf(FpBC_0,

[105] "Counter_commands---,H,M,S\n");

[106] fprintf(FpBC_0,

[107] "%ld---%1d:%1d:%1d\n",

[108] Counter_commands,H,M,S);

[109] /**/

[110] fprintf(FpBC_0,

[111] "A2,A1,A0---,C2,C1,C0\n");

[112] fprintf(FpBC_0,

[113] "%1d%1d%1d---%1d%1d%1d\n",

[114] A2,A1,A0,C2,C1,C0);

[115] /**/

[116] fprintf(FpBC_0,

[117] "AI2,AI1,AI0---,CI2,CI1,CI0\n");

[118] fprintf(FpBC_0,

[119] "%1d%1d%1d---%1d%1d%1d\n",

[120] AI2,AI1,AI0,CI2,CI1,CI0);

[121] fprintf(FpBC_0,

[122] "###############################################\n");

[123]     }/*--------------------End block YES_INI */

[124] /*----*/

[125] return 0;

[126] }

[127] /*########################################################*/

 

* * *

 

ФАЙЛ MODDV 0. H.

МУЗЫКАЛЬНЫЙ ЦЕНТР.

 

[1] /*########################################################*/

[2] /*

[3] Copyright (C) 2008 by A.E.Stefanovich tel. 236-2729, 268-3916

[4] Moscow State University of the Instrumentation and Informatics

[5] MGUPI

[6] Chair Information Maintenance of Systems Robototechnical and Mechatronic

[7] IS 5

[8] */

[9] /*########################################################*/

[10] /*

[11] File: MODDV0.h with BLACK CASE.

[12] MUSIC_CENTER

[13] */

[14] /*################################################ LEGEND */

[15] /*

[16] ----------------

[17] Student: L.V. Doronina

[18] Group: IS 5-94-02 (d)

[19] Code: 94505

[20] ----------------

[21] Discipline: Programming (3403)

[22] Specialty: 2204.01

[23] Teacher: A.E. Stefanovich

[24] ---------------

[25] Year: 2008

[26] */

[27] /*########################################################*/

[28] /*============================= Declarations */

[29] int Dev0_pct(int kx,int ky); /* Picture */

[30] int Dev0_log(int kx,int ky); /* Logic */

[31] int Dev0_bc();                     /* Black Case */

[32] /*######################################### SUB_PROGRAMMS */

[33] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[34] int Dev0_pct(int kx,int ky)  /* Picture */

[35] {

[36] int dx=kx*COL_DRAFT_DEV;

[37] int dy=ky*ROW_DRAFT_DEV;

[38] int x,y;

[39] int c_exe;

[40] /********************************************** Vitrage */

[41] /*---- Viewport*/

[42] clearviewport();

[43] /*---- Ellipse */

[44] setcolor(LIGHTRED);

[45] EllipseN

[46] (dx/2,dy/2,0,360,(dx/2-20)-1,(dy/2-20)-1,2);

[47] setcolor(WHITE);

[48] EllipseN

[49] (dx/2,dy/2,0,360,(dx/2-20)-3,(dy/2-20)-3,4);

[50] setcolor(LIGHTBLUE);

[51] EllipseN

[52] (dx/2,dy/2,0,360,(dx/2-20)-7,(dy/2-20)-7,6);

[53] x=dx/2;

[54] y=dy/2-20;

[55] setfillstyle(SOLID_FILL,BLACK);

[56] floodfill(x,y,LIGHTBLUE);

[57] /*---- Text */

[58] settextstyle(TRIPLEX_FONT,HORIZ_DIR,0);

[59] setusercharsize(3,2,5,1);

[60] settextjustify(CENTER_TEXT,CENTER_TEXT);

[61] setcolor(LIGHTCYAN);

[62] outtextxy(x,y," M U S I C ");

[63] setcolor(LIGHTGRAY);

[64] outtextxy(x-1,y-1," M U S I C ");

[65] setcolor(LIGHTMAGENTA);

[66] outtextxy(x-2,y-2," M U S I C ");

[67] setcolor(LIGHTBLUE);

[68] outtextxy(x-3,y-3," M U S I C ");

[69] /*---- Asterix */

[70] x=30;

[71] y=40;

[72] setcolor(LIGHTCYAN);

[73] outtextxy(x,y," * ");

[74] setcolor(LIGHTGRAY);

[75] outtextxy(x-1,y-1," * ");

[76] setcolor(LIGHTBLUE);

[77] outtextxy(x-2,y-2," * ");

[78] x=dx-30;

[79] y=40;

[80] setcolor(LIGHTCYAN);

[81] outtextxy(x,y," * ");

[82] setcolor(LIGHTGRAY);

[83] outtextxy(x-1,y-1," * ");

[84] setcolor(LIGHTBLUE);

[85] outtextxy(x-2,y-2," * ");

[86] x=30;

[87] y=dy-40;

[88] setcolor(LIGHTCYAN);

[89] outtextxy(x,y," * ");

[90] setcolor(LIGHTGRAY);

[91] outtextxy(x-1,y-1," * ");

[92] setcolor(LIGHTBLUE);

[93] outtextxy(x-2,y-2," * ");

[94] x=dx-30;

[95] y=dy-40;

[96] setcolor(LIGHTCYAN);

[97] outtextxy(x,y," * ");

[98] setcolor(LIGHTGRAY);

[99] outtextxy(x-1,y-1," * ");

[100]     setcolor(LIGHTBLUE);

[101]     outtextxy(x-2,y-2," * ");

[102] /*********************************************** Logic */

[103]     c_exe=(C2*4+C1*2+C0*1);

[104] /*----*/

[105]     settextstyle(Font[7],HORIZ_DIR,3);

[106]     settextjustify(CENTER_TEXT,CENTER_TEXT);

[107]     setcolor(YELLOW);

[108]     x=dx/2;

[109]     y=dy/2+10;

[110]     if(c_exe==0)

[111]     {

[112]     setcolor(LIGHTBLUE);

[113]     outtextxy(x,y," Beethoven ~Sonata 17~ ");

[114]     setcolor(YELLOW);

[115]     outtextxy(x-1,y-1," Beethoven ~Sonata 17~ ");

[116]     sonata17(MODERATO);

[117]     }

[118] /*----*/

[119]     if(c_exe==1)

[120]     {

[121]     setcolor(

[122]     CYAN);

[123]     outtextxy(x,y," Beethoven ~Elise~ ");

[124]     setcolor(YELLOW);

[125]     outtextxy(x-1,y-1," Beethoven ~Elise~ ");

[126]     elise(MODERATO);

[127]     }

[128] return 0;

[129] }

[130] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[131] int Dev0_log(int kx,int ky) /* Logic */

[132] {

[133]     int dx=kx*COL_DRAFT_DEV;

[134]     int dy=ky*ROW_DRAFT_DEV;

[135]     int x=dx/2,y=dy-5;

[136] /*---- Text */

[137]     setcolor(RED);

[138]     setbkcolor(BLACK);

[139]     settextstyle(SMALL_FONT,HORIZ_DIR,5);

[140]     settextjustify(CENTER_TEXT,CENTER_TEXT);

[141]     outtextxy(x,y," Logic of Device_0 is not displaied ");

[142] return 0;

[143] }

[144] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[145] int Dev0_bc()                    /*Black Case */

[146] {

[147] /*---- Variables */

[148] extern int Flag_ini;

[149] /*----*/

[150] if(Flag_ini==NOT_INI)

[151]     {/*--------------------Beguin block NOT_INI */

[152] /*---- Openfile BLACK CASE */

[153] if((FpBC_0=fopen("BLACKcs0","w"))==NULL)

[154]     {

[155]     ALERT_SIGNAL;

[156]     perror("Filure openfile BLACKcs0 "); STOP;

[157]     exit(EXIT_FAILURE);

[158]     }

[159] /*---- Date, File entry, File exit */

[160] Get_date_pc_counted();

[161] fprintf(FpBC_0,"%s\n",Str_date_pc_counted);

[162] fprintf(FpBC_0,"File entry: %s\n",Fname_entry);

[163] fprintf(FpBC_0,"File exit: BLACKcs0\n");

[164] /*---- Regime */

[165] if(Regime_work[0]=='0')

[166] fprintf(FpBC_0,

[167] "REGIME: 0.\nEXIT\n");

[168] if(Regime_work[0]=='1')

[169] fprintf(FpBC_0,

[170] "EGIME: 1.\nHand Command\n");

[171] if(Regime_work[0]=='2')

[172] fprintf(FpBC_0,

[173] "REGIME: 2.\nHand Time - Hand Command\n");

[174] if(Regime_work[0]=='3')

[175] fprintf(FpBC_0,

[176] "REGIME: 3.\nCommands file. \n Hand Interval const.\n");

[177] if(Regime_work[0]=='4')

[178] fprintf(FpBC_0,

[179] "REGIME: 4.\nCommands file with Intervals variable.\n");

[180] if(Regime_work[0]=='5')

[181] fprintf(FpBC_0,

[182] "REGIME: 5.\nCommands file with Times.\n");

[183] if(Regime_work[0]=='6')

[184] fprintf(FpBC_0,

[185] "REGIME: 6.\nStep by step.\n");

[186] fprintf(FpBC_0,

[187] "###############################################\n");

[188]     }/*--------------------End block NOT_INI */

[189] /*==============================*/

[190] if(Flag_ini==YES_INI)

[191]     {/*--------------------Beguin block YES_INI */

[192] /*---- Counter com.,H,M,S, ADDRESS, COMMAND */

[193] fprintf(FpBC_0,

[194] "- COUNTER - Hour - Min - Sec - Address - Commands -\n");

[195] fprintf(FpBC_0,

[196] "Counter_commands---,H,M,S\n");

[197] fprintf(FpBC_0,

[198] "%ld---%1d:%1d:%1d\n",

[199] Counter_commands,H,M,S);

[200] /**/

[201] fprintf(FpBC_0,

[202] "A2,A1,A0---,C2,C1,C0\n");

[203] fprintf(FpBC_0,

[204] "%1d%1d%1d---%1d%1d%1d\n",

[205] A2,A1,A0,C2,C1,C0);

[206] /**/

[207] fprintf(FpBC_0,

[208] "AI2,AI1,AI0---,CI2,CI1,CI0\n");

[209] fprintf(FpBC_0,

[210] "%1d%1d%1d---%1d%1d%1d\n",

[211] AI2,AI1,AI0,CI2,CI1,CI0);

[212] /**/

[213] fprintf(FpBC_0,

[214] "###############################################\n");

[215]     }/*--------------------End block YES_INI */

[216] /*----*/

[217] return 0;

[218] }

[219] "###############################################\n");

 

* * *

 

 

ФАЙЛ MODDV 1. H.

ЭЛЕКТРОННАЯ СХЕМА LVD -1.

 

[1] /*########################################################*/

[2] /*

[3] Copyright (C) 2008 by A.E.Stefanovich tel. 236-2729, 268-3916

[4] Moscow State University of the Instrumentation and Informatics

[5] MGUPI

[6] Chair Information Maintenance of Systems Robototechnical and Mechatronic

[7] IS 5

[8] */

[9] /*########################################################*/

[10] /*

[11] File: MODDV1.h with BLACK CASE.

[12] DEVICE LVD_1

[13] */

[14] /*################################################ LEGEND */

[15] /*

[16] ----------------

[17] Student: L.V. Doronina

[18] Group: IS 5-94-02 (d)

[19] Code: 94505

[20] ----------------

[21] Discipline: Programming (3403)

[22] Specialty: 2204.01

[23] Teacher: A.E. Stefanovich

[24] ---------------

[25] Year: 2008

[26] */

[27] /*########################################################*/

[28] /*============================= Global Variable */

[29] unsigned int Lvd1_Or1,Lvd1_And1,Lvd1_Or2; /* Device Range 1 */

[30] unsigned int Lvd1_And2,Lvd1_Or3,Lvd1_And3;    /* Device Range 2 */

[31] unsigned int Lvd1_Z0,Lvd1_Z1,Lvd1_Z2;      /* EXIT */

[32] /*============================= Declarations */

[33] int Dev1_pct(int kx,int ky);          /* Picture */

[34] int Dev1_log(int kx,int ky);          /* Logic */

[35] int Dev1_bc();                               /*Black Case */

[36] /*######################################### SUB_PROGRAMMS */

[37] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[38] int Dev1_pct(int kx,int ky)           /* Picture */

[39] {

[40] clearviewport();

[41] /*---- Wires */

[42] setlinestyle(SOLID_LINE,0,NORM_WIDTH);

[43] setbkcolor(BLACK);

[44] setcolor(LIGHTGRAY);

[45] setfillstyle(SOLID_FILL,LIGHTGRAY);

[46] /* C2 */

[47] line(6*kx,5*ky,3*kx,5*ky);

[48] fillellipse(3*kx,5*ky,2,1);

[49] line(3*kx,5*ky,3*kx,25*ky);

[50] /* C1 */

[51] line(6*kx,9*ky,4*kx,9*ky);

[52] fillellipse(4*kx,9*ky,2,1);

[53] line(4*kx,9*ky,4*kx,25*ky);

[54] /* C0 */

[55] line(6*kx,13*ky,5*kx,13*ky);

[56] fillellipse(5*kx,13*ky,2,1);

[57] line(5*kx,13*ky,5*kx,25*ky);

[58] /* ~C0 */

[59] line(9*kx,5*ky,12*kx,5*ky);

[60] fillellipse(12*kx,5*ky,2,1);

[61] line(12*kx,5*ky,12*kx,25*ky);

[62] /* ~C1 */

[63] line(9*kx,9*ky,11*kx,9*ky);

[64] fillellipse(11*kx,9*ky,2,1);

[65] line(11*kx,9*ky,11*kx,25*ky);

[66] /* ~C2 */

[67] line(9*kx,13*ky,10*kx,13*ky);

[68] fillellipse(10*kx,13*ky,2,1);

[69] line(10*kx,13*ky,10*kx,25*ky);

[70] /*---- To Or 1 */

[71] line(12*kx,15*ky,17*kx,15*ky);

[72] fillellipse(12*kx,15*ky,2,1);

[73] line(11*kx,16*ky,17*kx,16*ky);

[74] fillellipse(11*kx,16*ky,2,1);

[75] /*---- To And 1 */

[76] line(10*kx,19*ky,17*kx,19*ky);

[77] fillellipse(10*kx,19*ky,2,1);

[78] line(5*kx,20*ky,17*kx,20*ky);

[79] fillellipse(5*kx,20*ky,2,1);

[80] /*---- To Or 2 */

[81] line(4*kx,23*ky,17*kx,23*ky);

[82] fillellipse(4*kx,23*ky,2,1);

[83] line(3*kx,24*ky,17*kx,24*ky);

[84] fillellipse(3*kx,24*ky,2,1);

[85] /*---- Level 2 */

[86] line(21*kx,11*ky,21*kx,25*ky);

[87] fillellipse(21*kx,11*ky,2,1);

[88] line(21*kx,11*ky,35*kx,11*ky);

[89]

[90] line(22*kx,12*ky,22*kx,25*ky);

[91] fillellipse(22*kx,12*ky,2,1);

[92] line(22*kx,12*ky,35*kx,12*ky);

[93]

[94] line(23*kx,13*ky,23*kx,25*ky);

[95] fillellipse(23*kx,13*ky,2,1);

[96] line(23*kx,13*ky,35*kx,13*ky);

[97] /*---- To Level 2 */

[98] line(20*kx,15*ky,23*kx,15*ky);

[99] fillellipse(23*kx,15*ky,2,1);

[100]

[101]     line(20*kx,19*ky,22*kx,19*ky);

[102]     fillellipse(22*kx,19*ky,2,1);

[103]

[104]     line(20*kx,23*ky,21*kx,23*ky);

[105]     fillellipse(21*kx,23*ky,2,1);

[106] /*---- To And 2 */

[107]     line(25*kx,13*ky,25*kx,14*ky);

[108]     fillellipse(25*kx,13*ky,2,1);

[109]

[110]     line(26*kx,12*ky,26*kx,14*ky);

[111]     fillellipse(26*kx,12*ky,2,1);

[112] /*---- To Or 3 */

[113]     line(29*kx,12*ky,29*kx,14*ky);

[114]     fillellipse(29*kx,12*ky,2,1);

[115]     line(30*kx,11*ky,30*kx,14*ky);

[116]     fillellipse(30*kx,11*ky,2,1);

[117] /*---- To And 3 */

[118]     line(33*kx,11*ky,33*kx,14*ky);

[119]     fillellipse(33*kx,11*ky,2,1);

[120]     line(34*kx,13*ky,34*kx,14*ky);

[121]     fillellipse(34*kx,13*ky,2,1);

[122] /*---- Z */

[123]     line(26*kx,17*ky,26*kx,18*ky);

[124]     line(30*kx,17*ky,30*kx,18*ky);

[125]     line(34*kx,17*ky,34*kx,18*ky);

[126] /*---- Titles */

[127]     setcolor(WHITE);

[128]     settextstyle(SMALL_FONT,HORIZ_DIR,5);

[129]     settextjustify(RIGHT_TEXT,TOP_TEXT);

[130] outtextxy(36*kx,1*ky,"D E V I C E L V D - 1");

[131]     settextstyle(SMALL_FONT,VERT_DIR,5);

[132] outtextxy(1*kx,1*ky,"C O M M A N D B U S");

[133] /*---- Formula */

[134]     setcolor(CYAN);

[135]     settextstyle(SMALL_FONT,HORIZ_DIR,5);

[136]     settextjustify(RIGHT_TEXT,CENTER_TEXT);

[137] outtextxy(36*kx,5*ky,"Z0=(~C2+~C1)*(C1+ C2)");

[138] outtextxy(36*kx,7*ky,"Z1=(C1+ C2)+(~C0* C0)");

[139] outtextxy(36*kx,9*ky,"Z2=(~C0* C0)*(~C2+~C1)");

[140] /*---- NE */

[141] E("~",2,6,3,3,3,kx,ky);

[142] E("~",1,6,7,3,3,kx,ky);

[143] E("~",0,6,11,3,3,kx,ky);

[144] /*---- COMMUTATOR */

[145] B("C",1,13,14,3,11,kx,ky);

[146] /*---- ELEMENTS */

[147] E("|",1,17,14,3,3,kx,ky);

[148] E("&",1,17,18,3,3,kx,ky);

[149] E("|",2,17,22,3,3,kx,ky);

[150] /*----*/

[151] E("&",2,24,14,3,3,kx,ky);

[152] E("|",3,28,14,3,3,kx,ky);

[153] E("&",3,32,14,3,3,kx,ky);

[154] /*---- Entry, Exit */

[155]     settextstyle(SMALL_FONT,HORIZ_DIR,4);

[156]     settextjustify(CENTER_TEXT,CENTER_TEXT);

[157]     setcolor(LIGHTGREEN);

[158]     outtextxy(3*kx,28*ky,"2");

[159]     outtextxy(4*kx,28*ky,"1");

[160]     outtextxy(5*kx,28*ky,"0");

[161]     outtextxy(4*kx,30*ky,"ENTRY");

[162]     setcolor(YELLOW);

[163]     outtextxy(30*kx,23*ky,"EXIT");

[164]     outtextxy(26*kx,21*ky,"Z2");

[165]     outtextxy(30*kx,21*ky,"Z1");

[166]     outtextxy(34*kx,21*ky,"Z0");

[167] /*---- Entry Invert. */

[168]     setcolor(WHITE);

[169]     outtextxy(10*kx,28*ky,"0");

[170]     outtextxy(11*kx,28*ky,"1");

[171]     outtextxy(12*kx,28*ky,"2");

[172]     outtextxy(11*kx,30*ky,"INVER");

[173] /*----*/

[174] return 0;

[175] }

[176] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[177] int Dev1_log(int kx,int ky)         /* Logic */

[178] {

[179] /*---- Entry */

[180] Bit(3*kx,26*ky,C2); /* bit C2 */

[181] Bit(4*kx,26*ky,C1); /* bit C1 */

[182] Bit(5*kx,26*ky,C0); /* bit C0 */

[183] /*---- Devices Inventor 1-3 */

[184] Bit(10*kx,26*ky,CI0); /* bit CI0 */

[185] Bit(11*kx,26*ky,CI1); /* bit CI1 */

[186] Bit(12*kx,26*ky,CI2); /* bit CI2 */

[187] /*---- Devices Range 1 */

[188] Lvd1_Or1 =CI2 | CI1; /* bit 0 */

[189] Lvd1_And1=CI0 & C0;    /* bit 1 */

[190] Lvd1_Or2 =C1 | C2; /* bit 2 */

[191] Bit(23*kx,26*ky,Lvd1_Or1); /* Or 1 */

[192] Bit(22*kx,26*ky,Lvd1_And1); /* And 1 */

[193] Bit(21*kx,26*ky,Lvd1_Or2); /* Or 2 */

[194] /*---- Devices Range 2 */

[195] Lvd1_And2=Lvd1_And1 & Lvd1_Or1; /* bit 2 */

[196] Lvd1_Or3=Lvd1_Or2 | Lvd1_And1;   /* bit 1 */

[197] Lvd1_And3=Lvd1_Or1 & Lvd1_Or2; /* bit 0 */

[198] Bit(26*kx,19*ky,Lvd1_And2); /* And 2 */

[199] Bit(30*kx,19*ky,Lvd1_Or3); /* Or 3 */

[200] Bit(34*kx,19*ky,Lvd1_And3); /* And 3 */

[201] /*---- Exits */

[202] Lvd1_Z2=Lvd1_And2;

[203] Lvd1_Z1=Lvd1_Or3;

[204] Lvd1_Z0=Lvd1_And3;

[205] /*----*/

[206] return 0;

[207] }

[208] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[209] int Dev1_bc()                    /*Black Case */

[210] {

[211] /*---- Variables */

[212] /*----*/

[213] if(Flag_ini==NOT_INI)

[214]     {/*--------------------Beguin block NOT_INI */

[215] /*---- Openfile BLACK CASE */

[216] if((FpBC_1=fopen("BLACKcs1","w"))==NULL)

[217]     {

[218]     ALERT_SIGNAL;

[219]     perror("Filure openfile BLACKcs1 "); STOP;

[220]     exit(EXIT_FAILURE);

[221]     }

[222] /*---- Date, File entry, File exit */

[223] Get_date_pc_counted();

[224] fprintf(FpBC_1,"%s\n",Str_date_pc_counted);

[225] fprintf(FpBC_1,"File entry: %s\n",Fname_entry);

[226] fprintf(FpBC_1,"File exit: BLACKcs1\n");

[227] /*---- Regime */

[228] if(Regime_work[0]=='0')

[229] fprintf(FpBC_1,

[230] "REGIME: 0.\nEXIT\n");

[231] if(Regime_work[0]=='1')

[232] fprintf(FpBC_1,

[233] "EGIME: 1.\nHand Command\n");

[234] if(Regime_work[0]=='2')

[235] fprintf(FpBC_1,

[236] "REGIME: 2.\nHand Time - Hand Command\n");

[237] if(Regime_work[0]=='3')

[238] fprintf(FpBC_1,

[239] "REGIME: 3.\nCommands file. \n Hand Interval const.\n");

[240] if(Regime_work[0]=='4')

[241] fprintf(FpBC_1,

[242] "REGIME: 4.\nCommands file with Intervals variable.\n");

[243] if(Regime_work[0]=='5')

[244] fprintf(FpBC_1,

[245] "REGIME: 5.\nCommands file with Times.\n");

[246] if(Regime_work[0]=='6')

[247] fprintf(FpBC_1,

[248] "REGIME: 6.\nStep by step.\n");

[249] /**/

[250] fprintf(FpBC_1,

[251] "###############################################\n");

[252]     }/*--------------------End block NOT_INI */

[253] /*==============================*/

[254] if(Flag_ini==YES_INI)

[255]     {/*--------------------Beguin block YES_INI */

[256] /*---- Counter com.,H,M,S, ADDRESS, COMMAND */

[257] fprintf(FpBC_1,

[258] "- COUNTER - Hour - Min - Sec - Address - Commands -\n");

[259] fprintf(FpBC_1,

[260] "Counter_commands---,H,M,S\n");

[261] fprintf(FpBC_1,

[262] "%ld---%1d:%1d:%1d\n",

[263] Counter_commands,H,M,S);

[264] /**/

[265] fprintf(FpBC_1,

[266] "A2,A1,A0---,C2,C1,C0\n");

[267] fprintf(FpBC_1,

[268] "%1d%1d%1d---%1d%1d%1d\n",

[269] A2,A1,A0,C2,C1,C0);

[270] /**/

[271] fprintf(FpBC_1,

[272] "AI2,AI1,AI0---,CI2,CI1,CI0\n");

[273] fprintf(FpBC_1,

[274] "%1d%1d%1d---%1d%1d%1d\n",

[275] AI2,AI1,AI0,CI2,CI1,CI0);

[276] /**/

[277] fprintf(FpBC_1,

[278] "************ BINARY LOGIC of DEVICE ************\n");

[279] fprintf

[280] (FpBC_1,

[281] "Lvd1_Or2,Lvd1_And1,Lvd1_Or1 --------Range 1\n");

[282] fprintf(FpBC_1,

[283] "%1d%1d%1d\n",

[284] Lvd1_Or2,Lvd1_And1,Lvd1_Or1);

[285] /**/

[286] fprintf

[287] (FpBC_1,

[288] "Lvd1_And2(Lvd1_Z2),Lvd1_Or3(Lvd1_Z1),Lvd1_And3(Lvd1_Z0) -------- Range 2\n");[289]

[290] fprintf(FpBC_1,

[291] "%1d%1d%1d\n",

[292] Lvd1_And2,Lvd1_Or3,Lvd1_And3);

[293] /**/

[294] fprintf(FpBC_1,

[295] "###############################################\n");

[296]     }/*--------------------End block YES_INI */

[297] /*----*/

[298] return 0;

[299] }

[300] /*########################################################*/

* * *

 

ФАЙЛ MODDV 2. H.

ЭЛЕКТРОННАЯ СХЕМА LVD -2.

 

[1] /*########################################################*/

[2] /*

[3] Copyright (C) 2008 by A.E.Stefanovich tel. 236-2729, 268-3916

[4] Moscow State University of the Instrumentation and Informatics

[5] MGUPI

[6] Chair Information Maintenance of Systems Robototechnical and Mechatronic

[7] IS 5

[8] */

[9] /*########################################################*/

[10] /*

[11] File: MODDV2.h

[12] DEVICE LVD_2 with BLACK CASE.

[13] */

[14] /*################################################ LEGEND */

[15] /*

[16] ----------------

[17] Student: L.V. Doronina

[18] Group: IS 5-94-02 (d)

[19] Code: 94505

[20] ----------------

[21] Discipline: Programming (3403)

[22] Specialty: 2204.01

[23] Teacher: A.E. Stefanovich

[24] ---------------

[25] Year: 2008

[26] */

[27] /*########################################################*/

[28] /*============================= Global Variable */

[29] unsigned int Lvd2_Or1,Lvd2_And1,Lvd2_Or2; /* Device Range 1 */

[30] unsigned int Lvd2_And2,Lvd2_Or3,Lvd2_And3;    /* Device Range 2 */

[31] unsigned int Lvd2_Or4,Lvd2_Inv1;       /* Device Range 3 */

[32] unsigned int Lvd2_Z0,Lvd2_Z1;                     /* EXIT */

[33] /*============================= Declarations */

[34] int Dev2_pct(int kx,int ky);          /* Picture */

[35] int Dev2_log(int kx,int ky);          /* Logic */

[36] int Dev2_bc();                               /*Black Case */

[37] /*######################################### SUB_PROGRAMMS */

[38] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[39] int Dev2_pct(int kx,int ky)           /* Picture */

[40] {

[41] clearviewport();

[42] /*---- Wires */

[43] setlinestyle(SOLID_LINE,0,NORM_WIDTH);

[44] setbkcolor(BLACK);

[45] setcolor(LIGHTGRAY);

[46] setfillstyle(SOLID_FILL,LIGHTGRAY);

[47] /* C2 */

[48] line(6*kx,5*ky,3*kx,5*ky);

[49] fillellipse(3*kx,5*ky,2,1);

[50] line(3*kx,5*ky,3*kx,25*ky);

[51] /* C1 */

[52] line(6*kx,9*ky,4*kx,9*ky);

[53] fillellipse(4*kx,9*ky,2,1);

[54] line(4*kx,9*ky,4*kx,25*ky);

[55] /* C0 */

[56] line(6*kx,13*ky,5*kx,13*ky);

[57] fillellipse(5*kx,13*ky,2,1);

[58] line(5*kx,13*ky,5*kx,25*ky);

[59] /* ~C0 */

[60] line(9*kx,5*ky,12*kx,5*ky);

[61] fillellipse(12*kx,5*ky,2,1);

[62] line(12*kx,5*ky,12*kx,25*ky);

[63] /* ~C1 */

[64] line(9*kx,9*ky,11*kx,9*ky);

[65] fillellipse(11*kx,9*ky,2,1);

[66] line(11*kx,9*ky,11*kx,25*ky);

[67] /* ~C2 */

[68] line(9*kx,13*ky,10*kx,13*ky);

[69] fillellipse(10*kx,13*ky,2,1);

[70] line(10*kx,13*ky,10*kx,25*ky);

[71] /*---- To Or 1 */

[72] line(12*kx,15*ky,17*kx,15*ky);

[73] fillellipse(12*kx,15*ky,2,1);

[74] line(11*kx,16*ky,17*kx,16*ky);

[75] fillellipse(11*kx,16*ky,2,1);

[76] /*---- To And 1 */

[77] line(10*kx,19*ky,17*kx,19*ky);

[78] fillellipse(10*kx,19*ky,2,1);

[79] line(5*kx,20*ky,17*kx,20*ky);

[80] fillellipse(5*kx,20*ky,2,1);

[81] /*---- To Or 2 */

[82] line(4*kx,23*ky,17*kx,23*ky);

[83] fillellipse(4*kx,23*ky,2,1);

[84] line(3*kx,24*ky,17*kx,24*ky);

[85] fillellipse(3*kx,24*ky,2,1);

[86] /*---- Level 2 */

[87] line(21*kx,11*ky,21*kx,25*ky);

[88] fillellipse(21*kx,11*ky,2,1);

[89] line(21*kx,11*ky,35*kx,11*ky);

[90]

[91] line(22*kx,12*ky,22*kx,25*ky);

[92] fillellipse(22*kx,12*ky,2,1);

[93] line(22*kx,12*ky,35*kx,12*ky);

[94]

[95] line(23*kx,13*ky,23*kx,25*ky);

[96] fillellipse(23*kx,13*ky,2,1);

[97] line(23*kx,13*ky,35*kx,13*ky);

[98] /*---- To Level 2 */

[99] line(20*kx,15*ky,23*kx,15*ky);

[100]     fillellipse(23*kx,15*ky,2,1);

[101]

[102]     line(20*kx,19*ky,22*kx,19*ky);

[103]     fillellipse(22*kx,19*ky,2,1);

[104]

[105]     line(20*kx,23*ky,21*kx,23*ky);

[106]     fillellipse(21*kx,23*ky,2,1);

[107] /*---- To And 2 */

[108]     line(25*kx,13*ky,25*kx,14*ky);

[109]     fillellipse(25*kx,13*ky,2,1);

[110]

[111]     line(26*kx,12*ky,26*kx,14*ky);

[112]     fillellipse(26*kx,12*ky,2,1);

[113] /*---- To Or 3 */

[114]     line(29*kx,12*ky,29*kx,14*ky);

[115]     fillellipse(29*kx,12*ky,2,1);

[116]     line(30*kx,11*ky,30*kx,14*ky);

[117]     fillellipse(30*kx,11*ky,2,1);

[118] /*---- To And 3 */

[119]     line(33*kx,11*ky,33*kx,14*ky);

[120]     fillellipse(33*kx,11*ky,2,1);

[121]     line(34*kx,13*ky,34*kx,14*ky);

[122]     fillellipse(34*kx,13*ky,2,1);

[123] /*---- To Or4, Inv1 */

[124]     line(26*kx,17*ky,26*kx,20*ky); /* To Or4 1 */

[125]     line(30*kx,17*ky,30*kx,20*ky); /* To Or4 0 */

[126]     line(34*kx,17*ky,34*kx,20*ky); /* To Inv1 */

[127] /*---- Exit */

[128]     line(28*kx,23*ky,28*kx,24*ky); /* Or4 0 */

[129]     line(34*kx,23*ky,34*kx,24*ky); /* Inv1 */

[130] /*---- Titles */

[131]     setcolor(WHITE);

[132]     settextstyle(SMALL_FONT,HORIZ_DIR,5);

[133]     settextjustify(RIGHT_TEXT,TOP_TEXT);

[134] outtextxy(36*kx,1*ky,"D E V I C E L V D - 2");

[135]     settextstyle(SMALL_FONT,VERT_DIR,5);

[136] outtextxy(1*kx,1*ky,"C O M M A N D B U S");

[137] /*---- Formula */

[138]     setcolor(CYAN);

[139]     settextstyle(SMALL_FONT,HORIZ_DIR,5);

[140]     settextjustify(RIGHT_TEXT,CENTER_TEXT);

[141] outtextxy(36*kx,5*ky,"Z0=~((~C2+~C1)*(C1+ C2))");

[142] outtextxy(36*kx,7*ky,"Z1=((C1+ C2)+(~C0* C0))+");

[143] outtextxy(36*kx,9*ky,"((~C0* C0)*(~C2+~C1))");

[144] /*---- NE */

[145] E("~",2,6,3,3,3,kx,ky);

[146] E("~",1,6,7,3,3,kx,ky);

[147] E("~",0,6,11,3,3,kx,ky);

[148] /*---- COMMUTATOR */

[149] B("C",2,13,14,3,11,kx,ky);

[150] /*---- ELEMENTS Range 1 */

[151] E("|",1,17,14,3,3,kx,ky);

[152] E("&",1,17,18,3,3,kx,ky);

[153] E("|",2,17,22,3,3,kx,ky);

[154] /*---- ELEMENTS Range 2 */

[155] E("&",2,24,14,3,3,kx,ky);

[156] E("|",3,28,14,3,3,kx,ky);

[157] E("&",3,32,14,3,3,kx,ky);

[158] /*---- ELEMENTS Range 3 */

[159] E("|",4,24,20,7,3,kx,ky);

[160] E("~",1,32,20,3,3,kx,ky);

[161] /*---- Entry, Exit */

[162]     settextstyle(SMALL_FONT,HORIZ_DIR,5);

[163]     settextjustify(CENTER_TEXT,CENTER_TEXT);

[164]     setcolor(LIGHTGREEN);

[165]     outtextxy(3*kx,28*ky,"2");

[166]     outtextxy(4*kx,28*ky,"1");

[167]     outtextxy(5*kx,28*ky,"0");

[168]     outtextxy(4*kx,30*ky,"ENTRY");

[169]     setcolor(YELLOW);

[170]     outtextxy(31*kx,30*ky,"EXIT");

[171]     outtextxy(28*kx,28*ky,"Z1");

[172]     outtextxy(34*kx,28*ky,"Z0");

[173] /*---- Entry Invert. */

[174]     setcolor(WHITE);

[175]     outtextxy(10*kx,28*ky,"0");

[176]     outtextxy(11*kx,28*ky,"1");

[177]     outtextxy(12*kx,28*ky,"2");

[178]     outtextxy(11*kx,30*ky,"INVER");

[179] /*----*/

[180] return 0;

[181] }

[182] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[183] int Dev2_log(int kx,int ky)         /* Logic */

[184] {

[185] /*---- Entry */

[186] Bit(3*kx,26*ky,C2); /* bit C2 */

[187] Bit(4*kx,26*ky,C1); /* bit C1 */

[188] Bit(5*kx,26*ky,C0); /* bit C0 */

[189] /*---- Devices Inventor 1-3 */

[190] Bit(10*kx,26*ky,CI0); /* bit CI0 */

[191] Bit(11*kx,26*ky,CI1); /* bit CI1 */

[192] Bit(12*kx,26*ky,CI2); /* bit CI2 */

[193] /*---- Devices Range 1 */

[194] Lvd2_Or1 =CI2 | CI1; /* bit 0 */

[195] Lvd2_And1=CI0 & C0;    /* bit 1 */

[196] Lvd2_Or2 =C1 | C2; /* bit 2 */

[197] Bit(23*kx,26*ky,Lvd2_Or1); /* Or 1*/

[198] Bit(22*kx,26*ky,Lvd2_And1); /* And1 */

[199] Bit(21*kx,26*ky,Lvd2_Or2); /* Or 2*/

[200] /*---- Devices Range 2 */

[201] Lvd2_And2=Lvd2_And1 & Lvd2_Or1; /* bit 2 */

[202] Lvd2_Or3 =Lvd2_Or2 | Lvd2_And1;  /* bit 1 */

[203] Lvd2_And3=Lvd2_Or1 & Lvd2_Or2; /* bit 0 */

[204] Bit(25*kx,18*ky,Lvd2_And2);   /* And 2 */

[205] Bit(29*kx,18*ky,Lvd2_Or3); /* Or 3 */

[206] Bit(33*kx,18*ky,Lvd2_And3);   /* And 3 */

[207] /*---- Devices Range 3 */

[208] Lvd2_Inv1=~Lvd2_And3&1;     /* bit 0 */

[209] Lvd2_Or4 =Lvd2_Or3 | Lvd2_And2;  /* bit 1 */

[210] Bit(28*kx,26*ky,Lvd2_Or4); /* Or 4*/

[211] Bit(34*kx,26*ky,Lvd2_Inv1);    /* Inv1 */

[212] /*---- Exits */

[213] Lvd2_Z0=Lvd2_Inv1;

[214] Lvd2_Z1=Lvd2_Or4;

[215] /*----*/

[216] return 0;

[217] }

[218] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[219] int Dev2_bc()                    /*Black Case */

[220] {

[221] /*---- Variables */

[222] /*----*/

[223] if(Flag_ini==NOT_INI)

[224]     {/*--------------------Beguin block NOT_INI */

[225] /*---- Openfile BLACK CASE */

[226] if((FpBC_2=fopen("BLACKcs2","w"))==NULL)

[227]     {

[228]     ALERT_SIGNAL;

[229]     perror("Filure openfile BLACKcs2 "); STOP;

[230]     exit(EXIT_FAILURE);

[231]     }

[232] /*---- Date, File entry, File exit */

[233] Get_date_pc_counted();

[234] fprintf(FpBC_2,"%s\n",Str_date_pc_counted);

[235] fprintf(FpBC_2,"File entry: %s\n",Fname_entry);

[236] fprintf(FpBC_2,"File exit: BLACKcs2\n");

[237] /*---- Regime */

[238] if(Regime_work[0]=='0')

[239] fprintf(FpBC_2,

[240] "REGIME: 0.\nEXIT\n");

[241] if(Regime_work[0]=='1')

[242] fprintf(FpBC_2,

[243] "REGIME: 1.\nHand Command\n");

[244] if(Regime_work[0]=='2')

[245] fprintf(FpBC_2,

[246] "REGIME: 2.\nHand Time - Hand Command\n");

[247] if(Regime_work[0]=='3')

[248] fprintf(FpBC_2,

[249] "REGIME: 3.\nCommands file. \n Hand Interval const.\n");

[250] if(Regime_work[0]=='4')

[251] fprintf(FpBC_2,

[252] "REGIME: 4.\nCommands file with Intervals variable.\n");

[253] if(Regime_work[0]=='5')

[254] fprintf(FpBC_2,

[255] "REGIME: 5.\nCommands file with Times.\n");

[256] if(Regime_work[0]=='6')

[257] fprintf(FpBC_2,

[258] "REGIME: 6.\nStep by step.\n");

[259] /**/

[260] fprintf(FpBC_2,

[261] "###############################################\n");

[262]     }/*--------------------End block NOT_INI */

[263] /*==============================*/

[264] if(Flag_ini==YES_INI)

[265]     {/*--------------------Beguin block YES_INI */

[266] /*---- Counter com.,H,M,S, ADDRESS, COMMAND */

[267] fprintf(FpBC_2,

[268] "- COUNTER - Hour - Min - Sec - Address - Commands -\n");

[269] fprintf(FpBC_2,

[270] "Counter_commands---,H,M,S\n");

[271] fprintf(FpBC_2,

[272] "%ld---%1d:%1d:%1d\n",

[273] Counter_commands,H,M,S);

[274] /**/

[275] fprintf(FpBC_2,

[276] "A2,A1,A0---,C2,C1,C0\n");

[277] fprintf(FpBC_2,

[278] "%1d%1d%1d---%1d%1d%1d\n",

[279] A2,A1,A0,C2,C1,C0);

[280] /**/

[281] fprintf(FpBC_2,

[282] "AI2,AI1,AI0---,CI2,CI1,CI0\n");

[283] fprintf(FpBC_2,

[284] "%1d%1d%1d---%1d%1d%1d\n",

[285] AI2,AI1,AI0,CI2,CI1,CI0);

[286] /**/

[287] fprintf(FpBC_2,

[288] "************ BINARY LOGIC of DEVICE ************\n");

[289] fprintf

[290] (FpBC_2,

[291] "Lvd2_Or2,Lvd2_And1,Lvd2_Or1 --------Range 1\n");

[292] fprintf(FpBC_2,

[293] "%1d%1d%1d\n",

[294] Lvd2_Or2,Lvd2_And2,Lvd2_Or1);

[295] /**/

[296] fprintf

[297] (FpBC_2,

[298] "Lvd2_And2(Lvd1_Z2),Lvd2_Or3(Lvd1_Z1),Lvd2_And3(Lvd1_Z0) -------- Range 2\n");

[299] fprintf(FpBC_2,

[300] "%1d%1d%1d\n",

[301] Lvd2_And2,Lvd2_Or3,Lvd2_And3);

[302] /**/

[303] fprintf(FpBC_2,

[304] "Lvd2_Or4(Lvd2_Z1),Lvd2_Inv1(Lvd2_Z0) --------Range 3\n");

[305] fprintf(FpBC_2,

[306] "%1d%1d\n",

[307] Lvd2_Or4,Lvd2_Inv1);

[308] /**/

[309] fprintf(FpBC_2,

[310] "###############################################\n");

[311]     }/*--------------------End block YES_INI */

[312] /*----*/

[313] return 0;

[314] }

[315] /*########################################################*/

 

* * *

 

ФАЙЛ MODDV3.H.

АВТОПИЛОТ.

 

[1] /*########################################################*/

[2] /*

[3] Copyright (C) 2008 by A.E.Stefanovich tel. 236-2729, 268-3916

[4] Moscow State University of the Instrumentation and Informatics

[5] MGUPI

[6] Chair Information Maintenance of Systems Robototechnical and Mechatronic

[7] IS 5

[8] */

[9] /*########################################################*/

[10] /*

[11] File: MODDV3.h with BLACK CASE.

[12] AUTOPILOTE

[13] */

[14] /*################################################ LEGEND */

[15] /*

[16] ----------------

[17] Student: L.V. Doronina

[18] Group: IS 5-94-02 (d)

[19] Code: 94505

[20] ----------------

[21] Discipline: Programming (3403)

[22] Specialty: 2204.01

[23] Teacher: A.E. Stefanovich

[24] ---------------

[25] Year: 2008

[26] */

[27] /*########################################################*/

[28] /*============================= Declarations */

[29] int Dev3_pct(int kx,int ky);          /* Picture */

[30] int Dev3_log(int kx,int ky);          /* Logic */

[31] int Dev3_bc();                               /*Black Case */

[32] /*###################################### SUB_PROGRAMMS */

[33] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[34] int Dev3_pct(int kx,int ky)           /* Picture */

[35] {

[36] int dx=kx*COL_DRAFT_DEV;

[37] int dy=ky*ROW_DRAFT_DEV;

[38] int x0=dx/2;

[39] int y0=dy/2;

[40] int a=7;

[41] int r=dy/2-30;

[42] int c_exe;

[43] /*---- Viewport */

[44] clearviewport();

[45] /****************************** Compas */

[46] /*---- NW-S0, NO-SW */

[47] setcolor(LIGHTCYAN);

[48] line(x0+(-r/1.41),y0+(r/1.41),x0+(r/1.41),y0+(-r/1.41));

[49] line(x0+(-r/1.41),y0+(-r/1.41),x0+(r/1.41),y0+(r/1.41));

[50] /*---- N, E, S, O */

[51] setcolor(WHITE);

[52] /*---- Nord */

[53] line((x0-a),(y0-a),(x0),(y0-r));

[54] line((x0+a),(y0-a),(x0),(y0-r));

[55] /*---- Est */

[56] line((x0+a),(y0-a),(x0+r),(y0));

[57] line((x0+a),(y0+a),(x0+r),(y0));

[58] /*---- Sud */

[59] line((x0+a),(y0+a),(x0),(y0+r));

[60] line((x0-a),(y0+a),(x0),(y0+r));

[61] /*---- West */

[62] line((x0-a),(y0+a),(x0-r),(y0));

[63] line((x0-a),(y0-a),(x0-r),(y0));

[64] /*---- Circle */

[65] setcolor(LIGHTBLUE);

[66] circle(x0,y0,r);

[67] /*---- Center circle */

[68] setcolor(WHITE);

[69] ellipse

[70] (dx/2,dy/2,0,360,6,6);

[71] setfillstyle(SOLID_FILL,YELLOW);

[72] floodfill(x0,y0,WHITE);

[73] /*----*/

[74] setfillstyle(SOLID_FILL,BLUE);

[75] floodfill(x0-10,y0,WHITE);

[76] /*---- N, O, S, W */

[77] settextstyle(SMALL_FONT,HORIZ_DIR,6);

[78] /*    setusercharsize(3,2,3,1); */

[79] setcolor(WHITE);

[80] settextjustify(CENTER_TEXT,BOTTOM_TEXT);

[81] outtextxy(x0,y0-r-3," N ");

[82] settextjustify(LEFT_TEXT,CENTER_TEXT);

[83] outtextxy(x0+r-3,y0-3," O ");

[84] settextjustify(CENTER_TEXT,TOP_TEXT);

[85] outtextxy(x0,y0+r," S ");

[86] settextjustify(RIGHT_TEXT,CENTER_TEXT);

[87] outtextxy(x0-r+3,y0," W ");

[88] /*---- N0, NW, SO, SW */

[89] settextstyle(SMALL_FONT,HORIZ_DIR,4);

[90] /*    setusercharsize(3,2,3,1); */

[91] setcolor(CYAN);

[92] settextjustify(RIGHT_TEXT,CENTER_TEXT);

[93] outtextxy(x0+(-r/1.41),y0+(-r/1.41)," NW ");

[94] settextjustify(LEFT_TEXT,CENTER_TEXT);

[95] outtextxy(x0+(r/1.41),y0+(-r/1.41)," NO ");

[96] settextjustify(RIGHT_TEXT,TOP_TEXT);

[97] outtextxy(x0+(-r/1.41),y0+(r/1.41)," SW ");

[98] settextjustify(LEFT_TEXT,CENTER_TEXT);

[99] outtextxy(x0+(r/1.41),y0+(r/1.41)," SO ");

[100] /****************************** Logic */

[101]     c_exe=(C2*4+C1*2+C0*1);

[102]     setcolor(YELLOW

[103]    );

[104]     setlinestyle(SOLID_LINE,0,THICK_WIDTH);

[105]     r=r-10;

[106] /*---- Cours 0 */

[107]     if(c_exe==0)

[108]     {

[109]     moveto(x0,y0);

[110]     linerel(0,-r);

[111]     }

[112] /*---- Cours 45 */

[113]     if(c_exe==1)

[114]     {

[115]     moveto(x0,y0);

[116]     linerel(r/1.41,-r/1.41);

[117]     }

[118] /*---- Cours 90 */

[119]     if(c_exe==2)

[120]     {

[121]     moveto(x0,y0);

[122]     linerel(r,0);

[123]     }

[124] /*---- Cours 135 */

[125]     if(c_exe==3)

[126]     {

[127]     moveto(x0,y0);

[128]     linerel(r/1.41,r/1.41);

[129]     }

[130] /*---- Cours 180 */

[131]     if(c_exe==4)

[132]     {

[133]     moveto(x0,y0);

[134]     linerel(0,r);

[135]     }

[136] /*---- Cours 225 */

[137]     if(c_exe==5)

[138]     {

[139]     moveto(x0,y0);

[140]     linerel(-r/1.41,r/1.41);

[141]     }

[142] /*---- Cours 270 */

[143]     if(c_exe==6)

[144]     {

[145]     moveto(x0,y0);

[146]     linerel(-r,0);

[147]     }

[148]     /*---- Cours 315 */

[149]     if(c_exe==7)

[150]     {

[151]     moveto(x0,y0);

[152]     linerel(-r/1.41,-r/1.41);

[153]     }

[154] /*----*/

[155] return 0;

[156] }

[157] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[158] int Dev3_log(int kx,int ky) /* Logic */

[159] {

[160]     int dx=kx*COL_DRAFT_DEV;

[161]     int dy=ky*ROW_DRAFT_DEV;

[162]     int x=dx/2,y=dy-5;

[163] /*---- Text */

[164]     setcolor(RED);

[165]     setbkcolor(BLACK);

[166]     settextstyle(SMALL_FONT,HORIZ_DIR,5);

[167]     settextjustify(CENTER_TEXT,CENTER_TEXT);

[168]     outtextxy(x,y," Logic of Device_3 is not displaied ");

[169] return 0;

[170] }

[171] /*IIIIIIIIIIIIIIIIIIIIIIIIIIIII*/

[172] int Dev3_bc()                    /*Black Case */

[173] {

[174] /*---- Variables */

[175] extern int Flag_ini;

[176] /*----*/

[177] if(Flag_ini==NOT_INI)

[178]     {/*--------------------Beguin block NOT_INI */

[179] /*---- Openfile BLACK CASE */

[180] if((FpBC_3=fopen("BLACKcs3","w"))==NULL)

[181]     {

[182]     ALERT_SIGNAL;

[183]     perror("Filure openfile BLACKcs3 "); STOP;

[184]     exit(EXIT_FAILURE);

[185]     }

[186] /*---- Date, File entry, File exit */

[187] Get_date_pc_counted();

[188] fprintf(FpBC_3,"%s\n",Str_date_pc_counted);

[189] fprintf(FpBC_3,"File entry: %s\n",Fname_entry);

[190] fprintf(FpBC_3,"File exit: BLACKcs3\n");

[191] /*---- Regime */

[192] if(Regime_work[0]=='0')

[193] fprintf(FpBC_3,

[194] "REGIME: 0.\nEXIT\n");

[195] if(Regime_work[0]=='1')

[196] fprintf(FpBC_3,

[197] "EGIME: 1.\nHand Command\n");

[198] if(Regime_work[0]=='2')

[199] fprintf(FpBC_3,

[200] "REGIME: 2.\nHand Time - Hand Command\n");

[201] if(Regime_work[0]=='3')

[202] fprintf(FpBC_3,

[203] "REGIME: 3.\nCommands file. \n Hand Interval const.\n");

[204] if(Regime_work[0]=='4')

[205] fprintf(FpBC_3,

[206] "REGIME: 4.\nCommands file with Intervals variable.\n");

[207] if(Regime_work[0]=='5')

[208] fprintf(FpBC_3,

[209] "REGIME: 5.\nCommands file with Times.\n");

[210] if(Regime_work[0]=='6')

[211] fprintf(FpBC_3,

[212] "REGIME: 6.\nStep by step.\n");

[213] fprintf(FpBC_3,

[214] "###############################################\n");

[215]     }/*--------------------End block NOT_INI */

[216] /*==============================*/

[217] if(Flag_ini==YES_INI)

[218]     {/*--------------------Beguin block YES_INI */

[219] /*---- Counter com.,H,M,S, ADDRESS, COMMAND */

[220] fprintf(FpBC_3,

[221] "- COUNTER - Hour - Min - Sec - Address - Commands -\n");

[222] fprintf(FpBC_3,

[223] "Counter_commands---,H,M,S\n");

[224] fprintf(FpBC_3,

[225] "%ld---%1d:%1d:%1d\n",

[226] Counter_commands,H,M,S);

[227] /**/

[228] fprintf(FpBC_3,

[229] "A2,A1,A0---,C2,C1,C0\n");

[230] fprintf(FpBC_3,

[231] "%1d%1d%1d---%1d%1d%1d\n",

[232] A2,A1,A0,C2,C1,C0);

[233] /**/

[234] fprintf(FpBC_3,

[235] "AI2,AI1,AI0---,CI2,CI1,CI0\n");

[236] fprintf(FpBC_3,

[237] "%1d%1d%1d---%1d%1d%1d\n",

[238] AI2,AI1,AI0,CI2,CI1,CI0);

[239] fprintf(FpBC_3,

[240] "###############################################\n");

[241]     }/*--------------------End block YES_INI */

[242] /*----*/

[243] return 0;

[244] }

[245] /*########################################################*/

 

* * *

 

 

ПРИЛОЖЕНИЕ 1.

ТИТУЛЬНЫЙ ЛИСТ ПРОГРАММЫ.

 

 

ПРИЛОЖЕНИЕ 2.