*****スライドショー／ギター・アドリブ（Ｃメージャー編）*******************

　　                                        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=1     //[斜体](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=全終了)
===================================================================
[テキスト]　      //以下にメッセージを記入して下さい
//本プログラムは、Ver.7.5以上で実行してください。
//初期設定
SizeCtrl=1        //サイズ調整１
ScreenXY=0        //[0=ピクチャ－座標 1=スクリーン座標](重ね合せなしの時のみ有効)
CtrlBox=0         //コントロールボックス表示なし
OVERPIC= 1        //MOVPBは、移動制限なし。
CurrentY=-9999    //[表示開始座標Y]
PicPB0(0,"")      //画面マウスクリックを無効にするためのダミー

//グラデーションテキスト
CurrentX=10      //[表示開始座標X]
CurrentY=15       //[表示開始座標Y]
Grad(255,0,0,255,255,255,"Slideshow for Windows")　//グラデーションテキスト
FontItalic=0      //[斜体](0=なし,1=あり)

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

//レッスン開始
FontSize=11      //[文字サイズ]
QBColor=12       //[文字色](0-15)
CurrentX=10       //[表示開始座標X]
CurrentY=40       //[表示開始座標Y]
Grad(255,0,255,255,255,255,"ギターアドリブ（Ｃメージャー編）")　//グラデーションテキスト
QBColor=10       //[文字色](0-15)

FontSize=12      //[文字サイズ]
CurrentY=70       //[表示開始座標Y]
みなさん、こんにちは、
さあ、これからＣメージャー
スケールのギターアドリブ
を始めましょう！

YesNoPB(0,2)
Cls

まず、アドリブを行う前に、
コード進行を説明します。

キーはＣメージャー（ハ長調）
で、次のようなコード進行で
行います。

YesNoPB(0,2)
Cls
FontSize=16      //[文字サイズ]
QBColor=14       //[文字色](0-15)
CurrentY=30
Cmaj7
PlayWav("PBCM7.wav")
Sleep = 3
CurrentY=30
      Cmaj7
PlayWav("PBCM7.wav")
Sleep = 3
CurrentY=30
            Dm7
PlayWav("PBDm7.wav")
Sleep = 3
CurrentY=30
                Dm7
PlayWav("PBDm7.wav")
Sleep = 3

Cls
FontSize=12      //[文字サイズ]

QBColor=10       //[文字色](0-15)
コードは２コードの単純な
進行で、Cmaj7 と Dm7 を
繰り返します。

YesNoPB(0,2)

Cls

次にアドリブのコツを説明します。

①ドレミファソラシドの
　スケールを弾く。
②ギターテクニックを使う。
③フレーズを組み合わせる。
④フレーズを繰り返す。
⑤リズムに合わせて弾く。

YesNoPB(0,2)

Cls

①の'音階を弾く'は、例えば、
Sleep = 2
QBColor=14       //[文字色](0-15)
（フレーズ１８）＊
PlayWav("PB18.wav")
Sleep = 2

QBColor=10       //[文字色](0-15)
のようにスケールを弾けば、
それだけでアドリブができます。
QBColor=14       //[文字色](0-15)
＊フレーズ番号は後で使用します。

YesNoPB(0,2)

Cls
QBColor=10       //[文字色](0-15)

②の'ギターテクニックを使う'は、
Sleep = 2
QBColor=14       //[文字色](0-15)
（フレーズ７） 
PlayWav("PB07.wav")
Sleep = 2
（フレーズ１３）
PlayWav("PB13.wav")
Sleep = 2
（フレーズ１７）
PlayWav("PB17.wav")　
Sleep = 2
（フレーズ１９）
PlayWav("PB19.wav")
Sleep = 2
QBColor=10       //[文字色](0-15)
のようにチョーキングや
ハンマリングをうまく使う
と効果的になります。

YesNoPB(0,2)

Cls

③の'フレーズを組み合わせる'は、
Sleep = 2
QBColor=14       //[文字色](0-15)
（フレーズ１２）
PlayWav("PB12.wav")
Sleep = 0.75
（フレーズ１３）
PlayWav("PB13.wav")
Sleep = 0.8
（フレーズ１４）
PlayWav("PB14.wav")
Sleep = 2

Cls

Sleep = 1
QBColor=14       //[文字色](0-15)
（フレーズ６）
PlayWav("PB06.wav")
Sleep = 1.2
（フレーズ４）
PlayWav("PB04.wav")
Sleep = 1
（フレーズ５）
PlayWav("PB05.wav")
Sleep = 1

QBColor=10       //[文字色](0-15)
などのようにフレーズを組合
わせるといろいろなアドリブ
ができます。

YesNoPB(0,2)

Cls

④の'フレーズを繰り返す'は、
Sleep = 2
QBColor=14       //[文字色](0-15)
（フレーズ１７）
PlayWav("PB17.wav")
Sleep = 0.75
（フレーズ１７）
PlayWav("PB17.wav")
Sleep = 0.75
（フレーズ１７）
PlayWav("PB17.wav")
Sleep = 2

Cls

PlayWav("PBCM7.wav")
Sleep = 2
（フレーズ２０）
PlayWav("PB20.wav")
Sleep = 2.2
（フレーズ２０）
PlayWav("PB20.wav")
Sleep = 3

QBColor=10       //[文字色](0-15)
のように同じフレーズを何回か
繰り返すと印象的になります。

YesNoPB(0,2)

Cls
FontSize=12      //[文字サイズ]
QBColor=10       //[文字色](0-15)

⑤リズムに合わせて弾く

それでは、いよいよアドリブを
やってみましょう！

YesNoPB(0,2)

Cls

まずは、簡単に練習をしましょう。
Yesボタンを押した後、黄色の表示
番号に従い、フレーズボタンを押
してみてください。

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=35       //[表示開始座標Y]
PicPB6(0,"PB06.bmp","PB06.wav")
CurrentX=70       //[表示開始座標X]
CurrentY=35       //[表示開始座標Y]
PicPB7(0,"PB07.bmp","PB07.wav")
CurrentX=100       //[表示開始座標X]
CurrentY=35       //[表示開始座標Y]
PicPB8(0,"PB08.bmp","PB08.wav")
CurrentX=130       //[表示開始座標X]
CurrentY=35       //[表示開始座標Y]
PicPB9(0,"PB09.bmp","PB09.wav")
CurrentX=160       //[表示開始座標X]
CurrentY=35       //[表示開始座標Y]
PicPB10(0,"PB10.bmp","PB10.wav")

//表示
FontSize=16      //[文字サイズ]
QBColor=14       //[文字色](0-15)
CurrentX=40       //[表示開始座標X]
CurrentY=65       //[表示開始座標Y]
９
Sleep = 3
CurrentY=65       //[表示開始座標Y]
   ６
Sleep = 3
CurrentY=65       //[表示開始座標Y]
      ４
Sleep = 5

CurrentY=85       //[表示開始座標Y]
７
Sleep = 2
CurrentY=85       //[表示開始座標Y]
   ３
Sleep = 3
CurrentY=85       //[表示開始座標Y]
      ８
Sleep = 2
CurrentY=85       //[表示開始座標Y]
         ５
Sleep = 5

FontSize=12      //[文字サイズ]
QBColor=10       //[文字色](0-15)
CurrentX=10       //[表示開始座標X]
CurrentY=111       //[表示開始座標Y]
ＯＫですか？
YesNoPB(0,2)

PicPB1(0,"")
PicPB2(0,"")
PicPB3(0,"")
PicPB4(0,"")
PicPB5(0,"")
PicPB6(0,"")
PicPB7(0,"")
PicPB8(0,"")
PicPB9(0,"")
PicPB10(0,"")

Cls

それでは、
最初に説明したコード進行
Cmaj7 Cmaj7 Dm7 Dm7 
の繰り返し演奏をバックに
アドリブを行って下さい。

YesNoPB(0,2)

Cls

リズムに合わせて１から２０
のフレーズボタンを押して
アドリブ演奏します。
フレーズの組み合わせは、
何回も練習し、自分の感覚で
つかんで下さい。
QBColor=12       //[文字色](0-15)
FontNo=1         //[フォント](0=SYSTEM,1=ＭＳゴシック,2=ＭＳ明朝)
FontSize=16      //[文字サイズ]
スタートします。
FontSize=12      //[文字サイズ]

YesNoPB(1,2)

