カラス占い
【開発環境】
os:Windows 10
IDE（統合開発環境）:VisualStudio 2017
言語；VB
【参考書】
株式会社秀和システム「作って覚えるVisualBasic2017」
著者：萩原 博之/宮崎 昭世
【カラス占い】
内容は
占いたい曜日を入れ、「占い」を押すと、キョエちゃんが答えたを出す様にする。
◆画面デザイン
Label1及びLabel2、Button、DateTimePicker、pictureBoxなどのコントロールを配置する
◆各コントロールのプロパティ設定
1）formコントロール
form.Text = キョエ占い
form.SizeGripStyle = Show←サイズ変更グリック
2)Label1コントロール
Label1.AutoSize = False
Label1.text = キョエが、お前らの運勢を占ってやる！占いたい日付を書いてね
3）Buttonコントロール
Button.text = 占う
4）Label2コントロール
Label1.AutoSize = False
Label1.text =お告げ
5）pictureBoxコントロール
pictureBox.size = 300,169
pictureBox.SizeMode = Zoom
pictureBox.Anchor = すべて
◆リソースの扱い方
ⅰ）カラス占いプロジェクトを「右クリック」し、「プロパティ」をクリック
ⅱ）プロパティ画面が表示されたら、左側の「リソース」を選択し、「リソースの追加」-「新しいイメージ」-「JPEGイメージ」選択する
ⅲ）新しいリソースの名前を入力する
・「title」と入力したら、「Add」ボタンをクリックする
ⅳ）ペイントと関連させる
「Resource」-「title.jpg」をクリック
「title.jpg」をWクリックすると、ペイントが立ち上がる
ⅴ）ペイントで好きな画像を取り込む
取り込めたら、一旦閉じる
ⅵ）画像を表示させる
「pictureBox」の▶をクリックする
「プロジェクトリソース」にチェックし、「title」選択し、「OK」ボタンをクリック
「title」が表示される
・「title」画像を変えてみる
「Resource」-「title.jpg」をWクリックして、ペイントを立ち上げ別な画像と差し替えて閉じる
ⅶ）大吉、中吉、小吉、吉、凶の6データを揃える
【コーデング】
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim dateNumber As Integer '年間累積日を記憶する変数
dateNumber = DateTimePicker1.Value.DayOfYear '選んだ日付から、年間累積日を計算
'Select～Case文
Select Case dateNumber Mod 5 '年間累積日を5で割った余り
Case 0 '大吉
PictureBox1.Image = My.Resources.daikihi
Label2.Text = "宝くじが当たるかもｗｗドーン"
Case 1 '中吉
PictureBox1.Image = My.Resources.cyuukichi
Label2.Text = "五輪チケットが当たるかも"
Case 2 '小吉
PictureBox1.Image = My.Resources.syoukichi
Label2.Text = "岡村に会えるかも"
Case 3 '吉
PictureBox1.Image = My.Resources.kichi
Label2.Text = "NHKのど自慢に出られるかも"
Case 4 '凶
PictureBox1.Image = My.Resources.kyou
Label2.Text = "ぼーっと生きてんじゃねよ。落下物に注意"
Case Else 'ミス
MsgBox("プログラムミスが有る")
End Select
End Sub
End Class
【プログラム実行】
