Логин:     Забыли пароль?
 
Пароль:   Регистрация

Форум / Программирование - Код уморил  

Код уморил


Страницы: «1» «2» «3» «4»
Ерёмин А.А.
Ерёмин А.А.
*Администратор
Сообщения: 435
[Сообщение #11] 19 апреля 2011, 18:30

Цитата (Егор):

это попытка сделать выпадающий список на странице широооооооким

Забавно, достаточно популярный способ :) И он даже растянул форум, как ни странно :)

min@y™
min@y™
Доктор наук
Сообщения: 400
[Сообщение #12] 19 апреля 2011, 18:35
2Егор: ты где такие куски кода берёшь?

Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Егор
Егор
10-ый класс
Сообщения: 45
[Сообщение #13] 22 апреля 2011, 18:18

Цитата (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.
Егор
Егор
10-ый класс
Сообщения: 45
[Сообщение #14] 3 мая 2011, 18:23
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
Gooddy
3-ий класс
Сообщения: 84
[Сообщение #15] 1 июня 2011, 18:45
... А ведь у меня такой код тоже бывает. Нарою свои старые исходники и у вас скоро будет ГУГЛПЛЕКС лулзов!

Чисти код! Чисти код! Чисти код!
min@y™
min@y™
Доктор наук
Сообщения: 400
[Сообщение #16] 1 июня 2011, 18:52

Цитата (Gooddy):

А ведь у меня такой код тоже бывает. Нарою свои старые исходники и у вас скоро будет ГУГЛПЛЕКС лулзов!

Ты, случайно, не индус по национальности призванию образованию специальности?

Делаю лабы и курсачи по Delphi и Turbo Pascal. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
mirt.steelwater
mirt.steelwater
Посетитель
Сообщения: 17
[Сообщение #17] 3 июня 2011, 16:33
Вот пример наших умельцев...
if canBeProccessed then
Begin
    theEnvelope.Processed := TRUE;
    theEnvelope.Store;
end
else
Begin
    // So, what should we do??
    // For that time - nothing
end;

Ⓐ свобода сопротивление солидарность
mirt.steelwater
mirt.steelwater
Посетитель
Сообщения: 17
[Сообщение #18] 3 июня 2011, 16:38
или вот еще забавно:
if ExtraValue = UNLOAD_COVERRETURN then
begin
    Exit; // Do nothing
 
end
else
begin
    // тут куча всякого кода...
end;

Ⓐ свобода сопротивление солидарность
min@y™
min@y™
Доктор наук
Сообщения: 400
[Сообщение #19] 3 июня 2011, 16:51
У меня круче есть!!!
#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. За ПИВО! Пишите в личку, а лучше в аську. А ещё лучше - звоните в скайп!
Ерёмин А.А.
Ерёмин А.А.
*Администратор
Сообщения: 435
[Сообщение #20] 3 июня 2011, 17:01
min@y™: есть специальное место для кода. Зачем захламлять тему?


Страницы: «1» «2» «3» «4» (всего страниц: 4, текущая: 2)
Всего сообщений: 40 (сейчас показаны: с 11 по 20)

Перейти в раздел:


 © 2004 - 2024, Delphi.int.ru
Версия форума: 1.10 (19.01.2010)
RSS Delphi.int.ru Expert Код
Выполнено за 0.05 сек.
Обратная связь