Games

[hauff]

Хочу научиться писать простенькие игры, вроде летящего в 2d самолётека стреляющего вперёд по наземным целям. Задумка Visual C, возможно QT + OpenGL/DirectX. Посоветуйте с чего начать, интересуют хорошие сайты, где толково изложат принципы работы движков и графики.

Спасибо!

---

Литература по Borland C++

[liric]

пожалуйста,подскажите книги/ссылки на книги по программированию в Borland C++. Хотелось бы, чтобы там говорилось и о такой древности,как Borland C++ 3.1 для MS Windows и Dos. и ещё ищу книгу Герберт Шилд "Программирование на Borland C++",если знаете,подскажите ссылку,а то не найду её никак((
заранее спасибо

---

Алгоритм

[уга-буга]

Доброго времени суток! поделитесь , пожалуйста, знаниями =)

необходимо создать градиентную заливочку замкнутой области. я использую рекурсивный алгоритм на основе серий пикселов(т.е. линиями заливаю). он отлично работает для выпуклых фигур, а если в фигуре имеется "дырка" (в смысле, как в сыре, а не в контуре) или если фигура изогнута как синусоида то результат вот так выглядит:


как мне его можно изменить ?

@темы: Работа

---

[Scabby]

пишу прогу соударение шаров.
аррр.. возникла еще проблема..

точнее 3..



1)не могу сделать так чтобы количество шаров вводилось при запуске программы.

в коде выдает ошибку.

2)прописала столкновение шаров.ошибку не выдает, но почему-то не работает_)

3)1 шар летает в форме, а потом куда-то улетает

код:


unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls;

const
MaxBalls=10;

Colors: array[0..4] of TColor = (clRed, clBlue, clLime, clYellow, clFuchsia);

type
TDirection=(dLeft,dUpleft,dupright,dright,
ddownright,ddownleft,ddown,dup);

TBall=record
Button1: TButton;
id:byte;
x,y,x1,y1:integer;
size:byte;
Direction:TDirection;
Speed:byte;
Color:TColor;
BorderColor:TColor;

end;

TForm1 = class(TForm)
Paint: TButton;
Timer1: TTimer;
PaintBox1: TPaintBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;

procedure Timer1Timer(Sender: TObject);
procedure PaintClick(Sender: TObject);
procedure FormCreate(Sender: TObject);

private
procedure DrawBalls;

{ Private declarations }
public
{ Public declarations }

balls:array[1..MaxBalls] of TBall;

end;

var
Form1: TForm1;
MyBMP:TBitmap;
ball:TBall;
map_width, map_height: word;
j,i:integer;




implementation

{$R *.dfm}

procedure TForm1.DrawBalls;
var
i: integer;
begin

with MyBMP.Canvas do
begin
Brush.Color:=clWhite;
FillRect(ClipRect);
end;
for I := 1 to MaxBalls do
with balls[i] do
begin
MyBMP.Canvas.Pen.Color:=BorderColor;
MyBMP.Canvas.Brush.Color:=Color;
MyBMP.Canvas.ellipse(x-size,y-size,x+size,y+size);
end;
PaintBox1.Canvas.Draw(0,0,MyBMP);
end;

procedure TForm1.PaintClick(Sender: TObject);
var
i: integer;
//создаем шары
begin

randomize;
for I := 1 to MaxBalls do
with balls[i] do begin
id:=i;
size:=StrToint(Edit2.Text);
direction:=TDirection (random(8) );
speed:=StrToint(Edit3.Text);
color:=colors[Random(5)];
BorderColor:=clBlack;
x:=random(471)+10;
y:=random(471)+10;
x1:=x+40;
y1:=y+40;
end;
Timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var
i: integer;
begin
for i:=1 to MaxBalls do
begin
ball := balls[i];
case Ball.Direction of
dLeft: with ball do x:=x-Speed;

dUpleft: with ball do begin
x:=x-Speed;
y:=y-Speed;
end;

dupright: with ball do begin
x:=x+Speed;
y:=y-Speed;
end;

dright: with ball do x:=x+Speed;

ddownright: with ball do begin
x:=x+Speed;
y:=y+Speed;
end;

ddownleft: with ball do begin
x:=x-Speed;
y:=y+Speed;
end;

ddown: with ball do y:=y+Speed;
dup: with ball do y:=y-Speed;
end;

if ball.x<=10 then
begin
if( Ball.Direction = dLeft ) Then Ball.Direction:= dright;
if( Ball.Direction = dUpleft ) Then Ball.Direction:= dupright;
if( Ball.Direction = ddownleft ) Then Ball.Direction:= ddownright;
end;

if ball.y<=10 then
begin
if( Ball.Direction = dUpleft ) Then Ball.Direction:= ddownleft;
if( Ball.Direction = dup ) Then Ball.Direction:= ddown;
if( Ball.Direction = dupright ) Then Ball.Direction:= ddownright;
end;

if ball.x >= (PaintBox1.Width-13) then
begin
if( Ball.Direction = dright ) Then Ball.Direction:= dLeft;
if( Ball.Direction = ddownright ) Then Ball.Direction:= ddownleft;
if( Ball.Direction = dupright ) Then Ball.Direction:=dUpleft;
end;

if ball.y >= (PaintBox1.Height-12) then
begin
if( Ball.Direction = ddown ) Then Ball.Direction:= dup;
if( Ball.Direction = ddownleft ) Then Ball.Direction:= dUpleft;
if( Ball.Direction = ddownright ) Then Ball.Direction:= dupright;
end;
balls[i]:=ball;
end;

//столкновение шаров

for j :=1 to Maxballs do begin
if i=j then continue;
if sqrt(sqr(ball.x-balls[j].x)+sqr(ball.y-balls[j].y))<=2*balls[j].size+ball.speed
then
begin
if Ball.Direction = dLeft then Ball.Direction:= dright;
if Ball.Direction = dright then Ball.Direction:= dLeft;
if Ball.Direction = dUpleft then Ball.Direction:= ddownright;
if Ball.Direction = ddownright then Ball.Direction:= dUpleft;
if Ball.Direction = dupright then Ball.Direction:= ddownleft;
if Ball.Direction= ddownleft then Ball.Direction:= dupright;
if Ball.Direction = ddown then Ball.Direction:= dup;
if Ball.Direction = dup then Ball.Direction:= ddown;

if Balls[j].Direction = dLeft then Balls[j].Direction:= dright;
if Balls[j].Direction = dright then Balls[j].Direction:= dLeft;
if Balls[j].Direction = dUpleft then Balls[j].Direction:= ddownright;
if Balls[j].Direction = ddownright then Balls[j].Direction:= dUpleft;
if Balls[j].Direction = dupright then Balls[j].Direction:= ddownleft;
if Balls[j].Direction = ddownleft then Balls[j].Direction:= dupright;
if Balls[j].Direction = ddown then Balls[j].Direction:= dup;
if Balls[j].Direction = dup then Balls[j].Direction:= ddown;

DrawBalls;
end;
end;
end;




procedure TForm1.FormCreate(Sender: TObject);
begin

MyBMP:=TBitmap.Create;
MyBMP.Width:=500;
MyBMP.Height:=500;
MyBMP.Canvas.Pen.Color:=clRed;
MyBMP.Canvas.Brush.Color:=clRed;
map_width:=500;
map_height:=500;
PaintBox1.Width:=map_width;
PaintBox1.Height:=map_height;
end;

end.

---

Приветствую программистов

[bishop3000]

Приглашаю программистов в свой блог.
У меня вы найдете много интересного, например, Рождественское программистское интервью и Новогоднее программистское интервью, в которых я собрал короткие интервью у 33 очень хороших программистов! Море полезной информации.

---

[-=TurboRufus=-]

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

---

Дельфи

[edge]

Здраствуйте. Вопрос по Дельфи.
Есть четко упорядоченный список, который может меняться в процессе программы (порядок).
Логически он очень подходит под перечисление, но перечисление - это константа и его нельзя менять в процессе выполнения программы.
Данный список, упорядоченный от 1 до н (число элементов у меня не меняется), я использую в качестве индексов массива и все.
Так как нельзя менять тип перечисление в процессе работы программы, мне пришлось создать ряд простых переменных, в который содержаться цифры от 1 до н. Но слишком уже этот набор переменных является набором данных одного типа, как цвета у светафора. Поэтому хотелось бы отнести их определенному перечисляемому типу, чтобы программа была наглядной.

Можно ли каким-то способом сделать все-таки множество или перечисление, чтобы использовать их в качестве индексов массива?

---

[[ . LuXuRy . ]]

Здравствуйте.

Никак не могу разобраться с программой на С.
Пользователь вводит числа, а на экран выводятся только те числа, цифры которых не совпадают.
(Пример: 121, 123,144,212..Вывод на экран:123)

какую функцию использовать для данной программы?

Заранее спасибо.

---

вопрос

[РоменСул]

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

---

Управление сетевыми подключениями

[jazzcat]

В общем проблема вполне простая - есть у меня VPN подключение (pptp) к инфернету, и нужно сделать так, чтобы в 9 утра оно падало, а в 6 вечера соответственно подымалось.

Вопрос такой - как это можно сделать используя WinAPI или какую-нибудь утилиту из командной строки (после определённого периода гугления я ничего так и не нашёл)?

Если кто-то видел программку, которая умеет - скиньте плз, так как у меня возникают сомнения по поводу того, что это вобще можно сделать.

Все проги, которые могут устанавливать подключения, работают только с телефонными коннектами, т.е. моё pptp видят и даже отключают, а вот подымать не могут - всё равно как-то пытаются "звонить".

VPN Dialer внутри содержит свою pptp подсистему.

---

с++

[*~.Samaya_Sladkaya.~*]

Здравствуйте!
помогите с прогой!
есть программа:
циклический двунаправленный список структуры описывающие магазины. Из полученного списка исключить магазины не содержищие определенного товара.

нужно переделать в список типа ОЧЕРЕДЬ

и еще компилятор ругается на file (выделенный элемент в проге), типа "is never used"

код

#include
#include
#include
#include


typedef struct address_t{
char city[80];
char street[80];
char house[80];
}address_t;

typedef struct good_t{
char name[80];
char price[80];
char end_date[80];
}good_t;

typedef struct shop_t{
char number[10];
address_t address;
int good_count;
good_t goods[10];
}shop_t;

// Элемент списка
// содержит указатель на структуру данных
// и указатели на следующий и предыдущий элемент списка
typedef struct Record{
shop_t *data;
Record *next;
Record *prev;
}Record;

//Список. Хранит указательна первый элемент списка
typedef struct List{
Record * head;
}List;

//Создаем пустой список
List* create(){
List* lst = (List*)malloc(sizeof(List));
lst->head = NULL;
return lst;
}

//Добавляет данные в список
void add(List *lst, shop_t *data){
// создаем элемент списка
Record *rec = (Record *)malloc(sizeof(Record));
// устанавливаем данные
rec->data = data;
if(lst->head == NULL){
//если список пустой то устанавливаем указатель на первый элемент
lst->head = rec;
rec->next = rec->prev = rec;
}
else{
// добавляем новый элемент перед первым элементом
rec->next = lst->head;
rec->prev = lst->head->prev;
rec->next->prev = rec;
rec->prev->next = rec;
}
}

//Удаляем элемент из списка
void del(List *lst, Record *rec){

if(lst->head == rec){
if(lst->head == lst->head->next){
// Если это единственный элемент списка - делаем список пустым
lst->head = NULL;
}
else{
// Если в списке есть еще элементы и мы удаляем первый,
// то первым элементом становится следующий
lst->head = lst->head->next;
}
}
//Удаляем элемент из списка.
rec->next->prev = rec->prev;
rec->prev->next = rec->next;

//Освобождаем память из под элемента
//ВНИМАНИЕ! Память из под данных не освобождается
free((void*)rec);
}

//Создает список и загружает данные из файла
List* LoadFromFile(char *file, FILE *fp){
//Создаем новый пустой список
List *lst = create();
while(!feof(fp)){
//выделяем память для данных
shop_t *data = (shop_t*)malloc(sizeof(shop_t));
// читаем данные из файла построчно
fscanf(fp, "%[^\n]\n", data->number);
fscanf(fp, "%[^\n]\n", data->address.city);
fscanf(fp, "%[^\n]\n", data->address.street);
fscanf(fp, "%[^\n]\n", data->address.house);
data->good_count = 0; // число товаров
//Читаем список товаров до того момента пока не будет прочитан '-'
for(int i = 0; igoods[i].name);
if(data->goods[i].name[0] == '-'
break;
fscanf(fp, "%[^\n]\n", data->goods[i].price);
fscanf(fp, "%[^\n]\n", data->goods[i].end_date);
data->good_count = i+1;
}
add(lst, data);
}
return lst;
}

//Сохраняет список в файл
void SaveToFile(List *lst, FILE *fp){
Record *p = lst->head;
if(p == NULL){ //список пуст
return;
}
do{
shop_t *data = p->data;
fprintf(fp, "%s\n", data->number);
fprintf(fp, "%s\n", data->address.city);
fprintf(fp, "%s\n", data->address.street);
fprintf(fp, "%s\n", data->address.house);

for(int i = 0; igood_count; i++){
fprintf(fp, "%s\n", data->goods[i].name);
fprintf(fp, "%s\n", data->goods[i].price);
fprintf(fp, "%s\n", data->goods[i].end_date);
}
fprintf(fp, "-\n";

p = p->next;
}while(p != lst->head);
}

//Печатает список на экран
void output(List *lst){
if(lst->head == NULL){
printf("Список пуст!";
return;
}

Record *p = lst->head;
do{
shop_t *data = p->data;
printf("Numer %s\n", data->number);
printf("City %s\n", data->address.city);
printf("Street %s\n", data->address.street);
printf("House %s\n", data->address.house);

for(int i = 0; igood_count; i++){
printf("Good #%d\n", i);
printf("Name %s\n", data->goods[i].name);
printf("Price %s\n", data->goods[i].price);
printf("Date %s\n", data->goods[i].end_date);
}
p = p->next;
}while(p != lst->head);
}

// находит магазин который не содержит указанный товар
Record * find_good(List *lst, char *good){
Record *p = lst->head;
if(p == NULL){
return p;
}
do{
shop_t *data = p->data;
int is_find = 0;
for(int i = 0; igood_count; i++){
if(strcmp(data->goods[i].name, good)==0){
is_find = 1;
break;
}
}
if(is_find == 0)
return p;
p = p->next;
}while(p != lst->head);
return NULL;
}

int main(){

char str[255];
char ch;
List *lst = NULL;

printf("Курсовая работа. Вариант №20""\n";
printf("\n";
printf("\n";
printf("\n";
printf("Загрузить в циклический двунаправленный список структуры описывающие магазины.""\n";
printf("Из полученного списка исключить магазины не содержищие определенного товара.""\n";

printf("Нажмите любую клавишу для продалжения...";
getch();

//Загрузка входных данных
for( ; ; ) {
clrscr();
printf("Введите имя входного файла:\n";
scanf("%s", str);
FILE *fp = fopen(str, "r";
if(!fp){
fprintf(stderr, "ОШИБКА! Невозможно открыть файл \"%s\"!", str);
printf("\nВвести имя файла заново?(y/n):";
ch = getch();
if((ch == 'y' || (ch == 'Y'){
continue; // повторить ввод
}
printf("\nКонец работы программы.\nНажмите любую клавишу для выхода...";
getch();
return -1;
}

fpos_t cur_pos;
fgetpos(fp, &cur_pos);
fgetc(fp);
if(feof(fp)){
fprintf(stderr, "ОШИБКА! Файл \"%s\" пустой!", str);
fclose(fp);
printf("\nВвести имя файла заново?(y/n):";
ch = getch();
if((ch == 'y' || (ch == 'Y'){
continue;
}
printf("\nКонец работы программы.\nНажмите любую клавишу для выхода...";
getch() ;
return -1;
}
fsetpos(fp, &cur_pos);
lst = LoadFromFile(str, fp);
fclose(fp);
break;
}

clrscr();
printf("Конец загрузки списка из файла!\n";
printf("Нажмите любую клавишу для продалжения...";
getch();

clrscr();

printf("Вывести список на экран?(y/n) : ";
ch = getch();
if((ch == 'y' || (ch == 'Y'){
clrscr();

output(lst);
printf("Нажмите любую клавишу для продалжения...";
getch();
}

clrscr();
printf("Введите название товара, магазины с которым надо удалить:\n";
scanf(" %s", str);

int count = 0;
while(Record *rec = find_good(lst, str)){
del(lst, rec);
count++;
}
printf("Количество удаленных магазинов: %d\n", count);

printf("Нажмите любую клавишу для продалжения...";
getch();

clrscr();
printf("Вывести список на экран?(y/n):";
if((getch() == 'y' || (getch() == 'y'){
clrscr();
output(lst);
printf("Нажмите любую клавишу для продалжения...";
getch();
}

clrscr();
printf("Сохранить список в файл?(y/n):";
ch = getch();
if((ch == 'y' || (ch == 'Y'){
for( ; ; ){
clrscr();
printf("Введите имя выходного файла:\n";
scanf("%s", str);
FILE *fp = fopen(str, "w+";
if(!fp){
fprintf(stderr, "ОШИБКА! Невозможно открыть файл \"%s\"!", str);
printf("\nВвести имя файла заново?(y/n):";
ch = getch();
if((ch == 'y' || (ch == 'Y'){
continue;
}
printf("\nКонец работы программы.\nНажмите любую клавишу для выхода...";
getch();
return -1;
}
SaveToFile(lst, fp);
fclose(fp);
clrscr();
printf("Данные успешно сохранены в файл!\n\n";
break;
}
}
else{
clrscr();
}
printf("Конец работы программы.\nНажмите любую клавишу для выхода...";
getch();
}

@темы: прога

---

Вакансия программиста 1С

[Аэнур]

Вакансия компании: Алианта Групп

Регион: Москва (ст. м. Кунцевская)

График работы: полный рабочий день (с 9 до 18)

Предполагаемый уровень месячного дохода: от 60 000 руб.
По результатам собеседования

Обязанности:

Ведение разработок и модернизаций в 1С .
Работа с MS SQL .
Работа с Web компонентами для 1С.

Требования:

Пол. мужской
Возраст 21-40 лет
Высшее образование
Опыт работы в должности разработчика по алгоритмическим языкам (не 1С) , по 1С по 7.7-8.0 и далее от 2 лет, в торговых компаниях.
Опыт работы с бухгалтерией.
Знание основ бух. учета, оперативного, управленческого учета, логистики, складского учета, отчетности и реализации не типовых решений 1С;
Опыт работы в проектной команде,взаимодействия с подразделениями компании, написание ТЗ по заданию заказчика.
Win2000/Win2003 server , MS SQL, Базовые знания по сетевым технологиям.

Условия:

оплата мобильного телефона
своевременная заработная плата
Оформление по ТК РФ
дружный коллектив

Перспективы:

профессиональный рост
повышение квалификации

Контакты:

ИТ отдел.

E-mail: [email protected]
Моб.: [phone]

---

[Spiky]

граждане, у кого-нибудь есть информация по
биологическим, квантовым и оптическим ЭВМ?

---

[-=LS=-]

Народ хелп)нужно напсиать в делфи
два прямоугольника заданы парами чисел (a1,b1) u (a2,b2), определяющими длины их сторон
Составить программу, которая выясняет можно ли один из прямоугольников целиком поместить в другом. Предпологается такое расположение прямоугольников при котором сохраняется параллельность сторон

@темы: Интернет

---

Помогите пожлуйста решить написать на паскале

[Suzukava]

Помогите плз решить задачку:
Составить программу, которая вводит три числовых значения (a,b,c) и, рассматривая их как длины сторон треугольника по формуле Герона
S= корень из p(p-a)(p-b)(p-c)
где p= 1/2(a+b+c)

хотябы алгоритм и как ее сделать,не пойму никак =(

---

[Drakosha]

Доброго вечера.
Возникла вот себя-развлекательного вида задача, но никак не могу найти с чего подступиться.
Хочется наваять себе существо настольное, то бишь нечто что бы существовало на рабочем столе и исполняло роль тамагочи что ли. Задача для меня новая... пока вот все не выходит найти материалы на тему чем и как начать.
Собственно, может кто-нибудь поделится материалами, источниками, которые можно поизучать?..

Делать хотела на С#. Язык выбирался из соображений больше обучения, чем целесообразности конкретной цели.

---

[Tale sorteggio]

Здравствуйте. Подскажите, пожалуйста, как в Visual Basic можно печатать текст на случайной метке?
Заранее спасибо.

---

c++

[*~.Samaya_Sladkaya.~*]

Здравствуйте!
подскажите как сделать сортировку по дате?

---

Сессионные задания студентов

[[revolver]]

Админ, удаляй к чёрту эти посты с просьбой выложить готовую программу. Надоело уже. Последний пост стал последней каплей, человеку ломы с паскаля на C# перевести. Что там делов то?! Я понимаю если бы был LISP, или HASKEL, а то с Паскаля на C#! БРРРР!

---

использование html-кода, echo и header в одном файле

[Просто ОНА]

Здравствуйте! Помогите пожалуйста решить проблему совмещения кода html, echo и header в одном файле.
Мне нужно сделать файл, оформление которого будет в отдельном css-файле, что бы в нём сначала шёл текст, а затем из базы данных MySQL к этому тексту прикреплялась картинка. Знаю, что намешивать это всё нельзя, но чем можно заменить header не знаю.
Вот так вот у меня выглядит нерабочий код:
< ? include "protect.inc";
include "dbSettings.inc"; ?>
< html >
< head >

< /head >
< body >
< ? $query="SELECT * FROM EXtours WHERE id='".$id."'";
$result=mysql_query($query)
or die ("Error:query");
while ($row=mysql_fetch_array($result))
{
echo ("Номер тура: ".$row["id"]."< br >");
echo ("Страна:".$row["EXtname"]."< br >");

header("Content-type: image/*");
echo ("Фотографии: ".$row["EXtimg"]);
}
?>
< /body >
< /html >

Заранее благодарю всех откликнувшихся!