職案人

求職・歴史・仏教などについて掲載するつもりだが、自分の思いつきが多いブログだよ。適当に付き合って下さい。

カラス占い

2019年08月28日 | VB
カラス占い


【開発環境】
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 = "宝くじが当たるかもwwドーン"

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

【プログラム実行】





コメント   この記事についてブログを書く
« メモ帳 | トップ | 息子介護物語-エピソード11(... »
最近の画像もっと見る

コメントを投稿

VB」カテゴリの最新記事