*****スライドショー／ギター・アドリブ（ブルース編）*******************

　　                                        Copyright by 大川哲男

=======画像連動テキスト表示パラメータ==============================
QBColor=14       //[文字色](0-15)
 //(0-黒 1-青 2-緑 3-シアン 4-赤 5-マゼンタ 6-黄色 7-白)
 //(8-灰色 9-明るい青 10-明るい緑 11-明るいシアン)
 //(12-明るい赤 13-明るいマゼンタ 14-明るい黄色 15-明るい白)
FontSize=16      //[文字サイズ]
FontNo=2         //[フォント](0=SYSTEM,1=ＭＳゴシック,2=ＭＳ明朝)
FontItalic=0     //[斜体](0=なし,1=あり)
FontBold=1       //[太字](0=なし,1=あり)
FontUnderLine=0  //[下線](0=なし,1=あり)
Kage=2           //[影](0=なし,1=影, 2=黒輪郭, 3=白輪郭)
ZureX=2          //[影ずれ幅 X]
ZureY=2          //[影ずれ幅 Y]
CurrentX=0       //[表示開始座標X]
CurrentY=0       //[表示開始座標Y]
Delay=0.2        //[遅延タイム](0.0-60.0秒)
Skip=0           //[画面スキップ数]
YesNoPB(0,0)     //[Yes/Noボタン](Yesの画面移動数，Noの画面移動数)
Lock=0           //[操作ロック](1=ロック,2=解除)
End=0            //[終了](0=しない,1=終了,2=全終了)
===================================================================
[テキスト]　      //以下にメッセージを記入して下さい
ScreenXY=0        //[0=ピクチャ−座標 1=スクリーン座標](重ね合せなしの時のみ有効)
CurrentY=-9999    //[表示開始座標Y]
PicPB0(0,"")      //画面マウスクリックを無効にするためのダミー
//CTRLBOX = 0

//ボタン表示
CurrentX=155       //[表示開始座標X]
CurrentY=230       //[表示開始座標Y]
MENU1(1,ｱﾄﾞﾘﾌﾞ画面へｼﾞｬﾝﾌﾟ)

CurrentX=20       //[表示開始座標X]
CurrentY=10       //[表示開始座標Y]
ス
CurrentY=10       //[表示開始座標Y]
　ラ
CurrentY=10       //[表示開始座標Y]
　　イ
CurrentY=10       //[表示開始座標Y]
　　　ド
CurrentY=10       //[表示開始座標Y]
　　　　シ
CurrentY=10       //[表示開始座標Y]
　　　　　ョ
CurrentY=10       //[表示開始座標Y]
　　　　　　ー
FontSize=12      //[文字サイズ]
QBColor=12       //[文字色](0-15)
CurrentX=30       //[表示開始座標X]
CurrentY=40       //[表示開始座標Y]
ギター・アドリブ（ブルース編）
QBColor=10       //[文字色](0-15)
PlayWav("PBA7.wav")
Sleep = 2.0

みなさん、こんにちは、
さあ、これから、ブルース
ギターのアドリブを始めよか！

YesNoPB(0,2)
Cls

まず、アドリブを行う前に、
コード進行を説明しとこか！

キーは Ａ７で、次のような
コード進行でやるで。

YesNoPB(0,2)
Cls

ぼくが最初に弾くから、
聞いてくれる！

YesNoPB(0,2)
Cls
FontSize=20      //[文字サイズ]
QBColor=14       //[文字色](0-15)
CurrentY=10
A7
PlayWav("PBA7.wav")
Sleep = 4
CurrentY=10
   D7
PlayWav("PBD7.wav")
Sleep = 4
CurrentY=10
      A7
PlayWav("PBA7.wav")
Sleep = 4
CurrentY=10
         A7
PlayWav("PBA7.wav")
Sleep = 4
CurrentY=40
D7
PlayWav("PBD7.wav")
Sleep = 4
CurrentY=40
   D7
PlayWav("PBD7.wav")
Sleep = 4
CurrentY=40
      A7
PlayWav("PBA7.wav")
Sleep = 4
CurrentY=40
         A7
PlayWav("PBA7.wav")
Sleep = 4
CurrentY=70
E7
PlayWav("PBE7.wav")
Sleep = 4
CurrentY=70
   D7
PlayWav("PBD7.wav")
Sleep = 4
CurrentY=70
      A7
PlayWav("PBA7.wav")
Sleep = 4
CurrentY=70
         E7
PlayWav("PBE7.wav")
Sleep = 4
Cls
FontSize=12      //[文字サイズ]

QBColor=10       //[文字色](0-15)
３コードやから簡単やろ！
今度は、あんたが弾いてくれる？

YesNoPB(0,2)
Cls
CurrentX=40       //[表示開始座標X]
CurrentY=10       //[表示開始座標Y]
PicPB1(0,"PBA7.bmp","PBA7.wav")
CurrentX=80       //[表示開始座標X]
CurrentY=10       //[表示開始座標Y]
PicPB2(0,"PBD7.bmp","PBD7.wav")
CurrentX=120       //[表示開始座標X]
CurrentY=10       //[表示開始座標Y]
PicPB3(0,"PBE7.bmp","PBE7.wav")
CurrentX=20       //[表示開始座標X]

コードが表示される順番に、
上のA7,D7,E7のボタンを押し
てや！ じゃ、始めるで！

YesNoPB(0,2)
Cls
FontSize=20      //[文字サイズ]
QBColor=14       //[文字色](0-15)
CurrentY=40
Sleep = 2
A7
CurrentY=40
Sleep = 4
   D7
CurrentY=40
Sleep = 4
      A7
CurrentY=40
Sleep = 4
         A7
CurrentY=70
Sleep = 4
D7
CurrentY=70
Sleep = 4
   D7
CurrentY=70
Sleep = 4
      A7
CurrentY=70
Sleep = 4
         A7
CurrentY=100
Sleep = 4
E7
CurrentY=100
Sleep = 4
   D7
CurrentY=100
Sleep = 4
      A7
CurrentY=100
Sleep = 4
         E7
Sleep = 4
FontSize=12      //[文字サイズ]
QBColor=10       //[文字色](0-15)
cls
CurrentX=20       //[表示開始座標X]
CurrentY=50       //[表示開始座標Y]
ぼくは、１分ほど休憩するから
上のボタンを押して練習してや!
下のコード進行もおぼえてや！

FontSize=20      //[文字サイズ]
QBColor=14       //[文字色](0-15)
A7 D7 A7 A7
D7 D7 A7 A7
E7 D7 A7 E7
Sleep = 60
CurrentY=-9999       //[表示開始座標Y]
PicPB1(0,"")
PicPB2(0,"")
PicPB3(0,"")
cls
FontSize=12      //[文字サイズ]
QBColor=10       //[文字色](0-15)

お待ちどう！
今度は、いよいよアドリブを
やってみよか！

YesNoPB(0,2)
CurrentY=-9999       //[表示開始座標Y]
PicPB1(0,"")
PicPB2(0,"")
PicPB3(0,"")
CurrentX=20       //[表示開始座標X]
Cls
 
ブルースギターのアドリブの
こつは、ブルー・ノートと呼ば
れるスケール（音階）を使って、
フレーズを組み合わせたらでき
るで！

YesNoPB(0,2)
Cls

例えば、こんなフレーズが
あるやんか。
Sleep = 1
PlayWav("PB01.wav")
Sleep = 2

YesNoPB(0,2)
これに、ちがうフレーズを組み合
わせると、こんな感じになるで！

YesNoPB(0,2)
Cls

FontSize=16      //[文字サイズ]
QBColor=14       //[文字色](0-15)
Ａ７
PlayWav("PBA7.wav")
Sleep = 1.7
フレーズ１
PlayWav("PB01.wav")
Sleep = 1.2
フレーズ２
PlayWav("PB02.wav")
Sleep = 2
FontSize=12      //[文字サイズ]
QBColor=10       //[文字色](0-15)

これをちょっとかえると、

YesNoPB(0,2)
Cls

FontSize=16      //[文字サイズ]
QBColor=14       //[文字色](0-15)
Ａ７
PlayWav("PBA7.wav")
Sleep = 2
フレーズ１
PlayWav("PB01.wav")
Sleep = 1.2
フレーズ４
PlayWav("PB04.wav")
Sleep = 2
FontSize=12      //[文字サイズ]
QBColor=10       //[文字色](0-15)

また、これをちょっとかえると、

YesNoPB(0,2)
Cls

FontSize=16      //[文字サイズ]
QBColor=14       //[文字色](0-15)
Ａ７
PlayWav("PBA7.wav")
Sleep = 1.5
フレーズ１
PlayWav("PB01.wav")
Sleep = 1.2
フレーズ６
PlayWav("PB06.wav")
Sleep = 1.2
フレーズ９
PlayWav("PB09.wav")
Sleep = 3
Cls
FontSize=12      //[文字サイズ]
QBColor=10       //[文字色](0-15)

このように、いろいろ
組み合わせることができるんや！
それじゃ、あんたもやってみる？

YesNoPB(0,2)
Cls
CurrentX=40       //[表示開始座標X]
CurrentY=10       //[表示開始座標Y]
PicPB1(0,"PBA7.bmp","PBA7.wav")
CurrentX=70       //[表示開始座標X]
CurrentY=10       //[表示開始座標Y]
PicPB2(0,"PB01.bmp","PB01.wav")
CurrentX=100       //[表示開始座標X]
CurrentY=10       //[表示開始座標Y]
PicPB3(0,"PB02.bmp","PB02.wav")
CurrentX=130       //[表示開始座標X]
CurrentY=10       //[表示開始座標Y]
PicPB4(0,"PB04.bmp","PB04.wav")
CurrentX=160       //[表示開始座標X]
CurrentY=10       //[表示開始座標Y]
PicPB5(0,"PB06.bmp","PB06.wav")
CurrentX=190       //[表示開始座標X]
CurrentY=10       //[表示開始座標Y]
PicPB6(0,"PB09.bmp","PB09.wav")
CurrentX=20       //[表示開始座標X]

番号が表示されたら、上の
１から９のボタンを押してや！
じゃ、始めるで！

YesNoPB(0,2)
Cls

FontSize=16      //[文字サイズ]
QBColor=14       //[文字色](0-15)
CurrentX=40       //[表示開始座標X]
CurrentY=50       //[表示開始座標Y]
１
Sleep = 1.2
CurrentY=50       //[表示開始座標Y]
   ２
Sleep = 3

CurrentY=80       //[表示開始座標Y]
１
Sleep = 1.2
CurrentY=80       //[表示開始座標Y]
   ４
Sleep = 3

CurrentY=110       //[表示開始座標Y]
１
Sleep = 1.2
CurrentY=110       //[表示開始座標Y]
   ６
Sleep = 1.2
CurrentY=110       //[表示開始座標Y]
      ９
Sleep = 2

CurrentX=20       //[表示開始座標X]
Cls
FontSize=12      //[文字サイズ]
QBColor=10       //[文字色](0-15)
CurrentY=50       //[表示開始座標Y]
３０秒間適当に
１から９のボタンを
押して遊んでみて！
Sleep = 30

Cls
CurrentY=-9999       //[表示開始座標Y]
PicPB1(0,"")
PicPB2(0,"")
PicPB3(0,"")
PicPB4(0,"")
PicPB5(0,"")
PicPB6(0,"")
Cls
FontSize=12      //[文字サイズ]
QBColor=10       //[文字色](0-15)

今度は、チョーキングをやって
みよか！チョーキングは、弦を
うぃーんと持ち上げて弾くんや
で！

こんな感じに、

YesNoPB(0,2)
Cls

FontSize=16      //[文字サイズ]
QBColor=14       //[文字色](0-15)
フレーズ３
PlayWav("PB03.wav")
Sleep = 3
フレーズ５
PlayWav("PB05.wav")
Sleep = 3
フレーズ８
PlayWav("PB08.wav")
Sleep = 3
Cls
FontSize=12      //[文字サイズ]
QBColor=10       //[文字色](0-15)

いまのチョーキングは、１音だけ
上げただけやけど、ブルースでは、
１／４音（クォータ−）の
チョーキングも使ったりするで、
よりブルースぽくなるかも。

YesNoPB(0,2)
cls

大事なことがもう１つあるで
アドリブのフレーズは、
繰り返すことが大事やで！でも、
あんまりひつこくやるとあきる
けどな。まあ、ほどほどに
フレーズを繰り返すとえーで！

YesNoPB(0,2)
cls

ちょっとやってみるわ！

YesNoPB(0,2)
cls

FontSize=16      //[文字サイズ]
QBColor=14       //[文字色](0-15)
フレーズ３
PlayWav("PB03.wav")
Sleep = 0.3
フレーズ３
PlayWav("PB03.wav")
Sleep = 0.3
フレーズ３
PlayWav("PB03.wav")
Sleep = 0.5
フレーズ４
PlayWav("PB04.wav")
Sleep = 3
cls

フレーズ１
PlayWav("PB01.wav")
Sleep = 0.6
フレーズ１
PlayWav("PB01.wav")
Sleep = 0.6
フレーズ１
PlayWav("PB01.wav")
Sleep = 0.6
フレーズ３
PlayWav("PB03.wav")
Sleep = 0.6
フレーズ４
PlayWav("PB04.wav")
Sleep = 3
Cls

フレーズ２
PlayWav("PB02.wav")
Sleep = 0.3
フレーズ２
PlayWav("PB02.wav")
Sleep = 0.3
フレーズ２
PlayWav("PB02.wav")
Sleep = 0.3
フレーズ７
PlayWav("PB07.wav")
Sleep = 3
Cls
FontSize=12      //[文字サイズ]
QBColor=10       //[文字色](0-15)

それじゃー、
フレーズのボタンをなれべる
から、適当に押して遊んで
くれるかな？

YesNoPB(0,2)
cls
CurrentX=40       //[表示開始座標X]
CurrentY=10       //[表示開始座標Y]
PicPB1(0,"PB01.bmp","PB01.wav")
CurrentX=70       //[表示開始座標X]
CurrentY=10       //[表示開始座標Y]
PicPB2(0,"PB02.bmp","PB02.wav")
CurrentX=100       //[表示開始座標X]
CurrentY=10       //[表示開始座標Y]
PicPB3(0,"PB03.bmp","PB03.wav")
CurrentX=130       //[表示開始座標X]
CurrentY=10       //[表示開始座標Y]
PicPB4(0,"PB04.bmp","PB04.wav")
CurrentX=160       //[表示開始座標X]
CurrentY=10       //[表示開始座標Y]
PicPB5(0,"PB05.bmp","PB05.wav")
CurrentX=40       //[表示開始座標X]
CurrentY=40       //[表示開始座標Y]
PicPB6(0,"PB06.bmp","PB06.wav")
CurrentX=70       //[表示開始座標X]
CurrentY=40       //[表示開始座標Y]
PicPB7(0,"PB07.bmp","PB07.wav")
CurrentX=100       //[表示開始座標X]
CurrentY=40       //[表示開始座標Y]
PicPB8(0,"PB08.bmp","PB08.wav")
CurrentX=130       //[表示開始座標X]
CurrentY=40       //[表示開始座標Y]
PicPB9(0,"PB09.bmp","PB09.wav")
CurrentX=160       //[表示開始座標X]
CurrentY=40       //[表示開始座標Y]
PicPB0(0,"PBA7.bmp","PBA7.wav")
FontSize=12      //[文字サイズ]
QBColor=10       //[文字色](0-15)
CurrentX=20       //[表示開始座標X]

ぼくは、１分ほど休憩するから
しばらく、ボタンを押して
遊んでて！
Sleep = 60

CurrentY=-9999      //[表示開始座標Y]
PicPB1(0,"")
PicPB2(0,"")
PicPB3(0,"")
PicPB4(0,"")
PicPB5(0,"")
PicPB6(0,"")
PicPB7(0,"")
PicPB8(0,"")
PicPB9(0,"")
PicPB0(0,"")
cls

もどってきたで、
だいぶんできるようになった
みたいやな！
そろそろ、伴奏にあわせて
弾いてみるか！

YesNoPB(0,2)
cls

ぼくが、伴奏をやるから
あんたは、アドリブをやって！
３コーラスやるから
ほな、いくで！

YesNoPB(1,2)
