川崎北高校　情報科　専門教科「アルゴリズム」
VisualBasicでへぇ〜ボタンを作ろう！
〜コントロール配列、WAVEファイルの貼りつけ〜
　

へぇ〜ボタン
  • ボタンをたたくと、数字が２０まで増えて、グラフが伸びていく。
  • ボタンをたたくたびに「へぇ〜」という効果音が出る。
コントロール配列 Label2(0)〜Label2(70)までのコントロール配列
Waveファイルの作成 サウンドレコーダーを活用
Waveファイルの再生 ホッシーのPC教室のサンプルプログラム（Wavファイル簡単再生） を活用しました。感謝！

内容 フォーム コード
課
題
１		 変数ｉを宣言。
コマンドボタンをクリックするたびに１から２０までの数字を表示させる		 Dim i As Integer
Private Sub Command1_Click()
　i=i+1
　Text1.Text = i
　End Sub
課
題
２		 　ｉの値が２０で止まるようにしよう 　　
課
題
３		 コマンドボタンを追加し、リセットボタンとする。
リセットボタンをクリックするとテキストボックスの数が消えるようにする。		 　
課
題
４		 ラベル（プロパティ：visible=false）を１つ作成し、そのラベルをコピーしてコントロール配列を２０コ作成します。「へぇ」ボタンをクリックする度に１つずつLabelのvisible=trueにします。
課
題
６		 サウンドレコーダーを使って、自分で「へぇ〜」と言った声を録音し、Ｃドライブのルートに保存します。
「へぇ」ボタンをクリックするたびに「へぇ〜」と声がするようにします。
見
本		 「へぇ〜ボタンVer1.0」（trivia01.exe 20KB）はこちら（ライブラリーなし、28KB）
声のwaveファイルのサンプル（midori.wav　7KB）はこちら（ｃドライブのルートに保存してください。）

index