- 1
- 2
- 3
- 4
- 5
- 6
- 7
if (App.TimerClock != null)
{
App.TimerClock.Enabled = false;
App.TimerClock.Close();
App.TimerClock.Dispose();
App.TimerClock = null;
}
Нашли или выдавили из себя код, который нельзя назвать нормальным, на который без улыбки не взглянешь? Не торопитесь его удалять или рефакторить, — запостите его на говнокод.ру, посмеёмся вместе!
+105
if (App.TimerClock != null)
{
App.TimerClock.Enabled = false;
App.TimerClock.Close();
App.TimerClock.Dispose();
App.TimerClock = null;
}
+105
class GeneticAlgorithm
{
...
private List<Individual> childs= new List<Individual>();
...
public List<int> Genetare(....)
{
......
childs.Clear();
Parallel.For(0, countOfCrossover,RandomCrossing);
_population.AddRange(childs);
.....
}
private void RandomCrossing(int stateInfo)
{
.............
var child = Сrossing(parents, counOfCrossoverPoints);
childs.AddRange(child);
}
Классический пример моей невнимательности.
Приделывал параллельность в генетический алгоритм
+105
private void timer1_Tick(object sender, EventArgs e)
{
sec++;
if (sec > 59)
{
min++;
if (min > 59)
{
ch++;
min = 0;
}
sec = 0;
}
label1.Text = "Время игры: \r\n" + ch + ":" + min + ":" + sec;
}
Часики -_-
+105
protected override void WndProc(ref Message m)
{
base.WndProc(ref m);
//All mouse messages have to be passed to the Master Edit Control
//because the panel intercepts them.
if (m.Msg == PUtils.WM_MOUSEMOVE)
PUtils.SendMessageToMaster(m.Msg, m.WParam, m.LParam, -1);
else
if (m.Msg == PUtils.WM_LBUTTONDOWN)
PUtils.SendMessageToMaster(m.Msg, m.WParam, m.LParam, -1);
else
if (m.Msg == PUtils.WM_LBUTTONUP)
PUtils.SendMessageToMaster(m.Msg, m.WParam, m.LParam, -1);
else
if (m.Msg == PUtils.WM_LBUTTONDBLCLK)
PUtils.SendMessageToMaster(m.Msg, m.WParam, m.LParam, -1);
else
if (m.Msg == PUtils.WM_MOUSELEAVE)
PUtils.SendMessageToMaster(m.Msg, m.WParam, m.LParam, -1);
else
if (m.Msg == PUtils.WM_RBUTTONDOWN)
PUtils.SendMessageToMaster(m.Msg, m.WParam, m.LParam, -1);
else
if (m.Msg == PUtils.WM_MOUSEACTIVATE)
PUtils.SendMessageToMaster(m.Msg, m.WParam, m.LParam, -1);
}//Override WndProc
паубивав бы !!!
+105
if (wasteClass != null && wasteClass == 5)
Все же знают, что целочисленные переменные бывают равны null и 5 одновременно.
+105
var hour = Convert.ToInt32(DateTime.Now.ToString("HH"));
var min = Convert.ToInt32(DateTime.Now.ToString("mm"));
А вам слабо?
Автор через день напоминает всем, что у него больше 5 лет опыта программирования на C#.)))))
+105
For i:=0 to 40 do For j:=1 to 10 do if (j=0) and (j=10) then W[i,j]:=0;
Проблемы?
+105
public static bool IpCheck(String ip)
{
String [] octs = ip.Split(new char[] { '.' });
try
{
for (int n = 0; n < 4; n++)
{
byte b = Convert.ToByte(octs[n]);
}
return true;
}
catch (Exception)
{
return false;
}
}
Индуский валидатор IP - адреса
+105
//батон ЗАНЕСТИ
private void btnOk_Click(object sender, EventArgs e)
{
if (SaveData())
{
this.Tag = _tParams.Id;
this.DialogResult = DialogResult.OK;
this.Close();
}
}
+105
program tetris;
uses
crt;
var
ss,nn,x,y,pus,a,b,c,d,lin,rlin:integer;
st:array[1..12] of array[1..22] of integer;
procedure k(x,y:integer);
{ђЁб㥬 Єў а¤а вЁЄ}
begin
gotoxy(x*2+27,25-y);
if ss=0 then write(' ');
if ss=1 then write('[]');
if ss=2 then write(chr(177),chr(177));
if (ss=3) and (st[x,y]>0) then pus:=1;
if ss=4 then st[x,y]:=1;
gotoxy(1,1);write(' ');
end;
procedure fig(x,y,n,s:integer);
{ђЁб㥬 дЁЈгаг}
begin
if s=3 then pus:=0;
ss:=s; k(x,y);
if n=1 then begin k(x+1,y);k(x,y-1);k(x+1,y-1) end;
if n=2 then begin k(x-1,y);k(x+1,y);k(x+2,y) end;
if n=3 then begin k(x,y+1);k(x,y-1);k(x,y-2) end;
if n=4 then begin k(x+1,y);k(x-1,y);k(x-1,y+1) end;
if n=5 then begin k(x,y+1);k(x+1,y+1);k(x,y-1) end;
if n=6 then begin k(x-1,y);k(x+1,y);k(x+1,y-1) end;
if n=7 then begin k(x,y+1);k(x,y-1);k(x-1,y-1) end;
if n=8 then begin k(x-1,y);k(x+1,y);k(x+1,y+1) end;
if n=9 then begin k(x,y+1);k(x,y-1);k(x+1,y-1) end;
if n=10 then begin k(x+1,y);k(x-1,y);k(x-1,y-1) end;
if n=11 then begin k(x,y+1);k(x,y-1);k(x-1,y+1) end;
if n=12 then begin k(x-1,y);k(x,y-1);k(x+1,y-1) end;
if n=13 then begin k(x,y+1);k(x-1,y);k(x-1,y-1) end;
if n=14 then begin k(x+1,y);k(x-1,y-1);k(x,y-1) end;
if n=15 then begin k(x-1,y);k(x,y-1);k(x-1,y+1) end;
if n=16 then begin k(x+1,y);k(x-1,y);k(x,y+1) end;
if n=17 then begin k(x+1,y);k(x,y+1);k(x,y-1) end;
if n=18 then begin k(x,y-1);k(x-1,y);k(x+1,y) end;
if n=19 then begin k(x-1,y);k(x,y+1);k(x,y-1) end
end;
procedure pov;
{Џ®ў®а®в дЁЈгал}
begin
nn:=nn-1;
if nn=15 then nn:=19;
if nn=13 then nn:=15;
if nn=11 then nn:=13;
if nn=7 then nn:=11;
if nn=3 then nn:=7;
if nn=1 then nn:=3;
if nn=0 then nn:=1;
end;
procedure clrst;
{ЋзЁбвЄ бв Є }
begin
for x:=1 to 12 do
for y:=1 to 22 do
if (x=1) or (x=12) or (y=1) then st[x,y]:=2 else st[x,y]:=0;
end;
procedure risvesst;
{ђЁб®ў вм ўҐбм бв Є }
begin
for x:=1 to 12 do for y:=1 to 22 do
begin
ss:=st[x,y];
k(x,y)
end;
end;
procedure dvig;
{„ўЁ¦ҐЁҐ}
var
i:integer;key:char;
begin
for i:=1 to 10 do
begin
delay(d);
key:=' ';
if keypressed then key:=readkey;
if key='i' then
begin
fig(x-1,y,nn,3);
if pus=0 then begin fig(x,y,nn,0); x:=x-1; fig(x,y,nn,1); end;
end;
http://sources.ru/pascal/gamestxt/tet.htm