Форум программистов, компьютерный форум, киберфорум
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
22 / 22 / 14
Регистрация: 01.12.2011
Сообщений: 159
1

Как запустить две подпрограммы одновременно

23.10.2012, 09:38. Просмотров 2781. Ответов 1
Метки нет (Все метки)

Помогите пожалуйста.
Написал не большую программку типа игра как запустить две подпрограммы одновременно?
Надо чтоб подпрограмма vragi и shar работали одновременно.
Pascal
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
52
uses GraphABC, Events, ABCObjects;
var
  krug: CircleABC;
  prov: RectangleABC;
  f: boolean;
procedure vragi(x, y, mb: integer);
  var
    vrag: EllipseABC;
  begin
    vrag:=CreateEllipseABC (50, 5, 15, 30, clLtGray);
    while True do
      begin
        vrag.MoveOn(1, 0);
        Sleep(10);
        f:=vrag.Intersect(prov);
        if f=false then
          break;
      end;
  end;
procedure bashna (x: integer);
  var
    r, r2, r3: RectangleABC;
  begin
    r:=CreateRectangleABC(355, 530, 90, 20, clBrown);
    r2:=CreateRectangleABC(365, 510, 70, 20, clBrown);
    r3:=CreateRectangleABC(375, 490, 50, 20, clBrown);
  end;
procedure shar(x, y, mb: integer);
  var
    z, m: integer;
  begin
    krug:=CreateCircleABC(400, 490, 10, clRed);
    z:=(x-400) div 5;
    m:=(y-510) div 5;
    while True do
      begin
        krug.MoveOn(z, m);
        Sleep(100);
        f:=krug.Intersect(prov);
        if f=false then
          break;
      end;
  end;
 
begin
  prov:=CreateRectangleABC(0, 0, 800, 550, clYellow);
  prov.ToBack;
  bashna(1);
  SetWindowSize(800, 550);
  OnMouseDown:=shar;
  vragi(1,1,1);
end.
Добавлено через 2 часа 11 минут
Все пишу на .net там все работает)))
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
23.10.2012, 09:38
Ответы с готовыми решениями:

Как запустить две формы одновременно
Здравтсвуйте, у меня есть две формы, первая запускается автоматически, вторая запускается при...

Как запустить несколько while одновременно?
Как запустить несколько while одновременно?

Как запустить потоки одновременно
#include <iostream> #include <windows.h> #include <dos.h> using namespace std; const int m = 2,...

Как запустить несколько проектов одновременно?
Есть проект с готовыми (сохранёнными в собственной библиотеке) решениями. Надо куски кода из них...

1
6 / 6 / 3
Регистрация: 09.08.2015
Сообщений: 23
08.01.2016, 01:31 2
как?!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.01.2016, 01:31

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Как запустить одновременно два Блокнота?
Всем привет! Как запустить одновременно два Блокнота?

Как запустить несколько макросов одновременно
Доброй ночи. Скажите , если кто знает: По изображенному коду - макросы запускаются по порядку -...

Как запустить 25 макросов Excel одновременно
Здравствуйте. нужна ваша помощь. Нужно запустить 25 макросов Excel одновременно. 25 файлов excel...

Как запустить несколько потоков одновременно?
Здравствуйте, не могу решить проблему с объявлением количества потоков, нужно чтобы запускалось...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.