コラム / パイパイモンテカルロたん / 4

• Prev
• Next
• コラム/パイパイモンテカルロたん

早速Labelに表示されてるテキストを変更しましょう。
変えたいLabelをクリックして、
オブジェクトインスペクタからCaptionぷろぱてぃです。

やっぱりCaptionなんですねぇｗ
っていうか、巻くじゃなくて撒くでした。
他のも変えてこんな感じにしてください。

さて、これじゃぁ数値の説明だけで、
数値を表示する部分がありませんｗ
数値出力用にLabelを追加しましょう。

こんな感じですが、Capitonは変えなくて良いです。
プログラムから直接書き換えます。
あ、開始ボタンを押す前ではそのままでした。
やっぱり、数字の0を入れておきましょう。

さて、このLabel、プログラムの中から参照するにあたって、

Label4.caption:='あああ';

とか参照してもイマイチわかりにくいので、
nameを変えてみましょう。

撒いた　と　ゴマ　の英語がわからないのでｗｗｗｗ
たまには変数名がローマ字でもいいんだー

うん

うん
これでそれぞれ、
AllGoma.Caption
EraiGoma.Caption
Oppai.Caption
と、見た目を変えることができます。

あと一つ追加するコンポーネントがあります。
ゴマを巻いていくにつれて、パイが正確になっていく様子を、
リアルタイムで見たいと思うので、
「一定時間ごとにイベントを発生させる」
コンポーネントを使います。

その名もTimer。
時間ごとに、ピピピッ　って鳴るイメージですね。
そのピピピッ　の　間隔ですが、
1秒間に100粒も置ければ多いほうですよね。
Timer1のIntervalプロパティーを10に設定してください。
ms=ミリセコンド＝千分の一秒なので、
１秒に１００粒はInterval:=10です。

あと一つ、Timer1のEnabledをFalseに設定してください。
それがTrueだと頼んで無くてもタイマーが動き出しますｗ

それじゃ次回から実装しましょう。
といっても、ボタンを押したときの処理と、
毎タイマーごとの処理しかないんですけど。

• Prev
  コラム/パイパイモンテカルロたん/3
• Next
  コラム/パイパイモンテカルロたん/5
• Home
  Up