Мне знакомый недавно рассказал, что для Delphi 7 есть компонент TProgrammer. Что якобы, его нужно лишь кинуть на формочку, а потом лишь настроить его параметры, и программа готова. Где его найти? Желательно с crack

А>Мне знакомый недавно рассказал, что для Delphi 7 есть компонент TProgrammer. Что якобы, его нужно лишь кинуть на формочку, а потом лишь настроить его параметры, и программа готова. Где его найти? Желательно с crack

Очень надо! Курсач горит!!!

Здравствуйте, <Аноним>, Вы писали, а я сделал добавки :

А>Мне знакомый шутник недавно 1 апреля рассказал вешал лапшу, что для Delphi 7 есть живой компонент TProgrammer без комментариев. Что якобы, его нужно лишь кинуть усадить на формочку на раб. место, а потом лишь этот "лишь" может быть не раз настроить его параметры дать денег, и программа готова ну ну. Где его найти? www.job.ru Желательно с crack с опытом работы

Здравствуйте, Аноним, Вы писали:

А>Мне знакомый недавно рассказал, что для Delphi 7 есть компонент TProgrammer. Что якобы, его нужно лишь кинуть на формочку, а потом лишь настроить его параметры, и программа готова. Где его найти? Желательно с crack

Его разработку давно купила Microsoft, и теперь выпускается серия компонентов TMCSD,TDeveloper и элитный TBillGates. Стоят кучу денег, крака нету. Так что...

Просто этот компонент наверно наследник всех уже существующих компонентов по 3 раза.

Здравствуйте, Аноним, Вы писали:

А>Мне знакомый недавно рассказал, что для Delphi 7 есть компонент TProgrammer.

На самом деле да, существует. Это самая обычная фабрика классов, встроенная в среду Дельфи. Ничего кидать на форму не надо — у нее есть визард. Запускается из меню File\New Application... Далее настраиваем параметры и, вуаля, — программа готова. Язык настройки — Object Pascal

Здравствуйте, Аноним, Вы писали:

А>Мне знакомый недавно рассказал, что для Delphi 7 есть компонент TProgrammer. Что якобы, его нужно лишь кинуть на формочку, а потом лишь настроить его параметры, и программа готова. Где его найти? Желательно с crack

Да я такой компонент писал на 2 курсе! Как ни странно, ничего не получилось
Слышал также, что есть подобные разновидности компонент: TUser, TProjrctManager, TPresidentOfSoftwareCompony (Тоже делать ничего не нужно, только разбрасывать их правильно на форме)

Да забыл упомянуть, что закладка, на которой лежат все упомянутые компоненты невидима. А для того, что бы делать ее видимой необходимо набрать комбинацию клавиш "IDKFA", при активном окне в проекте в DesignTime.

Здравствуйте, Рома, Вы писали:

Р>Да я такой компонент писал на 2 курсе! Как ни странно, ничего не получилось
Р>Слышал также, что есть подобные разновидности компонент: TUser, TProjrctManager, TPresidentOfSoftwareCompony (Тоже делать ничего не нужно, только разбрасывать их правильно на форме)

А я немножко другие писал ввиду проблем с железом в институте — TPentium2, T5гиговВинт, TDIMM32M. Почти написал, немножко недолелал.

На самом деле лучше поискать компонент TLife и крак позволяющий создавать неограниченное количество объектов TMoney. Тогда и TProgrammer искать не прийдется. А вообще про это уже писали

Автор: fuurin
Дата: 05.09.02

Здравствуйте, Рома, Вы писали:

Р>Да я такой компонент писал на 2 курсе! Как ни странно, ничего не получилось
Р>Слышал также, что есть подобные разновидности компонент: TUser, TProjrctManager, TPresidentOfSoftwareCompony (Тоже делать ничего не нужно, только разбрасывать их правильно на форме)

А ни у кого случайно нет TMoneyButton (Это такая кнопка с большой надписью Make BIG Money).

Здравствуйте, Anatolix, Вы писали:

A>Здравствуйте, Рома, Вы писали:

A>А ни у кого случайно нет TMoneyButton (Это такая кнопка с большой надписью Make BIG Money).

Есть функция:

type
  TMoneyType = (mtEuro, mtUSD, mtRuble, mtTugrik);


function GetBIGMoney(AMoneyType: TMoneyType; AAmount: Real): TBIGMoneyType;

Здравствуйте, Рома, Вы писали:

    void CHusband::GiveMoney()
    {
        Box.Open();
        CMoney money = Box.GetMoney();
        m_Wife.TakeMoney( money );
    };


    ...

    void CWife::TakeMoney()
    {
        Box.Open();
        Box.PutMoney( money );
        m_Husband.GiveMoney();
    };

Здравствуйте, UgN, Вы писали:

UgN>Здравствуйте, Рома, Вы писали:

UgN>
UgN>

UgN>    void CHusband::GiveMoney()
UgN>    {
UgN>        Box.Open();
UgN>        CMoney money = Box.GetMoney();
UgN>        m_Wife.TakeMoney( money );
UgN>    };

UgN>
UgN>    ...

UgN>    void CWife::TakeMoney()
UgN>    {
UgN>        Box.Open();
UgN>        Box.PutMoney( money );
UgN>        m_Husband.GiveMoney();
UgN>    };
UgN>

Низя так! А закрывать коробку кто будет?

Здравствуйте, cMex, Вы писали:

M>Низя так! А закрывать коробку кто будет?

Да...

Поторопился, не отладил...

Здравствуйте, UgN, Вы писали:

UgN>Здравствуйте, Рома, Вы писали:


UgN>

UgN>    void CHusband::GiveMoney()
UgN>    {
UgN>        Box.Open();
UgN>        CMoney money = Box.GetMoney();
UgN>        m_Wife.TakeMoney( money );
UgN>    };


UgN>    ...

UgN>    void CWife::TakeMoney()
UgN>    {
UgN>        Box.Open();
UgN>        Box.PutMoney( money );
UgN>        m_Husband.GiveMoney();
UgN>    };
UgN>

Представь схему алгоритма !!! И коробочку с денюжками все таки закрой, а то мало ли что

Здравствуйте, Рома, Вы писали:


Р>Представь схему алгоритма !!! И коробочку с денюжками все таки закрой, а то мало ли что

Пожалуйста.

    void CHusband::GiveMoney()
    {
        Box.Open();
        CMoney money = Box.GetMoney();
        Box.Close();
        m_Wife.TakeMoney( money );
    };

    ...

    void CWife::TakeMoney()
    {
        Box.Open();
        Box.PutMoney( money );
        Box.Close();
        m_Husband.GiveMoney();
    };

...

-- Где деньги взял?

-- В тумбочке.

-- А в тумбочке они откуда?

-- Жена положила.

-- А жена где взяла?

-- Я дал.

-- А ты где взял?!!

-- Ну я же говорю: в тумбочке!

...

Здравствуйте, <Аноним>, Вы писали:

А>Мне знакомый недавно рассказал, что для Delphi 7 есть компонент TProgrammer. Что якобы, его нужно лишь кинуть на формочку, а потом лишь настроить его параметры, и программа готова. Где его найти? Желательно с crack

Возьми MFC реализацию CProgrammer, подключи с помощью obj или dll:

class CProgrammer : public CProgrammer1C{
 friend class CBigBrother ;
public:
 DECLARE_DYNAMIC( CProgrammer )
 CPorogrammer() : CProgrammer1C() { DoNothing(); }
 ~CPorogrammer();
 virtual void DoNothing(){ 
  HANDLE hFeatures = (HANDLE)::AfxGetAllUndocumentedFeaturesAndVariableFromDelphi("7.0", MORE);
  while(1){
   // TODO: Place code here.
  } 
  AfxReleaseAllUndocumentedFeaturesAndVariableForOtherDelphiProgrammer(hFeatures);
 }
};

Здравствуйте, UgN, Вы писали:

UgN>Здравствуйте, Рома, Вы писали:


Р>Представь схему алгоритма !!! И коробочку с денюжками все таки закрой, а то мало ли что

UgN>Пожалуйста.

Ребята! Во-первых, надо сделать код потокобезопасным!
Во вторых, а кто будет обрабатывать исключения???

Здравствуйте, Sinclair, Вы писали:

S>Ребята! Во-первых, надо сделать код потокобезопасным!
Откуда еще поток? Жена-то одна...
Это код для обычной семьи, для многоженства там вообще все по-другому.
Хотел написать, да боюсь не выйдет: опыта мало...

S>Во вторых, а кто будет обрабатывать исключения???
Над этим думаю...
Очень сложно поймать вылетающие исключения типа "сковородка"...

Здравствуйте, sercher, Вы писали:

S>Просто этот компонент наверно наследник всех уже существующих компонентов по 3 раза.

Тогда это в билдере... в Паскале нет множественного наследования.

Разьве что так:

TProgrammer = class(TWorker)

Здравствуйте, Beta, Вы писали:

B>Здравствуйте, sercher, Вы писали:

S>Просто этот компонент наверно наследник всех уже существующих компонентов по 3 раза.

B>Тогда это в билдере... в Паскале нет множественного наследования.

ну дак и в Билдере нету... для VCL классов

Здравствуйте, UgN, Вы писали:

UgN>Здравствуйте, Sinclair, Вы писали:

S>Ребята! Во-первых, надо сделать код потокобезопасным!
UgN>Откуда еще поток? Жена-то одна...
Кто здесь? А мужа у нее нету што ли? Вот они как лбами-то столкнутся над коробкой!

Здравствуйте, Sinclair, Вы писали:

S>Здравствуйте, UgN, Вы писали:

UgN>>Здравствуйте, Sinclair, Вы писали:

S>>Ребята! Во-первых, надо сделать код потокобезопасным!
UgN>>Откуда еще поток? Жена-то одна...
S>Кто здесь? А мужа у нее нету што ли? Вот они как лбами-то столкнутся над коробкой!


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

void CHusband::GiveMoney()
    {
        sf = Box.Open(){CreateSemaphore(..., "WifeNearBox")}
        CMoney money = Box.GetMoney();
        Box.Close(CloseHandle(sf));
        m_Wife.TakeMoney( money );
    };

    ...

    void CWife::TakeMoney()
    {
        while(Box.Open(){return OpenSemaphore(...,"WifeNearBox") != NULL});
        Box.PutMoney( money );
        Box.Close();
        m_Husband.GiveMoney();
    };

Ну отладить конечно прийдется еще... Но уже вероятность случайного убиения друг друга на бытовой почве, значительно снижается

Здравствуйте, free stranger, Вы писали:
FS>Здравствуйте, Sinclair, Вы писали:
S>>Здравствуйте, UgN, Вы писали:
[skip]

Если так дальше дело пойдет, то мир увидит либо новую программу моделирования жизни живых процессов, либо вообще — AI.

Здравствуйте, Real 3L0, Вы писали:

R3>Если так дальше дело пойдет, то мир увидит либо новую программу моделирования жизни живых процессов, либо вообще — AI.

Дык — Welcome to MATRIX

Здравствуйте, free stranger, Вы писали:
FS>Предлагаю ввести в класс жены метод установки симафора присутствия (ну там голосом или еще чем), а в классе муже этот симафор отрабатывать.
Вопиющее ламерство.
Во-первых, работоспособность всего приложения зависит от корректности реализации класса Жена.
Во-вторых, этот код не обрабатывает исключения, и если при доставании денег что-то пойдет не так, коробка останется залоченной навсегда.
Во-третьих, код несимметричный, и если муж полезет в коробку первым, семафор никак не помешает жене сделать то же самое.
Продолжаем попытки разработать надежный механизм ведения семейного бюджета.

Здравствуйте, Sinclair, Вы писали:

S>Здравствуйте, free stranger, Вы писали:
FS>>Предлагаю ввести в класс жены метод установки симафора присутствия (ну там голосом или еще чем), а в классе муже этот симафор отрабатывать.
S>Вопиющее ламерство.
S>Во-первых, работоспособность всего приложения зависит от корректности реализации класса Жена.

Это бесспорно


S>Во-вторых, этот код не обрабатывает исключения, и если при доставании денег что-то пойдет не так, коробка останется залоченной навсегда.
S>Во-третьих, код несимметричный, и если муж полезет в коробку первым, семафор никак не помешает жене сделать то же самое.

Так же естесственно Ведь исходя из анализа жизненных ситуаций, класс жена полезет в коробку даже если класс муж выкине сотню симафоров Поэтому нужно акцентировать требования к задаче на том, чтобы вероятный Exception не убил оба класса (В Живых должен остаться только один )
Возможный вариант рещения, сделать класс box полностью недоступным классу жена, но тогда наличие класса жена становится бессмысленным что не соответствует поставленной задаче. На а если Exception всё же произойдет (а он произойдет обязательно ) то вывалится всё приложение с ErrorLevel "Развод! Как минимум развод! Вот только выйди из больницы и сразу развод!" и залоченность коробки не будет иметь уже никакого значения


S>Продолжаем попытки разработать надежный механизм ведения семейного бюджета.

Ну я же говорил... тестировать надо
Можно конечно для класса жена сделать виртуальные функции BoxOpen и GetMoney, а классу муж динамичски выделять память под объект заначка. Заначку организовать стеком и выделять указатели из стека по LIFO, по мере их неактуальности.