コンディション・グリーン

上記の広告は１ヶ月以上更新のないブログに表示されています。新しい記事を書く事で広告が消せます。

昨日からGALAXY SがAndroid2.3にアップデートできるので早速してみました
多分今回のアップデートであと1年くらいは戦えるものと信じたい

アップデートした後と前では体感的にほんの少し起動が早くなったような気はしますけど、気のせいですかね？
初回起動時のロック解除から画面が表示されるまでが短くなってるのはいい感じ
文章選択もずいぶんとやりやすくなってました
やっぱりパソコンと同じ方式でスマートフォンで文章選択させるのはむりがあるきがしますね
カーソルよりも人間の指のほうが精度が悪いですからね、タッチペン使って入力するとか？
旧来の方式から変わったんでコピペする機会が増えそうです

あとは通知領域が変わったくらいしかわかんないですけど、ずいぶんと使いやすくなったのは事実
スマートフォンの世代交代が早過ぎるのはどうにかなんないもんなんですかね…

備忘録という名の開発日誌的なサムシング
前回はフォームに線を書く作業までやったのでその続きから

このままでは、単に線が引かれただけの盤面なんで、そこに石を置いてみましょう
あと、今回はフィールド変数を宣言して使っているんでその記述もついでに

フィールド変数の指定

Dim cnt As Integer = 0 　'ピクチャボックスが何回押されたか Dim n() As Integer = {0, 50, 100, 150, 200, 250, 300, 350, 400} 　'描写等に必要な配列、各線の値 Dim gridnum(7, 7) As Integer 　 'どこのマスが選択されたかをこの配列に代入 Dim whitenum, blacknum, tortal As Integer　 '黒と白がそれぞれいくつあるか

ボタンクリック時のイベント

Private Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click 　 Dim g As Graphics = PictureBox1.CreateGraphics 　 Dim num As Integer = 3 　 PictureBox1.BackColor = Color.LawnGreen 　 Dim numx As Integer = 4 　 For n As Integer = 0 To 8　 'ラインの描画 　　 g.DrawLine(Pens.Black, 50 * n, 0, 50 * n, 400) 　 Next 　 For n As Integer = 0 To 8 　'ラインの描画 　　 g.DrawLine(Pens.Black, 0, 50 * n, 400, 50 * n) 　 Next 　Do 　'初期配置石の描画 　　 g.FillEllipse(Brushes.Black, n(num), n(num), n(1), n(1)) 　 　 num += 1 　 Loop While num = 4 　 num -= 2 　 Do 　'初期配置石の描画 　 　 g.FillEllipse(Brushes.White, n(num), n(numx), n(1), n(1)) 　　 num += 1 　 　 numx -= 1 　 Loop While num = 4 End Sub

フィールド変数をどのように使用するかはコメントに書いてありますが分かりづらいので
今回はPictureBoxに線を書いてマス目を割るようにしてあるので、どこが押されたのかの判断が必要になってきます。
そのためには各マスの情報を管理する配列が必要となるのでそのための配列が『gridnum』です。
あとで書く別のイベントプロシージャに詳しいことは記述してます。

ボタンの記述は前回の部分に多少追加した形になってます、なんとなく意味のない感じのコードが混じってますけど…

ちなみにこれで実行すると


とこのように表示されます。
関係の無いボタンとか色々と混じってますけど気にしないでください



初心者脱出を目指して、このオセロを完成させたいと思います。
今、条件判断で非常に迷っている最中ですが

続きを読む

きづいたらGW終わってて、いまから中間考査の恐怖に怯える時期が到来する
とか言う前に、部活の先輩にVBでオセロ作れとか言われたのでその覚え書きみたいなもんを

今回使ってるのはVisual Studio2010です

Formはだいたい500,410位の大きさに、PictureBoxは401,401のサイズに固定
まずは線を引くということで手始めに

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 　Dim g As Graphics = PictureBox1.CreateGraphics 　For n As Integer = 0 To 8 　　 g.DrawLine(Pens.Black, 0, 50 * n, 400, 50 * n) 　Next 　For n As Integer = 0 To 8 　　 g.DrawLine(Pens.Black, 50 * n, 0, 50 * n, 400) 　Next End Sub

このあたりは基本中の基本ということで、まあ最初からマスの数は帰る気がないのでこんなもんでいいかな

でまあ、今回はここまで

というよりもまだループとか配列覚えたばかりの人間にはちと辛いです
やる気があればなんとかなると信じて、その2に続けたいと思います

果たしてスマートフォンで投稿することができるのか？

2ヵ月後に新型が出ると言うのに、Galaxy S を買ってしまいました。
なんか間違っている気がしなくもないけど、そこら辺はスルーしてしまいましょう。

あさって、新入生テストがあると言うのに
こんな状態で大丈夫か？

桜の咲く季節になりまして、気づいたらジョブチェンジしておりました
ということで、新しい学校の入学式に行ってきました
近畿圏にある某高専に進学したのですが、いやなんというかこのカオスさ…
予想以上でした

始業式の最中にPSPしてる人はいるし、髪の毛の色がなんかこうすごいことになってる人もいるし
それでいてみんな成績は当たり前のごとく優秀ですから
「俺、この学校でやっていけんの？」
と思わざるをえないですね
ある意味理想の学生像で、やることやればあとは自由ですよと

果たして留年しなくてすむのか！？
試験怖い怖い病に現在罹患中です