■ＩＮＤＥＸ ■あにめちっく・めぐみちゃん講座 ■まじかる☆うお〜く ■声優さんを募集します！ ■コーヒーちょうだい！
■ＶＢのお部屋（女の子アルゴリズム） ■まのんのＣＧアトリエ ■おすすめリンク ■更新の経歴 ■プロフィール
| ■超初心者向けＶＢプログラムのお部屋 |
・ＶＢとは何か？、用意するもの、動作環境、おすすめ書籍。など。
・ＶＢ娘のプロフィール。
・女の子アルゴリズムｖｅｒ０.０１のダウンロード。
・ソフト概要 フリーソフト。
ビジュアルベーシック研究用プログラム。
ＶＢ５もしくは６が動作する環境である事。
実行ファイルは一応付いていますが、今のところ実用性は全く有りません。（＾＾；
研究用なので完成する事はないと思う。
ソースコード付き。ソースコードの改変と利用は自由。
・ＶＢ開発画面（女の子アルゴリズムの場合。）
■あにめちっく・めぐみちゃんのプログラム ＮＥＷ
・ランチャー起動部分
・＋を押すとスケジューラーの設定時刻がアップ
・めぐみちゃんのいいわけ
・めぐみちゃんの動作関数
■プログラム恐怖症対策
・プログラムは面白いか？
・開発画面をみてみる。
・なぜプログラムは英語で書いてあるのか。
・分からない用語が出てきたらとりあえず日本語に直してみる。
■超初心者向けプログラム説明
・部品に名前が付いている。＜プロパティー＞
・イコール（＝）の使い方。
・画面に女の子を表示させる。 ＜ＬｏａｄＰｉｃｔｕｒｅ関数＞
・ボタンを押すとそのギャグは５０点です、という台詞を出す。 ＜Ｃｌｉｃｋイベント＞
・部品に名前が付いている。 ＜プロパティー＞
プログラムの部品の名前は所々.（点）で区切ってある。
部品の名前の後には部品の特徴を表すプロパティー（属性）が付く。
例）日本語
赤い髪のぶび子 ぶび子（人の名前） 髪（物の名前） 赤い（髪の属性）
赤い流星のシャア少佐 シャア少佐（人の名前） 流星（物の名前） 赤い（流星の属性）
例）プログラム
○○○.ｐｉｃｔｕｒｅ ○○○という部品の絵。
Ｆｏｒｍ１.Ｉｍａｇｅ１.Ｐｉｃｔｕｒｅ Ｆｏｒｍ１という部品の上に有る、Ｉｍａｇｅ１という絵を入れる部品の絵。
Ｔｅｘｔ１.Ｔｅｘｔ Ｔｅｘｔ１という文字を入れる部品の表示すべきテキスト。
Ｌａｂｅｌ１.Ｆｏｎｔｓｉｚｅ Ｌａｂｅｌ１という文字を入れる部品の表示すべきフォントサイズ。
・イコール（＝）の使い方。
例）日本語
日本の首都＝東京
中国の首都＝北京
２０００円札＝１０００円札×２枚
例）プログラム
Ａ＝１０ ・・・Ａに１０を代入する。
Ａ＝Ａ＋１０ ・・・ＡにＡ＋１０を代入する。
Ｔｅｘｔ１.Ｔｅｘｔ＝”逆転満塁ホームラン” ・・・Ｔｅｘｔ１という文字を表示する部品に逆転満塁ホームランという文字を代入する。
代入するというような意味合いになる。
例）
Ａ＝１０
Ａ＝Ａ＋１
Ａの値は１１になる。
・画面に女の子を表示させる。 ＜ＬｏａｄＰｉｃｔｕｒｅ関数＞
Private Sub Form_Load()
Image1.Picture = LoadPicture("vbko.jpg")
End Sub
ＶＢ娘が表示されているメイン画面をダブルクリックするとこのコードが現れる。
一行目のPrivate Sub Form_Load()、と３行目のEnd
Subは開いた時点で既に書いてある。
自分で書くのは２行目だけだ。
Private Sub Form_Load()はＦｏｒｍをロードしたらなにをするか手続きを下に書け・・・というような意味。
この行からEnd Subまでの間にプログラムを書く。
Private Subの意味とか、ＦｏｒｍＬｏａｄの後についている（）は何だ？というのは後で分かってくると
思う。（多分・・・（＾＾；）
Image1.Picture = LoadPicture("vbko.jpg")
文法的には
○○○.ｐｉｃｔｕｒｅ＝ＬｏａｄＰｉｃｔｕｒｅ（”ここにファイル名”）
イメージ１の絵にｖｂｋｏ．ｊｐｇという絵をロードしろ〜という意味。
イメージというのは画像を読みこむ時に使う部品の一種。
”ｖｂｋｏ.ｊｐｇ”の所には拡張子がｊｐｇ、ｂｍｐ、ｇｉｆなどの画像ファイルを何でも指定できる。
自分で書いた絵をｋｅｓｓａｋｕ.ｊｐｇというファイル名にしてこのプログラムと同じディレクトリに置き
Image1.Picture = LoadPicture("ｋｅｓｓａｋｕ.jpg")と書けばちゃんと自分の描いた絵が表示されるはずだ。
・ボタンを押すとそのギャグは５０点です、という台詞を出す。 ＜Ｃｌｉｃｋイベント＞
Private Sub Command1_Click()
Label1.Caption = "そのギャグは５０点です。"
End Sub
文法的には
○○○.ｃａｐｔｉｏｎ＝”書きたい台詞”
一行目はコマンド１のボタンを押したらどうするか下に書けという意味。
コマンド１というのは、画面に”笑わせる”と書いてあるボタンの事だ。
このボタンを押すと、そのギャグは５０点です。とＬａｂｅｌ１に表示される。
コマンド１を押すとボタンのＣｌｉｃｋというプロシージャーPrivate
Sub Command1_Click()が呼び出される。
そのあと２行目でラベル１のＣａｐｔｉｏｎ（表示させるテキスト）に”そのギャグは５０点です”という言葉が
代入される。
応用例
女の子の画面をクリックすると、そのギャグは５０点です。という台詞を表示させる。
女の子の画面（Ｉｍａｇｅ１）をダブルクリックし、コードウインドウを開き２行目を記入する。
Private Sub Image1_Click()
Label1.Caption = "そのギャグは５０点です。"
End Sub
・プログラムは面白いか？
分かれば面白いし、全然分からないのであれば面白くない。
しかし、以前に比べると格段に分かりやすくなったと思う。
分かりやすくなったというより、敷居が低くなったというんだろーか。
自分ではこんなに面白いもの書かずにいられるかい・・・（＾＾；
と言うことでこのコーナーを書いてしまった。
また、自分自身の勉強の為というのもある。
・開発画面をみてみる。
見て〜。
これをみて、なんだこれだけか。と思った方は既に免疫があります。（笑）
先天性プログラマー病かも。（＾＾；
うーーん、良くわからん・・・という場合は、１日３分程度ながめてみるという
手もあります。そのうち慣れると思います。
・なぜプログラムは英語で書いてあるのか
やっぱりアメリカなんかで作られたからでしょう。
日本でプログラム言語が生まれていたら日本語版プログラム言語が生まれていた可能性が有る。
もしＡの値が１０より大きかったら、Ｂに５を代入しろ〜、とか。
でも日本語は曖昧なのでやっぱり英語の方がいい。
・分からない英語とか用語が出てきたらとりあえず日本語に直してみる。
どんなに難しいプログラムも元は英語なので辞書をみりゃ日本語に訳すことは出来るぞ。（笑）
でも大抵は意味が違ったりするので結局覚えるはめになる。（＾0＾
プログラム・・・プログラムはプログラムでしょう、訳しようがないぞ。（＾＾；
でも、辞書を見ると番組表、計画、予定って書いてある。
コントロール・・・部品。
タイマーコントロール・・・タイマーとして使う部品。
ラベルコントロール・・・文字を表示する部品。
オブジェクト・・・コードとデータが合体した部品。
プロパティー・・・部品の特徴、属性のようなもの。
キオスク・・・あ、ここまで読んだ人いるの？（爆）
・ランチャー起動部分（外部ファイルを同時に５０起動する）
Private Sub StartKidou_Timer()
On Error Resume Next
Dim intLoopA As Integer
Dim strOpenStyle As String
StartKidou.Interval = 20
'-------------関連付けられたファイル、フォルダを起動する-----------------------
For intLoopA = 1 To 50
If LaunchDataKidoukeisiki(intLoopA) = 0 Then
'なにも登録されていない
Else
If LaunchDataStartFrag(intLoopA) =
1 Then 'スタートアップフラグが立っている
If LaunchDataKidoukeisiki(intLoopA)
= 1 Then 'フォルダが登録されている
strOpenStyle = "explore"
ElseIf LaunchDataKidoukeisiki(intLoopA) =
2 Then 'ファイルが登録されている
strOpenStyle = "open"
ElseIf LaunchDataKidoukeisiki(intLoopA) =
3 Then 'メールアドレスが登録されている
strOpenStyle = "mail"
ElseIf LaunchDataKidoukeisiki(intLoopA) =
4 Then 'ＵＲＬが登録されている
strOpenStyle = "url"
End If
StartUpKidouFile strOpenStyle, intLoopA
End If
End If
Next intLoopA
StartKidou.Enabled = False
End Sub
＋ボタンを押すとスケジューラーの設定時間がアップ
Private Sub Command12_MouseDown(Button As
Integer, Shift As Integer, X As Single, Y
As Single)
Dim SetNowHour As Integer '現在の時
Dim SetNowMin As Integer
Dim NowHour As Integer
Dim NowMin As Integer
SetNowHour = CInt(Format$(Now, "h"))
'時間を数値に換える
SetNowMin = CInt(Format$(Now, "n"))
'分数を数値に換える
If Button = 1 Then
If Label5.Caption = "__"
Then
Label3.Caption = SetNowHour
Label5.Caption = SetNowMin
Else
If Label5.Caption > 58 Then
Label5.Caption = 0
Label3.Caption = Label3.Caption
+ 1
If Label3.Caption >= 24 Then
Label3.Caption = 0
End If
Else
NowMin = Label5.Caption
NowMin = NowMin + 1
Label5.Caption = NowMin
End If
End If
YoubiNoOnOff.Enabled = False
Label2.Visible = True
Label3.Visible = True
Label5.Visible = True
TimeUp.Enabled = True
SetScdlHenkouDataToList intScdlNowIndex
End If
End Sub
・めぐみちゃんのいいわけ
Public Function strGetIiwake() As String
'めぐみちゃんのいいわけ
Dim intRnd As Integer
intRnd = SetRnd(11)
Select Case intRnd
Case 0
strGetIiwake = "ごめんなさい〜 良く分かりません・・・"
Case 1
strGetIiwake = "む、むずかしい言葉ですねーー"
Case 2
strGetIiwake = "ああ、理解不能な言葉です・・・オロオロ・・・"
Case 3
strGetIiwake = "どうしましょーーー、わたしの辞書にはない言葉です・・・☆"
Case 4
strGetIiwake = "うーーん、聞いたことあるような、ないような言葉ですね・・・"
Case 5
strGetIiwake = "こ、この言葉はかなり難易度の高い言葉ですね・・・・はわわっ
T▽T"
Case 6
strGetIiwake = "ふええええ〜ん また分からない言葉が登場しました T▽T"
Case 7
strGetIiwake = "ええと・・・良く分かりません〜 勉強不足ですね☆"
Case 8
strGetIiwake = "うーーーん、どうやらボキャブラリーにない言葉です・・・弱りました・・・"
Case 9
strGetIiwake = "えーーと、うーーーーんと、良く意味が分からない・・・・ふにゅ！"
Case Else
strGetIiwake = "理解不能、詳細不明な言葉です、ああ、勉強できる子がうらやまし〜☆"
End Select
End Function
Private Sub cmdNyuusyu_Click()
Dim strUrl As String
Dim intCase As Integer
Dim strAction, strMes, strVoice As String
strUrl = "http://www2s.biglobe.ne.jp/~manon/home1a.htm"
intCase = SetRnd(3)
Select Case CheckMegumiAnimation
Case "Yes"
Select Case intCase
Case 0
strAction = "actGaan"
strMes = "うん、会話データの入手について調査しますね・・・☆"
strVoice = "voiceUn"
Case 1
strAction = "actUruuru"
strMes = "ＯＫ〜会話データの入手についてご説明いたします・・・☆"
strVoice = "voiceHai"
Case 2
strAction = "actSyaberikei"
strMes = "分かりました 会話データの入手方法について作者サイトを調査します・・・☆"
strVoice = "voiceWakattawa"
End Select
Call getMegumiAction(strAction, strMes,
strVoice)
popMenuInputNaiyou = frmKaiwaFile.cmdNyuusyu.Caption
mM
AnimeTick.Popupnosyurui = 0
KidouUrl strUrl
End Select
End Sub