| Re: Сочтут ли за рекламу? Вопрос модератору. ID:18882 ответ на 18537 |
Пн, 17 апреля 2006 11:17 [#] |
|
|
Вано, вчера поползал по "Хаосу".
Фраза: "Надеюсь, совместными силами с игроками мы сможем превратить "оптимальную" систему в систему, которая будет выигрывать всегда".
Вано, что бы получить положительое МО игры не обязательно всегда выигрывать, можно и проигрыать. Главное, что бы выигрыши и проигрыши были больше некоторой критической величины, которая меняеться в зависимости от текущей игровой ситуации.
Скриншоты Вашей программы, све еще разочаровывают, т.к. нет ни графиков ни таблиц. Вано, начните с графиков - в Делфи есть хороший компонент Chart на странице Additional, который позволяет строить графики. Для этого Вам надо создать всего лишь один цикл FOR, и воспользоваться двумя функциями SeriesК.Clear и SeriesК.AddXY.
SeriesК.Clear. нужен для стирания построенного графика при новом простроении (выполнении программы), а AddXY - строит график по точкам.
Например так :
//Postroenie grafikov
Series1.Clear;
For i := 0 to N do
begin
Series1.AddXY(i, Bilance1[i]);
end;
Очень бы хотелось видеть графики еденичного баланса (игры флебетом), и график баланса игрока.
Так же было бы желательно видеть график критического баланса, при которм МО игры больше или рано 0. Формулу данного графика я Вам скину попозже, когда Вы создадите графики.
Так же хотелось бы что бы Вы создали наконец таблицы. На странице Additional взять элемент StringGrid1. Поля данной таблицы лучше заполнять при создании формы - взять в форме событие (Events) и подвесить заполнение первых полей таблицы при создании формы (OnCreate). Например так:
procedure TfmMain.FormCreate(Sender: TObject);
begin
//Sozdanie tablici
StringGrid1.Cells[0,0] := 'Nr.';
StringGrid1.Cells[1,0] := 'Value';
StringGrid1.Cells[2,0] := 'Colour';
StringGrid1.Cells[3,0] := 'Size';
StringGrid1.Cells[4,0] := 'Even';
StringGrid1.Cells[5,0] := 'Logic';
end;
Заполнение таблицы в теле программы может быть таким:
//Information write in Table
For i:=1 to StringGrid1.RowCount do
begin
StringGrid1.Cells[0,i] := IntToStr(i);
StringGrid1.Cells[1,i] := IntToStr(Value[i]);
StringGrid1.Cells[2,i] := Colour[i];
StringGrid1.Cells[3,i] := Size[i];
StringGrid1.Cells[4,i] := Even[i];
StringGrid1.Cells[5,i] := IntToStr(Logic[i]);
end;
Из таблицы так же можно и считывать информацию, вносить её в ручную в каждое поле и т.д. и т.п.
|
|
|