Форум Программирование Код уморил |
|
Цитата (Егор): это попытка сделать выпадающий список на странице широооооооким Забавно, достаточно популярный способ И он даже растянул форум, как ни странно | ||||||
|
2Егор: ты где такие куски кода берёшь? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! | ||||||
|
Цитата (min@y™): ты где такие куски кода берёшь? (с) броадком от туда же: #define BUFLEN_4 4 //!< buffer length 4 #define BUFLEN_8 8 //!< buffer length 8 #define BUFLEN_16 16 //!< buffer length 16 #define BUFLEN_18 18 //!< buffer length 18 -- for ppp session id #define BUFLEN_24 24 //!< buffer length 24 -- mostly for password #define BUFLEN_32 32 //!< buffer length 32 #define BUFLEN_40 40 //!< buffer length 40 #define BUFLEN_48 48 //!< buffer length 48 #define BUFLEN_64 64 //!< buffer length 64 #define BUFLEN_80 80 //!< buffer length 80 #define BUFLEN_128 128 //!< buffer length 128 #define BUFLEN_256 256 //!< buffer length 256 #define BUFLEN_264 264 //!< buffer length 264 #define BUFLEN_512 512 //!< buffer length 512 #define BUFLEN_1024 1024 //!< buffer length 1024а может тут есть смысл? только я не понимаю? Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth. | ||||||
|
function getTpcDbIndex(val) { var ret; if ( val == "0" ) ret = 0; else if ( val == "2" ) ret = 1; else if ( val == "3" ) ret = 2; else if ( val == "4" ) ret = 3; else ret = 0; return ret; }особую пикантность этому коду придаёт то, что написано это на JavaScript Опасайтесь багов в приведенном выше коде; я только доказал корректность, но не запускал его. — Donald E. Knuth. | ||||||
|
... А ведь у меня такой код тоже бывает. Нарою свои старые исходники и у вас скоро будет ГУГЛПЛЕКС лулзов! Чисти код! Чисти код! Чисти код! | ||||||
|
Цитата (Gooddy): А ведь у меня такой код тоже бывает. Нарою свои старые исходники и у вас скоро будет ГУГЛПЛЕКС лулзов! Ты, случайно, не индус по Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! | ||||||
|
Вот пример наших умельцев... if canBeProccessed then Begin theEnvelope.Processed := TRUE; theEnvelope.Store; end else Begin // So, what should we do?? // For that time - nothing end; Ⓐ свобода сопротивление солидарность | ||||||
|
или вот еще забавно: if ExtraValue = UNLOAD_COVERRETURN then begin Exit; // Do nothing end else begin // тут куча всякого кода... end; Ⓐ свобода сопротивление солидарность | ||||||
|
У меня круче есть!!! #include <stdio.h> int jne; FILE *j1f; extern int j1g,j1ng,j1bol,j1men,j1rav,j1t62,j1max,j1otk; extern FILE *j1t39; char j1ipk[]="6Ф437ЕМ"; char jip[]="ГЛ ПРОГ"; #include "intfc.h" // ; extern TMessageParams InputParams; extern TProgressParams ProgressParams; extern TMessageParams InfoParams; extern TMessageParams RequestParams; extern TMessageParams ErrorParams; extern TMessageParams PrepareParams; extern bool Debug; struct j6s { char *iok; int n; char **adrs; }; int jkok=0; struct j6s jsok[]={{"ОК",0,0,}}; int БС[2],ЭТ,ОЦ,ИТОЦ; int ПРГ,TestType,НАСТРОЙКА,НСК,ОАЭМ; char DevNumber[10],Operator[64]; int ПР,ПРОТОКОЛ; int iBuffer[32],oBuffer[32],КЗО; jpk() { goto jte; js0180:j1du(180);j6vao(0); js0190:j1du(190);j6okv(1); js0200:j1du(200);ИТОЦ=1; OpenLog("Debug.log"); Init(); InputParams.Message = "Введите имя оператора:"; if (InputBoxDef(&InputParams, "Архипова Л. В.", 30) == mrOk) strcpy(Operator, InputParams.InputValue); else strcpy(Operator, "Архипова Л. В."); InputParams.Message = "Введите заводской номер устройства:"; if (InputBoxDef(&InputParams, "001", 5) == mrOk) strcpy(DevNumber, InputParams.InputValue); else strcpy(DevNumber, "001"); TestType = GetTestType(); js0300:j1du(300);fprintf(j1t39,"Имя оператора %s\n",Operator); js0310:j1du(310);fprintf(j1t39,"Заводской номер %s\n",DevNumber); js0320:j1du(320);j1np("ЗАГЛ"); ЗАГЛ(); js0330:j1du(330);ПРОТОКОЛ=1; НАСТРОЙКА=1; js0340:j1du(340);j1ppk(010,0); js0360:j1du(360);ЭТ=1; WriteStageName(ЭТ); js0380:j1du(380);j6vne(ЭТ); js0390:j1du(390);j1np("Stage01"); Stage01(); js0400:j1du(400);j1ppk(010,0); js0420:j1du(420);ЭТ=2; WriteStageName(ЭТ); js0440:j1du(440);j6vne(ЭТ); js0450:j1du(450);j1np("Stage02"); Stage02(); js0460:j1du(460);j1ppk(010,0); js0480:j1du(480);ЭТ=3; WriteStageName(ЭТ); js0500:j1du(500);j6vne(ЭТ); js0510:j1du(510);j1np("Stage03"); Stage03(); js0520:j1du(520);j1ppk(010,0); js0540:j1du(540);ЭТ=4; WriteStageName(ЭТ); js0560:j1du(560);j6vne(ЭТ); js0570:j1du(570);j1np("Stage04"); Stage04(); js0580:j1du(580);j1ppk(010,0); js0600:j1du(600);ЭТ=5; WriteStageName(ЭТ); js0620:j1du(620);j6vne(ЭТ); js0630:j1du(630);j1np("Stage05"); Stage05(); js0640:j1du(640);j1ppk(010,0); js0660:j1du(660);ЭТ=6; WriteStageName(ЭТ); js0680:j1du(680);j6vne(ЭТ); js0690:j1du(690);j1np("Stage06"); Stage06(); js0700:j1du(700);j1ppk(010,0); js0720:j1du(720);ЭТ=7; WriteStageName(ЭТ); js0740:j1du(740);j6vne(ЭТ); js0750:j1du(750);j1np("Stage0712"); Stage0712(7); js0760:j1du(760);j1ppk(010,0); js0780:j1du(780);ЭТ=8; WriteStageName(ЭТ); js0800:j1du(800);j6vne(ЭТ); js0810:j1du(810);j1np("Stage0712"); Stage0712(8); js0820:j1du(820);j1ppk(010,0); js0840:j1du(840);ЭТ=9; WriteStageName(ЭТ); js0860:j1du(860);j6vne(ЭТ); js0870:j1du(870);j1np("Stage0712"); Stage0712(9); js0880:j1du(880);j1ppk(010,0); js0900:j1du(900);ЭТ=10; WriteStageName(ЭТ); js0920:j1du(920);j6vne(ЭТ); js0930:j1du(930);j1np("Stage0712"); Stage0712(10); js0940:j1du(940);j1ppk(010,0); js0960:j1du(960);ЭТ=11; WriteStageName(ЭТ); js0980:j1du(980);j6vne(ЭТ); js0990:j1du(990);j1np("Stage0712"); Stage0712(11); js1000:j1du(1000);j1ppk(010,0); js1020:j1du(1020);ЭТ=12; WriteStageName(ЭТ); js1040:j1du(1040);j6vne(ЭТ); js1050:j1du(1050);j1np("Stage0712"); Stage0712(12); js1060:j1du(1060);j1ppk(010,0); js1080:j1du(1080);ЭТ=13; WriteStageName(ЭТ); js1100:j1du(1100);j6vne(ЭТ); js1110:j1du(1110);j1np("Stage13"); Stage13(); js1120:j1du(1120);j1ppk(010,0); js1140:j1du(1140);ЭТ=14; WriteStageName(ЭТ); js1160:j1du(1160);j6vne(ЭТ); js1170:j1du(1170);j1np("Stage1416"); Stage1416(14); js1180:j1du(1180);j1ppk(010,0); js1200:j1du(1200);ЭТ=15; WriteStageName(ЭТ); js1220:j1du(1220);j6vne(ЭТ); js1230:j1du(1230);j1np("Stage1416"); Stage1416(15); js1240:j1du(1240);j1ppk(010,0); js1260:j1du(1260);ЭТ=16; WriteStageName(ЭТ); js1280:j1du(1280);j6vne(ЭТ); js1290:j1du(1290);j1np("Stage1416"); Stage1416(16); js1300:j1du(1300);j1ppk(010,0); js1320:j1du(1320);j6vne(98); js1330:j1du(1330);j1np("ИТОГ"); ИТОГ(); js1340:j1du(1340);j1np("ИСХОДНОЕ"); ИСХОДНОЕ(); js1350:j1du(1350);j1zpr(); return; js1360:j1du(1360);j1ppk(010,0); js1380:j1du(1380);j6vne(99); js1390:j1du(1390);j1zpr(); return; CloseLog(); js1410:j1du(1410);j1ppk(010,0); j1zpr(); return; jte:switch(jne) { case 0:goto js0180; case 97:goto js0180; case 1:goto js0360; case 2:goto js0420; case 3:goto js0480; case 4:goto js0540; case 5:goto js0600; case 6:goto js0660; case 7:goto js0720; case 8:goto js0780; case 9:goto js0840; case 10:goto js0900; case 11:goto js0960; case 12:goto js1020; case 13:goto js1080; case 14:goto js1140; case 15:goto js1200; case 16:goto js1260; case 98:goto js1320; case 99:goto js1380; default:j1ve(-1); } } Param0101(Error) int *Error; { int jns; js1450:j1du(1450);j6vnp(1); js1460:j1du(1460);j6vip("Исходное"); if (Debug) Write2Protocol1("\n~~~ 1.1. Проверка исходного"); *Error = 0; SendCommand(ИАП); if (!CheckRBS(0200)) (*Error)++; js1510:j1du(1510);j1np("СРРАВНЦ"); СРРАВНЦ(1,"Исходное",*Error,0); js1520:j1du(1520);if(j1ppk(05,1450)) goto js1450; j1zp(); return; } Param0102(Error) int *Error; { int jns; js1560:j1du(1560);j6vnp(2); js1570:j1du(1570);j6vip("ЗОМ"); if (Debug) Write2Protocol1("\n~~~ 1.2. Выдача и сброс ЗОМ"); *Error = 0; SendByte(0001, 0010); if (!CheckZO(true)) (*Error)++; if (!CheckZO(false)) (*Error)++; js1630:j1du(1630);j1np("СРРАВНЦ"); СРРАВНЦ(2,"ЗОМ",*Error,0); js1640:j1du(1640);if(j1ppk(05,1560)) goto js1560; j1zp(); return; } Param0103(Error) int *Error; { int jns; js1680:j1du(1680);j6vnp(3); js1690:j1du(1690);j6vip("ИДД"); if (Debug) Write2Protocol1("\n~~~ 1.3. Проверка идентификационного номера"); *Error = 0; if (!CheckIDN(0175)) *Error = 1; js1730:j1du(1730);j1np("СРРАВНЦ"); СРРАВНЦ(3,"ИДД",*Error,0); js1740:j1du(1740);if(j1ppk(05,1680)) goto js1680; j1zp(); return; } Stage01() { int jns; int Error,Param; if (Debug) Param = SelectParam(1); else Param = 1; Error = 0; switch (Param) { // ; case 1: // ; js1830:j1du(1830);j1np("Param0101"); Param0101(&Error); ContinueQuery(&Error); if (Error) break; case 2: // ; js1870:j1du(1870);j1np("Param0102"); Param0102(&Error); ContinueQuery(&Error); if (Error) break; case 3: // ; js1910:j1du(1910);j1np("Param0103"); Param0103(&Error); break; default: // ; ИТОЦ = 0; } // switch ; j1zp(); return; } Stage02() { int jns; int Error; js1990:j1du(1990);j6vnp(1); if (Debug) Write2Protocol1("\n~~~ 2.1. Проверка приема и выдачи информации"); js2010:j1du(2010);j6vip("Выдача/приём"); Error = Stage02Ex(); js2030:j1du(2030);j1np("СРРАВНЦ"); СРРАВНЦ(1,"Выдача/приём",Error,0); js2040:j1du(2040);if(j1ppk(05,1990)) goto js1990; j1zp(); return; } Param03xx(Param,Error) int Param,*Error; { int jns; char PNumber[32]; js2090:j1du(2090);j6vnp(Param); sprintf(PNumber, "Пров. ОЗУ-%d", Param); js2110:j1du(2110);j6vip(PNumber); if (Debug) Write2Protocol1f("\n~~~ 3.%d. %d-я проверка ОЗУ\n", Param, Param); switch (Param) { // ; case 1: *Error = !Param0301Ex(); break; case 2: *Error = !Param0302Ex(); break; case 3: *Error = !Param0303Ex(); } // switch ; js2200:j1du(2200);j1np("СРРАВНЦ"); СРРАВНЦ(Param,PNumber,*Error,0); js2210:j1du(2210);if(j1ppk(05,2090)) goto js2090; j1zp(); return; } Stage03() { int jns; int Error,Param; if (Debug) Param = SelectParam(3); else Param = 1; Error = 0; if (Param < 4) while ((Param != 4) && !Error) { // ; js2290:j1du(2290);j1np("Param03xx"); Param03xx(Param,&Error); if (Param < 3) ContinueQuery(&Error); Param++; } // if ... while ; else ИТОЦ = 0; j1zp(); return; } Stage04() { int jns; int Error; js2370:j1du(2370);j6vnp(1); if (Debug) Write2Protocol1("\n~~~ 4.1. Проверка выдачи кодовой посылки"); js2390:j1du(2390);j6vip("Код.Посылка"); Error = !Stage04Ex(); js2410:j1du(2410);j1np("СРРАВНЦ"); СРРАВНЦ(1,"Код.Посылка",Error,0); js2420:j1du(2420);if(j1ppk(05,2370)) goto js2370; j1zp(); return; } Param05xx(Param,Error) int Param,*Error; { int jns; char PNumber[32]; extern const int Periods_05[3]; js2480:j1du(2480);j6vnp(Param); sprintf(PNumber, "Пер. %d мкс", Periods_05[Param - 1]); js2500:j1du(2500);j6vip(PNumber); switch (Param) { // ; case 1: *Error = !Param0501Ex(); break; case 2: *Error = !Param0502Ex(); break; case 3: *Error = !Param0503Ex(); } // switch ; js2580:j1du(2580);j1np("СРРАВНЦ"); СРРАВНЦ(Param,PNumber,*Error,0); js2590:j1du(2590);if(j1ppk(05,2480)) goto js2480; j1zp(); return; } Stage05() { int jns; int Error,Param; if (Debug) Param = SelectParam(5); else Param = 1; Error = 0; if (Param < 4) while ((Param != 4) && !Error) { // ; js2670:j1du(2670);j1np("Param05xx"); Param05xx(Param,&Error); if (Param < 3) ContinueQuery(&Error); Param++; } // if ... while ; else ИТОЦ = 0; j1zp(); return; } Stage06() { int jns; int Error,Param; char PNumber[32]; if (Debug) Param = SelectParam(6); else Param = 1; Error = 0; if (Param < 4) while ((Param != 4) && !Error) { // ; js2800:j1du(2800);j6vnp(Param); strcpy(PNumber, "Без названия"); js2820:j1du(2820);j6vip(PNumber); switch (Param) { // ; case 1: Error = !Param0601Ex(); break; case 2: Error = !Param0602Ex(); break; case 3: Error = !Param0603Ex(); } // switch ; js2900:j1du(2900);j1np("СРРАВНЦ"); СРРАВНЦ(Param,PNumber,Error,0); js2910:j1du(2910);if(j1ppk(05,2800)) goto js2800; if (Param < 3) ContinueQuery(&Error); Param++; } // if ... while ; else ИТОЦ = 0; j1zp(); return; } Stage0712(Stage) int Stage; { int jns; int Error; char PNumber[32]; js3010:j1du(3010);j6vnp(1); sprintf(PNumber, "%d-е слово ВП", Stage - 6); js3030:j1du(3030);j6vip(PNumber); Error = !Stage0712Ex(Stage - 6); js3050:j1du(3050);j1np("СРРАВНЦ"); СРРАВНЦ(1,PNumber,Error,0); js3060:j1du(3060);if(j1ppk(05,3010)) goto js3010; j1zp(); return; } Stage13() { int jns; int Error,Param; char PNumber[32]; Error = 0, Param = 1; while ((Param != 17) && !Error) { // ; js3130:j1du(3130);j6vnp(Param); strcpy(PNumber, "Без названия"); js3150:j1du(3150);j6vip(PNumber); Error = !Stage13Ex(Param); js3170:j1du(3170);j1np("СРРАВНЦ"); СРРАВНЦ(Param,PNumber,Error,0); js3180:j1du(3180);if(j1ppk(05,3130)) goto js3130; if (Param < 16) ContinueQuery(&Error); Param++; } // while ; j1zp(); return; } Stage1416(Stage) int Stage; { int jns; int Error; char PNumber[32]; extern const string ShortNames_1416[]; js3280:j1du(3280);j6vnp(1); sprintf(PNumber, "Сигнал %s", ShortNames_1416[Stage - 14]); js3300:j1du(3300);j6vip(PNumber); Error = !Stage1416Ex(Stage); js3320:j1du(3320);j1np("СРРАВНЦ"); СРРАВНЦ(1,PNumber,Error,0); js3330:j1du(3330);if(j1ppk(05,3280)) goto js3280; j1zp(); return; }Слабо понять, как оно работает? Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп! | ||||||
|
min@y™: есть специальное место для кода. Зачем захламлять тему? | ||||||
Перейти в раздел:
© 2004 - 2024, Delphi.int.ru |
Версия форума: 1.10 (19.01.2010) |
Выполнено за 0.05 сек. |