{"id":35,"date":"2021-07-19T14:39:19","date_gmt":"2021-07-19T05:39:19","guid":{"rendered":"http:\/\/kpc2021vb.satoshis.jp\/?p=35"},"modified":"2021-07-19T15:03:12","modified_gmt":"2021-07-19T06:03:12","slug":"%e3%83%8f%e3%82%a4%e3%82%b9%e3%82%b3%e3%82%a2%e3%82%92%e4%bf%9d%e5%ad%98%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"https:\/\/kpcvb.satoshis.jp\/?p=35","title":{"rendered":"\u30cf\u30a4\u30b9\u30b3\u30a2\u3092\u4fdd\u5b58\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>\u30c6\u30b9\u30c8\u7528\u306b\u3001\u753b\u9762\u306e\u5de6\u4e0b\u306b\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\u3057\u3001Text\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u300c\u30b9\u30b3\u30a2\u4fdd\u5b58\u300d\u306b\u8a2d\u5b9a\u3057\u307e\u3059\u3002Name\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u300cSaveScore\u300d\u306b\u5909\u66f4\u3057\u3066\u304a\u304d\u307e\u3059\u3002<\/p>\n<p>\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u5148\u982d\u306b\u30cf\u30a4\u30b9\u30b3\u30a2\u3092\u4fdd\u5b58\u3059\u308b\u305f\u3081\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u8868\u3059SCORE_FILE\u5b9a\u6570\u3068highscore\u5909\u6570\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\nPublic Class Form1\r\n    Const SCORE_FILE = &quot;score.txt&quot;\r\n    :\r\n    Dim score, highscore As Integer\r\n    :\r\n<\/pre>\n<p>\u30dc\u30bf\u30f3\u3092\u30c0\u30d6\u30eb\u30af\u30ea\u30c3\u30af\u3057\u3066\u30a4\u30d9\u30f3\u30c8\u30d7\u30ed\u30b7\u30fc\u30b8\u30e3\u3092\u4f5c\u6210\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\n    Private Sub SaveScore_Click(sender As Object, e As EventArgs) Handles SaveScore.Click\r\n        Save()\r\n    End Sub\r\n\r\n    Public Sub Save()\r\n        '\u30b9\u30b3\u30a2\u3092\u30d5\u30a1\u30a4\u30eb\u306b\u4fdd\u5b58\u3059\u308b\r\n        My.Computer.FileSystem.WriteAllText(SCORE_FILE, highscore, False)\r\n    End Sub\r\n<\/pre>\n<p>\u30a2\u30d7\u30ea\u3092\u8d77\u52d5\u3057\u3066\u300c\u30b9\u30b3\u30a2\u4fdd\u5b58\u300d\u30dc\u30bf\u30f3\u3092\u30af\u30ea\u30c3\u30af\u3059\u308b\u3068\u3001\u30d7\u30ed\u30b8\u30a7\u30af\u30c8\u306e\u30d5\u30a9\u30eb\u30c0\u5185\u306b\u300cscore.txt\u300d\u30d5\u30a1\u30a4\u30eb\u304c\u751f\u6210\u3055\u308c\u3066\u3044\u307e\u3059\u3002<\/p>\n<p>\u30a2\u30d7\u30ea\u3092\u8d77\u52d5\u3057\u305f\u3068\u304d\u306b\u300cscore.txt\u300d\u3092\u8aad\u307f\u8fbc\u3093\u3067\u3001\u30cf\u30a4\u30b9\u30b3\u30a2\u3092\u8868\u793a\u3059\u308b\u3088\u3046\u306b\u5909\u66f4\u3057\u3066\u307f\u307e\u3059\u3002<\/p>\n<p>\u30d5\u30a9\u30fc\u30e0\u306e\u30b9\u30b3\u30a2\u306e\u5de6\u5074\u306b\u30cf\u30a4\u30b9\u30b3\u30a2\u3092\u8868\u793a\u3059\u308b\u305f\u3081\u306eLabel\u3092\u8ffd\u52a0\u3057\u307e\u3059\u3002<\/p>\n<p>Form_Load\u5185\u3067\u300cscore.txt\u300d\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u3093\u3067\u3001\u30cf\u30a4\u30b9\u30b3\u30a2\u3092\u8868\u793a\u3057\u307e\u3059\u3002<\/p>\n<pre class=\"brush: vb; title: ; notranslate\" title=\"\">\r\n    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load\r\n    :\r\n        '\u30cf\u30a4\u30b9\u30b3\u30a2\u3092\u30d5\u30a1\u30a4\u30eb\u304b\u3089\u53c2\u7167\u3059\u308b\r\n        If IO.File.Exists(SCORE_FILE) Then\r\n            Dim s As String\r\n            s = My.Computer.FileSystem.ReadAllText(SCORE_FILE)\r\n            highscore = Val(s)\r\n        End If\r\n        HighScoreLabel.Text = &quot;\u30cf\u30a4\u30b9\u30b3\u30a2: &quot; &amp; highscore\r\n    End Sub\r\n<\/pre>\n<p>\u30cf\u30a4\u30b9\u30b3\u30a2\u3092\u4fdd\u5b58\u3059\u308b\u3068\u3053\u308d\u3068\u8868\u793a\u3059\u308b\u3068\u3053\u308d\u306f\u3067\u304d\u307e\u3057\u305f\u3002<\/p>\n<p>\u6b21\u306f\u3001\u30b2\u30fc\u30e0\u3092\u958b\u59cb\u3057\u3066\u30b2\u30fc\u30e0\u30aa\u30fc\u30d0\u30fc\u306b\u306a\u3063\u305f\u6642\u70b9\u3067\u3001\u30cf\u30a4\u30b9\u30b3\u30a2\u3088\u308a\u3082\u9ad8\u3044\u30b9\u30b3\u30a2\u3060\u3063\u305f\u6642\u306b\u3001\u305d\u306e\u30b9\u30b3\u30a2\u3092\u30d5\u30a1\u30a4\u30eb\u306b\u66f8\u304d\u8fbc\u3080\u3088\u3046\u306b\u3057\u307e\u3059\u3002<\/p>\n<p>\u30bf\u30a4\u30de\u30fc\u30a4\u30d9\u30f3\u30c8\u5185\u3067\u30b2\u30fc\u30e0\u30aa\u30fc\u30d0\u30fc\u306e\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u8868\u793a\u3057\u3066\u3044\u308b\u500b\u6240\u306b\u8ffd\u52a0\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            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<p>\u30b2\u30fc\u30e0\u30aa\u30fc\u30d0\u30fc\u306b\u306a\u3063\u305f\u3068\u304d\u306b\u30b9\u30b3\u30a2\u304c\u3053\u308c\u307e\u3067\u306e\u30cf\u30a4\u30b9\u30b3\u30a2\u3088\u308a\u3082\u5927\u304d\u304b\u3063\u305f\u3089\u3001\u30cf\u30a4\u30b9\u30b3\u30a2\u3092\u66f4\u65b0\u3057\u305f\u3053\u3068\u3092\u30e1\u30c3\u30bb\u30fc\u30b8\u3092\u8868\u793a\u3057\u3066\u3001\u30d5\u30a1\u30a4\u30eb\u3092\u66f4\u65b0\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            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            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<!--CusAds0-->\n<div style=\"font-size: 0px; height: 0px; line-height: 0px; margin: 0; padding: 0; clear: both;\"><\/div>","protected":false},"excerpt":{"rendered":"<p>\u30c6\u30b9\u30c8\u7528\u306b\u3001\u753b\u9762\u306e\u5de6\u4e0b\u306b\u30dc\u30bf\u30f3\u3092\u8ffd\u52a0\u3057\u3001Text\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u300c\u30b9\u30b3\u30a2\u4fdd\u5b58\u300d\u306b\u8a2d\u5b9a\u3057\u307e\u3059\u3002Name\u30d7\u30ed\u30d1\u30c6\u30a3\u3092\u300cSaveScore\u300d\u306b\u5909\u66f4\u3057\u3066\u304a\u304d\u307e\u3059\u3002 \u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u5148\u982d\u306b\u30cf\u30a4\u30b9\u30b3\u30a2\u3092\u4fdd\u5b58\u3059\u308b\u305f\u3081\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u8868\u3059SCOR [&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-35","post","type-post","status-publish","format-standard","hentry","category-visualbasic"],"_links":{"self":[{"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=\/wp\/v2\/posts\/35","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=35"}],"version-history":[{"count":4,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=\/wp\/v2\/posts\/35\/revisions"}],"predecessor-version":[{"id":39,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=\/wp\/v2\/posts\/35\/revisions\/39"}],"wp:attachment":[{"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=35"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=35"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/kpcvb.satoshis.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=35"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}