すべてのカテゴリ

エクセルでテトリスを作りました。午後からなんとなく作り始めまして、午後のオンライン礼拝なども見ていましたが、夜には完成しました。一筆書きなので、不具合がないことを願っていますが…。以下にコードをさらしますね。Option Explicit Declare PtrSafe Function GetAsyncKeyState Lib "User32.dll" (ByVal vKey As Long) As Integer Sub テトリス()    Dim shurui As Integer    Dim ochigyou(1 To 4), ochiretu(1 To 4) As Integer    Dim hayasa, hayaokuri, hayasas As Integer    Dim tate, yoko As Integer    Dim px As Double    tate = 30    yoko = 15    Dim sude(1 To 100, 1 To 100, 1 To 3) As Integer    Dim i, j, k, n, x, p, q As Integer    Dim a(1 To 4), b(1 To 4) As Integer    Dim iro(1 To 7, 1 To 3) As Integer    Dim PressNumber(1 To 5) As Integer    Dim narabi, kaisuu As Integer    Dim tuyosa As Integer    Dim tuyosastr A

テトリスというパズルゲームがあります。調べたら1984年に当時ソ連のコンピューター科学者が制作したものがその起源だそうです。今でも世界中で愛され、スマホやニンテンドースイッチなどでも手軽に遊ぶことができます。私はテトリスが「ちょっとだけ」得意です。受験生の時に息抜きでやっていた頃があり、その時にコツを学びました。テトリスの一般的な仕様だと最初はピース（テトリミノ）がゆっくりと落ちてきますが、スコアが伸びて時間が経つごとに段々と速くなってきて最後は目にも止まらないスピードで次々に降ってきます。自分の今の状態を把握しながら落ちてくるテトリミノの形を認識し、回転させ、列を作って消す。単純作業なのですが脳ではものすごいスピードで情報処理されています。今、ニンテンドースイッチでは「テトリス99」というゲームが配信されています。インターネットを介して99人のプレイヤーが同時にテトリスを開始し、ゲームオーバーになった人は退場していきます。そして最後の1人が「テト１」の栄誉に輝く、テトリスとバトルロワイヤルを掛け合わせたゲームになっています。初心者の方も同時に繋がるので、最初の50人くらいはさほど時間もかからずふるい落とされてしまいます。段々と手練れのプレイヤーだらけになり、落ちるスピードも音楽のテンポも上がってきて緊張感が走ります。一つミスをしたら一瞬でゲームオーバーという極限の緊張感。ライバルの攻撃を受けながら自分が列を消して応戦します。（ざっくりいうと１列消すと１列ライバルの盤面にお邪魔テトリミノが現れます）そのプレッシャーの中、いかに冷静に自分の盤面を淡々と消し続けられるか…調子のいい

先日の日曜日、エクセルでテトリスを作りました。半日でできました。ブログで、コードをさらしたのですが、その翌日に、私はいくつか書き直して、もう少しマシなものにしました。前回からの変更点を書きますね。 まず、少し不具合があったのです。右に行くとき、すり抜けてしまうという不具合がありました。これは、原因を見つけて直しました。数字を１箇所、間違えていました。もう不具合はないだろうと思っています。 また、前回のは、「クリア」がありませんでした。終了するのは「ゲームオーバー」しかなかったのです。ひどい話ですよね（笑）。ちょっと考えまして、「１０回消したらクリア」としました。 それから、速さの段階が極端でした。もう少し速さの段階をマメにしまして、「ゆっくり」「ややゆっくり」「普通」「やや速い」「速い」「すごく速い」の６段階にいたしました。私自身はあまりテトリスが強くないので、レベル３（「普通」）くらいでちょうどよいです。 あと、色を変えました。いままでのは、濃い中間色がほとんどだったと思います。今度は、原色を中心として、カラフルにしました。パソコンは３色（赤、緑、青）が基本で、さらに白や黒、シアンやマゼンタといった色（すみません。よくわかりません。私自身は色弱で、色がよくわからないのです。数字で操作しているだけです）がありますが、そのちょうど８色で書いています。ずっと見やすくなったと言われます。昔ながらのファミコンみたいな感じの色になったみたいです。レトロな感じですかね。 セルの大きさも少し変えました。大きめのバージョンも作ったのです。でも、もしこのゲームで遊んでくださるかたがいらっしゃった

というのが「男子中学生」が将来なりたい職業の「NO.２」じゃ。「ヒカキン」等の「ユーチューバ」は、まだ「NO.1」の立場じゃが、それも「風前の灯（ともしび）？」とも言えるかもよ。すでに「２０２６年／名古屋アジア大会」では「正式競技」となることが決定されているし、会場もすでに抑えられているぞよ。「２０２５年／IOC（国際オリンピック委員会）」が「サウジアラビア」で「第１回のオリンピックeスポーツ大会」を開催することを決定しているのじゃ。とうとう「会長のバッハ」もやったね。でも、前からボクもちょっと思っていたけど・・・「eスポーツ」って、ホントに「スポーツ」なの？という「素朴（そぼく）」な疑問じゃ。スポーツといえば、一般的には「太陽下で汗を流す？」的な感じという風にボクは思っていたが・・・「うん？何じゃ？e??...eって、何？」ま、汗はかかないけど、「冷や汗」はかきそうじゃ。＾＾とにかく「広い意味」でいえば、「ヒトとヒトとの対戦」といえなくもないか。しかも「パラリンピック」と「通常のオリンピック」との差もほとんど感じないし。これって、意外と世界の「ナンバーワン競技？」になるかもよ。うん。だって「老若男女」、「国籍」、「人種」、「年齢差」、「収入差」、「知能差」等なんか、ほとんど関係ないし～「世界中のすべての人々が参加可能」じゃし。すごいじゃん。ま、でも「パソコンの性能差」はしゃ～ないか。ホホホ。今「４０００億円市場」といわれる「eスポーツ」じゃ。これから、ますます「発展」しそうじゃが、「問題」はナイのじゃろ～か？やっぱ「目」をはじめ「カラダ」の問題やら、「精神的」な問題はナイのか

今私は、ある会社で片づけのお手伝いをさせていただいています。体はきついのですが、いかに短時間で片づけを終わらせられるかを考えて片付けるのが好きなんです。性格ですね。ゲームでいうと「テトリス」が得意。日本一に挑戦しようかなと思うほど大得意でした。それが今までは、何かの役に立つなんて考えた事もなかったです。これは自分の強みなのか？はっきり強みとしてわからなくても、それが自分の課題かもしれないと思ったのです。これを乗り越えた先に何かあるのでしょう。たぶん、テトリスの性質、「決定して下ろす」「決定して下ろす」この訓練だったのでは？と感じます。ということは、私の人生で大事なことは、自分で決定して自分で行動するということなのでしょう。それプラス、自分がこれまで人生でなにをやってきたか。何が好きだったか何をやらされていたか何なら、人が嫌がることでも苦も無くできたかこれで、自分がやりたいことが決まりました。決めました。私はACです。自分の気持ちがわからなくなり、何をしたいのか、何が好きなのか、どうしたいのか、まるでわかりませんでした。今でも、クリアになっているわけではありません。わからないことの方が多いです。でも、自分の意思で生きようと決め、やろうと思うことを決めたんです。何ならできるか。特別な知識も技術もなく、自分の意思で生きることさえ放棄していたけれど、なんとかやろうと思えることに出会えました。これを形にしていきたい。ここに書くことで自分のモチベーションをあげます。言ったからには実行しなければならない。自分を追い込むしかありませんね。あなたは、何か迷いはありませんか？自分の過去や性格・やっ

本家風テトリスが完成しました。いい感じに出来たので満足！歌ってみたでテトリス歌おうと思ってる歌い手さんは是非ご依頼お願いします＾＾他にも歌ってみたのご依頼お待ちしてます！<a class="coconala-widget" href="https://coconala.com/services/3763144" data-service_id="3763144" data-width="468" data-comment="0" data-invite="0" data-user_id="2952056">歌ってみた本家風テトリスの動画編集します 「映える×楽しい＝このテトリス背景で決まり！」</a><script>!function(d,s,id){var js,fjs=d.getElementsByTagName(s)[0],p=/^http:/.test(d.location)?'http':'https';if(!d.getElementById(id)){js=d.createElement(s);js.id=id;js.src=p+'://coconala.com/js/coconala_widget.js';fjs.parentNode.insertBefore(js,fjs);}}(document,'script','coconala-wjs');</script>