Игра "Кости" на языке программирования Delphi

[Вавел из ГМТУ]

Все эти Label и кнопки - это вспомогательные элементы. Нужно объявить переменые, дать им внятные названия и дальше уже с ними работать... А по мере необходимости можно их значения перетаскивать в Label и прочее...
Для статистики удобно воспользоваться компонентом ListBox.
Кнопки, и так понятно, Buttom.
Для всяких надписей - Label.
Визуализация кубиков(если очень хочется) - Image.

Я чтото невижу смысла использовать Real. Всёже нужно использовать Integer.
Что касается переменых.. То пока(для того функционала, что я написал) их 4. А именно:

  Bank : Integer; // Кол-во денег в банке.
  Stavka : Integer; // Наша ставка.
  K1Num, K2Num : Integer; // Значения на кубиках.

Что касается оформления, то я себе это представляю так... Оно даже работает.. местами.

[ОДИНОЧЕСТВО В СЕТИ]

а вот мое видение данной игры

[Вавел из ГМТУ]

ОДИНОЧЕСТВО В СЕТИ У тебя там Индюк

http://www.virustotal.com/ru/analisi...902-1255693963

Такчто лечись: http://programmersforum.ru/showthread.php?t=60120

[Наталья111]

Добрый вечер!
У меня возник вопрос, как сделать чтобы в label выводило слово очко в числе для поставленной цифры, например, 10 очков, 2 очка, 1 очко?

Вот код для кнопки, при помощи которой игрок сможет ставить количество очков:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ochko:=ochko+1;
  label4.Caption:=IntToStr(ochko)+' очков';
end;

[Вавел из ГМТУ]

Это надо писать функцию, которая будет окончания "выбирать".

А почему ты не хочешь сделать интерфейс как предложил я или ОДИНОЧЕСТВО В СЕТИ?

[Наталья111]

Сообщение от Вавел из ГМТУ

А почему ты не хочешь сделать интерфейс как предложил я или ОДИНОЧЕСТВО В СЕТИ?

сорри, я не тот файл загрузила

[Наталья111]

Я начала писать процедуру для кнопки бросить кости. Посмотрите пожалуйста на верном ли я шагу...
И еще у меня проблема с ComboBox1? я хочу чтобы при выборе числа из ComboBox1 оно отображалось в Label7...но у меня что то не получается.

Случаи выигрыша:
1) ставку умножаем на 4, если сумма равна и числу игрока и числам куба, т.е. игрок загадал 8, выпало по 4 (в сумме 8 и на каждом кубе по 4).
2) ставку умножаем на 3, если число игрока равно тому числу сколько выпало на кубах, при этом без разницы по равну на каждом кубе или нет.
3) ставку умножаем на 2, если игрок указал больше или равно это число сумме чисел выпавших на кубах, или меньше или равно это число сумме чисел выпавших на кубах.

Случаи проигрыша:
если результат игры не совпадает ни с одним из трех условий.


Программа:

[ОДИНОЧЕСТВО В СЕТИ]

я хочу чтобы при выборе числа из ComboBox1 оно отображалось в Label7

в OnChange Combobox1 пропиши

Label7.caption:=combobox1.text;

[W0LF]

В RxLib есть компонент RxDice... Кости кароче. При нажатии кубик вращаеться и показует выпавшее число. По чему нельзя использовать его? Будет легче, намного)

[Наталья111]

Сообщение от W0LF

В RxLib есть компонент RxDice... Кости кароче. При нажатии кубик вращаеться и показует выпавшее число. По чему нельзя использовать его? Будет легче, намного)

это в Delphi7?
что то я не могу найти вкладку RxLib....

ПС: А алгоритм для кнопки "Бросить кости" правильно у меня без ошибок?