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

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

+80

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

Главная » Усыпление программы
Усыпление программы
Автор: -Гепард97-
Написать автору
[просмотров 751]

В VBS есть функция wscript.sleep, позволяющая усыпить скрипт. Но как такое сделать в VB? Ответ прост: делаем новый модуль и пишем код:

Public Declare Sub Sleep Lib "kernel32" (byval dwMilliseconds As Long)

И все. Когда прогу нужно усыпить, просто пишем в коде проги, если например прога должна остановиться на 2 секунды то пишем

Sleep 2000

Этого способа нет на MSDN, я его сам отрыл

Билл Гатэс прочел это и уснул...
Z-z-z-z...

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

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

Objective C / Говнокод #13762

−111

1

Character * c = Character.alloc.init.autorelease;

К чему приводит излишняя либеральность синтаксиса

NAlexN, 10 Сентября 2013

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

1C / Говнокод #13761

−167

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

Если ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003726") Тогда //000003726 - Автолюкс 
	СлужбаДоставкиВСМС = "AvtoLux";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003727") Тогда //000003727 - Гюнсел 
	СлужбаДоставкиВСМС = "GUNSEL";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003725") Тогда //000003725 - Интайм 
	СлужбаДоставкиВСМС = "InTime";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003826") Тогда //000003826 - Мист экспресс
	СлужбаДоставкиВСМС = "Meest-express";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003932") Тогда //000003932 - Киевские ведомости 
	СлужбаДоставкиВСМС = "Kievskie vedomosti"	
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003722") Тогда //000003722 - Новая почта
	СлужбаДоставкиВСМС = "Nova Poshta";	
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003729") Тогда //000003729 - Ночной экспресс
	СлужбаДоставкиВСМС = "Nochnoi express";
ИначеЕсли ЗапросСлужбаДоставки.Ссылка = Справочники.Контрагенты.НайтиПоКоду("000003728") Тогда //000003728 - САТ
	СлужбаДоставкиВСМС = "CAT";
//.....

КонецЕсли;

Почти универсальный способ транслитизации наименования контрагента.

rull9ss, 10 Сентября 2013

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

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

+157

1
2
3

public function set($index) {
	$this->data[$name] = $val;
}

Встретился метод при рефакторинге :-)

aleksssmix, 10 Сентября 2013

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

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

+160

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

if (!OO00000) {
    OOOOO0O("")
}
if (OOO00O0&&!O00O0OO) {
    var O00O0 = OOOO00(OO0OO0);
    if (!O00O0) {
        O00O0 = O0O000O();
        OOOO000(OO0OO0, O00O0, OO0OOOO, OO00O00);
        if (OO000.ck && OOOO00(OO0OO0)) {
            O0OO0[OO0OO0] = O00O0;
            var O0OOO0 = O00000O(O0OO0);
            if (O0OOO0 != "") {
                O00OO("\x63\x6b", O0OOO0);
                O000000()
            }
        }
    }
}
var _0x80be = ["\x66\x75\x6E\x63\x74\x69\x6F\x6E", "\x62\x6F\x64\x79", "\x61\x64\x64\x45\x76\x65\x6E\x74\x4C\x69\x73\x74\x65\x6E\x65\x72", "\x61\x74\x74\x61\x63\x68\x45\x76\x65\x6E\x74", "\x6F\x6E", "\x4D\x53\x49\x45", "\x69\x6E\x64\x65\x78\x4F\x66", "\x61\x70\x70\x56\x65\x72\x73\x69\x6F\x6E", "\x63\x6C\x69\x63\x6B", "\x6D\x6F\x75\x73\x65\x64\x6F\x77\x6E", "\x70\x61\x72\x61\x6D\x73", "\x6C\x65\x6E\x67\x74\x68", "\x73\x65\x61\x72\x63\x68", "\x73\x75\x62\x73\x74\x72\x69\x6E\x67", "\x20", "\x72\x65\x70\x6C\x61\x63\x65", "\x26", "\x73\x70\x6C\x69\x74", "\x3D", "\x67\x65\x74", "\x70\x72\x6F\x74\x6F\x74\x79\x70\x65", "\x63\x6F\x6E\x74\x61\x69\x6E\x73", "\x74\x6F\x4C\x6F\x77\x65\x72\x43\x61\x73\x65", "\x68\x6F\x73\x74\x6E\x61\x6D\x65", "\x6C\x6F\x63\x61\x74\x69\x6F\x6E", "\x2C", "", "\x2E", "\x6C\x61\x73\x74\x49\x6E\x64\x65\x78\x4F\x66", "\x74\x61\x72\x67\x65\x74", "\x73\x72\x63\x45\x6C\x65\x6D\x65\x6E\x74", "\x70\x61\x72\x65\x6E\x74\x45\x6C\x65\x6D\x65\x6E\x74", "\x70\x61\x72\x65\x6E\x74\x4E\x6F\x64\x65", "\x74\x61\x67\x4E\x61\x6D\x65", "\x65\x76\x65\x6E\x74", "\x77\x68\x69\x63\x68", "\x6E\x75\x6D\x62\x65\x72", "\x41", "\x68\x72\x65\x66", "\x3A", "\x3F", "\x61\x74\x74\x61\x63\x68\x6D\x65\x6E\x74", "\x46\x49\x4C\x45", "\x61\x74\x74\x61\x63\x68\x6D\x65\x6E\x74\x4E\x61\x6D\x65", "\x6E\x6F\x6E\x65", "\x70\x61\x74\x68\x6E\x61\x6D\x65", "\x2F", "\x70\x72\x6F\x74\x6F\x63\x6F\x6C", "\x61\x6C\x6C", "\x69\x6E\x6E\x65\x72\x54\x65\x78\x74", "\x74\x65\x78\x74", "\x49\x4D\x47", "\x61\x6C\x74", "\x69\x6E\x6E\x65\x72\x48\x54\x4D\x4C", "\x66\x74\x70\x3A", "\x73\x75\x62\x73\x74\x72", "\x69\x62\x6D\x45\x76\x41\x63\x74\x69\x6F\x6E\x3D", "\x26\x65\x76\x3D\x64\x6F\x77\x6E\x6C\x6F\x61\x64", "\x68\x74\x74\x70", "\x6D\x61\x69\x6C\x74\x6F", "\x65\x76\x3D\x65\x78\x74\x65\x72\x6E\x61\x6C\x20\x6C\x69\x6E\x6B\x26\x69\x62\x6D\x45\x76\x41\x63\x74\x69\x6F\x6E\x3D", "\x62\x75\x74\x74\x6F\x6E", "\x53\x61\x66\x61\x72\x69", "\x75\x73\x65\x72\x41\x67\x65\x6E\x74", "\x75\x6E\x64\x65\x66\x69\x6E\x65\x64"];
var evhndlr = true;

Кусок клиентсткой статистики IBM … Внатуре MiB

Stealth, 09 Сентября 2013

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

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

+151

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

function O00OO0O(e, a, c) {
    var b;
    if (!e ||!e.href) {
        return true
    }
    if (LnkLck) {
        return false
    }
    LnkLck = e;
    if (OO000.lc) {
        O00OO("\x6c\x63", e.href)
    }
    if (OO000.rf) {
        if (!O0OO000 ||!top ||!top.document) {
            O00OO("\x72\x66", document.location)
        }
    }
    O0O0OO(a);
    if (c) {
        b = c
    } else {
        b = NTPT_MAXTAGWAIT
    }
    if (b > (1625 + 6874-8499)) {
        var d;
        if (e.click) {
            e.tmpclck = e.onclick;
            e.onclick = null;
            d = "\x69\x66\x20\x28\x20\x4c\x6e\x6b\x4c\x63\x6b\x20\x29\x20\x7b\x20\x4c\x6e\x6b\x4c\x63\x6b\x2e\x63\x6c\x69\x63\x6b\x28\x29\x3b\x20\x4c\x6e\x6b\x4c\x63\x6b\x2e\x6f\x6e\x63\x6c\x69\x63\x6b\x20\x3d\x20\x4c\x6e\x6b\x4c\x63\x6b\x2e\x74\x6d\x70\x63\x6c\x63\x6b\x3b\x20\x4c\x6e\x6b\x4c\x63\x6b\x20\x3d\x20\x6e\x75\x6c\x6c\x3b\x20\x7d"
        } else {
            d = "\x69\x66\x20\x28\x20\x4c\x6e\x6b\x4c\x63\x6b\x20\x29\x20\x7b\x20\x77\x69\x6e\x64\x6f\x77\x2e\x6c\x6f\x63\x61\x74\x69\x6f\x6e\x2e\x68\x72\x65\x66\x20\x3d\x20\x22" + e.href + "\x22\x3b\x20\x4c\x6e\x6b\x4c\x63\x6b\x20\x3d\x20\x6e\x75\x6c\x6c\x3b\x20\x7d"
        }
        OO0O0OO(O0000, d, b);
        return false
    }
    LnkLck = null;
    return true
}

Криптозавры IBM ...

Stealth, 09 Сентября 2013

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

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

+133

1
2
3
4
5
6
7
8

foreach (var contractBaseViewModel in contractModels)
{
	var entity = dbTenderLots.FirstOrDefault(x => x.Uid == contractBaseViewModel.EntityUid);
	if (entity != null)
	{
		contractModels.ForEach(x => x.LotViewUrl = url.Generate<TendersController>(l => l.Lot(entity.Id)));
	}
}

вопрос. какое значение примет LotViewUrl у моделек?

Silvochka, 09 Сентября 2013

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

SQL / Говнокод #13755

−155

1

CASE WHEN ((b.k_vts_pre = null) OR (b.k_vts_goz_pre = null) OR (b.k_vts_relative_pre = null)) THEN null ELSE (b.k_vts_pre + b.k_vts_goz_pre + b.k_vts_relative_pre)/3 END

Один наш сотрудник проявил старание, достойное лучшего применения. В PostgreSQL можно так сравнивать с NULL, если настройка transform_null_equals=on. Но, во-первых, она у нас, как и по умолчанию, off, а во-вторых, зачем вообще?

torbasow, 09 Сентября 2013

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

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

+159

1

window.setTimeout(function(){window.location.reload();}, 34740000);

Для терпеливых.

Stallman, 08 Сентября 2013

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

VisualBasic / Говнокод #13753

−81

1
2
3
4
5
6
7
8

Private Sub Command1_Click()
Dim a As String, b As String ' обявим переменные тип текст
For i = 1 To Len(Text1.Text) ' откроем цикл от 1 до количество букв в текстбоксе с шагом 1,,
a = Mid(Text1.Text, i, 1)    ' в переменную а берем по одному букву
b = Asc(a) '- 3              ' переменную а переобразуем в аскикод
Text2.Text = Text2.Text & b  ' //// выводим данные в текстбос
Next                         ' закрываем цикл
End Sub

Кто первый угадает национальность быдлокодера по комментариям, тот получит кусочек сахару )

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

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

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