Chinese Language Resources Database
Each language resource is selected carefully by association approved editorial boards in order to assure quality control and provide useful descriptions for each resource.
http://www.langsource.umd.edu/chinese.php
LEARN TO SING! Andy Lau - Gong Xi Fa Cai (KTV)
I have this song typed out. If you want it please let me know.
http://www.youtube.com/watch?v=xIp8npKLzgs
Chinese New Year 2007
http://www.sydneychinesenewyear.com.au (less)
Teaching Materials for “Integrated Chinese” by T. Yao and Y. Liu (2005, 1997)
http://www.msu.edu/~changhs9/teaching.htm
Crazy Asian Mother by Erick Liang
http://www.youtube.com/watch?v=PKnloiM-0Ns
Animated Characters
龍,武,戯,傘,高
http://www.youtube.com/watch?v=oM2gh7ov4u8
Olympic Themed Song
作曲:莫洛德爾、孔祥東
作詞:Michael Kunze
演唱:李玟、孫楠
http://www.youtube.com/watch?v=BgOGw5MiVT8
Chinese Seal Dancing Beijing
http://www.youtube.com/watch?v=-u5X2GsR1OI
Stroke Order
http://www.chinese-learner.com/write-chinese/write-chinese-stroke-order-dictionary.php
Free picture flashcards for teachers
http://www.mes-english.com/flashcards.php
Oakley's Asian Fit Sunglasses
http://oakley.com/category/1046
What is Asian Fit?
Getting the right fit is essential for comfort, protection, and even optical performance. You may have heard industry terms like “European Fit” and “Asian Fit”. If sunglasses tend to sit too low on your face or slide down your nose, touch at your temples or cheeks, or feel narrow at the sides of your head, try our Asian Fit.
Chinese History
http://ancienthistory.mrdonn.org/Chinalife.html
Online file converter
http://www.zamzar.com/url/
Chinese Footbinding links
http://hvattum.net/index.php/2007/05/19/chinese-foot-binding/
Great article on history and "rationale"
http://www.bbc.co.uk/dna/h2g2/A1155872
Internet Chinese Music Archive
http://music.ibiblio.org/pub/multimedia/chinese-music/html/mp3.html
Jay Chou Fan Site
http://www.jay-chou.net/forums/portal.php
教育部--六個學習網
教育部配合行政院「挑戰二00八國家發展重點計畫
建構數位化學習內容」而建置六大學習網,包括:
生命教育學習網 http://life.edu.tw
自然生態學習網 http://nature.edu.tw
科學教育學習網 http://science.edu.tw
健康醫學學習網 http://health.edu.tw
歷史文化學習網 http://culture.edu.tw
人文藝術學習網 http://arts.edu.tw
六大學習網發展各領域優質的數位化學習內容及做中學活動教案,具備資料上傳、全文檢索、討論、公告等共通性網站基本功能及各領域相關的知識內涵。
六大學習網初期以協助九年一貫的領域學習,製作多元的學習活動,逐年實施教材上網,建置各學習領域豐富且具特色的教學資源。中期目標則擴及服務高中職教師、學生,長期目標是希望服務民眾終身學習。
例如生命教育學習網結合國內外推動生命教育的機構、團體、學校及個人,提供生命教育相關的教學設計、教學觀摩、動畫、音樂、影片、繪本等各式各樣的豐富素材,希望生命教育工作者能更便利取得教學資源。
網站也設計國小、國中、高中學習列車,並鼓勵師生以融入生活的方式體會與實踐生命意義與內涵,也拍攝口足畫家謝坤山奮鬥的故事,以及一位中學生走出憂鬱的過程,讓大家分享度過生命低潮的經驗與方法。
再如 人文藝術學習網,涵蓋文學、音樂、視覺藝術、表演藝術四類,設計製作了「人文思維發現之旅」,並鼓勵教師安排問題引導學生去達成或解決,把學習歷程做成記錄,實驗教學後的「教學活動設計」上網與大家分享。
Mango Languages Online Lesson Tutorial
www.MangoLanguages.com
Thanks Weifang!
Beginning Chinese Online Tutorial
http://www.chinesefortravel.com/mp3.html
Thank you Shanhui Chen from Shorewood, WI
Hi Everybody, I'm more than happy to be here
我非常开心可以能够加入你们的交流社区。我叫卢海云。在Milwaukee的一所私立学校高中部教中文。今天是第一年在这个学区开展我们的中文项目。感到非常幸运能够在上个星期六在Madison的conference上遇到Sara。希望大家可以多多分享教学经验和成果。
小姐 這是我的名片
http://www.youtube.com/watch?v=NPuwYqLNB9g
Free History & Holiday Clip Arts
http://www.mrdonn.org/clipart.html
Chinese Clip Art
http://www.in4mation.org/clipart.html
Practical Chinese Reader Vocab Activity
Aligned with Practical Chinese Reader
http://www.csulb.edu/web/labs/langlabs/builder/grab/chinese/pcr.html
Pinyin input and setup
Introduction on typing Pinyin with tones.
1. In MS Word, Go to tools, macro, and click on macros.
2. Type in a name for the macro, such as pinyin, and click Create. A
Microsoft Visual Basic window will pop up.
3. Copy and paste the entire text of the pinyin.txt file after the
green text and before "End Sub".
4. Click File, Save.
5. Close the Visual Basic Window.
6. To run the macro, back in MS Word simply go back to tools, macro,
and run the pinyin macro. It will work on any text you have highlighted.
A.
With Selection.Find
.Text = "r1"
.Replacement.Text = "1r"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "r2"
.Replacement.Text = "2r"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "r3"
.Replacement.Text = "3r"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "r4"
.Replacement.Text = "4r"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "r5"
.Replacement.Text = "5r"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ng1"
.Replacement.Text = "1ng"
Selection.Find.Execute Replace:=wdReplaceAll
End With
With Selection.Find
.Text = "ng2"
.Replacement.Text = "2ng"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ng3"
.Replacement.Text = "3ng"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ng4"
.Replacement.Text = "4ng"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ng5"
.Replacement.Text = "5ng"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "n1"
.Replacement.Text = "1n"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "n2"
.Replacement.Text = "2n"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "n3"
.Replacement.Text = "3n"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "n4"
.Replacement.Text = "4n"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "n1"
.Replacement.Text = "5n"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ai1"
.Replacement.Text = "a1i"
Selection.Find.Execute Replace:=wdReplaceAll
End With
With Selection.Find
.Text = "ai2"
.Replacement.Text = "a2i"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ai3"
.Replacement.Text = "a3i"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ai4"
.Replacement.Text = "a4i"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ai5"
.Replacement.Text = "a5i"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ei1"
.Replacement.Text = "e1i"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ei2"
.Replacement.Text = "e2i"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ei3"
.Replacement.Text = "e3i"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ei4"
.Replacement.Text = "e4i"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ei5"
.Replacement.Text = "e5i"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ao1"
.Replacement.Text = "a1o"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ao2"
.Replacement.Text = "a2o"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ao3"
.Replacement.Text = "a3o"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ao4"
.Replacement.Text = "a4o"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ao5"
.Replacement.Text = "a5o"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ou1"
.Replacement.Text = "o1u"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ou2"
.Replacement.Text = "o2u"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ou3"
.Replacement.Text = "o3u"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ou4"
.Replacement.Text = "o4u"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ou5"
.Replacement.Text = "o5u"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "uu1"
.Replacement.Text = "v1"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "uu2"
.Replacement.Text = "v2"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "uu3"
.Replacement.Text = "v3"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "uu4"
.Replacement.Text = "v4"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "uu"
.Replacement.Text = ChrW(&HFC)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "o1"
.Replacement.Text = ChrW(&H14D)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "o2"
.Replacement.Text = ChrW(&HF3)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "o3"
.Replacement.Text = ChrW(&H1D2)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "o4"
.Replacement.Text = ChrW(&HF2)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "e1"
.Replacement.Text = ChrW(&H113)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "e2"
.Replacement.Text = ChrW(&HE9)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "e3"
.Replacement.Text = ChrW(&H11B)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "e4"
.Replacement.Text = ChrW(&HE8)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "i1"
.Replacement.Text = ChrW(&H12B)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "i2"
.Replacement.Text = ChrW(&HED)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "i3"
.Replacement.Text = ChrW(&H1D0)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "i4"
.Replacement.Text = ChrW(&HEC)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "u1"
.Replacement.Text = ChrW(&H16B)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "u2"
.Replacement.Text = ChrW(&HFA)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "u3"
.Replacement.Text = ChrW(&H1D4)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "u4"
.Replacement.Text = ChrW(&HF9)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "v1"
.Replacement.Text = ChrW(&H1D6)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "v2"
.Replacement.Text = ChrW(&H1D8)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "v3"
.Replacement.Text = ChrW(&H1DA)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "v4"
.Replacement.Text = ChrW(&H1DC)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "a1"
.Replacement.Text = ChrW(&H101)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "a2"
.Replacement.Text = ChrW(&HE1)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "a3"
.Replacement.Text = ChrW(&H1CE)
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "a4"
.Replacement.Text = ChrW(&HE0)
End With
Selection.Find.Execute Replace:=wdReplaceAll
B.
With Selection.Find
.Text = ChrW(&H14D)
.Replacement.Text = "o1"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&HF3)
.Replacement.Text = "o2"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&H1D2)
.Replacement.Text = "o3"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&HF2)
.Replacement.Text = "o4"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&H113)
.Replacement.Text = "e1"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&HE9)
.Replacement.Text = "e2"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&H11B)
.Replacement.Text = "e3"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&HE8)
.Replacement.Text = "e4"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&H12B)
.Replacement.Text = "i1"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&HED)
.Replacement.Text = "i2"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&H1D0)
.Replacement.Text = "i3"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&HEC)
.Replacement.Text = "i4"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&H16B)
.Replacement.Text = "u1"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&HFA)
.Replacement.Text = "u2"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&H1D4)
.Replacement.Text = "u3"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&HF9)
.Replacement.Text = "u4"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&H1D6)
.Replacement.Text = "v1"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&H1D8)
.Replacement.Text = "v2"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&H1DA)
.Replacement.Text = "v3"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&H1DC)
.Replacement.Text = "v4"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&H101)
.Replacement.Text = "a1"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&HE1)
.Replacement.Text = "a2"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&H1CE)
.Replacement.Text = "a3"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&HE0)
.Replacement.Text = "a4"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "v1"
.Replacement.Text = "uu1"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "v2"
.Replacement.Text = "uu2"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "v3"
.Replacement.Text = "uu3"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "v4"
.Replacement.Text = "uu4"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = ChrW(&HFC)
.Replacement.Text = "uu"
End With
Selection.Find.Execute Replace:=wdReplaceAll