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

Ошибка C3918

21.12.2013, 02:29. Показов 613. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Что означает эта ошибка и как ее исправить ?
error C3918: usage requires 'Ball::evStolk' to be a data member

Вот код:
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
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
#include "stdafx.h"
//#using <mscorlib.dll>
#using <System.dll>
#using <System.Drawing.dll>
#using <System.Windows.Forms.dll>
using namespace System;
using namespace System::Collections;
using namespace System::Windows::Forms;
using namespace System::Drawing;
using namespace System::Threading;
 
delegate void Del();
ref class Ball
{
        
    private:
        int x;
        int y;
        int dy;
        int dx;
        bool life;
        int timer;
        Thread ^th;//поток           
        Form ^w;//Window ^w окно
 
    public:
        
        
        property int X {int get(){ return x; } }
        property int Y {int get(){ return y; } }//свойства
        int num;
        bool stoknnovenie;
 
    public:
    //конструктор
    Ball(int X, int Y, Form ^W, int N)///
    {
            w = W;
            y = Y;
            x = X;
            dy = 10;
            dx = 10;
            num = N;
            timer = 0;
            life = true;
        th = gcnew Thread(gcnew ThreadStart(this,&Ball::Move));
        th->Start();
 
    }
    event Del ^evStolk;
public:
    void Move()
    {
        while (life)
        {
            y += dy;
            x += dx;
                if (y < 0 + 10 || (y > w->Height - 70)) dy = -dy; // движ по y
                if (x < 0 + 10 || (x > w->Width - 70)) dx = -dx;  // движ по x
                if (stoknnovenie && timer == 0)
                {
                    dy = -dy;
                    dx = -dx;
                }
                if (stoknnovenie)
                {
                    timer++;
 
                    if (timer > 5)
                    {
                        timer = 0;// обнуляем таймер
 
                        stoknnovenie = false;//снимаем показатель столкновения
                    }
                }
 
                if (evStolk!= nullptr) // ОШИБКА!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
                {
                    evStolk();
                }
            Thread::Sleep(50);
            w->Invalidate();//???
        }
    }
     void Close() { life = false; }
 
 
};
ref class Window: public Form //обязательно ref
{
private:        
        int num;
        ArrayList ^aL;
        Random ^rand;
public: 
        Ball ^b;
        // передалеть под с++
        //bool life;
        //Random random = new Random();// передалеть под с++
        Button ^ourButton;
public: Window()
    {    
        rand= gcnew Random ();
        aL = gcnew ArrayList (); // переделать под с++
        num = 0;
        Text = "Банзаров Жаргал";     
        Size = Drawing::Size(400, 400);//размер окна
 
        ourButton = gcnew Button();
        ourButton->Location = Drawing::Point(170, 10);
        ourButton->Size = Drawing::Size(40, 20);
        ourButton->Text = "OK";
        Controls->Add(ourButton);
        ourButton->Click += gcnew EventHandler(this, &Window::Create);//подписали на событие
 
    
     }
        void HandlerEvStolk()
        {
            pereborh(); // запустим процесс перебора 
        }
    void Create(Object ^pobj, EventArgs ^arg)
    {
          num++;
            int X = rand->Next(500); // место спавна рандомно
            int Y = rand->Next(500); // под си++
            Ball ^b = gcnew Ball(X,Y,this,num);
            b->evStolk += gcnew Del (this,&Window::HandlerEvStolk);
            aL->Add(b);
    }
    protected: virtual void OnPaint(PaintEventArgs ^e)override //отрисовка шаров
    {
        Form::OnPaint(e);
         for (int i = 0; i < aL->Count; i++)
            {
                Ball ^b = (Ball^)aL[i];
                e->Graphics->DrawEllipse(gcnew Pen(Color::White, 5), b->X, b->Y, 40, 40);
            }
               
}
 
/*public*/ void pereborh()
        {
            Ball ^n1;      // шар 1
            Ball ^n2;   // шар2
 
            //перебор всех шаров
            for (int i = 0; i < aL->Count; i++)
            {
                n1 = (Ball^)aL[i];
 
                for (int j = i + 1; j < aL->Count; j++)
                {
 
                    n2 = (Ball^)aL[j];
 
                    if (n1->stoknnovenie || n2->stoknnovenie)
                    {
                        break;
                    }
 
                    if (proverka(n1->X + 8, n1->Y + 8, n2->X + 8, n2->Y + 8))
                    {
                        // объекты 
                        n1->stoknnovenie = true;
                        n2->stoknnovenie = true;
 
                    }
                }
            }
        }
 
 
private: 
            bool proverka(int X1, int Y1, int X2, int Y2)// проверка рядом или нет
        {
            int raznostX, raznostY;
 
            if (X1 > X2) raznostX = X1 - X2;
            else raznostX = X2 - X1;
 
            if (Y1 > Y2) raznostY = Y1 - Y2;
            else raznostY = Y2 - Y1;
 
            if ((raznostX < 50) && (raznostY < 50))
 
                return true;
            else
 
                return false;
        }
 
 
    };
void main()
    {
        Application::Run(gcnew Window());
    }
Миниатюры
Ошибка C3918  
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
21.12.2013, 02:29
Ответы с готовыми решениями:

IIS- asp ошибка: HTTP 500.100 - Внутренняя ошибка сервера - ошибка ASP Internet Information Services
Привет! Конфигурация win2000pro sp2, стандартный IIS, IE 5. При попытке обратиться к сценарию(asp) получаю ошибку: &lt;пропуск&gt;...

Ошибка при чтении изменений при обмене РИБ: Ошибка при вызове метода контекста (ПрочитатьИзменения): Ошибка записи!
Доброго всем времени суток! подскажи пожалуйста как исправить ошибку: Ошибка при чтении изменений при обмене РИБ: Ошибка при вызове...

Ошибка при добавлении в файл. Ошибка 101: Ошибка записи на диск (Error 101: Disk write error).
Здравствуйте, возникла проблема такого плана. Нужно произвести добавление записи в файл, но после успешного создания и чтения вылазиет...

1
Форумчанин
Эксперт CЭксперт С++
 Аватар для MrGluck
8216 / 5047 / 1437
Регистрация: 29.11.2010
Сообщений: 13,453
21.12.2013, 03:04
Я без понятий что это за диалект, но возможно вы используете метод как обычное свойство. Проще говоря, скобок круглых нет.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
21.12.2013, 03:04
Помогаю со студенческими работами здесь

ASP: Response.Redirect - не работает, ошибка `500 - Внутренняя ошибка сервера'
Всем привет! Есть в ASP-сраничке такой код: Response.Redirect 'page1.asp?ReturnTo=page2.asp' Эта конструкция работала на IIS 4,...

Ошибка HTTP 500 - внутреняя ошибка сервера при отправке почты.
Я пытаюсь отправить почту и присоединяю к ней письма Вот часть страницы Dim myMail Set myMail = CreateObject('CDONTS.NewMail') ...

Ошибка SQL запроса , в базе работает, а через IBQuery в Delphi ошибка
В Combobox загружены имена организаций. Нужно выполнить запрос на вывод всех полей таблицы организаций при выборе имени в Combobox. При...

Загружается до окна приветствия и вылетает ошибка: isass.exe - Системная ошибка
Ребята, помогите кто может... весь день бьюсь безрезультатно... с утра пришёл на работу а сервак не пингуется... загружается до...

Ошибка CL.exe завершилась с кодом 2 Что это за ошибка и как исправить?
Ошибка появилась, но не могу понять как ее исправить. #include &lt;iostream&gt; using namespace std; /*Реализуйте класс Дробь....


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Новые блоги и статьи
Автоматическое создание документа при проведении другого документа
Maks 29.03.2026
Реализация из решения ниже выполнена на нетиповых документах, разработанных в конфигурации КА2. Есть нетиповой документ "ЗаявкаНаРемонтСпецтехники" и нетиповой документ "ПланированиеСпецтехники". В. . .
Настройка движения справочника по регистру сведений
Maks 29.03.2026
Решение ниже реализовано на примере нетипового справочника "ТарифыМобильнойСвязи" разработанного в конфигурации КА2, с целью учета корпоративной мобильной связи в коммерческом предприятии. . . .
Автозаполнение реквизита при выборе элемента справочника
Maks 27.03.2026
Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .
Команды формы и диалоговое окно
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при создании или изменении элементов справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru