S = Sound[{SoundNote["C", .5], SoundNote["C", .5], SoundNote["G", .5],
    SoundNote["G", .5], SoundNote["A", .5], SoundNote["A", .5],
   SoundNote["G", 1], SoundNote["F", .5], SoundNote["F", .5],
   SoundNote["E", .5], SoundNote["E", .5], SoundNote["D", .5],
   SoundNote["D", .5], SoundNote["C", 1], SoundNote[{"E", "G"}, .5],
   SoundNote[{"E", "G"}, .5], SoundNote[{"F", "G"}, .5],
   SoundNote[{"F", "G"}, .5], SoundNote[{"E", "G"}, .5],
   SoundNote[{"E", "G"}, .5], SoundNote[{"D", "G"}, 1],
   SoundNote[{"E", "G"}, .5], SoundNote[{"E", "G"}, .5],
   SoundNote[{"F", "G"}, .5], SoundNote[{"F", "G"}, .5],
   SoundNote[{"E", "G"}, .5], SoundNote[{"E", "G"}, .5],
   SoundNote[{"D"}, 1], SoundNote["C", .5], SoundNote["C", .5],
   SoundNote["G", .5], SoundNote["G", .5], SoundNote["A", .5],
   SoundNote["A", .5], SoundNote["G", 1], SoundNote["F", .5],
   SoundNote["F", .5], SoundNote["E", .5], SoundNote["E", .5],
   SoundNote["D", .5], SoundNote["G", .5],
   SoundNote[{"C", "E", "G"} 1]}]
Export["tzu-ying_chuang.midi",S, "Midi"]