procedure TForm1.BPuskClick(Sender: TObject);
begin
   flag:= true;
   BStop.SetFocus;
   while flag = true do
   begin
     Inc(cnt);
     if (cnt mod 10000) = 0 then begin_color:= not_color; cnt:= 1; end;
     if _color = true then Form1.Canvas.Brush.Color:= clRed
     else Form1.Canvas.Brush.Color:= clBtnFace;
     Form1.Canvas.Rectangle(100,100,150,150);
     Application.ProcessMessages;
   end;
end;

procedure TForm1.BStopClick(Sender: TObject); // Стоп по кнопке на форме
begin
   flag:= false;
   Form1.Canvas.Brush.Color:= clBtnFace;
   Form1.Canvas.Rectangle(100,100,150,150);
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; // Стоп по клавише клавиатуры (любая)
   Shift: TShiftState);
begin
    BStopClick(Sender);
end;

Сайт – http://pkonkurs.ru/

1 конкурс проходил в 1 этап
Обсуждение http://programmersforum.ru/showthread.php?t=81296
Результаты http://pblog.ru/?p=702
Участников было 5 – 2 первых места награждались.

2 Конкурс проходит в 3 этапа.
Были найдены спонсоры и выделено призовые – футболки и толстовка от printdirect.ru
Более 3000 рублей от mixmarket.ru, onegadget.ru, programmersforum.ru.

15 июля
Обсуждение – http://programmersforum.ru/showthread.php?t=92365
Результаты – http://pkonkurs.ru/Первая-битва-Результаты/
Участников было 6 – все 6 были награждены разными призами – футболка + 1000 рублей призовых

15 августа
Обсуждение – http://programmersforum.ru/showthread.php?t=107618
Результаты – http://pkonkurs.ru/Вторая-битва-Результаты/
Участников было 7 – 3 старых бота и 4 новых. Новые боты были доработаны и обучены побеждать старых и потому заняли все призовые места. Призы – толстовка + 2 майки + 100 рублей.

15 сентября
Обсуждение – http://programmersforum.ru/showthread.php?t=110428
Ждем еще несколько ботов и разыгрываем почти 2000 рублей.
Первое место 500 далее 400, 300, 200 и по 100 рублей всем кто пришлет ботов, которые победят симпл бота – простого бота.

География участников и победителей

Итоги и выводы
Конкурс оказался довольно сложным и потому не каждый смог или не захотел в нём принимать участие. После первого конкурса были продемонстрированы боты которых довольно сложно победить, потому присылались только – продвинутые боты, которые легко обыгрывали простых ботов поставлявшихся со сборкой.

Я как участник потратил по 2 дня на написание каждого нового бота. И с пятого места продвинулся на первое во втором этапе, что приятно. Выделенный мной на конкурс спонсорский взнос – постепенно возвращается

Также была создана витрина с клубными футболками – http://programmersforum.printdirect.ru/
После получения призов жду отзывы о продукции и печати и при хорошей оценке – оставлю эту ссылку в навигации и на следующее лето разработаем новые дизайны.

И последнее – на всех сайта клуба была встроена реклама от mixmarket.biz, в планах запуск каталога.

unit Unit1;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls, ExtCtrls;

type
   TForm1 = class(TForm)
     Label1: TLabel;
     Timer1: TTimer;
     procedure FormCreate(Sender: TObject);
     procedure Label1Click(Sender: TObject);
     procedure Timer1Timer(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
   end;

var v:variant;
   Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var h:HWND;wp:WINDOWPLACEMENT;
begin
   h:=FindWindow(’Shell_TrayWnd’,”);
   h:=FindWindowEx(h,0,’TrayNotifyWnd’,”);
   h:=GetWindow(h,GW_CHILD);
   Align:=alClient;
   BorderStyle:=bsNone;
   top:=0;left:=0;
   windows.SetParent(Handle,h);
end;

procedure TForm1.Label1Click(Sender: TObject);
begin
   close;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Label1.Caption:=TimeToStr(now);
end;

end.

using System;
using System.IO;

namespace FileOperationsSample

{
    class Program
    {
        static void Main(string[] args)
        {
            // Create the new, empty data file.

            string fileName = @"C:\Temp.data";

            if (File.Exists(fileName))
            {
                Console.WriteLine(fileName + " already exists!");
                return;
            }

            FileStream fs = new FileStream(fileName, FileMode.CreateNew);
            // Create the writer for data.
            BinaryWriter w = new BinaryWriter(fs);
            // Write data to Test.data.
            for (int i = 0; i < 11; i++)
            {
                w.Write((int)i);
            }

            w.Close();
            fs.Close();

            // Create the reader for data.
            fs = new FileStream(fileName, FileMode.Open, FileAccess.Read);
            BinaryReader r = new BinaryReader(fs);

            // Read data from Test.data.
            for (int i = 0; i < 11; i++)
            {
                Console.WriteLine(r.ReadInt32());
            }
            r.Close();
            fs.Close();
        }
    }

}

const
  // Размер буфера, резервируемого для имени класса при
// использовании функций GetClassName и GetReadWindowClass
  ClassNameLen = 512;

function EnumWindowProc(Wind: HWND; LI: TListItem): BOOL; stdcall;
var
  Text: string;
  TextLen: Integer;
  ClassName: array[0..ClassNameLen - 1] of Char;
begin
  Result := True;
  TextLen := GetWindowTextLength(Wind);
  SetLength(Text, TextLen);
  if TextLen > 0 then
    GetWindowText(Wind, PChar(Text), TextLen + 1);
  if TextLen > 100 then
    Text := Copy(Text, 1, 100) + ' ...';
  GetClassName(Wind, ClassName, ClassNameLen);
  ClassName[ClassNameLen - 1] := #0;
  LI := AddAppForm.AppWindList.Items.add;
  LI.Caption := IntToStr(Wind);
  LI.SubItems.Add(ClassName);
  if Text = '' then
    LI.SubItems.Add('без имени')
  else
    LI.SubItems.Add(Text);
end;

function EnumTopWindowProc(Wind: HWND; PID: Cardinal): BOOL; stdcall;
var
  Text: string;
  TextLen: Integer;
  ClassName: array[0..ClassNameLen - 1] of Char;
  WindPID: Cardinal;
  LI: TListItem;
begin
  Result := True;
  GetWindowThreadProcessId(Wind, @WindPID);
  if WindPID = PID then
  begin
    TextLen := GetWindowTextLength(Wind);
    SetLength(Text, TextLen);
    if TextLen > 0 then
      GetWindowText(Wind, PChar(Text), TextLen + 1);
    if TextLen > 100 then
      Text := Copy(Text, 1, 100) + ' ...';
    GetClassName(Wind, ClassName, ClassNameLen);
    ClassName[ClassNameLen - 1] := #0;
    LI := AddAppForm.AppWindList.Items.add;
    LI.Caption := IntToStr(Wind);
    LI.SubItems.Add(ClassName);
    if Text = '' then
      LI.SubItems.Add('без имени')
    else
      LI.SubItems.Add(Text);
    //EnumChildWindows(Wind,@EnumWindowProc,LParam(LI));
  end;
end;

function GetProcessPID(ExeFileName: string): Cardinal;
var
  ContinueLoop: Bool;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := 0;
  FSnapshotHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.DwSize := Sizeof(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((AnsiUpperCase(ExtractFileName(FProcessEntry32.SzExeFile)) =
      AnsiUpperCase(ExeFileName)) or (AnsiUpperCase(FProcessEntry32.SzExeFile) =
      AnsiUpperCase(ExeFileName))) then
      Result := FProcessEntry32.Th32ProcessID;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

function ProcessExists(ExeFileName: string): Boolean;
var
  ContinueLoop: Bool;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
  Result := False;
  FSnapshotHandle := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  FProcessEntry32.DwSize := SizeOf(FProcessEntry32);
  ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
  while Integer(ContinueLoop) <> 0 do
  begin
    if ((AnsiUpperCase(ExtractFileName(FProcessEntry32.SzExeFile)) =
      AnsiUpperCase(ExeFileName)) or (AnsiUpperCase(FProcessEntry32.SzExeFile) =
      AnsiUpperCase(ExeFileName))) then
    begin
      Result := True;
    end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
  end;
  CloseHandle(FSnapshotHandle);
end;

procedure GetWindList(PID: Cardinal);
begin
  if PID = 0 then
    Exit;
  EnumWindows(@EnumTopWindowProc, PID);
end;

#include <vcl.h>
#pragma hdrstop

#include  <windows.h>
//---------------------------------------------------------------------------

/*
ZeroMemory (&dcb, sizeof (DCB));// не знает что ето такое
*/
//объявим структуру для асинхронной работы порта
OVERLAPPED over;
//для выделения сигнала
DWORD dwSignal;
//объявим структуру для конфигурации СОМ порта
DCB dcb;
//дескриптор порта
HANDLE hPortDat = NULL;
//переменная для чтения
char Data;
//==================================
//---------------------------------------------------------------------------
class MuClDataOutPort
{
private:

  //пишим функцию инициализации порта
 bool InnitPort ()
 {
   //открываем порт СОМ 1
   hPortDat = CreateFile ("COM1", GENERIC_READ|GENERIC_WRITE,
                                   0,NULL, OPEN_EXISTING,
                                   FILE_FLAG_OVERLAPPED, NULL);
   if (hPortDat == INVALID_HANDLE_VALUE)//если порт не удалось открыть
    {
     CloseHandle (hPortDat);
     return false;//выходим из функции с ошибкой
	}
   //настраиваем параметры порта
  dcb.BaudRate = CBR_19200;//скорость передачи
 dcb.ByteSize = 8;//размер передачи
  dcb.StopBits = ONESTOPBIT;//один стоповый бит
  dcb.Parity = NULL;
  //проверяем на правильность настройки

   if ( !SetCommState ( hPortDat, &dcb))  //тоже не работает....
    {
     CloseHandle (hPortDat);
     return false;//выходим из функции с ошибкой
   }

  //если все выполнилось то возвращаем положительный результат
  return true;
 }
//----------------------------------------------------
//функция чтения одного байта данных
 BYTE ReadByteCOM ()
  {
  if (InnitPort ())
  {
	BYTE read = 0;
	DWORD dwByteRead = 0;
	  do
    {//читаем байт из порта
      if (!ReadFile (hPortDat, &read, sizeof (BYTE), &dwByteRead, NULL))
		 {return 0xFF;}
	}  while (!dwByteRead);
   return read;//возвращаем данные
  }
 else
  {
   return 0xFF;
  }
 }
//------------------------------------------------------
//функция чтения одного байта данных
 bool WriteByteCOM (char bufer)
 {
  if (InnitPort ())
  {
   DWORD dwByteWrite = 0;
	if (!WriteFile(hPortDat, &bufer, sizeof(char), &dwByteWrite, NULL))
       {return false;}
  return true;//возвращаем сведение о выполнении
  }
 else
  {
   return false;
  }
 }
//=============================================
//функция чтения массива данных
//=============================================
//=============================================
//=============================================
public:
//общая функция для работы с портом
 void GeneralCOMRead ()
 {
  //проверяем сигнал в линии
    if (dwSignal & EV_DSR)//данные готовы для чтения
      {
        //читаем байт из порта
	Data = ReadByteCOM ();
       //сохраняем байт куда-либо
     }
 }
//---------------------------------------------------------
 void GeneralCOMWrite (char InData)
 {
  //проверяем сигнал в линии
     if (dwSignal & EV_CTS)//данные готовы для записи
     {
     //пердаем байт из вне и записываем его в порт
	 WriteByteCOM (InData);
     }
 }
//---------------------------------------------------------
 void CloseCOM ()
 {
   if (over.hEvent)
  {
   CloseHandle (over.hEvent);//закрываем объект событие
  }
  if (hPortDat)
  {
	CloseHandle (hPortDat);
   hPortDat = NULL;
  }
 }
};
#pragma package(smart_init)

До настоящего момента каждый создаваемый вами объект имел свой собственный набор элементов данных. В зависимости от назначения вашего приложения могут быть ситуации, когда объекты одного и того же класса должны совместно использовать один или несколько элементов данных. Например, предположим, что вы пишете программу платежей, которая отслеживает рабочее время для 1000 служащих. Для определения налоговой ставки программа должна знать условия, в которых работает каждый служащий. Пусть для этого используется переменная классаstate_of_work. Однако, если все служащие работают в одинаковых условиях, ваша программа могла бы совместно использовать этот элемент данных для всех объектов типа employee. Таким образом, ваша программа уменьшает необходимое количество памяти, выбрасывая 999 копий одинаковой информации. Для совместного использования элемента класса вы должны объявить этот элемент как static (статический). Этот урок рассматривает шаги, которые вы должны выполнить для совместного использования элемента класса несколькими объектами. К концу этого урока вы освоите следующие основные концепции:

• C++ позволяет иметь объекты одного и того же типа, которые совместно используют один или несколько элементов класса.
• Если ваша программа присваивает значение совместно используемому элементу, то все объекты этого класса сразу же получают доступ к этому новому значению.
• Для создания совместно используемого элемента данных класса вы должны предварять имя элемента класса ключевым словом static.
• После того как программа объявила элемент класса как static, она должна объявить глобальную переменную (вне определения класса), которая соответствует этому совместно используемому элементу класса.
• Ваши программы могут использовать ключевое слово static, чтобы сделать метод класса вызываемым в то время, как программа, возможно, еще не объявила каких-либо объектов данного класса.

СОВМЕСТНОЕ ИСПОЛЬЗОВАНИЕ ЭЛЕМЕНТА ДАННЫХ

Обычно, когда вы создаете объекты определенного класса, каждый объект получает свой собственный набор элементов данных. Однако возможны такие ситуации, при которых объектам одного и того же класса необходимо совместно использовать один или несколько элементов данных (статические э лементы данных). В таких случаях объявляйте элементы данных как общие ил и частные, а затем предваряйте тип ключевым словом static, как показано ниже:

private:
static int shared_value;

После объявления класса вы должны объявить элемент как глобальную переменную вне класса, как показано ниже:

int class_name::shared_value;

Следующая программа SHARE_IT.CPP определяет класс book_series,совместно использующий элемент page_count, который является одинаковым для всех объектов (книг) класса (серии). Если программа изменяет значение этого элемента, изменение сразу же проявляется во всех объектах класса:

#include <iostream.h>

#include <string.h>

class book_series

{
public:
book_series(char *, char *, float);
void show_book(void);
void set_pages(int) ;
private:
static int page_count;
char title[64];
char author[ 64 ];
float price;
};

int book_series::page__count;

void book_series::set_pages(int pages)

{
page_count = pages;
}

book_series::book_series(char *title, char *author, float price)

{
strcpy(book_series::title, title);
strcpy(book_series::author, author);
book_series::price = price;
}

void book_series:: show_book (void)

{
cout << «Заголовок: » << title << endl;
cout << «Автор: » << author << endl;
cout << «Цена: » << price << endl;
cout << «Страницы: » << page_count << endl;
}

void main(void)

{
book_series programming( «Учимся программировать на C++», «Jamsa», 22.95);
book_series word( «Учимся работать с Word для Windows», «Wyatt», 19.95);
word.set_pages(256);
programming.show_book ();
word.show_book() ;
cout << endl << «Изменение page_count » << endl;
programming.set_pages(512);
programming.show_book();
word.show_book();
}

Как видите, класс объявляет page_count как static int. Сразу же за определением класса программа объявляет элемент page_count как глобальную переменную. Когда программа изменяет элемент page_count,изменение сразу же проявляется во всех объектах класса book_series.

Совместное использование элементов класса

В зависимости от вашей программы возможны ситуации, когда вам потребуется совместно использовать определенные данные несколькими экземплярами объекта. Для этого объявите такой элемент как static. Далее объявите этот элемент вне класса как глобальную переменную. Любые изменения, которые ваша программа делает с этим элементом, будут немедленно отражены в объектах данного класса.

Использование элементов с атрибутами public static, еслиобъекты не существуют

Как вы только что узнали, при объявлении элемента класса как static этот элемент совместно используется всеми объектами данного класса. Однако возможны ситуации, когда программа еще не создала объект, но ей необходимо использовать элемент. Для использования элемента ваша программа должна объявить его как public и static. Например, следующая программа USЕ_MBR.CPP использует элемент page_count из классаbook_series, даже если объекты этого класса не существуют:

#include <iostream.h>

#include <string.h>

class book_series

{
public:
static int page_count;
private:
char title [64];
char author[64];
float price;
};

int book_series::page_count;

void main(void)
{
book_series::page_count = 256;
cout << «Текущее значение page_count равно » << book_series::page_count << endl;
}

В данном случае, поскольку класс определяет элемент класса page_countкак public, программа может обратиться к этому элементу класса, даже если объекты класса book_series не существуют.

ИСПОЛЬЗОВАНИЕ СТАТИЧЕСКИХ ФУНКЦИЙ-ЭЛЕМЕНТОВ

Предыдущая программа иллюстрировала использование статическихэлементов данных. Подобным образом C++ позволяет вам определитьстатические функции-элементы (методы). Если вы создаете статическийметод, ваша программа может вызывать такой метод, даже если объекты не были созданы. Например, если класс содержит метод, который может быть использован для данных вне класса, вы могли бы сделать этот методстатическим. Ниже приведен класс menu, который использует esc-последовательность драйвера ANSI для очистки экрана дисплея. Если в вашей системе установлен драйвер ANSI.SYS, вы можете использовать метод clear_screen для очистки экрана. Поскольку этот метод объявлен как статический, программа может использовать его, даже если объекты типа menu не существуют. Следующая программа CLR_SCR.CPP использует метод clear_screen для очистки экрана дисплея:

#include <iostream.h>

class menu

{
public:
static void clear_screen(void);
// Здесь должны быть другие методы
private:
int number_of_menu_options;
};

void menu::clear_screen(void)

{
cout << ‘\033’ << «[2J»;
}

void main(void)

{
menu::clear_screen();
}

Так как программа объявляет элемент clear_screen как статический, она может использовать эту функцию для очистки экрана, даже если объекты типа menu не существуют. Функция clear_screen использует esc-последовательность ANSI Esc[2J для очистки экрана.

Использование в ваших программах методов класса

По мере создания методов класса возможны ситуации, когда функция, созданная вами для использования классом, может быть полезна для операций вашей программы, которые не включают объекты класса. Например, в классеmenu была определена функция clear_screen, которую вы, возможно, захотите использовать в программе. Если ваш класс содержит метод, который вы захотите использовать вне объекта класса, поставьте перед его прототипом ключевое слово static и объявите этот метод как public:

public:
static void clear_screen(void);

Внутри вашей программы для вызова такой функции используйте оператор глобального разрешения, как показано ниже:

menu::clear_screen();

ЧТО ВАМ НЕОБХОДИМО ЗНАТЬ

Из этого урока вы узнали, что, если предварять элемент данных класса ключевым словом static, все объекты данного класса могут совместно использовать этот элемент. Когда элемент данных является общим, ваши программы могут обращаться к его значению, даже если объекты этого класса не существуют. Подобно этому, если ваши программы предваряют общий метод класса ключевым словом static, они могут использовать эту функцию для операций, которые не включают объекты класса. Из урока 26 вы узнаете, как использовать наследование для построения объекта из одного или нескольких уже существующих объектов. Использование наследования для создания новых объектов может сэкономить огромные усилия, затрачиваемые на программирование. До изучения урока 26 убедитесь, что освоили следующие основные концепции:

1. Когда вы объявляете элемент класса как static, то такой элемент может совместно использоваться всеми объектами данного класса.
2. После того как ваша программа объявляет элемент класса какstatic, она должна вне определения класса объявить глобальную переменную, соответствующую совместно используемому элементу класса.
3. Если вы объявляете элемент как public и static, ваша программа может использовать такой элемент, даже если объекты данного класса не существуют. Для обращения к этому элементу ваша программа должна использовать оператор глобального разрешения, напримерclass_name::member_name.
4. Если вы объявляете общую статическую функцию-элемент, ваша программа может вызывать эту функцию, даже если объекты данного класса не существуют. Для вызова данной функции программа должна использовать оператор глобального разрешения, например menu::clear_screen().

Предыдущий урок | Следующий урок

Из урока 26 вы узнали, что можно построить один класс из другого, наследуя его характеристики. Оказывается, C++ позволяет порождать класс из нескольких базовых классов. Когда ваш класс наследует характеристики нескольких классов, вы используете множественное наследование. Как вы узнаете из данного урока, C++ полностью поддерживает множественное наследование. К концу этого урока вы изучите следующие основные концепции:

• Если вы порождаете класс из нескольких базовых классов, то получаете преимущества множественного наследования.
• При множественном наследовании производный класс получает атрибуты двух или более классов.
• При использовании множественного наследования для порождения класса конструктор производного класса должен вызвать конструкторы всех базовых классов.
• При порождении класса из производного класса вы создаете иерархию наследования (иерархию классов).

Множественное наследование является мощным инструментом объектно-ориентированного программирования. Экспериментируйте с программами, представленными в этом уроке, и вы обнаружите, что построение класса из уже существующего значительно экономит усилия на программирование. (читать всё…)