{"id":40,"date":"2021-07-19T16:08:56","date_gmt":"2021-07-19T07:08:56","guid":{"rendered":"http:\/\/kpc2021vb.satoshis.jp\/?p=40"},"modified":"2021-07-19T16:09:52","modified_gmt":"2021-07-19T07:09:52","slug":"%e5%85%a8%e3%81%a6%e3%81%ae%e3%83%96%e3%83%ad%e3%83%83%e3%82%af%e3%82%92%e6%b6%88%e3%81%97%e3%81%9f%e6%99%82%e3%81%ae%e3%82%b2%e3%83%bc%e3%83%a0%e3%81%ae%e7%b6%9a%e8%a1%8c","status":"publish","type":"post","link":"https:\/\/kpcvb.satoshis.jp\/?p=40","title":{"rendered":"\u5168\u3066\u306e\u30d6\u30ed\u30c3\u30af\u3092\u6d88\u3057\u305f\u6642\u306e\u30b2\u30fc\u30e0\u306e\u7d9a\u884c"},"content":{"rendered":"<div class=\"52c85d4ba9991f085df6225e35c53991\" data-index=\"1\" style=\"float: none; margin:10px 0 10px 0; text-align:center;\">\n<script async src=\"https:\/\/pagead2.googlesyndication.com\/pagead\/js\/adsbygoogle.js\"><\/script>\r\n<!-- memo300x600 -->\r\n<ins class=\"adsbygoogle\"\r\n     style=\"display:inline-block;width:300px;height:600px\"\r\n     data-ad-client=\"ca-pub-9576179666165228\"\r\n     data-ad-slot=\"1090285404\"><\/ins>\r\n<script>\r\n     (adsbygoogle = window.adsbygoogle || []).push({});\r\n<\/script>\n<\/div>\n<p>\u5168\u3066\u306e\u30d6\u30ed\u30c3\u30af\u3092\u6d88\u3057\u305f\u3089\u3001\u30b2\u30fc\u30e0\u3092\u7d9a\u884c\u3067\u304d\u308b\u3088\u3046\u306b\u3057\u307e\u3059\u3002<\/p>\n<p>\u73fe\u72b6\u3067\u306f\u300c\u30af\u30ea\u30a2\u3057\u307e\u3057\u305f\uff01\u300d\u3068\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u8868\u793a\u3057\u3066\u3044\u308b\u3060\u3051\u3067\u3001\u30b2\u30fc\u30e0\u3092\u7d9a\u884c\u3067\u304d\u307e\u305b\u3093\u306e\u3067\u3001\u3053\u308c\u3092\u6539\u5584\u3057\u307e\u3059\u3002<\/p>\n<p>\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u300c\u30af\u30ea\u30a2\u3057\u307e\u3057\u305f\uff01\u7d9a\u3051\u307e\u3059\u304b\uff1f\u300d\u306b\u5909\u66f4\u3057\u3066Yes\/No\u3092\u554f\u3044\u5408\u308f\u305b\u308b\u3088\u3046\u306b\u3057\u307e\u3059\u3002<br \/>\nNo\u3060\u3063\u305f\u3089\u30a2\u30d7\u30ea\u3092\u7d42\u4e86\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"brush: vb; highlight: [6,7,8,9,10,11,12]; title: ; notranslate\" title=\"\">\r\n    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick\r\n        HitWall()\r\n        HitRacket()\r\n        HitBricks()\r\n        If CountBricks() = 0 Then\r\n            Dim r As Long\r\n            Timer1.Enabled = False\r\n            r = MsgBox(&quot;\u30af\u30ea\u30a2\u3057\u307e\u3057\u305f\uff01\u7d9a\u3051\u307e\u3059\u304b\uff1f&quot;, vbYesNo)\r\n            If r = vbNo Then\r\n                Me.Close()\r\n                Exit Sub\r\n            End If\r\n        End If\r\n        If y &gt; Racket.Top + Racket.Height Then\r\n            Timer1.Enabled = False\r\n            MsgBox(&quot;\u30b2\u30fc\u30e0\u30aa\u30fc\u30d0\u30fc&quot;)\r\n            If score &gt; highscore Then\r\n                MsgBox(&quot;\u30cf\u30a4\u30b9\u30b3\u30a2\u3092\u66f4\u65b0\u3057\u307e\u3057\u305f\uff01\uff01\uff01\uff01\uff01\uff01\uff01&quot;)\r\n                highscore = score\r\n                Save()\r\n            End If\r\n        End If\r\n        x = x + dx\r\n        y = y + dy\r\n        Ball.Left = x\r\n        Ball.Top = y\r\n        ScoreLabel.Text = &quot;\u30b9\u30b3\u30a2: &quot; &amp; score\r\n    End Sub\r\n<\/pre>\n<p>Yes\u306a\u3089\u753b\u9762\u3092\u521d\u671f\u72b6\u614b\u306b\u623b\u3057\u3066\u30b2\u30fc\u30e0\u3092\u518d\u958b\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\n    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick\r\n        HitWall()\r\n        HitRacket()\r\n        HitBricks()\r\n        If CountBricks() = 0 Then\r\n            Dim r As Long\r\n            Timer1.Enabled = False\r\n            r = MsgBox(&quot;\u30af\u30ea\u30a2\u3057\u307e\u3057\u305f\uff01\u7d9a\u3051\u307e\u3059\u304b\uff1f&quot;, vbYesNo)\r\n            If r = vbNo Then\r\n                Me.Close()\r\n                Exit Sub\r\n            End If\r\n            PrepareGame()\r\n        End If\r\n        If y &gt; Racket.Top + Racket.Height Then\r\n            Timer1.Enabled = False\r\n            MsgBox(&quot;\u30b2\u30fc\u30e0\u30aa\u30fc\u30d0\u30fc&quot;)\r\n            If score &gt; highscore Then\r\n                MsgBox(&quot;\u30cf\u30a4\u30b9\u30b3\u30a2\u3092\u66f4\u65b0\u3057\u307e\u3057\u305f\uff01\uff01\uff01\uff01\uff01\uff01\uff01&quot;)\r\n                highscore = score\r\n                Save()\r\n            End If\r\n        End If\r\n        x = x + dx\r\n        y = y + dy\r\n        Ball.Left = x\r\n        Ball.Top = y\r\n        ScoreLabel.Text = &quot;\u30b9\u30b3\u30a2: &quot; &amp; score\r\n    End Sub\r\n\r\n    Public Sub PrepareGame()\r\n        '\u5168\u30d6\u30ed\u30c3\u30af\u3092\u518d\u8868\u793a\u3059\u308b\r\n        ShowAllBricks()\r\n        '\u30dc\u30fc\u30eb\u306e\u4f4d\u7f6e\u3092\u9069\u5f53\u306a\u5834\u6240\u306b\u79fb\u52d5\u3059\u308b\r\n        x = 230\r\n        y = 180\r\n        '\u30dc\u30fc\u30eb\u306e\u65b9\u5411\u3092\u843d\u3061\u308b\u65b9\u306b\u3059\u308b\r\n        dy = Math.Abs(dy)\r\n        Timer1.Enabled = True\r\n    End Sub\r\n\r\n    Public Sub ShowAllBricks()\r\n        Dim i, j As Integer\r\n        For i = 0 To 9\r\n            For j = 0 To 5\r\n                Select Case j\r\n                    Case 0, 1\r\n                        brick(i, j).BackColor = Color.Red\r\n                    Case 2, 3\r\n                        brick(i, j).BackColor = Color.Yellow\r\n                    Case 4, 5\r\n                        brick(i, j).BackColor = Color.Green\r\n                End Select\r\n                brick(i, j).Visible = True\r\n            Next\r\n        Next\r\n    End Sub\r\n<\/pre>\n<!--CusAds0-->\n<div style=\"font-size: 0px; height: 0px; line-height: 0px; margin: 0; padding: 0; clear: both;\"><\/div>","protected":false},"excerpt":{"rendered":"<p>\u5168\u3066\u306e\u30d6\u30ed\u30c3\u30af\u3092\u6d88\u3057\u305f\u3089\u3001\u30b2\u30fc\u30e0\u3092\u7d9a\u884c\u3067\u304d\u308b\u3088\u3046\u306b\u3057\u307e\u3059\u3002 \u73fe\u72b6\u3067\u306f\u300c\u30af\u30ea\u30a2\u3057\u307e\u3057\u305f\uff01\u300d\u3068\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u8868\u793a\u3057\u3066\u3044\u308b\u3060\u3051\u3067\u3001\u30b2\u30fc\u30e0\u3092\u7d9a\u884c\u3067\u304d\u307e\u305b\u3093\u306e\u3067\u3001\u3053\u308c\u3092\u6539\u5584\u3057\u307e\u3059\u3002 \u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u300c\u30af\u30ea\u30a2\u3057\u307e\u3057\u305f\uff01\u7d9a\u3051\u307e\u3059\u304b\uff1f\u300d\u306b\u5909\u66f4 [&hellip;]<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[],"class_list":["post-40","post","type-post","status-publish","format-standard","hentry","category-visualbasic"],"_links":{"self":[{"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=\/wp\/v2\/posts\/40","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=40"}],"version-history":[{"count":2,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=\/wp\/v2\/posts\/40\/revisions"}],"predecessor-version":[{"id":42,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=\/wp\/v2\/posts\/40\/revisions\/42"}],"wp:attachment":[{"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=40"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=40"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=40"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}