По колено в коде — Говнокод.ру

C# / Говнокод #13793

+101

1

if( a.GetPixel(i, k).Name.ToString().Substring(0,6)=="ff0404")

http://www.cyberforum.ru/csharp-net/thread954611.html#post5057105

Qwertiy, 15 Сентября 2013

Комментарии (38)

Pascal / Говнокод #13792

+130

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

Program KrestZero;
...

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin

  case m[arow,acol]of
     1: DrawGrid1.Canvas.Draw(acol*81,arow*81 ,bmpkrest);
     0:  DrawGrid1.Canvas.Draw(acol*81,arow*81 ,bmpfon);
     2:  DrawGrid1.Canvas.Draw(acol*81,arow*81 ,bmpnul);
  end;


end;
function win:boolean;
var a:byte;
begin
  result:=false;
  k:=0;
  for I := 0 to 2 do
     if m[0,i]=a then k:=k+1;
  if k=3 then begin result:=true; exit; end;
    
    
end;

procedure TForm1.DrawGrid1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
  var
  acol,arow:integer;
begin
   DrawGrid1.MouseToCell(x,y,acol,arow);
   if (m[arow,acol]<>0) then
    ShowMessage('Нельзя!')
   else
   begin
    inc(hod);
    if hod mod 2 =1 then m[arow,acol]:=1
    else m[arow,acol]:=2;
    if win then  ShowMessage('Победа!');
    
   end;
end;

procedure TForm1.FormShow(Sender: TObject);
var i,j:byte;
begin
   bmpkrest:=TBitmap.Create;
   bmpkrest.LoadFromFile('krest.bmp');
   bmpfon:=TBitmap.Create;
   bmpfon.LoadFromFile('fon.bmp');
   bmpnul:=TBitmap.Create;
   bmpnul.LoadFromFile('nol.bmp');
   for i:=0 to 2 do
     for j:=0 to 2 do
      m[i,j]:=0;
   hod:=0;
end;

А вот так, товарищи, кодит препод в одной из шаражек в нашем родном Владикавказе.
В коде ничего не менял - выложил, как есть.
Одно только название - krestzero уже поднимает давление настроение.

Stertor, 15 Сентября 2013

Комментарии (39)

Куча / Говнокод #13791

+141

1
2
3
4
5
6
7
8
9

Тайна имени. Ада
др.-евр. - украшение

В детстве эти малышки доставляют много беспокойства родителям и воспитателям: они
 импульсивны и упрямы, часто болеют - у них слабые легкие и горло, неустойчивая нервная
 система. Учёба им даётся нелегко. Несколько мужской характер Ады с возрастом
 почти не меняется: она так же импульсивна, упряма и смела. Добивается своих
 целей не только пробивной способностью, но и большим трудолюбием. Пользуется 
успехом у молодых людей.

Дисказ. Картинка прикреплейтед.

LispGovno, 14 Сентября 2013

Комментарии (1)

JavaScript / Говнокод #13790

+165

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15

function CheckNumField(value)
{
    for(var i=0; i<value.length; i++)
    {
        switch(value.substr(i,1))
        {
            case '0': case '1': case '2': case '3': case '4': case '5': case '6': case '7': case '8': case '9': case '.':
                return true;
            break;
            default:
                return false;
            break;
        }
    }
}

Проверочка текстового поля...

webelancer, 13 Сентября 2013

Комментарии (93)

C++ / Говнокод #13789

+69

1

С ДНЕМ МУДАКОВ ЗАДРОТЫ АЗАЗАЗА

13 СИНТЯБРЯ ДЕНЬ ЛАХОВ И ЗАДРОТАВ
p.s. мне всево 7 лет и у миня есть ifon 5

PragramistOtBoga, 13 Сентября 2013

Комментарии (2)

PHP / Говнокод #13788

+151

1
2

if (!preg_match_all("!<tr class=\"dark\">\s+<td>.*?</td>\s+<td class=\"cell1\">.*?>stock.zip</td>\s+<td>(.*?)</td>\s+<td>.*?</td>\s+<td><a href=\"(.*?)\    ">.*?</a></td>\s+<td>.*?</td>\s+</tr>!is", $out['body'], $res))
  exit(say("Не найден файл со стоком"));

грузим прайсы партнёра

heyzea1, 13 Сентября 2013

Комментарии (5)

ActionScript / Говнокод #13787

−121

1

if(!(plant is CropBase && !(plant is TreeBase)))

Гениально-простое построение выражения

strax, 13 Сентября 2013

Комментарии (10)

PHP / Говнокод #13786

+147

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

// Kohana 3.2

       // получаем учебные группы для фильтра
        $journal_training_groups = NULL;
        if (Auth::instance()->logged_in('teacher'))
        {
            $journal_training_groups = $this->user->training_groups->find_all();
            $courses = ORM::factory('educ_course')->get_teacher_courses($this->user)->published()->find_all();
        }
        // тут самое интересное >>
        elseif (Auth::instance()->logged_in('curator'))
        {
            // получаем всех учеников без учебных групп, которые изучают курсы куратора
            $journal_training_group = new stdClass();
            $journal_training_group->title = 'Ученики вне групп';
            $journal_training_group->members = ORM::factory('user')
                    ->join(array('training_group_members', 'tgm'), 'LEFT')
                    ->on('user.id', '=', 'tgm.user_id')
                    ->where('tgm.user_id', '=', NULL);

            $journal_training_groups = array($journal_training_group);
            $courses = ORM::factory('educ_course')->get_curator_courses($this->user)->published()->find_all();
        }
        else
        {
            $courses = $this->user->courses->published()->find_all();
        }

Для любителей эмитировать..
з.ы stdClass

invision70, 13 Сентября 2013

Комментарии (5)

Куча / Говнокод #13785

+141

1
2
3

http://d.topic.lt/Fm_fi/images/picsw/042008/09/funy_police/013_funy_police.jpg

Ох, мама мия. Слабонервным не смотреть.

Лучше будет, если коментарий напишет кто-то другой, а то монитор из под стола не видно...

Stertor, 12 Сентября 2013

Комментарии (50)

Куча / Говнокод #13784

+139

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34

Отключениа автозапуска в windows 7

Stertor140 [11.09.2013 23:20] Удалить

Автозапуски отключены по умолчанию)
К тому же, этот способ не затрагивает сменные носители.
Shade870 [12.09.2013 09:23]

На всех носителях отключается автозапуск.
Stertor140 [12.09.2013 12:45] Удалить

Какой наивный парень)
Автозапуск уже отключен, по умолчанию.
Нет смысла все это делать.
Shade870 [12.09.2013 16:23]

Смысл есть это делать, так как вирусники попадают через автозапуск со съемного носителя.
Stertor140 [12.09.2013 16:57] Удалить

Охх, какой ты упертый. Я же тебе объясняю, если ты вставишь заразную флешку, файл autorun.inf НЕ БУДЕТ обработан, система вообще его не увидит. Майкрософт отключила в семерке автозапуск для сменных устройств, так как появилось множество вирусов, использовавших эту уязвимость. Совсем другое дело, если вирус на флешке маскируется под папку. Но и тут этот способ не поможет, смешно даже. Единственный выход - антивирус.
Stertor140 [12.09.2013 17:02] Удалить

Вам тут всем ЧСВ надо снижать, причем для вашей же пользы:админ ваш уже это понял, теперь очередь за участниками. Чем выставлять себя идиотом, мысля и рассуждая ошибочно, лучше спросить мнения умных людей; но вам никто не будет помогать, если вы не приземлитесь,так и будете до старости пребывать в невежестве...
alex13sh230 [12.09.2013 18:09]

ты типо самый умный? чё ты споришь с опытным человеком работающий компьютерщиком ? ты тут не кого незнаешь, ты изгой, пшёл вон от сюда!
Shade870 [12.09.2013 18:11]

Stertor, ты самое настоящий лох, а не умник. Таких как ты надо расстреливать, знаток херов. Иди учись.
Shade870 [12.09.2013 18:13]

Охх, какой ты упертый. Я же тебе объясняю, если ты вставишь заразную флешку, файл autorun.inf НЕ БУДЕТ обработан, система вообще его не увидит. Майкрософт отключила в семерке автозапуск для сменных устройств, так как появилось множество вирусов, использовавших эту уязвимость.

Ты придурок, как это так не будет обрабатывать и кто ее отключал?? Кусок недоучки. Аж бесят такие шкеты.

http://vbbook.ru/windows/otkluchenie-avtozapuska-windows/
Практика показывает, что настоящее школоло плохо поддается перевоспитанию.