мои проги
 

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

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

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


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

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

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

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


-----------------------------------------------
Хочу добавить программки, сделанные во Flash.
[Для просмотра данной ссылки нужно зарегистрироваться]
[Для просмотра данной ссылки нужно зарегистрироваться]
[Для просмотра данной ссылки нужно зарегистрироваться]
[Для просмотра данной ссылки нужно зарегистрироваться]

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

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

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

P.S. В "кляксе" какая-то беда с кодировкой. Так задумано или это баг?
:blink:
[Для просмотра данной ссылки нужно зарегистрироваться]

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

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

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

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

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

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

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

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

;)

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

фильтры надёргал из интернета
находятся они в -дополнительные функции/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);

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

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

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

миникалькулятор
 

Как-то попал на форум, где обсуждали, как создать минимальное приложение. Не помню до скольки байтов дошли, но я решил написать минимальный калькулятор на 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

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

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

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

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

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

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

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

исходники
 

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

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

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

исходники
 

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

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