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

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

−106

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

Всякий раз наводя курсор на кнопку "Пуск" в Windows 7 вы видели как она менялась. 
И вы наверно думали: а как реолизовать такой эффект в VB6? Давайте попробуем
Код:

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("C:Безымянный.bmp") ' при наведении курсора на имейдж в него загрузится картинка
End Sub

Ну теперь запускаем. Чтож мы видим? Навели курсор - картинка в имейдже измнилась.
 Но ведь она должна изменятся обратно при отведении курсора. Но почему-то MuseMove этого не поддерживает. 
Тогда придётся втянуть в это дело форму. Наведением курсора на форму мы будем имитировать отведение курсора от имейджа.

Вот код вместе с первым примером. 

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("C:Безымянный1.bmp")' при наведении курсора на форму в имейдж загрузится картинка которая была раньше
End Sub

Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Image1.Picture = LoadPicture("C:Безымянный.bmp")' при наведении курсора на имейдж в него загрузится картинка
End Sub

Еще пара таких кодов, и мне начнет нравиться Борис М.
А че, интересный парень.

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

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

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

+130

1
2
3
4
5
6
7
8

<h1>Регистрация нового пользователя</h1>
    <form method="post" action="reg2.php">
        <pre>Имя:            </pre><input type="text" name="name"> <br>
        <pre>Пароль:         </pre><input type="password" name="password"> <br>
        <pre>Пароль еще раз: </pre><input type="password" name="second_password"> <br> 
        <pre>E-Mail Адрес:   </pre><input type="text" name="email"> <br><br>
        <input type="submit" name="register" value="Зарегестрироваться">
    </form>

Этот товарищ так понял популярное выражение "таблицы не нужны"? http://www.cyberforum.ru/php-database/thread939698.html

Vladiator, 11 Сентября 2013

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

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

+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
47
48
49
50
51
52
53
54
55
56
57
58
59
60

#include "stdafx.h"
#include <windows.h>
#include <iostream>
#include <stdio.h>
#include <conio.h>
using namespace std;

class pop
{
public:
char groupp[10];
char alb[10];
char name[10];
pop vvod()
{
pop v;
cin » v.groupp;
cin » v.alb;
cin » v.name;
return v;
}
void vivod(pop v)
{
cout « v.groupp, "\n";
cout « v.alb, "\n";
cout « v.name, "\n";
}
};
void main()
{
char a;
int b=1;
pop v;
while(b!=0)
{ 
cout « "vvodite";
cin »a;
switch ( a )
{
case '1':
{
v=v.vvod();
b=1;
break;
}
case '2':
{
v.vivod(v);
b=1;
break;
}
default :
{
system("cls");
b=0;
}
}
}

}

high-five, 11 Сентября 2013

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

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

+77

1

float a = Float.parseFloat(new_size + "");

Приведение дабла ко флоту.

Vladiator, 11 Сентября 2013

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

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

+151

1
2
3
4
5

if ($mail->Send()) {
	$main->tpl->assign('message', 'Ваше сообщение успешно отправлено');
} elseif (1==1) {
	$main->tpl->assign('message', 'Ошибка почтового сервера. Попробуйте отправить сообщение после');
}

Хипстерский подход

madfriend, 11 Сентября 2013

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

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

+67

1
2
3
4

if (!entityType.equalsIgnoreCase("provider"))
	branches.add(new TreeNode(true, true, "branch", oe.getBranchName(), oe.getBranchId(), null, null, "branch_"+oe.getBranchId()));
else
	branches.add(new TreeNode(true, true, "branch", oe.getBranchName(), oe.getBranchId(), null, null, "branch_"+oe.getBranchId()));

Ну и как это понимать? Может автор на будущее заготовку сделал... Вы так делаете?

10a10b1s, 11 Сентября 2013

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

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

+152

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

// ------------------- Max_id & Min_id functions ------------------|
function get_id($user_query, $col="id", $type="max"){

	global $getdata;

	$query = mysql_query("select distinct `".$col."` from ".$getdata['pref'].$user_query);
	for($i=1;$w = mysql_fetch_array($query);){
		if($w[$col]>=$id){$id = $w[$col];}
	}

	if($type!="max"){
		$query = mysql_query("select distinct `".$col."` from ".$getdata['pref'].$user_query);
		while($w = mysql_fetch_array($query)){
			if($w[$col]<=$id){$id = $w[$col];}
		}
	}

	return $id;
}
// ------------------- Max_id & Min_id functions ------------------|

good_web_master, 11 Сентября 2013

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

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

+105

1
2
3
4
5
6
7

if (App.TimerClock != null)
{
  App.TimerClock.Enabled = false;
  App.TimerClock.Close();
  App.TimerClock.Dispose();
  App.TimerClock = null;
 }

taburetka, 11 Сентября 2013

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

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

+126

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

{if $main eq "home"}
	{include file="main.tpl"}
{elseif $main eq "404"}
	{include file="404.tpl"}
{elseif $main eq "category"}
	{include file="category.tpl"}
{elseif $main eq "object"}
	{include file="object.tpl"}
{elseif $main eq "object_har"}
	{include file="object_har.tpl"}    
{elseif $main eq "review"}
	{include file="review.tpl"}
{elseif $main eq "search"}
	{include file="search.tpl"}
{elseif $main eq "search_alphabet"}
	{include file="search_alphabet.tpl"}	
{elseif $main eq "reviews"}
	{include file="reviews.tpl"}	
{elseif $main eq "best_objects"}
	{include file="best_objects.tpl"}	
{elseif $main eq "add_review"}
	{include file="add_review.tpl"}	
{elseif $main eq "new_review"}
	{include file="new_review.tpl"}	
{elseif $main eq "add_object"}
	{include file="add_object.tpl"}	
{elseif $main eq "register"}
	{include file="register.tpl"}	
{elseif $main eq "profile"}
	{include file="profile.tpl"}	
{elseif $main eq "profile_edit"}
	{include file="profile_edit.tpl"}	
{elseif $main eq "page"}
	{include file="page.tpl"}	
{/if}

smarty

и такое попадается

slvABTOP, 11 Сентября 2013

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

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

+139

01
02
03
04
05
06
07
08
09
10
11

type
  TCriricalThread = class (TThread)
  private
    FileS    : integer;
    Percent  : integer;
    DlSize   : integer;
    procedure SetMaxPos;
    procedure SetCurPos;
    procedure LockButton;
    procedure DislockButton;
  protected

Ну, уж если есть критические секции, почему бы не сделать критический поток?
TCriricalThread = class (TThread)