Форум программистов, компьютерный форум, киберфорум
C++/CLI Windows Forms
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.86/7: Рейтинг темы: голосов - 7, средняя оценка - 4.86
0 / 0 / 0
Регистрация: 14.04.2012
Сообщений: 18

Каждый поток меняет цвет другого окна с черного на белый: перевести код с C#

06.12.2012, 18:05. Показов 1455. Ответов 5

Студворк — интернет-сервис помощи студентам
Программа содержит два объекта, каждый из которых представлен окном и содержит свой поток. Эти объекты связаны друг с другом с помощью событий. Каждый поток меняет цвет другого окна с черного на белый через 500 мс.
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
52
53
54
55
56
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Threading;
using System.Drawing;
 
 
delegate void Del();
 
 
class Window : Form
{
    public event Del ev;
 
    public Window()
    {
        this.Text = "Window";
        this.Visible = true;
        Size = new Size(140, 130);
        this.BackColor = Color.Black;
        Thread t = new Thread(ThreadMethod);
        t.Start();
    }
 
    public void ThreadMethod()
    {
        while (true)
        {
            if (ev != null)
                ev();
            Thread.Sleep(500);
        }
    }
 
    public void Hand()
    {
        if (this.BackColor == Color.Black)
            this.BackColor = Color.White;
        Else
            this.BackColor = Color.Black;
 
    }
}
 
class Exchange
{
    static void Main()
    {
        Window s = new Window();
        Window f = new Window();
        s.ev += new Del(f.Hand);
        f.ev += new Del(s.Hand);
        Application.Run(s);
    }}
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
06.12.2012, 18:05
Ответы с готовыми решениями:

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

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

Построение движущегося окна, которая меняет цвет
Всем доброго времени суток))) дали задание Нарисовать движущееся окно, которое меняет цвет. Траектория движения : в центре монитора...

5
873 / 771 / 173
Регистрация: 11.01.2012
Сообщений: 1,942
06.12.2012, 19:59
Цитата Сообщение от Komron Посмотреть сообщение
Надо перевести на С++
Если имелось в виду перевести на С++\СLI то :
1) такая штука в С++\СLI не прокатит
C#
1
2
 if (ev != null)
                ev();
Нельзя проверить подписан ли объект на событие
Вот так нельзя сделать
C#
1
2
3
4
5
6
7
8
9
10
11
12
class A
{
  public event MyEvent;
  
...
 
 void OnMyEvent()
{
  if (MyEvent != null) MyEvent();
}
...
}
2) Предлагаю просто запустить каждый объект в своем потоке
( консольное приложение CLR)
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 "stdafx.h"
#include "Windows.h"
#pragma comment (lib,"user32.lib")
#using <System.dll>
#using <System.Windows.Forms.dll>
#using <System.Drawing.dll>
using namespace System;
using namespace System::Windows::Forms;
using namespace System::Threading;
using namespace System::Drawing;
 
ref class Window : Form
{
public: Window( bool flag )
    {
        this->Text = "Window";
        this->Visible = true;
        this->Width = 140;
        this->Height = 130;
       if (flag)
           this->BackColor = Color::Black;
         else this->BackColor = Color::White;
         Thread^ t2 = gcnew Thread( gcnew ParameterizedThreadStart( this,&Window::ThreadMethod ));
        t2->Start();        
       
    }
 
 
public:  void ThreadMethod(Object^ data)
    {
        while (true)
        {             
             Thread::Sleep(500);
            if (this->BackColor == Color::Black)
                this->BackColor = Color::White;
            else
                this->BackColor = Color::Black;             
        }
    }
 
};
 
 
 
int main(array<System::String ^> ^args)
    {  
       ShowWindow(GetConsoleWindow(), SW_HIDE);
       Window^ s = gcnew Window(true);
       Window^ f = gcnew Window(false);
       Application::Run(f);     
    }
0
0 / 0 / 0
Регистрация: 14.04.2012
Сообщений: 18
06.12.2012, 20:23  [ТС]
Spasibo bolshoe))

Добавлено через 12 минут
a tut u vas netu DELEGATE

Добавлено через 1 минуту
они же связаны с помощью событий

Добавлено через 30 секунд
Программа содержит два объекта, каждый из которых представлен окном и содержит свой поток. Эти объекты связаны друг с другом с помощью событий. Каждый поток меняет цвет другого окна с черного на белый через 500 мс.
0
873 / 771 / 173
Регистрация: 11.01.2012
Сообщений: 1,942
07.12.2012, 01:57
Цитата Сообщение от Komron Посмотреть сообщение
они же связаны с помощью событий
Хорошо тогда вот так
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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
#include "stdafx.h"
#include "Windows.h"
//#pragma comment (lib,"user32.lib")
#using <System.dll>
#using <System.Windows.Forms.dll>
#using <System.Drawing.dll>
using namespace System;
using namespace System::Windows::Forms;
using namespace System::Threading;
using namespace System::Drawing;
 
delegate void Del();
 
    
ref class Window : Form
{
 
public: Window( bool flag)
    {
        this->Text = "Window";
        this->Visible = true;
        this->Width = 140;
        this->Height = 130;
        del = nullptr;
       if (flag)
           this->BackColor = Color::Black;
         else this->BackColor = Color::White;
         Thread^ thread = gcnew Thread( gcnew ThreadStart( this,&Window::ThreadMethod ));
        thread->Start();        
       
    }
        Del^ del;
    event Del^ E {
   public:
      void add( Del^ _del ) {
         del += _del;
      }
 
   protected:
      void remove( Del^ _del ) {
         del -= _del;
      }
 
     /* private:
      void raise( ) {
         if ( del )
            del( );
      }*/
    }
 
        public:  void ThreadMethod()
    {              
        while(true)
        {
            if (del)
                del();  
            Thread::Sleep(500);                     
        }                                  
    }
 
public:  void ChangeMethod()
    {
        
            if (this->BackColor == Color::Black)
                this->BackColor = Color::White;
            else
                this->BackColor = Color::Black;             
    }
};
 
 
int main(array<System::String ^> ^args)
    {  
      // ShowWindow(GetConsoleWindow(), SW_HIDE);
       Window^ f = gcnew Window(false);
       Window^ s = gcnew Window(true);
       f->E += gcnew Del(s, &Window:: ChangeMethod);
       s->E += gcnew Del(f, &Window:: ChangeMethod);
       Application::Run(s);     
    }
Посетила вдруг мысля что требовалось вам совсем другое
Например вот это http://www.cyberguru.ru/cpp-so... event.html
0
0 / 0 / 0
Регистрация: 14.04.2012
Сообщений: 18
07.12.2012, 15:59  [ТС]
почему то выдается эта ошибка:Error 1 fatal error LNK1104: cannot open file 'C:\Users\KOMRON\Searches\Documents\Visu al Studio 2005\Projects\okna, pootoki\Debug\okna, pootoki.exe' okna, pootoki
0
873 / 771 / 173
Регистрация: 11.01.2012
Сообщений: 1,942
08.12.2012, 00:02
читаем ошибку:
Цитата Сообщение от Komron Посмотреть сообщение
cannot open file
не могу открыть файл
Где то он потерялся .
Или поставить конфигурацию решения в Relis и скомпилировать .
Или создать новый проект , вставить туда код .
Да и название желательно без пробелов, на всякий случай
Цитата Сообщение от Komron Посмотреть сообщение
okna, pootoki
вот так не надо
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
08.12.2012, 00:02
Помогаю со студенческими работами здесь

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

Ввести символы с клавиатуры. Цвет символов - белый, цвет фона - синий
Нужно написать программу, которая позволит вводить символы из клавиатуры, цвет символов - белый, цвет фона - синий. Я в ассемблере...

За какое минимальное количество ходов белый король доберётся до позиции чёрного?
нужно найти программное решение такой проблемы: на шахматной доске есть два короля Чёрный и Белый.Позиции любые. вопрос: за какое...

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

Долго делает макрос: поля выкрашеные не в синий цвет меняем на белый цвет
'перед печатью поля выкрашеные не в синий цвет меняем на белый цвет, чтобы они не были видны For i = 1 To ActiveDocument.Fields.Count...


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

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Новые блоги и статьи
Вывод данных через динамический список в справочнике
Maks 01.04.2026
Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа
Maks 01.04.2026
Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .
К слову об оптимизации
kumehtar 01.04.2026
Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .
Идея фильтра интернета (сервер = слой+фильтр).
Hrethgir 31.03.2026
Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда
anaschu 31.03.2026
В прикрепленном документе раздумья о том, как можно поменять модель в будущем
10 пpимет, которые всегда сбываются
Maks 31.03.2026
1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .
Перемещение выделенных строк ТЧ из одного документа в другой
Maks 31.03.2026
Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .
Functional First Web Framework Suave
DevAlt 30.03.2026
Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru