Форум программистов, компьютерный форум, киберфорум
Pure Basic
Форум программистов и сисадминов Киберфорум > Форум программистов > Basic > Pure Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск  
 
2 из 2 « 1 2
 
Рейтинг 5.00/25: Рейтинг темы: голосов - 25, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 30.05.2016
Сообщений: 45

Цвет определенного пикселя на экране

02.06.2016, 13:41. Показов 5600. Ответов 30
Метки нет (Все метки)
Студворк — интернет-сервис помощи студентам
Как сделать процедуру с помощью которой в текстовом редакторе отображался цвет(в формате "Синий,красный и т.д.")
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
 02.06.2016, 13:41
Ответы с готовыми решениями:

Узнать цвет определенного пикселя на экране
Привет всем:) столкнулся с проблемой, а проблема состоит в том, что я хочу узнать цвет определенного пикселя на своем екране... Я знаю...

Поиск определенного пикселя на экране
Здравствуйте. Я хочу найти определённый пиксель на экране. Я опробовал способ через opencv: сравнение шаблона со скриншотом монитора,...

Поиск определенного пикселя на экране
Всем привет. Пишу игрового бота. Дано: Есть часть экрана размером в 1080х871 Нужно: Найти в этой части экрана пиксель с RGB цветом 231...

30
0 / 0 / 0
Регистрация: 30.05.2016
Сообщений: 45
11.06.2016, 12:56  [ТС]
Студворк — интернет-сервис помощи студентам
Скажите каким образом можно без знака $ сравнивать цвета?(Просто когда я сравниваю синий с красным в красных цветах высвечивается ошибка,но если туда вставить $ эта ошибка исчезает,но в тексте не отображается красный даже если координаты именно на красном)
0
0 / 0 / 0
Регистрация: 30.05.2016
Сообщений: 45
13.06.2016, 11:02  [ТС]
Как записать код в текст?
0
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
13.06.2016, 11:24
Цитата Сообщение от Alberto Посмотреть сообщение
Просто когда я сравниваю синий с красным в красных цветах высвечивается ошибка
Тут экстрасенсов нет. Полностью свой код покажи!
Цитата Сообщение от Alberto Посмотреть сообщение
Как записать код в текст?
Какой код, в какой текст- текстовый файл или переменная типа string?
0
0 / 0 / 0
Регистрация: 30.05.2016
Сообщений: 45
13.06.2016, 11:33  [ТС]
Вот код выскакивает ошибка
PureBasic
1
2
3
4
5
6

If EventGadget = #String_0
     X= Val(GetGadgetText(1))
     If X=00CCCC
      SetGadgetText(1,"Желтый")
     Else
       SetGadgetText(1,"Другой")
ошибка не выскакивает,если записать $00CCCC вместо 00CCCC,но при этом этот код всегда пишет другой ,а не желтый(даже когда должен писаться желтый).Как это исправить скажите.
0
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
13.06.2016, 16:07
Цитата Сообщение от Alberto Посмотреть сообщение
ошибка не выскакивает,если записать $00CCCC
Ну правильно, так и должно быть - Х у тебя целое число, и $00CCCC это тоже целое число. Их можно сравнивать.
А вот 00CCCC это вообще не число и с Х сравнивать нельзя.
А что такое GetGadgetText(1), вернее, что за гаджет 1 и откуда там берутся значения?
Почему событие #String_0, а текст берется с гаджет 1?
Давай весь код, а не кусок, так ни чего не понятно по куску.
Там может ещё полно ошибок!
0
0 / 0 / 0
Регистрация: 30.05.2016
Сообщений: 45
14.06.2016, 11:58  [ТС]
Вот полный код
PureBasic
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
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330

Procedure GetPixelColor(x, y)
  hDC = GetDC_(0)
  Color = GetPixel_(hDC, x, y)
  ProcedureReturn Color
EndProcedure
 
 
If OpenWindow(0, 0, 0, 170, 150, "EditorGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
  EditorGadget(1, 8, 8, 156, 134)
  EditorGadget(2, 169, 149, 1, 1)
  
   Repeat 
 Event = WaitWindowEvent()
   Select Event
       Case #PB_Event_Gadget 
        Color = GetPixelColor(97, 670)  
       SetGadgetText(1,(RSet(Hex(Color),6,"0")))
   If EventGadget = 1
     X= Val(GetGadgetText(1))
     If X=330000
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=660000
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=990000
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=CC0000
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=FF0000
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=990033
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой")  
     If X=CC0033
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой")  
     If X=FF0033
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=CC9966
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=993300
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=CC3300
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой")  
     If X=FF3300
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой")
     If X=993333
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=CC3333
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=FF3333
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=996600
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=CC6600
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=FF9966
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой")
     If X=FF6600
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=996633
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=CC6633
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=FF6633
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой")
     If X=CC9900
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой")
     If X=FF9900
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой")  
     If X=CC9933
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой") 
     If X=FF9933
       SetGadgetText(1,"Синий")
     Else
       SetGadgetText(1,"Другой")
     EndIf
   EndIf
 EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
   If EventGadget = 1
     X= Val(GetGadgetText(1))
     If X=00CCCC
      SetGadgetText(1,"Желтый")
     Else
       SetGadgetText(1,"Другой")
     If X=33CCCC
      SetGadgetText(1,"Желтый")
     Else
       SetGadgetText(1,"Другой") 
     If X=00ССFF
      SetGadgetText(1,"Желтый")
     Else
       SetGadgetText(1,"Другой") 
     If X=33CCFF
      SetGadgetText(1,"Желтый")
     Else
       SetGadgetText(1,"Другой") 
     If X=00FFCC
      SetGadgetText(1,"Желтый")
     Else
       SetGadgetText(1,"Другой") 
     If X=33FFCC
      SetGadgetText(1,"Желтый")
     Else
       SetGadgetText(1,"Другой") 
     If X=00FFFF
      SetGadgetText(1,"Желтый")
     Else
       SetGadgetText(1,"Другой") 
     If X=33FFFF
      SetGadgetText(1,"Желтый")
     Else
       SetGadgetText(1,"Другой") 
     If X=66FFFF
      SetGadgetText(1,"Желтый")
     Else
       SetGadgetText(1,"Другой") 
     If X=99FFFF
      SetGadgetText(1,"Желтый")
     Else
       SetGadgetText(1,"Другой")
     If X=66CCFF
      SetGadgetText(1,"Желтый")
     Else
       SetGadgetText(1,"Другой")
     If X=66CCCC
      SetGadgetText(1,"Желтый")
     Else
       SetGadgetText(1,"Другой")
     EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
   If EventGadget = #String_0
     X= Val(GetGadgetText(1))
     If X=003300
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=006600
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=006633
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=009900
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=333300
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=336600
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=336633
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=339900
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=009933
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=339933
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=00CC00
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=33CC00
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=00CC33
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=33CC33
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=00CC66
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=33CC66
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=00FF00
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=33FF00
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=00FF33
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=33FF33
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=00FF66
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой")
     If X=33FF66
       SetGadgetText(1,"Зеленый")
     Else
       SetGadgetText(1,"Другой") 
     EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
EndIf
   EndSelect
Until Event = #PB_Event_CloseWindow
EndIf
0
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
14.06.2016, 14:29
Цитата Сообщение от Alberto Посмотреть сообщение
Вот полный код
Извини, но более бессмысленного кода я ещё не встречал.
Он никогда не будет работать в таком виде.
Что за мистическая точка на экране (97, 670), которая выдает такую гамму строго определённых цветов?
Откуда взялся #String_0, нет этого гаджета в окне.
Конструкция
PureBasic
1
2
3

If X=003300
       SetGadgetText(1,"Зеленый")
     Else
используется крайне нерационально. тут уместно Select : EndSelect
В любом случае надо сравнивать X=$003300 вместо 003300
Опять же если у тебя уже есть цвет Color = GetPixelColor(97, 670) , то зачем его считывать из текста:
PureBasic
1

X= Val(GetGadgetText(1))
Можно сразу X=Color
В общем очень бессмысленный код. А что он должен делать, в чем задумка?
0
0 / 0 / 0
Регистрация: 30.05.2016
Сообщений: 45
14.06.2016, 22:23  [ТС]
1."Бессмысленная точка выбрана случаяно"
2. Задумка в том что бы отличать синий зеленый и желтый от других цветов на определенном пикселе
3.В моем коде нету #String_0
Вот и все
0
 Аватар для Pro_grammer
6807 / 2839 / 527
Регистрация: 24.04.2011
Сообщений: 5,308
Записей в блоге: 10
15.06.2016, 09:22
Цитата Сообщение от Alberto Посмотреть сообщение
3.В моем коде нету #String_0
222 строрка :
Цитата Сообщение от Alberto Посмотреть сообщение
EndIf If EventGadget = #String_0 X= Val(GetGadgetText(1)) If X=003300
Это чей код? Пригласи автора, с ним поговорю.

Добавлено через 4 минуты
Цитата Сообщение от Alberto Посмотреть сообщение
Задумка в том что бы отличать синий зеленый и желтый от других цветов на определенном пикселе
скажем синий цвет имеет более тысячи различных оттенков. Как их можно все загнать в конструкцию
PureBasic
1
2
3

If X=$??????
       SetGadgetText(1,"Зеленый")
     Else
Это нереально с вашим подходом.
0
0 / 0 / 0
Регистрация: 30.05.2016
Сообщений: 45
08.08.2016, 09:31  [ТС]
Скажите в чём ошибка в коде?
почему 2,3 и 4 гаджеты не выдают названия пока на них не щелкнешь мышью?Как сделать так,что бы эти гаджеты сразу выдавали название?
PureBasic
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

OpenWindow(0,0,0,400,400,"")
EditorGadget(1,10,10,50,30)
EditorGadget(2,90,50,50,30)
EditorGadget(3,150,100,50,30)
EditorGadget(4,300,200,50,30)
Procedure GetPixelColor(x, y)
  hDC = GetDC_(0)
  Color = GetPixel_(hDC, x, y)
  ReleaseDC_(0, hDC)
  ProcedureReturn Color
EndProcedure
  
 Repeat
 Event = WaitWindowEvent()
   Select Event
       Case #PB_Event_Gadget 
         Color1 = GetPixelColor(298,497)
         k=1    
  SetGadgetText(k,RSet(Hex(Color1),6,"0"))
     X= Val(GetGadgetText(k))
     If X=330000
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf  
     If X=660000
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf
     If X=990000
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf
     If X=CC0000
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf
     If X=FF0000
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf
     If X=990033
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf
     If X=CC0033
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf  
     If X=FF0033
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf 
     If X=CC9966
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf 
     If X=993300
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf
     If X=CC3300
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf
     If X=FF3300
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf 
     If X=993333
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf 
     If X=CC3333
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf 
     If X=FF3333
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf  
     If X=996600
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf  
     If X=CC6600
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf 
     If X=FF9966
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf
     If X=FF6600
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf
     If X=996633
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf
     If X=CC6633
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf
     If X=FF6633
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf
     If X=CC9900
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf 
     If X=FF9900
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf 
     If X=CC9933
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf 
     If X=FF9933
       SetGadgetText(k,"Другой")  
     Else
       SetGadgetText(k,"Синий") 
     EndIf
    SetGadgetText(3,"Синий")
     If GetGadgetText(1)=GetGadgetText(3)
       SetGadgetText(4,"Да")
     Else
       SetGadgetText(4,"Нет")
     EndIf
  EndSelect
  Until Event = #PB_Event_CloseWindow
End
0
0 / 0 / 0
Регистрация: 30.05.2016
Сообщений: 45
15.08.2016, 20:57  [ТС]
Помогите!Как сделать так,что бы все гаджеты обновлялись всегда и даже когда окно было бы не активно?В коде который указан выше?Помогите пожалуйста!
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
 15.08.2016, 20:57

Проверить цвет пикселя на экране
Собственно нужно проверить цвет пикселя на экране(по x\y), но ещё нужно что то типа допуска по гамме, ну типа нужно проверить например не...

Определить цвет пикселя на экране
Добрый день. Есть такая проблема, что функция GetPixel определяет цвет и записыват его как 1-9 значное число и поэтому определить...

Получение RGB цвета определённого пикселя на экране
Необходимо получить RGB цвет пикселя который находится на кординатах x и y. Как это сделать?

Определить цвет пикселя на экране по координатам
Есть задача: Каждые полсекунды нужно определять цвет с экрана по координатам. Не в форме, а именно с экрана, то что там изображено на тот...

Определить цвет пикселя на экране по координатам
Есть задача: Каждые полсекунды нужно определять цвет с экрана по координатам. Не в форме, а именно с экрана, то что там изображено на тот...


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

Или воспользуйтесь поиском по форуму:
31
Ответ Создать тему
2 из 2 « 1 2
Новые блоги и статьи
Просветление в 5 секунд
kumehtar 10.07.2026
Андрей Веретенников выдал фразу недавно: "Вам не обязательно кем-то себя считать"
 Эксперимент с картинкой-обложкой на CodinGame
Adler 10.07.2026
Решил на днях провести эксперимент. У меня есть аккаунт на CodinGame, ТОП-3 по РФ среди 2200 участников (в разделе соревнования по программированию ИИ-ботов). Там есть обложка, куда можно влепить. . .
GitDOS: Когда я решил скрестить MS-DOS, GitHub и Claude
MaGz GoLd 08.07.2026
Привет, Киберфорум! Хочу поделиться своим проектом, который, надеюсь, вас заинтересует. GitDOS — это веб-приложение, которое позволяет запускать DOS в браузере с тремя крутыми фичами: диски живут в. . .
Учебный мини "цифровой двойник" = (Сервер = Java + Flask_питон )+(3D = Гугловскаая 4T nvideo + google colab) +( WMS = Odoo на Docker)
anaschu 07.07.2026
Увидел в требованиях к вакансии создателя имитационных моделей связку (REst + Api + WMS + Anylogic + питон + 3D Nvideo), и решил посмотреть, что это такое. Из этого всего я работал более менее. . .
Море в объективе
kumehtar 06.07.2026
Хотел написать много проникновенных слов, но передумал. Оно само - говорит. Кто слышит тот слышит.
Doom для терминала без стрельбы и монстров. 3D Raycasting на ascii.
dcc0 05.07.2026
Попросил нейронную сеть deepai. org написать рейкастинг 3D с библиотекой ncurses для Linux. Чтобы можно было ходить на стрелочки. Чтобы стены были отрисованы символами. Справилась. Первый вариант. . .
Установка статуса документа по условию
Maks 05.07.2026
Алгоритм из решения ниже реализован на нетиповом документе "НарядПутевка" разработанного в КА2. Задача: в табличной части "Материалы" документа при записи автоматически устанавливать статус. . .
Сезонность и суточность закисления почв
anaschu 04.07.2026
200 часов это все равно моловато. Есть ситуации, но нестандартные, когда смена происходит за 5 лет. Но обычно это 50 лет и более. Наверное, закисление почвы происходит сезонно в средней. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Поддержать - Реклама - Условия использования - Обратная связь
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru