先日紹介した "配列にオブジェクトを代入する方法" を利用して遊んでみました。

【プロデルメモ】配列にオブジェクトを代入してみる（画像付き） (2014/3/2(日) 午後 11:34)
http://blogs.yahoo.co.jp/a32kita/11001865.html

４９０個のラベルコントロールを自動的に配置して、自分の通し番号に応じて色を変えるというプログラムです。
変数名とか一部わかりにくくなってますが、うまく活用すればゲームが作れそうですね。



ソースが長いため、無着色ソース↓

---

メインウィンドウを表示する
待機する

メインウィンドウとは
    ウィンドウを継承する
    配列であるラベルオブジェクト配列を持つ
   
    はじめの手順
        初期化する
        ーー貼り付けた部品に対する操作をここに書きます
       
        ［自分］の背景色を黒へ変える
        ［自分］の種類を固定へ変える
       
        ’「持つ」命令だけでは配列が作成されない可能性があるため、配列であることをはじめの手順で改めて宣言します
        ［自分］のラベルオブジェクト配列は、配列である
       
        ラベル作成
    終わり
    初期化する手順
        ーー自動生成された手順です。ここにプログラムを書き加えても消える場合があります
        この内部領域大きさを｛284、464｝に変える
        この内容を「メインウィンドウ」に変える
        このドラッグドロップを○に変える
    終わり
   
    ラベル作成の手順
        ラベルカウンタは、数値である
        ラベルカウンタは、０
       
        ４９０回、繰り返せ
            ラベルカウンタは、ラベルカウンタ＋１
           
            ’通常は、『○○という××を◆◆に作る』と記述するところですが、
            ’ここでは、『○○は、××を◆◆に作ったもの』という記法を使用します。
            ラベルオブジェクト配列（［ラベルカウンタ］）は、［自分］にラベルを作ったもの
           
            ’オブジェクトに対する設定
            ’ラベルオブジェクト配列（［ラベルカウンタ］）の太字を○へ変える
           
            もし　ラベルカウンタは　１　なら
                ラベルオブジェクト配列（［ラベルカウンタ］）の内容を「■さいしょのラベル」へ変える
                ラベルオブジェクト配列（［ラベルカウンタ］）の位置を｛10，10｝へ変える
            でないなら
                ラベルオブジェクト配列（［ラベルカウンタ］）の内容を「■［ラベルカウンタを３桁に整えたもの］個目のラベル」へ変える
                ラベルオブジェクト配列（［ラベルカウンタ］）の位置を｛（ラベルオブジェクト配列（［ラベルカウンタ－１］）の横），（ラベルオブジェクト配列（［ラベルカウンタ－１］）の縦＋２０）｝へ変える
            もし終わり
           
            もし　ラベルカウンタ＜２５６　なら
                ラベル色という色情報を作る
                ラベル色の赤を２００へ変える
                ラベル色の緑を［ラベルカウンタ］へ変える
                ラベル色の青を（２５５－［ラベルカウンタ］）へ変える
               
                ラベルオブジェクト配列（［ラベルカウンタ］）の色をラベル色へ変える
            でないなら
                ラベル色という色情報を作る
                ラベル色の赤を２００へ変える
                ラベル色の緑を（２５５－（ラベルカウンタ－２５５））へ変える
                ラベル色の青を（２５５－（５１０－［ラベルカウンタ］））へ変える
               
                ラベルオブジェクト配列（［ラベルカウンタ］）の色をラベル色へ変える
            もし終わり
           
           
           
            もし　ラベルオブジェクト配列（［ラベルカウンタ］）の縦＞700　なら
                ラベルオブジェクト配列（［ラベルカウンタ］）の横を（［ラベルオブジェクト配列（［ラベルカウンタ－１］）の横］＋９５）へ変える
                ラベルオブジェクト配列（［ラベルカウンタ］）の縦を（ラベルオブジェクト配列（１）の縦）へ変える
            もし終わり
        繰り返し終わり
       
        ［自分］の内部領域大きさを｛（ラベルオブジェクト配列（［ラベルカウンタ］）の横＋ラベルオブジェクト配列（［ラベルカウンタ］）の幅＋１０），710｝へ変える
    終わり
終わり

タグ ：

#アニメーション