мои проги

[ibitsa]

выкладываю программки, когда-то написанные в Delphi7

приколы:
летающая кнопка ПУСК
(движется по экрану, пока не выйдет за пределы)
Клякса
(любой клик мышью превращается в кляксу на экране,
после десятка клякс всё приходит в норму )
Разместите в папке автозагрузки у товарища

[Для просмотра данной ссылки нужно зарегистрироваться]


миниигры:
классическая змейка
(кстати у меня есть змейка для игры вдвоем
нужно не только не врезаться в стены или в себя,
но и в противника.
А противника можно подрезать и зажимать.
Правда работает только с англ. раскладкой клавиатуры.
Как нибудь исправлю эту оплошность и выложу)
кирпичи
(нужно поставить 4 квадратика в ряд или по диагонали
быстрее, чем это сделает комп)

[Для просмотра данной ссылки нужно зарегистрироваться]

рисовалка
типа Paint, но более наворочена

[Для просмотра данной ссылки нужно зарегистрироваться]


-----------------------------------------------
Хочу добавить программки, сделанные во Flash.





Программки предназначались для подготовки ребёнка в школу

[Для просмотра данной ссылки нужно зарегистрироваться]

[Циничная сволочь]

Молодец. Было бы любопытно взглянуть на исходники. Если не жалко - заливай.

P.S. В "кляксе" какая-то беда с кодировкой. Так задумано или это баг?

Скриншот

[ibitsa]

В кляксе надпись "Я наблюдаю за тобой...."
Причина не ясна, у меня всё отображается нормально

Исходники (Delphi)

[Для просмотра данной ссылки нужно зарегистрироваться]

[Циничная сволочь]

ibitsa, жалко, что ты не учитывал "горячие клавиши" в "рисовалке", к которым все привыкли, а это <Ctrl>+<Z> и <Ctrl>+<Y> и многие другие. И ещё хорошо бы прикрутить процедуру выхода из формы с предложением сохранить файл. Фильтры сам писал или надыбал где?

Понравилось то, что при сохранении можно регулировать уровень сжатия. Молодец!

P.S. С кодировкой по-прежнему беда.
Картинка

[ibitsa]

Сообщение от Nameless user

ibitsa, жалко, что ты не учитывал "горячие клавиши" в "рисовалке"

Спасибо, учту

Сообщение от Nameless user

Фильтры сам писал или надыбал где?

фильтры надёргал из интернета
находятся они в -дополнительные функции/Foo3_Paint.pas

{Рисование инструментом Спрей}
procedure Spray(Canvas: TCanvas; x, y, r: Integer; Color: TColor);
{ЭФфект БЛОКИ}
procedure Blocks(Bitmap: TBitmap; Hor, Ver, MaxOffset:
Integer; BackColor: TColor);
{Эффект Мозаика (пикселизация)}
procedure PixelsEffect(Bitmap: TBitmap; Hor, Ver: Word);
{Эффект Иней (разброс)}
procedure Disorder(Bitmap: TBitmap; Hor, Ver: Integer; BackColor: TColor);
{Эффект Волны (синусоидальные, вид сбоку)}
procedure WaveSin(Bitmap: TBitmap; Frequency, Length: Integer;
Hor: Boolean; BackColor: TColor);
{Замена всех цветов на оттенки одного}
procedure ModColors(Bitmap: TBitmap; Color: TColor);
{добавляем шум}
procedure AddNoise(Bitmap: TBitmap; Amount: Integer; Mono: Boolean);

Сообщение от Nameless user

Понравилось то, что при сохранении можно регулировать уровень сжатия. Молодец!

Сам себе нравлюсь

Сообщение от Nameless user

P.S. С кодировкой по-прежнему беда.

Насчёт кодировки - ещё никто не жаловался.
Почему у тебя выводятся каракули не пойму.

[hobagos]

Только у меня такая штука с заголовками на панеле пуск?

[ibitsa]

Как-то попал на форум, где обсуждали, как создать минимальное приложение. Не помню до скольки байтов дошли, но я решил написать минимальный калькулятор на javascript

<INPUT onBlur=script:alert(eval(this.value))>

получилось 45 байт

1. Наберите этот текст в Блокноте
2. сохраните
3. смените расширение с .txt на .htm

Если лень, то возьмите отсюда [Для просмотра данной ссылки нужно зарегистрироваться]

Как пользоваться:

1. нужно набрать выражение в поле ввода
2. кликнуть мышкой вне поля - появиться окно с ответом

Примеры выражений, которые можно вычислять

• 145+521
• 475-565
• 56*48
• 56/47
• 5*(51+(6+3))

Если вы знакомы с javascript, то можно использовать
свойства и методы объекта Math

Math.cos(number) косинус
Math.sin(number) синус
Math.sqrt(number) квадратный корень
Math.PI число Пи
и др.

Проверил в

1. Opera 9.52
2. IE 6.0
3. Portable Google Chrome (Chromium) 0.2.151.0

[ibitsa]

Распознание символов

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

Прога не имеет практической ценности, потому-что
служила для проверки алгоритма распознания.

[Для просмотра данной ссылки нужно зарегистрироваться]

P.S. Хотел написать FineReader

[MC Spud]

на чем написана последняя прога? если на Delphi, то можно залить исходники?

[Axel2150]

Мне лично всё равно на чём она написана... залей сорцы если можно... глянуть было бы в самый кайф...

[ibitsa]

Прога была написана в Delphi 7
Делал я её, изучая ООП, поэтому создавал классы.
Куча файлов, комментариев никаких, поэтому вы вряд ли разберётесь в алгоритме.
Сейчас поставлю Delphi, откоментирую, посмотрю зависимости и выложу, так что подождите.

А что бы небыло скучно, вот вам исходники проги,
удаляющей саму себя (Delphi 7)
(это было задание в конкурсе, проводимом журналом ][акер)
Прога откомпилирована, так что если вы её запустите и нажмете кнопку, то второй экземпляр в папке тест
[Для просмотра данной ссылки нужно зарегистрироваться]

[Axel2150]

Ну да... тока самоудаление через батник не так интересно как распознование образов... и к тому же сложнее разобраться в алгоритме и сорцах когда у тебя ваще их нет

[ibitsa]

Извиняюсь за задержку, весь в делах
Вот помог MC Spud найти ошибку в его проге

В исходниках изначально использовались пара моих компонентов, которые благополучно потерялись, так что пришлось внести поправки.
Написал небольшую справку, что бы было проще понять алгоритм.
Вот справка + исходники
[Для просмотра данной ссылки нужно зарегистрироваться]
Есть вопросы, пишите в личку

краткое описание алгоритма:

1. берём изображение
2. обрезаем лишнее
3. делаем размеры 120х120
4. режем на 144 части
5. считаем черные пиксели в каждой части и заносим в массив
6. переделаем массив, что бы состоял из цифр от 1 до 8

Заносим этот массив вместе с символом, изображенным на рисунке в базу.
При появление нового рисунка, переводим его в массив и сравниваем с массивами из базы