1. 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)

  2. 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)

  3. 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)

  4. 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)

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

    −126.4

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

    luns, 12 Марта 2010

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

  6. Си / Говнокод #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)

  7. 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)

  8. Куча / Говнокод #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)

  9. Куча / Говнокод #2767

    +66.2

    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
    <!-- Подготавливаем счётчик для цикла -->
<xsl:variable name="i-tree">
        <i/><i/><i/><i/><i/><i/>
    <i/><i/>    <i/><i/>    <i/><i/>
        <i/><i/><i/>    <i/><i/><i/> <i/>
        <i/><i/><i/><i/><i/><i/><i/>
        <i/>                  <i/>
        <i/><i/><i/><i/><i/><i/>
</xsl:variable>
<xsl:variable name="i" select="exslt:node-set($i-tree)/i" />

<!-- Подготавливаем параметр ссылок -->
<xsl:variable name="links">
    <links next="0" previous="1">
    <xsl:for-each select="$i[position() &lt;= $date/@mday]">
        <link mday="{position()}" />
    </xsl:for-each>
    </links>
</xsl:variable>

<div id="archive">
    <xsl:call-template name="calendar">
        <xsl:with-param name="title" select="'Архив'" />
        <xsl:with-param name="url" select="concat($url_path,'%date%/')" />
        <xsl:with-param name="links" select="exslt:node-set($links)/links" />
    </xsl:call-template>
</div>

    Вот так и мучаемся без for циклов в xsl

    Suor, 12 Марта 2010

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

  10. PHP / Говнокод #2766

    +144.8

    1. 1
    <?='<?'?>xml version="1.0" encoding="UTF-8"?>

    Иначе думает, что это открывающий PHP тег :-)

    vitalybaev, 11 Марта 2010

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