Форум программистов, компьютерный форум, киберфорум
Delphi
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 18.05.2011
Сообщений: 9

Необычный код - необычный результат.

28.06.2011, 20:31. Показов 1425. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Бросте на форму PaintBox и сделайте Align alClient. В OnPaint напишите так:

Delphi
1
2
3
4
5
6
7
8
procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  x, y: integer;
begin
  for x := 0 to PaintBox1.Width do
    for y := 0 to PaintBox1.Height do
      PaintBox1.Canvas.Pixels[x, y] := x*y;
end;
Любопытно, неправда ли?
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
28.06.2011, 20:31
Ответы с готовыми решениями:

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

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

Изменение кодировки Win1251 в UTF8 (необычный случай)
Всем привет! ... обычно кодировка проблем не доставляла, а вот недавно столкнулся с проблемой декодирования кракозябр вместо которых...

3
0 / 0 / 1
Регистрация: 04.05.2010
Сообщений: 116
29.06.2011, 11:52
Я что-то непонимаю и что тут любопытного?
0
0 / 0 / 1
Регистрация: 04.05.2010
Сообщений: 116
30.06.2011, 11:14
а вот это быстрее рисует:
Delphi
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
unit speed;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Math;
 
type
  TRGB = record
    b,g,r:byte;
  end;
 
  ARGB=array [0..1] of TRGB;
  PARGB=^ARGB;
 
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  b:TBitMap;
  t: Real;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.FormCreate(Sender: TObject);
begin
b:=TBitMap.Create;
b.pixelformat:=pf24bit;
//b.width:=500;
//b.height:=500;
b.width:=Clientwidth;
b.height:=Clientheight;
 
t:=0;
 
timer1.Interval:=10;
timer2.Interval:=10;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
p:PARGB;
x,y:integer;
x_myfunc,y_myfunc:integer;
func: LongWord;
begin
  for y:=0 to b.height-1 do
  begin
    p:=b.scanline[y];
    for x:=0 to b.width-1 do
    begin
      func:=Trunc((x*y*(2+cos(t))));
      p[x].r:=GetRValue(func);
      p[x].g:=GetGValue(func);
      p[x].b:=GetBValue(func);
    end;
  end;
  //canvas.draw(0,0,b);
 
canvas.draw(0,0,b);
 
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  b.free;
end;
 
procedure TForm1.Timer2Timer(Sender: TObject);
begin
  t:= t + 0.005;
end;
 
end.
если подобрать хорошую функцию...может получиться красиво
0
0 / 0 / 0
Регистрация: 18.05.2011
Сообщений: 9
14.07.2011, 23:27  [ТС]
Вот, захотелось еще поиграться. Вместо x*y можно много разной фигни вставить! Вот мне вещи понравились:

x*x*x div 16 + y*y;
abs(x*x - y*y)
x*x - y*y
x*x - y*x;
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
14.07.2011, 23:27
Помогаю со студенческими работами здесь

Обычная матрица и необычный код
Дана квадратная матрица размером 5×5, заполненная случайными неотрицательными числами. Матрица подвергается следующим действиям: 1....

Необычный глюк
Новый сайт, все сделано, разместились, начинаем расрутку. Ставлю ссылку с морды с ПР=3 и + Яша эту морду каждые 4 дня посещает, а гугл...

Необычный foreach
копаясь к завалах чужого кода нащёл подобную каракозябру foreach ($_POST as $package_name => $is_enabled) { $app_type = $_POST; ...

Необычный макет
Добрый день! Недавно увлекся программированием под Android, поэтому просьба не судить строго. Итак, есть макет (см. рисунок). Там 3 кнопки...

Case необычный
Подскажите пожалуйста как реализовать есть таблица col 1 | col 2| col 3 ________________ 1 | pky | abc 1 | pky | qwe 1 | pky |...


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

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Новые блоги и статьи
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image
8Observer8 27.01.2026
Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
влияние грибов на сукцессию
anaschu 26.01.2026
Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android
8Observer8 26.01.2026
Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .
Установка Android SDK, NDK, JDK, CMake и т.д.
8Observer8 25.01.2026
Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .
Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf
8Observer8 25.01.2026
Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .
Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly
8Observer8 24.01.2026
Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .
моя боль
iceja 24.01.2026
Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .
Модель сукцессии микоризы
anaschu 24.01.2026
Решили писать научную статью с неким РОманом
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru