0

Hi,

I need someone to help me create a program which will simulate the rolling of a die, counting how many of each die faces appear on the screen. This program should also explore the use of arrays.

Would appreitiate help greatly.

thank you,

Test

1
Contributor
1
Reply
2
Views
12 Years
Discussion Span
Last Post by test
0

so far i have,

procedure TDiceForm.resetClick(Sender: TObject);


begin
randomize;
for j := 1 to 6 do
numb [j] := 0;
Button11.Caption := '';
Button12.Caption := '';
Button13.Caption := '';
Button14.Caption := '';
Button15.Caption := '';
Button16.Caption := '';


end;


procedure TDiceForm.startstopClick(Sender: TObject);
begin
Timer1.Enabled := not Timer1.Enabled;
end;


procedure TDiceForm.Timer1Timer(Sender: TObject);


var die: integer;
begin
die := random(6) + 1;   {random numbers of dice: 1-6}
DieImage.Picture.LoadFromFile(IntToStr(die) + '.bmp');  {convert die value to
string, add bitmap extension, load from file, and display as DieImage}
numb[die] := numb[die] + 1;
case die of
1:CountOneButton.Caption := IntToStr(numb[die]);
2:CountTwoButton.Caption := IntToStr(numb[die]);
3:CountThreeButton.Caption := IntToStr(numb[die]);
4:CountFourButton.Caption := IntToStr(numb[die]);
5:CountFiveButton.Caption := IntToStr(numb[die]);
6:CountSixButton.Caption := IntToStr(numb[die]);


end;

Edited by Nick Evan: Fixed formatting

This topic has been dead for over six months. Start a new discussion instead.
Have something to contribute to this discussion? Please be thoughtful, detailed and courteous, and be sure to adhere to our posting rules.