Лабораторная работа №1 (990103), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

Mouse1.DoLeft();

Form1->Memo1->Lines->Add("MOUSE action 2");

return MYTRUE;

case 3: // Действие З - "шаг вправо"

Mouse1.DoRight();

Form1->Memo1->Lines->Add("MOUSE action 3");

return MYTRUE;

case 4: // Действие 4 - "шаг вперед"

Mouse1.DoForward();

Form1->Memo1->Lines->Add("MOUSE action 4");

return MYTRUE;

case 5: // Действие 5 - "случайный ход влево или вправо"

Mouse1.DoRandom();

Form1->Memo1->Lines->Add("MOUSE action 5");

return MYTRUE;

case 6: // Действие 6 - "ждать"

Form1->Memo1->Lines->Add("MOUSE action 6");

return MYTRUE;

case 7: // Действие 7 - "шаг назад"

Mouse1.DoBack();

Form1->Memo1->Lines->Add("MOUSE action 7");

return MYTRUE;

}

break;

case 2: // Таблица 2 - КОТ

switch(LParam) // Номер действия

{

case 1: // Действие 1 - "поймать мышь"

Form1->Memo1->Lines->Add("CAT action 1");

Form1->Memo1->Lines->Add("-*-Конец работы-*-");

//Close();

return MYTRUE;

case 2: // Действие 2 - "шаг прямо"

Cat1.DoForward();

Form1->Memo1->Lines->Add("CAT action 2");

return MYTRUE;

case 3: // Действие З - "шаг в новом направлении (за мышью)"

Cat1.DoMouse();

Form1->Memo1->Lines->Add("CAT action 3");

return MYTRUE;

case 4: // Действие 4 - "случайно повернуться влево или вправо (без шага)"

Cat1.DoRandom();

Form1->Memo1->Lines->Add("CAT action 4");

return MYTRUE;

}

break;

}

break;

}

return MYFALSE;

}

14

Характеристики

Список файлов лабораторной работы