{"id":18,"date":"2021-07-19T12:00:38","date_gmt":"2021-07-19T03:00:38","guid":{"rendered":"http:\/\/kpc2021vb.satoshis.jp\/?p=18"},"modified":"2021-07-19T13:04:30","modified_gmt":"2021-07-19T04:04:30","slug":"%e3%83%9c%e3%83%bc%e3%83%ab%e3%81%a8%e3%83%96%e3%83%ad%e3%83%83%e3%82%af%e3%81%ae%e5%bd%93%e3%81%9f%e3%82%8a%e5%88%a4%e5%ae%9a","status":"publish","type":"post","link":"https:\/\/kpcvb.satoshis.jp\/?p=18","title":{"rendered":"\u30dc\u30fc\u30eb\u3068\u30d6\u30ed\u30c3\u30af\u306e\u5f53\u305f\u308a\u5224\u5b9a"},"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>\u30bf\u30a4\u30de\u30fc\u30a4\u30d9\u30f3\u30c8\u5185\u306b\u3001\u30dc\u30fc\u30eb\u3068\u30d6\u30ed\u30c3\u30af\u306e\u5f53\u305f\u308a\u5224\u5b9a\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002<\/p>\n<p>\u3057\u304b\u3057\u3001\u30d6\u30ed\u30c3\u30af\u306f\u8907\u6570\u3042\u3063\u3066\u30eb\u30fc\u30d7\u3067\u5f53\u305f\u308a\u5224\u5b9a\u3092\u884c\u3046\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002<\/p>\n<p>\u30bf\u30a4\u30de\u30fc\u30a4\u30d9\u30f3\u30c8\u5185\u306e\u51e6\u7406\u304c\u9577\u304f\u306a\u308b\u3068\u30b3\u30fc\u30c9\u304c\u8aad\u307f\u306b\u304f\u304f\u306a\u308b\u306e\u3067\u3001HitBricks\u3068\u3044\u3046\u30b5\u30d6\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3092\u4f5c\u3063\u3066\u3001\u305d\u306e\u4e2d\u3067\u30d6\u30ed\u30c3\u30af\u3068\u30dc\u30fc\u30eb\u306e\u5f53\u305f\u308a\u5224\u5b9a\u3092\u884c\u3046\u3088\u3046\u306b\u3057\u307e\u3057\u3087\u3046\u3002<\/p>\n<p>\u3064\u3044\u3067\u306b\u3001\u30dc\u30fc\u30eb\u3068\u58c1\u306e\u5f53\u305f\u308a\u5224\u5b9a\u306f HitWall\u3001\u30e9\u30b1\u30c3\u30c8\u3068\u30dc\u30fc\u30eb\u306e\u5f53\u305f\u308a\u5224\u5b9a\u306fHitRacket\u3068\u3044\u3046\u30b5\u30d6\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u306b\u5206\u5272\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\r\n        x = x + dx\r\n        y = y + dy\r\n        Ball.Left = x\r\n        Ball.Top = y\r\n    End Sub\r\n\r\n    Public Sub HitWall()\r\n        If x + dx &lt;= 0 Or x + Ball.Width + dx &gt; ClientSize.Width Then\r\n            dx = -dx\r\n        End If\r\n        If y + dy &lt;= 0 Or y + Ball.Height + dy &gt; ClientSize.Height Then\r\n            dy = -dy\r\n        End If\r\n    End Sub\r\n\r\n    Public Sub HitRacket()\r\n        Dim br, rr As Rectangle\r\n        br = New Rectangle(x, y, Ball.Width, Ball.Height)\r\n        rr = New Rectangle(Racket.Left, Racket.Top, Racket.Width, Racket.Height)\r\n        If rr.IntersectsWith(br) And dy &gt; 0 Then\r\n            dy = -dy\r\n        End If\r\n    End Sub\r\n\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                    Exit Sub\r\n                End If\r\n            Next\r\n        Next\r\n    End Sub\r\n<\/pre>\n<p>\u30dc\u30fc\u30eb\u304c\u30d6\u30ed\u30c3\u30af\u306b\u5f53\u305f\u308b\u3068\u3001\u30d6\u30ed\u30c3\u30af\u304c\u6d88\u3048\u308b\u3088\u3046\u306b\u306a\u308a\u307e\u3057\u305f\u3002<\/p>\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>\u30bf\u30a4\u30de\u30fc\u30a4\u30d9\u30f3\u30c8\u5185\u306b\u3001\u30dc\u30fc\u30eb\u3068\u30d6\u30ed\u30c3\u30af\u306e\u5f53\u305f\u308a\u5224\u5b9a\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002 \u3057\u304b\u3057\u3001\u30d6\u30ed\u30c3\u30af\u306f\u8907\u6570\u3042\u3063\u3066\u30eb\u30fc\u30d7\u3067\u5f53\u305f\u308a\u5224\u5b9a\u3092\u884c\u3046\u5fc5\u8981\u304c\u3042\u308a\u307e\u3059\u3002 \u30bf\u30a4\u30de\u30fc\u30a4\u30d9\u30f3\u30c8\u5185\u306e\u51e6\u7406\u304c\u9577\u304f\u306a\u308b\u3068\u30b3\u30fc\u30c9\u304c\u8aad\u307f\u306b\u304f\u304f\u306a\u308b\u306e\u3067\u3001HitBricks\u3068 [&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-18","post","type-post","status-publish","format-standard","hentry","category-visualbasic"],"_links":{"self":[{"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=\/wp\/v2\/posts\/18","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=18"}],"version-history":[{"count":2,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=\/wp\/v2\/posts\/18\/revisions"}],"predecessor-version":[{"id":23,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=\/wp\/v2\/posts\/18\/revisions\/23"}],"wp:attachment":[{"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=18"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=18"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=18"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}