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

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

+100.3

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

procedure TShemaForm.T1Timer(Sender: TObject);
begin
ShemaForm.Visible:=true;
ShemaForm.AlphaBlend:=true;
T1.Enabled:=false;
ShemaForm.AlphaBlendValue:=20;
T2.Enabled:=true;
end;

procedure TShemaForm.T2Timer(Sender: TObject);
begin
T2.Enabled:=false;
ShemaForm.AlphaBlendValue:=50;
T3.Enabled:=true;
end;

procedure TShemaForm.T3Timer(Sender: TObject);
begin
T3.Enabled:=false;
ShemaForm.AlphaBlendValue:=100;
T4.Enabled:=true;
end;

procedure TShemaForm.T4Timer(Sender: TObject);
begin
T4.Enabled:=false;
ShemaForm.AlphaBlendValue:=150;
T5.Enabled:=true;
end;

procedure TShemaForm.T5Timer(Sender: TObject);
begin
T5.Enabled:=false;
ShemaForm.AlphaBlendValue:=200;
T6.Enabled:=true;
end;

procedure TShemaForm.T6Timer(Sender: TObject);
begin
T6.Enabled:=false;
ShemaForm.AlphaBlendValue:=255;
ShemaForm.AlphaBlend:=false;
ShemaForm.SetFocus;
MaForm.ShemaB.BevelWidth:=2;
MaForm.ShemaB.Color:=$00C08080;
end;

Дипломный проект. Реализация плавного появления окна. На плавное исчезновение еще 6 таймеров

guest, 06 Мая 2009

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

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

+115.1

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

case Key of
  'F','f','а' : Key:='А';
  '<',',','б' : Key:='Б';
  'D','d','в' : Key:='В';
  'U','u','г' : Key:='Г';
  'L','l','д' : Key:='Д';
  'T','t','е' : Key:='Е';
  '~','`','ё' : Key:='Ё';
  ':',';','ж' : Key:='Ж';
  'P','p','з' : Key:='З';
  'B','b','и' : Key:='И';
  'Q','q','й' : Key:='Й';
  'R','r','к' : Key:='К';
  'K','k','л' : Key:='Л';
  'V','v','м' : Key:='М';
  'Y','y','н' : Key:='Н';
  'J','j','о' : Key:='О';
  'G','g','п' : Key:='П';
  'H','h','р' : Key:='Р';
  'C','c','с' : Key:='С';
  'N','n','т' : Key:='Т';
  'E','e','у' : Key:='У';
  'A','a','ф' : Key:='Ф';
  '{','[','х' : Key:='Х';
  'W','w','ц' : Key:='Ц';
  'X','x','ч' : Key:='Ч';
  'I','i','ш' : Key:='Ш';
  'O','o','щ' : Key:='Щ';
  'M','m','ь' : Key:='Ь';
  '}',']','ъ' : Key:='Ъ';
  '"','''','э' : Key:='Э';
  'S','s','ы' : Key:='Ы';
  '>','.','ю' : Key:='Ю';
  'Z','z','я' : Key:='Я';
 end;

висит на процедуре Edit1KeyPress :)

guest, 06 Мая 2009

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

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

+81

1
2
3
4
5
6

try{
			$dbh->exec($sql);
			return true;
		}catch(Exception $e){
			throw $e;
		}

эксепшены - это круто :)

guest, 06 Мая 2009

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

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

+48

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

int print(int *p)
{
		int n;
		int i;
		char c;
		clrscr();

	   Y cprintf("%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c\n\r",
				201,205,205,205,209,
				205,205,205,205,205,205,205,205,205,205,205,205,209,
				205,205,205,205,205,205,205,205,205,205,205,205,209,
				205,205,205,205,205,205,205,205,205,205,205,205,209,
				205,205,205,205,209,
				205,205,205,205,205,205,205,205,205,205,205,205,205,209,
				205,205,205,205,205,205,205,187);
		cprintf("%c %c %c   Surname  %c    Name    %c Patronymic %cYear%c  Profession %c Wages %c\n\r",
				186,252,179,179,179,179,179,179,186);
		cprintf("%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c\n\r",
				199,196,196,196,197,
				196,196,196,196,196,196,196,196,196,196,196,196,197,
				196,196,196,196,196,196,196,196,196,196,196,196,197,
				196,196,196,196,196,196,196,196,196,196,196,196,197,
				196,196,196,196,197,
				196,196,196,196,196,196,196,196,196,196,196,196,196,197,
				196,196,196,196,196,196,196,186);
		for(i = 0; i < *p; i++)
		{
		cprintf("%c", 186);
		W cprintf("%3i", i +1);
		Y cprintf("%c",179);
		W cprintf("%12s", rabota[i].fam);
		Y cprintf("%c",179);
		W cprintf("%12s", rabota[i].name);
		Y cprintf("%c",179);
		W cprintf("%12s", rabota[i].otch);
		Y cprintf("%c",179);
		W cprintf("%4i", rabota[i].year);
		Y cprintf("%c",179);
		W cprintf("%13s", rabota[i].prof);
		Y cprintf("%c",179);
		W cprintf("%7i", rabota[i].zarpl);
		Y cprintf("%c\n\r", 186);
        }
        cprintf("%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c%c\n\r",
                200,205,205,205,207,
                205,205,205,205,205,205,205,205,205,205,205,205,207,
                205,205,205,205,205,205,205,205,205,205,205,205,207,
                205,205,205,205,205,205,205,205,205,205,205,205,207,
                205,205,205,205,207,
                205,205,205,205,205,205,205,205,205,205,205,205,205,207,
                205,205,205,205,205,205,205,188);
		W cprintf("Continue Y/N ?");
        scanf("%s", &c);
        if(c == 'Y' || c == 'y')
                return 1;
        else
                exit(1);
        return 0;
}

бд

guest, 06 Мая 2009

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

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

+50.6

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20

(?:(?:\r\n)?[\t])*(?:(?:(?:[^()<>@,;:\\".\[\]\000-\031]+
(?:(?:(?:\r\n)?[\t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|"(?:
[^\"\r\\]|\\.|(?:(?:\r\n)?[\t]))*"(?:(?:\r\n)?[\t])*)(?:
\.(?:(?:\r\n)?[\t])*(?:[^()<>@,;:\\".\[\]\000-\031]+(?:(
?:(?:\r\n)?[\t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|"(?:[^\"
\r\\]|\\.|(?:(?:\r\n)?[\t]))*"(?:(?:\r\n)?[\t])*))*@(?:(
?:\r\n)?[\t])*(?:[^()<>@,;:\\".\[\]\000-\031]+(?:(?:(?:\
r\n)?[\t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|\[([^\[\]\r\\]
|\\.)*\](?:(?:\r\n)?[\t])*)(?:\.(?:(?:\r\n)?[\t])*(?:[^(
)<>@,;:\\".\[\]\000-\031]+(?:(?:(?:\r\n)?[\t])+|\Z|(?=[\
["()<>@,;:\\".\[\]]))|\[([^\[\]\r\\]|\\.)*\](?:(?:\r\n)?
[\t])*))*|(?:[^()<>@,;:\\".\[\]\000-\031]+(?:(?:(?:\r\n)
?[\t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|"(?:[^\"\r\\]|\\.|
(?:(?:\r\n)?[\t]))*"(?:(?:\r\n)?[\t])*)*\<(?:(?:\r\n)?[\
t])*(?:@(?:[^()<>@,;:\\".\[\]\000-\031]+(?:(?:(?:\r\n)?[
\t])+|\Z|(?=[\["()<>@,;:\\".\[\]]))|\[([^\[\]\r\\]|\\.)*
\](?:(?:\r\n)?[\t])*)(?:\.(?:(?:\r\n)?[\t])*(?:[^()<>@,;
:\\".\[\]\000-\031]+(?:(?:(?:\r\n)?[\t])+|\Z|(?=[\["()<>
@,;:\\".\[\]]))|\[([^\[\]\r\\]|\\.)*\](?:(?:\r\n)?[\t])*
))*(?:,@(?:(?:\r\n)?[\t]))

regexp

guest, 06 Мая 2009

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

Java / Говнокод #1004

+151

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21

for ( j=0; j< PRI.KillStats.Length; j++ )
{
	if ( PRI.KillStats[j].StatName == 'KILLS_IMPACTHAMMER' )
	{
		if ( PRI.KillStats[j].StatValue > BestKillCount[0] )
		{
			BestKillCount[0] = PRI.KillStats[j].StatValue;
			BestPlayer[0] = PRI;
		}
	}
	else if ( PRI.KillStats[j].StatName == 'KILLS_ENFORCER' )
	{
		if ( PRI.KillStats[j].StatValue > BestKillCount[1] )
		{
			BestKillCount[1] = PRI.KillStats[j].StatValue;
			BestPlayer[1] = PRI;
		}
	} 
	
	// ещё семь таких же групп, меняются только строка и цифра			
}

Unreal Tournament 3, Epic Games
(не совсем Java, но очень похоже)

guest, 06 Мая 2009

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

Java / Говнокод #1003

+150

1
2
3
4
5

void log(boolean e) {
	if (String.valueOf(e).length() < 5) {
		System.err.println("Something bad happened.");
	}
}

Логгер

guest, 05 Мая 2009

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

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

+144

1

array_walk($array, create_function('&$v, $k, $self', 'if (is_integer($k)) { $self->Add($v); } else { $self->AddAs($k, $v); }'), $this);

Это же какой-то пиздец... Вместо нормального цикла наговнокодить такое, во всем проекте так.

guest, 05 Мая 2009

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

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

+143.2

1
2
3

$_admins = new UpdaterAdmins($_dbh, $_dbs, $_cfg['dbh_botid'], $_cfg['dbh_type'] == 'sqlite3' ? false : true, $_cfg['dbs_mysql_max_inserts']);
$_admins->update();
$_admins = null; unset ($_admins);

чтоб наверняка

guest, 05 Мая 2009

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

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

+136

1
2
3
4
5
6
7
8
9

procedure Button1Click(Sender:TObject)
  begin
  if (TreeView1.Selected<>Nil) then
    if (TreeView1.Selected.ImageIndex = 5) then
      begin
      {выбран лист дерева - обрабатываем}
      ........
      end;
  end;

Написано мною на втором курсе. Тип узла в дереве определялся по ImageIndex - узел каждого типа имел свою картинку.

guest, 04 Мая 2009

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

Говнокод: по колено в коде.

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

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

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

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

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

Java / Говнокод #1004

Java / Говнокод #1003

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

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

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