情報処理　VB　音２

Size: px

Start display at page:

Download "情報処理　VB　音２"

としみめいこ
5 years ago
Views:

1 VB-2-1 情報処理 -VB 1. Visual Basic の起動まず Microsoft Visual Studio.Net 2003 を立ち上げてくださいまた新しいプロジェクトを選んでたとえばリズムというプロジェクトを作ってください次にファイルメニューから既存項目の追加を選びフォルダを1つ上がってメトロノーム ( あるいは前回つけた名前 ) を選んで開き Form1.vb ( あるいは前回つけた名前 ) を開けてください Form1.vb のままで開いている人はたぶん 3 回何か聞かれますがすべてはいと答えてくださいこれでこの間作ったものをリズムプロジェクトにコピーできました今日はこれを変更してリズムを付けます前回違う名前を付けて保存した人はソリューションエクスプローラ ( 無ければ表示メニューから選んで表示させてください ) に Form1.vb と自分の付けた名前.vb の 2 つが開いていると思いますプロジェクトメニューから一番下の何とかのプロパティを選び左側共通プロパティの全般で右側のスタートアップの設定に自分の付けた名前を指定してくださいその後ソリューションエクスプローラの Form1.vb を右クリックして削除してください 2. フォームに TextBox2 をつける表示メニューからツールボックスを選び出てきた中からをクリックしてフォームをクリックし TextBox2 を作りますプロパティの Text を 1110 にします 1 は音が出る時 0 は音が出ない時を表してリズムを作りますこれならというリズムです 3. コードを変える ( 全体で使う変数の定義 ) 表示メニューからコードを選んでプログラムコードを表示させてくださいこれをちょっと変えますまず最初の方 Windows フォームデザイナで生成されたコードと薄い色で書いてある行とてある行の間に Private Sub Button1_Click(...) と書い Dim nlen As Integer Dim i As Integer Dim ibeep(50) As Integer

2 VB-2-2 と書いてくださいここに書くと nlen i ibeep という変数がこのフォームに書いてあるすべてのプログラムで共通なものになりますあるプログラムで nlen に 3 を入れるとその後ほかのプログラムで参照したときにも 3 の値を保持していますまた ibeep のあとに (50) とついているのは ibeep を ibeep(0), ibeep(1), ibeep(2),..., ibeep(50) という配列で定義しているという意味ですまとめておくと便利なものを格納するのが配列です後の使い方を見てください 4. コードを変える ( 実際に動くところ ) 全体のコードは以下のようになっています変える所は少しですのでがんばって変えてみてください Dim nlen As Integer Dim i As Integer Dim ibeep(50) As Integer Private Sub Button1_Click(...) End Private Sub TextBox1_TextChanged(...) Dim memori As Integer memori = Val(TextBox1.Text) If memori > 0 Then Timer1.Interval = / memori memori = Math.Min(memori, TrackBar1.Maximum) memori = Math.Max(memori, TrackBar1.Minimum) TrackBar1.Value = memori 1 ここを変える Private Sub Timer1_Elapsed(...) i = (i Mod nlen) + 1 If ibeep(i) = 1 Then Beep() 2 ここを変える Private Sub Button2_Click(...) Dim j As Integer ここに入れる (3)

3 VB-2-3 If Timer1.Enabled = True Then Timer1.Enabled = False Button2.Text = "Start" Else Timer1.Enabled = True Button2.Text = "Stop" i = 0 4 ここを変える nlen = Len(TextBox2.Text) For j = 1 To nlen ibeep(j) = Val(Mid(TextBox2.Text, j, 1)) Next j Private Sub TrackBar1_Scroll(...) TextBox1.Text = TrackBar1.Value 説明 : 4ではスタートするときに i にゼロを代入 nlen に Textbox2 に入っている文字の数 ( 1110 なら 4) を代入 ibeep(j) に Textbox2 に入っている文字列の j 番目の文字の値を代入 ( 1110 なら ibeep(1)=1 ibeep(2)=1 ibeep(3)=1 ibeep(4)=0) します 2では Timer1 が合図を出すごとに i に i を nlen で割ったときの余りに 1 を足したものを代入 ( 余りは 5 3=1 余り 2 というときの 2) ( 1110 と 4 文字なら Timer1 が合図を出すごとに 1, 2, 3, 4, 1, 2, 3, 4, と変わっていく ) ibeep(i) が 1 なら Beep を鳴らすとなります結局 Timer の合図で 1110 なら beep beep beep 沈黙 beep beep beep 沈黙... と音が鳴りますデバッグメニューから開始で試してみてください

4 VB アイコンをつくるプロジェクトメニューからコンポーネントの追加を選んで右側をスクロールしてアイコンファイルを選んでください開くで左のソリューションエクスプローラに icon1.ico が追加されますそれをダブルクリックして絵を描いてください出来たらをクリックして保存しプロジェクトメニューから何とかのプロパティ左側でビルドを選び右側のアプリケーションアイコンで今作ったものを指定しますこれでリビルドをするとこのアイコンのアプリケーションが出来ますまたフォーム 1 をクリックしプロパティの icon でこれを選ぶと上のバーの絵がアイコンの絵になります試してみてください 6. アプリケーションを作るビルドメニューからリズムのリビルドを選ぶとリズムフォルダの bin フォルダの中にリズム.exe というアプリケーションが出来ますこれもほかの Windows コンピュータに持って行けばそこで単独で動かせるアプリケーションです 7. 提出今作った bin フォルダの中のアプリケーションを提出してください 8. 自分で作る新たなプロジェクトを作りリズムプロジェクトを応用して自分の好きなものを作ってくださいたとえば Timer を2つつけて複雑なリズムにする数字を入力させ 10 以上ならばリズム音が出るクリックすると 10 秒間だけリズム音が出るとかいろいろ

5 VB 音源を操作するかえるプロジェクトの作成 1. を繰り返しこんどはかえるプロジェクトを新たに作りリズムプ 10. 音源を操作するかえるプロジェクトの作成 1. を繰り返しこんどはかえるプロジェクトを新たに作りリズムプロジェクトから Form1.vb をコピーしてください次に前で指示する所から音源ファイルをコピーしてかえるフォルダの中の bin フォルダにコピーしてくださいまた音源操作コマンドのファイル example.txt をかえるフォルダにコピーしてください Visual Basic に戻ってファイルメニューから開くファイルで今コピーした example.txt を開いてください Form1.vb[ デザイン ] のタグを選んでフォームの絵を出し TextBox2 のテキストをにして下さい( 別にほかのでもいいけれど ) 1 ド 2 レ... ですとりあえず 1 オクターブ内で出来るメロディにして下さい Form の上の青いバーをクリックしてコードの出ているウィンドウに帰って下さい以下にコードを載せます変えた所は面倒なコマンドが並んでいるので適宜 example.txt からコピーして作ってください Private Declare Function mcisendstring Lib "winmm.dll" Alias "mcisendstringa" (ByVal lpstrcommand As String, ByVal lpstrreturnstring As String, ByVal ureturnlength As Integer, ByVal hwndcallback As Integer) As Integer 3 ここにコピー ( 1 行 ) Dim SoundFileName As String Dim sfn(20) As String 4 ここに入れる ( 3 行 ) Dim col(20) As Color Dim nlen As Integer

6 Dim i As Integer Dim ibeep(50) As Integer VB-2-6 Private Sub Button1_Click(...) End Private Sub TextBox1_TextChanged(...) Dim memori As Integer memori = Val(TextBox1.Text) If memori > 0 Then Timer1.Interval = / memori memori = Math.Min(memori, TrackBar1.Maximum) memori = Math.Max(memori, TrackBar1.Minimum) TrackBar1.Value = memori Private Sub Timer1_Elapsed(...) mcisendstring("close " & SoundFileName, vbnull, 0, 0) i = (i Mod nlen) + 1 If ibeep(i) > 0 Then SoundFileName = sfn(ibeep(i)) mcisendstring("play " & SoundFileName, vbnull, 0, 0) ActiveForm.BackColor = col(ibeep(i)) Else ActiveForm.BackColor = Color.White 5 ここを変更 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim j As Integer If Timer1.Enabled = True Then Timer1.Enabled = False Button2.Text = "Start" Else Timer1.Enabled = True Button2.Text = "Stop" i = 0 nlen = Len(TextBox2.Text) For j = 1 To nlen ibeep(j) = Val(Mid(TextBox2.Text, j, 1)) Next j Private Sub TrackBar1_Scroll(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TrackBar1.Scroll

7 TextBox1.Text = TrackBar1.Value VB-2-7 Private Sub Form1_Load(...) sfn(1) = """c0.wav""" sfn(2) = """d0.wav""" sfn(3) = """e0.wav""" sfn(4) = """f0.wav""" sfn(5) = """g0.wav""" sfn(6) = """a0.wav""" sfn(7) = """b0.wav""" sfn(8) = """c1.wav""" sfn(9) = """d1.wav""" sfn(10) = """cs0.wav""" sfn(11) = """ds0.wav""" sfn(12) = """fs0.wav""" sfn(13) = """gs0.wav""" sfn(14) = """as0.wav""" sfn(15) = """cs1.wav""" 6 ここに入れる Form1.Load が無ければデザインの方に戻って Form の青いバーをダブルクリックして出して下さい col(1) = Color.Aqua col(2) = Color.Blue col(3) = Color.Coral col(4) = Color.DarkGoldenrod col(5) = Color.ForestGreen col(6) = Color.GreenYellow col(7) = Color.HotPink col(8) = Color.Ivory col(9) = Color.LavenderBlush col(10) = Color.Magenta col(11) = Color.Navy col(12) = Color.Orange col(13) = Color.PapayaWhip col(14) = Color.RosyBrown col(15) = Color.SeaGreen col(16) = Color.Teal col(17) = Color.Violet col(18) = Color.Yellow col(19) = Color.Silver col(20) = Color.Gold 7 ここに入れる End Class 説明 : 3 ではパソコンの音源を操作する関数を定義しています 4 では SoundFileName という文字変数と sfn という文字変数の配列と col というカラー変数の配列をこのかえるプロジェクト全体で使うと定義しています

8 VB-2-8 5ではまず音を止め (Close) ibeep(i) の数に従って ibeep(i)>0 の時は sfn(ibeep(i)) に入っているファイル名に対応する音を出して (Play) フォームの色を col(ibeep(i)) の色にし ibeep(i)=0 の時はフォームの色を白にしています 6の Form1_Load はフォームが出てきたときに動くプログラムでここでは最初の値を入れるのに使っています sfn にファイル名をで囲ったものを入力しています 7では col にカラー名を入れていますデバッグメニューから実行で試してみてくださいうまくいったらアイコンを作ったりした後かえるのリビルドをしてアプリケーションにして下さい 11. 音源を操作する音階プロジェクトの作成 < 参考 > 今度はキーボードを作ってみましょう新しいプロジェクトで音階プロジェクトを新たに作ってくださいまず Form1 のプロパティの KeyPreview を True にしてください次に Button を1つだけ作ってください ( 今回は TextBox も Bar もありません ) 出来た Button をダブルクリックしてコードウィンドウを表示させますコードは以下の通りです適宜 example.txt からコピーして作って下さいまた Form1_KeyDown(...) Form1_KeyUp(...) はコードウィンドウの上の左の窓を (Form1 Events) 右を KeyDown や KeyUp にすると出てきます Private Declare Function mcisendstring Lib "winmm.dll" Alias "mcisendstringa" (ByVal lpstrcommand As String, ByVal lpstrreturnstring As String, ByVal ureturnlength As Integer, ByVal hwndcallback As Integer) As Integer Dim SoundFileName As String

9 Dim sfn(50) As String Dim col(50) As Color VB-2-9 Private Sub Button1_Click(...) End Private Sub Form1_Load(...) sfn(1) = """c0.wav""" sfn(2) = """d0.wav""" sfn(3) = """e0.wav""" sfn(4) = """f0.wav""" sfn(5) = """g0.wav""" sfn(6) = """a0.wav""" sfn(7) = """b0.wav""" sfn(8) = """c1.wav""" sfn(9) = """d1.wav""" sfn(10) = """cs0.wav""" sfn(11) = """ds0.wav""" sfn(12) = """fs0.wav""" sfn(13) = """gs0.wav""" sfn(14) = """as0.wav""" sfn(15) = """cs1.wav""" col(1) = Color.Aqua col(2) = Color.Blue col(3) = Color.Coral col(4) = Color.DarkGoldenrod col(5) = Color.ForestGreen col(6) = Color.GreenYellow col(7) = Color.HotPink col(8) = Color.Ivory col(9) = Color.LavenderBlush col(10) = Color.Magenta col(11) = Color.Navy col(12) = Color.Orange col(13) = Color.PapayaWhip col(14) = Color.RosyBrown col(15) = Color.SeaGreen col(16) = Color.Teal col(17) = Color.Violet col(18) = Color.Yellow col(19) = Color.Silver col(20) = Color.Gold Private Sub Form1_KeyDown(...) Dim ie As Integer Dim je As Integer

10 mcisendstring("close " & SoundFileName, vbnull, 0, 0) VB-2-10 ie = e.keycode If ie = 65 Then '65 a je = 1 ElseIf ie = 83 Then '83 s je = 2 ElseIf ie = 68 Then '68 d je = 3 ElseIf ie = 70 Then '70 f je = 4 ElseIf ie = 71 Then '71 g je = 5 ElseIf ie = 72 Then '72 h je = 6 ElseIf ie = 74 Then '74 j je = 7 ElseIf ie = 75 Then '75 k je = 8 ElseIf ie = 76 Then '76 l je = 9 Else je = 0 SoundFileName = sfn(je) mcisendstring("play " & SoundFileName, vbnull, 0, 0) Form1.ActiveForm.BackColor = col(je) Private Sub Form1_KeyUp(...) mcisendstring("close " & SoundFileName, vbnull, 0, 0) End Class 作ったアプリケーションの全部を学籍番号を入れた名前 ( 竹内かえる.exe とか ) に変え提出して下さい

Microsoft Word - VB.doc

Microsoft Word - VB.doc 第 1 章初めてのプログラミング本章ではカウントアップというボタンを押すと表示されている値が1ずつ増加しカウントダウンというボタンを押すと表示されている値が1ずつ減少する簡単な機能のプログラムを作りこれを通して Visual Basic.NET によるプログラム開発の概要を学んでいきます 1.1 起動とプロジェクトの新規作成 Visual Studio.NET の起動とプロジェクトの新規作成の方法を

情報処理 VB 音２

情報処理　VB　音２