Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+116
private void pictureBox1_MouseMove(object sender, MouseEventArgs e)
{
label5.Text = Convert.ToInt32(e.X.ToString()).ToString();
label6.Text = Convert.ToInt32(e.Y.ToString()).ToString();
label1.Location = new Point(e.X, e.Y);
}Не знаю лаба это или нет, но взято это с www.cyberforum.ru
psina-from-ua,
07 Января 2011
+134
void epilog()
{
fprintf(fvih,"\tINCLUDE\tstd.asm\n");
fprintf(fvih,"_KOM\tENDS\n");
fprintf(fvih,"_STEK\tSEGMENT USE16\tSTACK\n");
fprintf(fvih,"\tDW\t100 DUP (?)\n");
fprintf(fvih,"_DNOST\tDW\t?\n");
fprintf(fvih,"_STEK\tENDS\n");
if (kolglb > 0) {
fprintf(fvih,"_DAN\tSEGMENT USE16\n");
for (i = 1; i <= kolglb; i++)
if (tabim[i].vidob == 1) /* пеpеменная */
if (tabim[i].typ == int_t)
fprintf(fvih,"%s\tDW\t?\n",tabim[i].imja);
else
fprintf(fvih,"%s\tDD\t?\n",tabim[i].imja);
fprintf(fvih,"_DAN\tENDS\n");
}
if (est6_main)
fprintf(fvih,"\tEND\t_main\n");
else fprintf(fvih,"\tEND\n");
fprintf(fvih,";Компилятоp С0 от 9/10/92:\n;колич. ошибок %d\n",kolosh);
printf("Компилятоp С0 от 9/10/92:\nколич. ошибок %d\n",kolosh);
}
/**********************************************/
/* Основная пpогpамма */
/**********************************************/
int main(int agrc, char *argv[])
{
int i;
for (i=0; i<=255; i++) leksim[i]=osh;
leksim['+']=plus; leksim['-']=minus; leksim['*']=umn;
leksim['/']=del; leksim['%']=ost; leksim['=']=prisv;
leksim['<']=men; leksim['>']=bol; leksim['(']=lskob;
leksim[')']=pskob; leksim['{']=flskob; leksim['}']=fpskob;
leksim[',']=zpt; leksim[';']=tchzpt;
/* множество начальных лексем выpажения */
nvir = st2[ident] | st2[chislo] | st2[minus] | st2[lskob];
/* мн-во нач-х лексем оп-pа */
noper = st2[flskob] | st2[ifsl] | st2[whilesl] | st2[retsl] | st2[tchzpt] | st2[dosl] | nvir;
vhstr[0]=' ';
vhstr[1]='\0';
usim = vhstr;kolglb =kolim =ef = tipop =est6_main =kolosh =kmet =0;
is_leave_old = false;
fvh=fopen("C://p.c0","r");
//fvh=fopen(argv[1],"r"); /* откpыть входной файл */
fvih=fopen("C://p.asm","w");
//fvih=fopen(argv[2],"w"); /* откpыть выходной файл */
if ((fvh == NULL) || (fvih == NULL))
oshibka(8); /* файлы не откpылись */
else {
prolog();
while (!ef) {
chleks();
if (leksema == intsl) { /* слово int */
opisper(0);
kolglb=kolim;
}/*описание глоб-х пер-х*/
else if (leksema == longsl) { /* слово int */
opisper_long(0);
kolglb=kolim;
}/*описание глоб-х пер-х*/
else if (leksema == ident) /* имя */
oprfun(); /* опpеделение функции */
else if (!ef) /* тpебуется опис-е пеp-х или ф-ции */
test(st2[intsl] | st2[ident],st2[pskob] | st2[tchzpt],3);
}
epilog();
fclose(fvh);
fclose(fvih);
}
return 0;
}
qbasic,
07 Января 2011
+164
$data_array = file('./dir/file.txt'); //Прочитали файл в массив
$count = count($data_array); //Подсчитали количество элементов массива
$chislo = rand(0,$count-1); //Так как элементы массива имеют ключи с 0 до $count-1
echo $data_array[$chislo]; //Вот вам и произвольная строка из файлаОсновная говнистость в том, что это статья, т.е. человек этому учит других, ни в чём не повинных людей.
DeaDrash,
07 Января 2011
−127
Запрос = Новый Запрос(
"ВЫБРАТЬ
| РегШК.Владелец КАК Владелец,
| РегШК.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
| РегШК.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры
|ИЗ
| РегистрСведений.Штрихкоды КАК РегШК
|ГДЕ
| РегШК.Штрихкод = &Штрихкод");
Запрос.УстановитьПараметр("Штрихкод", Штрихкод);
РезультатЗапроса = Запрос.Выполнить();
//Николай
Если РезультатЗапроса.Пустой() Тогда
Штрихкод=Сред(Штрихкод,7,6);
Запрос = Новый Запрос(
"ВЫБРАТЬ
| РегШК.Владелец КАК Владелец,
| РегШК.ЕдиницаИзмерения КАК ЕдиницаИзмерения,
| РегШК.ХарактеристикаНоменклатуры КАК ХарактеристикаНоменклатуры
|ИЗ
| РегистрСведений.Штрихкоды КАК РегШК
|ГДЕ
| РегШК.Штрихкод = &Штрихкод");
Запрос.УстановитьПараметр("Штрихкод", Штрихкод);
РезультатЗапроса = Запрос.Выполнить();
КонецЕсли;
//НиколайВот как надо выполнять тот же запрос, но с другим параметром!
alex-makhnev,
07 Января 2011
−123
# Обработка нажатия клавиш
# Если нажата кнопка СОХРАНИТЬ
if(CGI::param('sub_data_save'))
{
if(CGI::param('content')){ $content=CGI::param('content'); }
$content=~s/'/\\'/g;
$dbh->do("update public.m_content set content='$content' where id=70");
# Зафиксировали изменения
$dbh->commit;
# формируем страницу
md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content,$www{'path'},'/turfirm.php');
# подгонка остальных страниц
# новости
$sql = "select content from public.m_content where \"id\"=20";
$sth=$dbh->prepare($sql);
$sth->execute;
($content0)=$sth->fetchrow_array;
md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/news.php');
# Корпаративным клиентам
$sql = "select content from public.m_content where \"id\"=60";
$sth=$dbh->prepare($sql);
$sth->execute;
($content0)=$sth->fetchrow_array;
md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/cor_clients.php');
# Главная
$sql = "select content from public.m_content where \"id\"=10";
$sth=$dbh->prepare($sql);
$sth->execute;
($content0)=$sth->fetchrow_array;
md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/index.php');
# Контакты
$sql = "select content from public.m_content where \"id\"=30";
$sth=$dbh->prepare($sql);
$sth->execute;
($content0)=$sth->fetchrow_array;
md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/contact.php');
# Базы
$sql = "select content from public.m_content where \"id\"=40";
$sth=$dbh->prepare($sql);
$sth->execute;
($content0)=$sth->fetchrow_array;
md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/centre.php');
# Бронирование
$content0="<iframe width=100% scrolling='auto' height=100% frameborder=0 src='/cgi-bin/res.cgi' ></iframe>";
md::tools->create_page($www{'main_template'},"<#CONTENT#>",$content0,$www{'path'},'/reservation.php');
}
Из админки одного сайта
(админка - один сплошной перл)
happy_me,
07 Января 2011
+109
procedure TfmLab3.mmVesClick(Sender: TObject);
var
sngVes, sngFlag: single;
intFlag: integer;
begin
try
sngVes:=StrToFloat(InputBox('Ввод исходных данных','Введите вес от 40 до 170',''));
sngFlag:=sqrt(sngVes-40);
if sngVes>170 then
begin
sngFlag:=1/intFlag;
//ShowMessage(FloatToStr(sngFlag));
end;
edWeight.Text:=FloatToStr(sngVes);
except
on EConvertError do ShowMessage('Вводить можно только действительные числа!');
on EInvalidOp do ShowMessage('Минимальный вес 40кг');
on EZeroDivide do ShowMessage('Максимальный вес 170кг');
end;
end;Брутальненькая лаба с венгеркой и исключениями.
bugmenot,
07 Января 2011
+161
foreach ($links as $key => $url) {
$urlp=parse_url($url);
$ch=1;
if (substr($url,-1)!='/') {unset($links[$key]); $ch=0;};
if (strpos($url, '#')||$url==$begin_url||$url==substr($begin_url,0,-1)) {unset($links[$key]); $ch=0;};
if ($ch){
if ($urlp['host']!=$begin_host) {unset($links[$key]); $ch=0;};
}
if ($ch){
foreach ($exurl as $k => $ext) {
if ((strpos($urlp['path'], $ext))) unset($links[$key]);
}
}
}Говнокод?
happy_me,
06 Января 2011
+162
<?
// blah blah blah ...
static public function parseCleanValue( $val, $postParse=true )
{
if ( $val == "" )
{
return "";
}
// blah blah blah ...
}
// blah blah blah ...
?>
IP.Board 3.0.4
/admin/sources/base/core.php:4139
IPB, такой IPB
miraage,
06 Января 2011
+123
//********henry+ disable battery command after select disable battery, 2010.8.5 add bypass more command when EC FW update
if (iflag_disabel_battery==1
&& pRequest->RequestType == NvEcRequestResponseType_Battery
&& pRequest->RequestType == NvEcRequestResponseType_System
&& pRequest->RequestType == NvEcRequestResponseType_Gpio
&& pRequest->RequestType == NvEcRequestResponseType_Sleep
&& pRequest->RequestType == NvEcRequestResponseType_Keyboard
&& pRequest->RequestType == NvEcRequestResponseType_AuxDevice){
//NvOsDebugPrintf("Henry: disable Battery command request! \n");
//return NvSuccess-1;
return NvSuccess; //2010.6.29 fix EC TimeOut
}
//***********************************************************************************************Генри хуйни не сделает!
muromec,
06 Января 2011
+126
if (_documentsCount < 0)
{
var docs = new HashSet<int>();
_manager.WalkThroughConcepts(delegate(Concept concept, CancelEventArgs cargs)
{
foreach (var doc in concept.Documents)
docs.Add(doc);
});
_documentsCount = docs.Count;
}
return _documentsCount;Как сосчитать количество документов в дереве? очень просто - надо всех их добавить в один список (и для этого сделать цикл в каждом узле, разумеется) а потом вернуть количество элементов в списке.
eval_2009,
06 Января 2011
Follow us!