Надо сделать этот код для картинки в WinForm

08.10.2021, 09:32. Показов 520. Ответов 0

Метки нет (Все метки)

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

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
uses GraphAbc;
var
  p:Picture;
  x,y:integer;
 
procedure drrect(c:color);
begin
  SetBrushColor(c);
  setpencolor(c);
  FillRectangle(x,y,x+10,y+10);
end;
 
 
procedure MoveRect(Key:Integer);
begin
  LockDrawing;
  drrect(clwhite);
  case Key of
    VK_Escape:halt;
    Vk_Left:if x>0 then x:=x-5;
    VK_Right:if x<Window.Width-10 then x:=x+5;
    VK_Up:if y>0 then y:=y-5;
    VK_Down:if y<window.Height-10 then y:=y+5;
  end;
  drrect(clblack);
  UnlockDrawing;
end;  
begin
  OnKeyDown:=MoveRect;
  setwindowsize(640,480);
  ClearWindow;
  x:=Window.width div 2;y:=window.Height div 2;
  drrect(clblack);
  repeat
  until false;
end.

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

08.10.2021, 09:32

Ответы с готовыми решениями:

Есть код, надо сделать так, чтобы я мог указать путь файлу, который будет установлен на рабочий. И это все надо сделать в формах
using System; using System.Collections.Generic; using System.ComponentModel; using System.Data; using System.Drawing; using...

Можно ли этот код сделать безопасным для браузеров без поддержки calc()?
Добрый день, уважаемые мастера! Абстрагировавшись от конкретной задачи, суть вопроса в следующем: Есть допустим 3 блочных элемента,...

Надо что бы этот код вводил студентов и присваивал им id
Надо что бы этот код вводил студентов и присваивал им id .. function Human(name) { this.name=name; // This class must have one...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

08.10.2021, 09:32

Помогаю со студенческими работами здесь

Как сделать подобное в двухмерном массиве? Сколько пытаюсь, не выходит оптимизировать этот код для двухмерного массива
Код в одномерном массиве #include <iostream> #include <stdlib.h> #include <iomanip> #include <time.h> using namespace std; ...

Как работает этот код? И как сделать проверку и замену для столбца?
#include <stdio.h> #include <stdlib.h> #include <string.h> #define ROWS 5 #define COLS 3 int cmpValues(const int *arr,...

Как сделать Skin для WinForm
Ситуация следующая: Есть готовое приложение на WinForms, как к нему сделать красивый скин? Знаю что можно через WPF, но переписывать...

Нужно сделать этот код с процедурой
Нужно сделать этот код с процедурой.const n=10; var i:integer; a,b,c:array of integer; begin randomize; for i:=1 to n do begin ...

Javascript-код для вывода дерева элементов страницы, с которой этот код запущен
Всем привет. Возникла трудность при изучении javascript, а именно с темой, связанной с DOM. Не могу справиться со следующей задачей:...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. 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. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

Наверх