Последние записи
- TChromium (CEF3), сохранение изображений
- Как в Delphi XE обнулить таймер?
- Изменить цвет шрифта TextBox на форме
- Ресайз PNG без потери прозрачности
- Вывод на печать графического файла
- Взаимодействие через командную строку
- Перенести программу из Delphi в Lazarus
- Определить текущую ОС
- Автоматическая смена языка (раскладки клавиатуры)
- Сравнение языков на массивах. Часть 2
Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk
Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw
24th
Июн
Гимн Программистов
Хорошая идею подал форумчанин _PROGRAMM_ : написать гимн программистов. И его быстро и весело поддержали на форуме.
На данный момент имеем:
Программисты – умный народ
И пляшет и гимны поет
Он очень весело живет
И так же весело жует
А бывает с бубном ходит
И тоску на всех наводит
Он не спит ни день, ни ночь,
Всем мечтает он помочь
Утром сядет у окна
А чуть позже у компа
Поиграет чуть в ФИФА
И давай дразнить кота
Но когда пришла зима,
Пиво кончилось тогда
Не успев никто моргнуть
В двор примчался старый друг
И позвал его гулять,
Праздник лета отмечать
Раз бокал и два бокал
И давай писать в барланд!
Это еще не релиз, это скорее всего “ночная сборка”. Возможно, в скором будущем мы создадим гимн, наложем на нег музыку, запишем хит и будем продавать на лицензионных DVD .
20th
Июн
Задача о Ханойских башнях. Си.
Каждый студент-программист решает эту задачу. Вот код для упрощения поиска.
#include <stdio.h>
#include <conio.h>
void DisplayPin(int,int);
void TransferInNext( int,int,int,int);
void InputPin(int);
void Swap(int,int);
struct Pin
{
int pin[3][50];
int count[3];
}T;
int count=0;
int main()
{
int amount;
clrscr();
printf("Input amount rings->");
scanf("%d",&amount);
if(amount>50)
{
printf("<50\n");
return 1;
}
InputPin(amount);
if(amount)
TransferInNext( 1,3,2,amount);
printf("\nAmount step %d \n",count);
getch();
return 0;
}
void DisplayPin( int from,int to)
{
int i,j;
printf("\nMove Disk From %d To %d",from,to);
for(i = 0; i < 3; i++)
{
printf("\n");
printf("| ");
for(j = 0;j< T.count; j++)
printf("%d",T.pin[j]);
}
printf("\n");
}
void Swap(int from,int to)
{
T.pin[to-1][T.count[to-1]++]=T.pin[from-1][--T.count[from-1]];
DisplayPin(from,to);
count++;
}
//////////////////////////////////
void TransferInNext ( int from,int to,int via,int n)
{
if(n==1)
{
Swap(from,to);
}
else
{
TransferInNext(from,via,to,n-1);
Swap(from,to);
TransferInNext(via,to,from,n-1);
}
}
///////////////////////////////////
void InputPin(int len)
{
int i,k=len;
printf("| ");
for(i=0; i<len; i++,k--)
{
T.pin[0]=k;
printf("%d",T.pin[0]);
}
printf("\n| \n| \n---------------------------------------\n\n");
T.count[0]=len;
return;
}
Возможно, в теме на форуме будет доработан код для псевдографики.
19th
Июн
Правильное определение порядка точек в прорисовке тени в 2d-игре
Давно тут не постил уже, прям забыл уже как тут хорошо было
Вот заинтересовал вопрос о прорисовке тени. Допустим есть некий игрок и препятствия (см. вложение) и он имеет угол обзора 90 градусов и все, что выпадает за этот угол или закрывается препятствием не должно быть отображено. Допустим неким образом я сумел просчитать координаты этих точек, где кривая тени ломается. Определяю методом перебора:
1. Проверяю доступность для “обзора” каждой из четырех точек препятствия (все объекты – прямоугольники).
2. Если точка оказывается доступной(красные круги) то добавляем ее в список точек а также пробуем спроектировать луч из этой точки с углом из точки обзора, тем самим добавляя спроектированную точку в список(угол показан жёлтым, а спроектированная точка зелёным).
3. Дальше пытаюсь отсортировать эти точки так, чтобы их можно было бы прорисовать одним циклом (для начала просто соединить в ломанную(показано белым), а в дальнейшем хочу зарисовать все, не входящее в эту фигуру чёрным или серым). Но так как все препятствия расположены хаотически то может случится ситуация, когда одно препятствие попадает в список раньше положенного.
Прошу помощи в сортировке такого списке, чтобы можно было отобразить как на картинке Спасибо за внимание.
Интересная проблема и возможные варианты решения. Смотрим на форуме. Принимаем участие.
16th
Июн
Сохранение web-страницы с картинками. Delphi.
procedure TForm1.Button1Click(Sender: TObject);
var ms:TmemoryStream;
begin
ms:=TmemoryStream.create;
idhttp1.Get('http://lio.lv/olimps/uzdevumi.php?show=1',ms);
ms.SaveToFile('1.html');
end;
9th
Июн
Игра FunWorld2
Форумчанин Манжосов Денис представляет вашему вниманию вторую часть игры Fun World.
Задача: дойти до конца уровня, желательно собрав все шарики. Уровней 9(два тестовых-скоростных и 7 нормальных). Игра написана на собственном движке, вывод графики через Canvas, на форме нет ничего кроме таймера. Отличия от первой версии:
1) Динамичная структура карты. Уровни могут быть неограниченно большими.
2) Переделана система столкновений. Багов нет!
3) Добавление своих текстур в игру, модификация игры
4) “Плавающая” камера;
Ну это не всё, пунктов много, но все они не столь значительны…Версия можно сказать тестовая, так как есть новые версии игры, но в них нет уровней и пока что сыроватые относительно этой. Найти остальные версии можно здесь FunWorld2
В новых версиях вместо fmod.dll используется bass.dll, есть анимация, редактор переоформлен, доработка старой версии, чекпоинты… Новые версии создаются при поддержке Perfect-Light!
В-общем, я жду Вашего мнения об игре. Спасибо за внимание!
FunWorld2
7th
Июн
Исключающее ИЛИ
С помощью комбинации каких элементов (ИЛИ, И, НЕ) можно получить ИСКЛЮЧАЮЩЕЕ ИЛИ? Чем меньше тем лучше. Оптимально конечно через два элемента.
A xor B = (A and !B)or(!A and B) = (A or B) and (!A or !B)
Как этот процесс реализуется в электронных схемах, можно посмотреть на графиках, схемах, формулах и видео в теме на форуме.
6th
Июн
Самый лучший каклькулятор в мире.
В свете последних новостей о гениях на Руси-матушке, таких как Школьник из Нижнего Тагила разработал аналог Windows форумчанин Ecosasha решил в шутку заявить, что он ни чем не хуже.
Наконец-то, создан самый лучший калькулятор в мире – двухкнопочный.
Теперь Вам не надо стараться попасть курсором мышки на нужные кнопки или искать их
на клавиатуре.
Используя данный калькулятор, ваш курсор может быть в любом месте на форме.
От Вас требуется только нажимать на кнопки мыши и одну кнопку на клавиатуре – самую
большую и продолговатую, называемую ПРОБЕЛОМ.
Привожу комментарии учителя информатики:
” Я пробовал пользоваться стандартным калькулятором, в нем надо долго водить курсором, чтобы набрать цифру,
можно и промахнуться. А в этом калькуляторе все просто кликнул пару раз и нажал большую кнопку и готов результат.
Видно, какие цифры вводил до этого, а то память слабая.
Ах, да, разработка оценена ведущими программистами страны.”
…………
Самый лучший калькулятор двухкнопочный.rar
Посмотреть текст всего объявления и комментарии к этой шокирующей новости.
31st
Май
Расширение *.url в Windows
Нашел маленькую фишку, которую можно использовать в программах.
Создайте текстовый файл с любым содержанием.
смените ему разрешение на *.url
Вуаля – 50% пользователей не смогут его открыть.
Единственный метод – это запустить редактор и через “файл”-”открыть”.=) Enjoy.
P.S. Лично я так храню базу ссылок – и логично и практично
26th
Май
Чем плох тег center?
Alar:
Юные блогеры, критикуя блочную верстку, упоминают еще и старые надежные теги, например:
<center>Я ничего плохого не вижу в таблицах, понятно, что верстать весь сайт удобне в дивах:
<div>Так как блок можно отправить куда угодно
А что может быть плохого в тегах, которые просты в написании и поддерживаются всеми браузерами, причем одинаково.
24th
Май
Какой код у клавиши Shift?
Код клавиши Shift #16
Как проверить, зажат ли Shift?
Procedure TForm1.Timer1Timer(Sender: TObject);
Var State : TKeyboardState;
Begin
GetKeyboardState(State);
If ((State[16] and 128) 0) Then
caption:=’нажат’
Else
caption:=’не нажат’
End;
Облако меток
css реестр ассемблер timer SaveToFile ShellExecute программы массив советы word MySQL SQL ListView pos random компоненты дата LoadFromFile form база данных сеть html php RichEdit indy строки Win Api tstringlist Image мысли макросы Edit ListBox office C/C++ memo графика StringGrid canvas поиск файл Pascal форма Файлы интернет Microsoft Office Excel excel winapi журнал ПРОграммист DelphiКупить рекламу на сайте за 1000 руб
пишите сюда - alarforum@yandex.ru
Да и по любым другим вопросам пишите на почту
пеллетные котлы
Пеллетный котел Emtas
Наши форумы по программированию:
- Форум Web программирование (веб)
- Delphi форумы
- Форумы C (Си)
- Форум .NET Frameworks (точка нет фреймворки)
- Форум Java (джава)
- Форум низкоуровневое программирование
- Форум VBA (вба)
- Форум OpenGL
- Форум DirectX
- Форум CAD проектирование
- Форум по операционным системам
- Форум Software (Софт)
- Форум Hardware (Компьютерное железо)