{"id":24,"date":"2021-07-19T13:14:46","date_gmt":"2021-07-19T04:14:46","guid":{"rendered":"http:\/\/kpc2021vb.satoshis.jp\/?p=24"},"modified":"2021-07-19T13:14:46","modified_gmt":"2021-07-19T04:14:46","slug":"%e3%82%b9%e3%82%b3%e3%82%a2%e3%82%92%e8%a1%a8%e7%a4%ba%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"https:\/\/kpcvb.satoshis.jp\/?p=24","title":{"rendered":"\u30b9\u30b3\u30a2\u3092\u8868\u793a\u3059\u308b"},"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>\u6d88\u3057\u305f\u30d6\u30ed\u30c3\u30af\u306e\u6570\u3092\u30ab\u30a6\u30f3\u30c8\u3057\u3066\u3001\u305d\u306e\u5024\u3092\u30b9\u30b3\u30a2\u3068\u3057\u3066\u8868\u793a\u3059\u308b\u3088\u3046\u306b\u3057\u307e\u3057\u3087\u3046\u3002<\/p>\n<p>\u30b9\u30b3\u30a2\u3092\u8868\u793a\u3059\u308b\u305f\u3081\u306eLabel\u3092\u753b\u9762\u306e\u53f3\u4e0a\u306b\u914d\u7f6e\u3057\u307e\u3059\u3002\u305d\u3057\u3066\u3001Name\u30d7\u30ed\u30d1\u30c6\u30a3\u3092ScoreLabel\u3068\u3057\u3066\u304a\u304d\u307e\u3059\u3002<\/p>\n<p>\u30b9\u30b3\u30a2\u3092\u30ab\u30a6\u30f3\u30c8\u3059\u308b\u305f\u3081\u306b\u3001\u30d5\u30a9\u30fc\u30e0\u306b score \u5909\u6570\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"brush: vb; highlight: [3]; title: ; notranslate\" title=\"\">\r\nPublic Class Form1\r\n    Dim x, y, dx, dy As Integer\r\n    Dim score As Integer\r\n\r\n     :\r\n<\/pre>\n<p>\u305d\u3057\u3066\u3001\u30d6\u30ed\u30c3\u30af\u3092\u6d88\u3059\u3054\u3068\u306bscore\u3092\u30d7\u30e9\u30b9\u3057\u3001\u6700\u65b0\u306e\u30b9\u30b3\u30a2\u3092ScoreLabel\u306b\u8868\u793a\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"brush: vb; highlight: [14]; title: ; notranslate\" title=\"\">\r\n    Public Sub HitBricks()\r\n        Dim i, j As Integer\r\n        Dim r, br As Rectangle\r\n        Dim b As Label\r\n\r\n        br = New Rectangle(x, y, Ball.Width, Ball.Height)\r\n        For i = 0 To 9\r\n            For j = 0 To 5\r\n                b = brick(i, j)\r\n                r = New Rectangle(b.Left, b.Top, b.Width, b.Height)\r\n                If b.Visible = True And r.IntersectsWith(br) Then\r\n                    dy = -dy\r\n                    b.Visible = False\r\n                    score += 1\r\n                    Exit Sub\r\n                End If\r\n            Next\r\n        Next\r\n    End Sub\r\n<\/pre>\n<p>\u30bf\u30a4\u30de\u30fc\u30a4\u30d9\u30f3\u30c8\u5185\u306e\u6700\u5f8c\u3067\u3001\u30b9\u30b3\u30a2\u306e\u8868\u793a\u3092\u66f4\u65b0\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"brush: vb; highlight: [17]; 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            Timer1.Enabled = False\r\n            MsgBox(&quot;\u30af\u30ea\u30a2\u3057\u307e\u3057\u305f\uff01&quot;)\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        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<!--CusAds0-->\n<div style=\"font-size: 0px; height: 0px; line-height: 0px; margin: 0; padding: 0; clear: both;\"><\/div>","protected":false},"excerpt":{"rendered":"<p>\u6d88\u3057\u305f\u30d6\u30ed\u30c3\u30af\u306e\u6570\u3092\u30ab\u30a6\u30f3\u30c8\u3057\u3066\u3001\u305d\u306e\u5024\u3092\u30b9\u30b3\u30a2\u3068\u3057\u3066\u8868\u793a\u3059\u308b\u3088\u3046\u306b\u3057\u307e\u3057\u3087\u3046\u3002 \u30b9\u30b3\u30a2\u3092\u8868\u793a\u3059\u308b\u305f\u3081\u306eLabel\u3092\u753b\u9762\u306e\u53f3\u4e0a\u306b\u914d\u7f6e\u3057\u307e\u3059\u3002\u305d\u3057\u3066\u3001Name\u30d7\u30ed\u30d1\u30c6\u30a3\u3092ScoreLabel\u3068\u3057\u3066\u304a\u304d\u307e\u3059\u3002 \u30b9\u30b3\u30a2\u3092\u30ab\u30a6\u30f3 [&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-24","post","type-post","status-publish","format-standard","hentry","category-visualbasic"],"_links":{"self":[{"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=\/wp\/v2\/posts\/24","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=24"}],"version-history":[{"count":1,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=\/wp\/v2\/posts\/24\/revisions"}],"predecessor-version":[{"id":25,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=\/wp\/v2\/posts\/24\/revisions\/25"}],"wp:attachment":[{"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=24"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=24"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=24"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}