絵柄がそらったらメッセージを出す方法は？

ごえもん 2004-08-13 05:08:58 No: 10398

スロットマシン（リールは０〜９が３列）をつくったのですがたとえば５５５のようにそろった時メッセージを出す方法が分かりません。具体的に言えばそろったと判定する方法が分かりません。ちなみにリールはRandom(10)で、スロットはタイマーで動かしてます、ストップボタンは３つです。

ライブチャット案内所 2004-08-13 08:55:31 No: 10399

http://www10.tok2.com/home2/offoff/
をコピペしたと仮定すると…

procedure TForm1.Button4Click(Sender: TObject);
var a,b,c:integer;
begin
  Timer1.Enabled := True;
  Timer2.Enabled := True;
  Timer3.Enabled := True;
//--------------------------------------
a:=StrToInt(Panel1.Caption);
b:=StrToInt(Panel2.Caption);
c:=StrToInt(Panel3.Caption);
if (a=5) and (b=5) and (c=5) then
  Showmessage('555');
if (a=1) and (b=2) and (c=3) then
  Showmessage('123');
//--------------------------------------
end;

sadoyama URL 2004-08-13 18:38:17 No: 10400

ライブチャット案内所さんなる方がこの掲示板に正式に登場されるとは思いませんでした。

８月１１日に同名の方から、嫌がらせとしか思えない投稿がしつこくなされました。
その方とあなたは同一人物と判断せざるをえないのですが、いかがでしょうか。
もし違っていればご容赦下さい。