Управление автомобилем

@MaKSиM04Ka · Регистрация: 16.11.2008

Студворк — интернет-сервис помощи студентам

помогите составить программу пожалуйста !!!

1.создайте форму CreateCar
2.Создайте кнопку "запуск",при нажатие на которую:
2.1 Кнопка "запуск" исчезает
2.2 Появляется автомобиль примерно в центре экрана
2.3 В правом верхнем углу возникает светофор
3. Светофор обладает свойствами:
3.1 Щелчок на любом свете зажигает его и гасит все остальные
3.2 Красный (зеленый) зажигается только через желтый (желтый в этом случае горит 2 секунды)
4. Автомобиль
4.1 при красном свете стоит
4.2 при зелёном движется
4.3 при желтом над ним появляется на время горения жёлтого света надпись "Би-Би"(ЭУ Label)
4.4 может двигаться в четырёх направлениях,причем всегда разварачивается передом в направлении движения
4.5 управление автомобилем производиться клавишами с клавиатуры:
(стрелка на право) движение влево (KeyAscii=49)
(стрелка вверх) движение вверх (KeyAscii=50)
(стрелка на лево) движение в право (KeyAscii=51)
(стрелка вниз) движение вниз (KeyAscii=52)
4.6 при достижении любого края формы если одновременно с клавишей управления курсором клавиша Shift.
- не нажата ,то останавливается,
- нажата,то меняет свое движение на противоположное
4.7 попробуйте создать имитатор педали газа

@MaKSиM04Ka · 18.11.2008, 20:26 **[ТС]**

помогите пожалуйса добрые люди:'(

@Жестянка · 18.11.2008, 21:38

Прикольно! Эт где же такие задания дают?

Добавлено через 43 секунды
... и компилер какой?

@MaKSиM04Ka · 18.11.2008, 21:41 **[ТС]**

[QUOTE=Жестянка;73905]Прикольно! Эт где же такие задания дают?

это дают в луховицком авиационом техникуме!

@Жестянка · 18.11.2008, 22:23

Респект Луховиццкому техникуму. ;-)

Чво-то такое можно придумать:

C++
1
2
3
4
5
6
7
8
9
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
#include <vcl.h>
#include "Car.h"
class Car
{
public:
Car(TImage *image, int LocationX, int LocationY, char direct, AnsiString Directory) // конструктор
        {
        Img=image; // картинка, на которой будет машина
        direction=direct; // направление, в котором повернут нос
        Img->Picture->LoadFromFile(Directory+"//"+direction+".gif"); // загрузка изображения машинки, повернутой в ту сторону, куда надо (в формате .gif, если рисунки в другом формате - пиши его)
        Img->Top=LocationY; // место на форме, где должна появиться машина
        Img->Left=LocationX;
        Img->Visible=true; // рисунок становится видимым
        }
~Car(){delete Img;} // деструктор
Car(Car &C1) // конструктор копии
        {
        Img=C1.Img;
        direction=C1.direction;
        Dir=C1.Dir;
        }
//...............................................................
void Go(int Gaz) // ехать Gaz - скорость
        {
        switch(direction) // двигаем картинку в ту сторону, куда направлен нос
                {
                case 'l': {Img->Left+=Gaz;break;}
                case 'r': {Img->Left-=Gaz;break;}
                case 'u': {Img->Top+=Gaz;break;}
                case 'd': {Img->Top-=Gaz;break;}
                }
        }
void Turn(char n)  // повернуть
        {
        direction=n;
        Img->Picture->LoadFromFile(Dir+"//"+direction+".gif"); // загружаем картинку с нужным "ракурсом"
        }
void BeBe() // би-бикать :-)
        {
        Be=new TLabel; // создаем лейбел, присваеваем ему все нужные свойства. После включения зеленого лейбел надо удалить: <имя объекта класса Car>.Be->delete;
        Be->Name="Bee";
        Be->Caption="Bee-bee!!!";
        Be->Left=Img->Left;
        Be->Top=Img->Top+Be->Width;
        }
private:
TLabel *Be;
TImage *Img;
char direction; // направление, в котором повернут нос {'l' - влево, 'r' - вправо, 'u' - вверх, 'd' - вниз}
AnsiString Dir; // папка, где лежат картинки
};

@MaKSиM04Ka · 18.11.2008, 22:26 **[ТС]**

а можно пожалуйста с коминтариями а то я не шарю в этом!пожалуйста

@Жестянка · 19.11.2008, 00:37

ггы. Я по новым сообщениям искала... Название раздела не заметила.

Эт на с++ код.

Ща на VB перекатаю

Добавлено через 59 минут 51 секунду

VB.NET
1
2
3
4
5
6
7
8
9
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
Public Class Car
    Public Sub CreateCar(image As Image, LocationX As Integer, LocationY As Integer, direct As Char, Directory As String)
            Img=image; ' картинка, на которой будет машина
            direction=direct; ' направление, в котором повернут нос
            Img.Picture.LoadFromFile(Directory+"//"+direction+".gif"); ' загрузка изображения машинки, повернутой в ту сторону, куда надо (в формате .gif, если рисунки в другом формате - пиши его)
            Img.Top=LocationY; ' место на форме, где должна появиться машина
            Img.Left=LocationX;
            Img.Visible=true; ' рисунок становится видимым
        
    Public Sub Go(Gaz As Integer) ' ехать. Gaz - скорость
                Select Case(direction) ' двигаем картинку в ту сторону, куда направлен нос
                    Case 'l': Img.Left+=Gaz
                    Case 'r': Img.Left-=Gaz
                    Case 'u': Img.Top+=Gaz
                    Case 'd': Img.Top-=Gaz
                End Select
 
    Public Sub Turn(n As Char)  'повернуть
            direction=n
            Img.Picture.LoadFromFile(Dir+"//"+direction+".gif"); ' загружаем картинку с нужным "ракурсом"
 
    Public Sub BeBe() 'би-бикать :-)
        {
        New System.Windows.Forms.TLabel ' создаем лейбел, присваеваем ему все нужные свойства. После включения зеленого лейбел надо удалить: <имя объекта класса Car>.Be->delete;
            .Name="Be"
            .Caption="Bee-bee!!!"
            .Left=Img.Left
            .Top=Img.Top+Be.Width
        }
 
Public Be As System.Windows.Forms.Label;
Private Img As System.Windows.Forms.Image;
Private direction As Char; ' направление, в котором повернут нос {'l' - влево, 'r' - вправо, 'u' - вверх, 'd' - вниз}
Private Dir As String; ' папка, где лежат картинки
};

Это описание класса Car со встроенными функциями. С помощью него мона создавать и двигать машинку:

VB.NET
1
2
3
4
Tachka.CreateCar(<картинка, которую надо предварительно вставить в форму>,<координота х>,<координата у>,<направление носа><папка с картинками>) ' создает машинку на форме
Tachka.Go(<скорость>) ' движение
Tachka.Turn(<направление, куде надо повернуться>) ' поворот
Tachka.BeBe() ' би-бикать :-)

Естественно, перед этим надо объявить объект типа Car:

VB.NET
1
Dim Tachka As Car

Новые блоги и статьи Все статьи Все блоги /
Изучаю kubernetes lagorue 13.01.2026 А пригодятся-ли мне знания kubernetes в России?	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .	Classic Notepad for Windows 11 Jel 10.01.2026 Old Classic Notepad for Windows 11 Приложение для Windows 11, позволяющее пользователям вернуть классическую версию текстового редактора «Блокнот» из Windows 10. Программа предоставляет более. . .
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .

@MaKSиM04Ka 0 / 0 / 0 Регистрация: 16.11.2008 Сообщений: 19

	Управление автомобилем 16.11.2008, 22:46. Показов 1855. Ответов 6 Метки нет (Все метки) помогите составить программу пожалуйста !!! 1.создайте форму CreateCar 2.Создайте кнопку "запуск",при нажатие на которую: 2.1 Кнопка "запуск" исчезает 2.2 Появляется автомобиль примерно в центре экрана 2.3 В правом верхнем углу возникает светофор 3. Светофор обладает свойствами: 3.1 Щелчок на любом свете зажигает его и гасит все остальные 3.2 Красный (зеленый) зажигается только через желтый (желтый в этом случае горит 2 секунды) 4. Автомобиль 4.1 при красном свете стоит 4.2 при зелёном движется 4.3 при желтом над ним появляется на время горения жёлтого света надпись "Би-Би"(ЭУ Label) 4.4 может двигаться в четырёх направлениях,причем всегда разварачивается передом в направлении движения 4.5 управление автомобилем производиться клавишами с клавиатуры: (стрелка на право) движение влево (KeyAscii=49) (стрелка вверх) движение вверх (KeyAscii=50) (стрелка на лево) движение в право (KeyAscii=51) (стрелка вниз) движение вниз (KeyAscii=52) 4.6 при достижении любого края формы если одновременно с клавишей управления курсором клавиша Shift. - не нажата ,то останавливается, - нажата,то меняет свое движение на противоположное 4.7 попробуйте создать имитатор педали газа 0

@MaKSиM04Ka 0 / 0 / 0 Регистрация: 16.11.2008 Сообщений: 19
	18.11.2008, 20:26 [ТС]
	помогите пожалуйса добрые люди:'( 0

@Жестянка сцуко киборг 103 / 30 / 4 Регистрация: 11.09.2008 Сообщений: 193
	18.11.2008, 21:38
	Прикольно! Эт где же такие задания дают? Добавлено через 43 секунды ... и компилер какой? 0

@MaKSиM04Ka 0 / 0 / 0 Регистрация: 16.11.2008 Сообщений: 19
	18.11.2008, 21:41 [ТС]
	[QUOTE=Жестянка;73905]Прикольно! Эт где же такие задания дают? это дают в луховицком авиационом техникуме! 0

@MaKSиM04Ka 0 / 0 / 0 Регистрация: 16.11.2008 Сообщений: 19
	18.11.2008, 22:26 [ТС]
	а можно пожалуйста с коминтариями а то я не шарю в этом!пожалуйста 0