コード例 #1
0
        private void button1_Click(object sender, EventArgs e)
        {
            key.Text = keyNote;

            Scale_I.Text  = "I (mi Ma7): Melodic minor";
            Scale_II.Text = "II (mi7b5): Half Diminished";
            Scale_V.Text  = "V (7): Diminished Whole Tone";

            Intervals_I.Text  = "W H W W W W H";
            Intervals_II.Text = "W H W W W W H";
            Intervals_V.Text  = "W H W W W W H";

            //define the key notes for I, II and V

            //root for I is the key note!
            II_HalfDim dim_II = new II_HalfDim(keyNote);
            V_Altered  alt_V  = new V_Altered(keyNote);

            string newRootForMmII = dim_II.newRoot4MMScale;
            string newRootForMmV  = alt_V.newRoot4MMScaleV;

            //Print the new scale roots on the Form
            melodicMinorFor_I.Text  = keyNote;
            melodicMinorFor_II.Text = newRootForMmII;
            melodicMinorFor_V.Text  = newRootForMmV;

            //define the melodic minor scale root notes for I, II and V

            // root for I is the keyNote!
            RootFor_II root_II = new RootFor_II(keyNote);
            RootFor_V  root_V  = new RootFor_V(keyNote);

            newRootForII = root_II.newRoot4II;
            newRootForV  = root_V.newRoot4V;

            //define the new scales used for I, II and V based on the melodic minor scales and the root notes
            MelodicMinor   melodicMinor = new MelodicMinor(keyNote);
            HalfDiminished halfDim      = new HalfDiminished();
            Altered        altered      = new Altered();

            halfDim.setKey(newRootForII);
            altered.setKey(newRootForV);

            ScaleNotesFor_I.Text  = melodicMinor.new_MM_Scale;
            ScaleNotesFor_II.Text = halfDim.new_MM_Scale_II;
            ScaleNotesFor_V.Text  = altered.new_MM_Scale;
        }
コード例 #2
0
        private void button2_Click(object sender, EventArgs e)
        {
            Scale_I.Text  = "I (mi Ma7): Melodic minor";
            Scale_II.Text = "II (mi7): Dorian b2";
            Scale_V.Text  = "V (7): Aeolian Dom";

            Intervals_I.Text  = "W H W W W W H";
            Intervals_II.Text = "H W W W W H W";
            Intervals_V.Text  = "W W H W H W W";

            //define the key notes for the melodic minor scales for I, II and V

            //root for I is the key note!
            II_Dorianb2  dorb2_II     = new II_Dorianb2(keyNote);
            V_AeolianDom aeolianDom_V = new V_AeolianDom(keyNote);

            string newRootForMmII = dorb2_II.newRoot4MMScale;
            string newRootForMmV  = aeolianDom_V.newRoot4MMScale;

            //Print the new scale roots on the Form
            melodicMinorFor_I.Text  = keyNote;
            melodicMinorFor_II.Text = newRootForMmII;
            melodicMinorFor_V.Text  = newRootForMmV;

            //define the new MM scale root notes for I, II and V
            //RootFor_I root_I= new RootFor_I(keyNote);
            RootFor_II root_II = new RootFor_II(keyNote);
            RootFor_V  root_V  = new RootFor_V(keyNote);

            newRootForI  = keyNote;
            newRootForII = root_II.newRoot4II;
            newRootForV  = root_V.newRoot4V;

            MelodicMinor melodicMinor = new MelodicMinor(keyNote);
            Dorianb2     dorb2        = new Dorianb2(newRootForII);
            AeolianDom   aeolianDom   = new AeolianDom(newRootForV);


            ScaleNotesFor_I.Text  = melodicMinor.new_MM_Scale;
            ScaleNotesFor_II.Text = dorb2.newMmScaleFor_II;
            ScaleNotesFor_V.Text  = aeolianDom.newMmScaleFor_V;
        }