1. Pascal / Говнокод #2777

    +98.7

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    Procedure Halt;
begin
if atomTest<>0 then GlobalDeleteAtom(atomTest);
TerminateProcess(GetCurrentProcess,0);
end;
function RegisterSceenTimer(proc:tproc):dword;
var i:dword;
begin
result:=0;
for i:=1 to sMaxSceenGradient do
if  not SceenGradient[i].isNotEmpty then break ;
if i=sMaxSceenGradient then exit;
SceenTimers[i]:=proc;
result:=i;
end;

    :D

    Говногость, 13 Марта 2010

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

  2. Pascal / Говнокод #2776

    +87.9

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    function LockBack:bool;
var sd:tddsurfacedesc2;
begin
fillchar(sd,sizeof(sd),0);
sd.dwSize:=sizeof(sd);
result:=fbacksurface.Lock(nil,sd,DDLOCK_SURFACEMEMORYPTR  or ddlock_nosyslock or DDLOCK_WAIT,0)=dd_ok;
if not result then exit;
BackPtr:=sd.lpSurface;
end;
function UnLockBack:bool;
begin
result:=fbacksurface.UnLock(nil)=dd_ok;
BackPtr:=nil;
end;
function MakeSceenBackPtr:bool;
begin
result:=true;
if backptr=nil then
 result:=lockBack;
end;
function GetSceenSafeBackPtr:pointer;//use only this
begin
result:=nil;
if not MakeSceenBackPtr then exit;
result:=backptr;
end;

    Тот же проЭкт, что и ниже на DirectDraw7.
    Не смотря на то, что была функция function UnLockBack:bool; - она никогда не вызывалась. Странно, что на многих машинах это работало, тк я успешно выполнял блитинг в заблокированные поверхности в течении многих часов. :D

    Говногость, 13 Марта 2010

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

  3. Pascal / Говнокод #2775

    +99.7

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    function RegisterSceenButton(Caption:shortstring;Rect:trect;dx,dy,ShadowWidth:dword;Style:dword;VerticalGradient,VerticalGradientifMouse,VerticalGradientIfClick:bool;TextColor,ColorTop,ColorBottom,TextColorIfMouse,ColorTopIfMouse,ColorBottomIfMouse,TextColorIfClick,ColorTopIfClick,ColorBottomIfClick,LeftTopColor,RightBottomColor:dword;pushProc:tSBPushProc;Surface:idirectdrawsurface7):dword;
var i:dword;
begin
result:=0;
for i:=1 to SMaxSceenButton do
if SceenButton[i].isNotEmpty=false then break;
if i=SMaxSceenButton then exit;
ZeroMemory(@SceenButton[i],sizeof(SceenButton[i]));
SceenButton[i].Caption:=caption;
SceenButton[i].PushProc:=@pushproc;
SceenButton[i].Rect:=rect;
SceenButton[i].dx:=dx;
SceenButton[i].dy:=dy;
SceenButton[i].TextColor:=textcolor;
SceenButton[i].ColorTop:=ColorTop;
SceenButton[i].ColorBottom:=ColorBottom;
SceenButton[i].TextColorIfMouse:=textcolorifmouse;
SceenButton[i].ColorTopIfMouse:=colorTopifmouse;
SceenButton[i].ColorBottomIfMouse:=colorBottomifmouse;
SceenButton[i].LeftTopColor:=lefttopcolor;
SceenButton[i].RightBottomColor:=rightbottomcolor;
SceenButton[i].ShadowWidth:=ShadowWidth;
SceenButton[i].TextColorIfClick:=textcolorifclick;
SceenButton[i].ColorTopIfClick:=colorTopifclick;
SceenButton[i].ColorBottomIfClick:=colorBottomifclick;
SceenButton[i].surface:=surface;
SceenButton[i].Style:=Style;
SceenButton[i].VerticalGradient:=VerticalGradient;
SceenButton[i].VerticalGradientIfMouse:=VerticalGradientIfMouse;
SceenButton[i].VerticalGradientIfClick:=VerticalGradientIfClick;
SceenButton[i].state:=SSTB_Normal;
SceenButton[i].isNotEmpty:=true;
SceenButton[i].State:=SSTB_normal;
result:=i;
end;

    Программа, полностью на скинах через DDraw. Гуевое лишь POPUP окно. Зачем мне было это нужно? Работает только в 32битном режиме. В остальных глючит. :D

    Говногость, 13 Марта 2010

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

  4. Java / Говнокод #2774

    +79.1

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    if (at == null) {
	try {
	throw new NullPointerException();
	}catch (Exception e) {
	e.printStackTrace();
	throw new NullPointerException();
	}
}

    проверка корректности полученного аргумента в функции.
    хорошо придумано, что бы не вызывать
    throw new IllegalArgumentException();

    maxt, 13 Марта 2010

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

  5. 1C / Говнокод #2773

    −369.1

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    Процедура СформироватьТаблицуГрафика()
	//Заполнение месяцев
	Для НомерМесяца = 1 По 12 Цикл
		
		НомерГода = Число(Прав(Год(ТекущаяДата()), 1));
		ДатаМесяца = Дата(НомерГода, НомерМесяца, 1);
		ДнейВМесяце = День(КонецМесяца(ДатаМесяца));

		НоваяСтрока = КалендарьНаборЗаписей.Добавить();
		НазваниеМесяца = Формат(ДатаМесяца, "ДФ=""ММММ""");
		НоваяСтрока.Установить(0, НазваниеМесяца);
		НоваяСтрока.НомерМесяца = НомерМесяца;
		
	КонецЦикла;
КонецПроцедуры

    Помимо дикости написанного, эта штука не работает в 2010 году.

    Зарплата и Управление Персоналом 2.5.18.3

    Smallrat, 12 Марта 2010

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

  6. 1C / Говнокод #2772

    −125.8

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    Сумма   = МодульВалютногоУчета.ПересчитатьИзВалютыВВалюту(
		СуммаВал,
		ВалютаДокумента,
		ВалютаВзаиморасчетов,
		МодульВалютногоУчета.ПолучитьКурсВалюты(ВалютаДокумента,Дата).Курс,
		МодульВалютногоУчета.ПолучитьКурсВалюты(ВалютаВзаиморасчетов,Дата).Курс,
		МодульВалютногоУчета.ПолучитьКурсВалюты(ВалютаДокумента,Дата).Кратность,
		МодульВалютногоУчета.ПолучитьКурсВалюты(ВалютаВзаиморасчетов,Дата).Кратность);

    Решение имеет статус 1С:Совместно.
    Один из ведущих партнеров 1С.
    Такой код во многих местах.

    Euguln, 12 Марта 2010

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

  7. 1C / Говнокод #2771

    −126.4

    1. 1
    2. 2
    НСтрока = ДокументОбъект.Товары.Добавить();
НСтрока.ЕдиницаИзмерения = Справочники.ЕдиницыИзмерения.НайтиПоНаименованию("шт",,,НСтрока.Номенклатура);

    luns, 12 Марта 2010

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

  8. Си / Говнокод #2770

    +138.9

    1. 1
    2. 2
    3. 3
    4. 4
    res =  Wlxtbl.WlxLoggedOutSAS(pWlxContext,dwSasType,pAuthenticationId,pLogonSid,pdwOptions,phToken,pNprNotifyInfo,pProfile);
switch(res) {
	case WLX_SAS_ACTION_LOGON:
		if(res == WLX_SAS_ACTION_LOGON) {

    Пишу свою gina.dll, только что заметил вот это...

    zitzy, 12 Марта 2010

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

  9. PHP / Говнокод #2769

    +164.6

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    <HTML>
<meta http-equiv="Content-Type" content="text/html;charset=utf-8" >
</meta>
<BODY>
<style>
<? include "style.css"; ?>
</style>
<?
include "menu.php";
include "main.php";
?>
</BODY>
</HTML>

    Своеобразный способ подключения стилей)))
    Из ЛС вконтакта.

    Subsanek, 12 Марта 2010

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

  10. Куча / Говнокод #2768

    +130.6

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    <table cellpadding="0" cellspacing="0">
                <tr>
                <td style="width:200px">
                
                </td>
                <td style="width:600px">
                    <span >
                        <a href="#part1"><asp:Label ID="Label1" runat="server" CssClass="MenuItemsActive font_google" Text="Инфо1"
                            Width="593px"></asp:Label></a><br />
                        <a href="#part2"><asp:Label ID="Label2" runat="server" CssClass="MenuItemsActive font_google" Text="Инфо2"
                            Width="593px"></asp:Label></a><br />
                        <a href="#part3"><asp:Label ID="Label3" runat="server" CssClass="MenuItemsActive font_google" Text="Инфо3"
                            Width="593px"></asp:Label></a><br />
                        <a href="#part4"><asp:Label ID="Label4" runat="server" CssClass="MenuItemsActive font_google" Text="Инфо4"
                            Width="593px"></asp:Label></a><br />
                        <a href="#part5"><asp:Label ID="Label5" runat="server" CssClass="MenuItemsActive font_google" Text="Инфо5"
                            Width="593px"></asp:Label></a></span></td>
                </tr>
</table>

    asp.net суровая верстка

    alex_donetsk, 12 Марта 2010

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