去 ! 他的歷史地理

日本明治時期龍銀幣銀貨輔幣發行量一覽

2015-02-28T16:35:00.000+08:00

本位銀貨		旧補助銀貨
年号	貿易一圓銀貨幣	貿易銀	五十銭銀貨幣	二十銭銀貨幣	十銭銀貨幣	五銭銀貨幣
明治3,4年	^[12] 2,740,245		1,806,293	862,231	^[12] 2,586,648	1,501,472
明治5年	^[12] 944,804		2,648,309	3,450,784	^[12] 3,516,026	1,665,613
明治6年			3,447,733	6,214,284	5,109,951	5,593,172
明治7年	942,006		95,304	3,024,242	10,221,571	7,806,493
明治8年	139,323	97,575	^[13] 109	612,736	8,977,419	6,396,784
明治9年		1,514,629	1,251	9,200,892	11,890,075	5,546,424
明治10年		1,152,273	95	5,199,731	14,670,947	4,683,519
明治11年	856,378	^[14] 292,161	^[14] 184,253	^[14] 2,726,972	^[14] 5,646,765	^[14] 17,022,298
明治12年	1,913,318				^[14] 34,424	^[14] 318,350
明治13年	5,427,432		179	96	77	79
明治14年	2,927,409
明治15年	5,089,064
明治16年	3,636,678
明治17年	3,599,192
明治18年	4,296,620		409,920	4,205,722	9,763,333
明治19年	9,084,262
明治20年	8,275,787			4,794,755	10,421,616
明治21年	9,477,414			104,340	7,234,206
明治22年	9,295,348			^[15] 599,580	^[15] 943,023
明治23年	^[16]7,292,877
明治24年	7,518,012			2,500,000	5,000,000
明治25年	11,187,613			3,054,693	5,000,000
明治26年	10,403,477			3,445,307	12,000,000
明治27年	22,118,416			4,500,000	11,000,000
明治28年	21,098,754			7,000,000	13,719,054
明治29年	11,363,949			2,599,340	15,080,506
明治30年	2,448,694		5,078,437	7,516,448	20,357,439
明治31年			22,797,041	17,984,212	13,643,001
明治32年			10,254,431	15,000,000	6,216,579
明治33年			3,280,091	800,000	8,183,421
明治34年			1,790,000	500,000	797,561
明治35年			1,023,280		1,202,439
明治36年			1,503,068
明治37年			5,373,652	5,250,000	11,106,638
明治38年			9,566,100	8,444,930	34,182,194
明治39年			^[17] 433,900	^[17] 1,555,070	6,711,168
合計	162,077,072	3,056,638	69,693,446	121,146,365	255,216,081	50,534,204

BEYOND-海闊天空(粵) (官方完整版MV)

2014-09-30T19:11:00.001+08:00

錢幣等級

2014-05-19T22:27:00.002+08:00

錢幣等級記述、定義 PO-1 Poor，粗劣品，僅主要圖案輪廓是可以辨識的，其餘錢幣鑄紋與齒輪皆磨損非常嚴重，鑄紋可辨識程度1%~10%。 FR-2 Fair，劣品，絕大部分錢幣鑄紋是磨損嚴重的，鑄紋可辨識程度5%~10%。 AG-3 About Good，近普品，錢幣邊緣磨損，雖然幾乎所有錢幣鑄紋已接近磨平，但有時還能辨明，鑄紋可辨識程度10%~25%。 G-6 Good，普品，錢幣鑄紋磨損甚多，僅能分辨出主要圖像輪廓，有時可見局部較細鑄紋，鑄紋可辨識程度25%~40%。 VG-8 Very Good，佳品，錢幣鑄紋細部幾乎皆已磨平，鑄紋可辨識程度40%~50%。 F-12 Fine，美品，錢幣鑄紋嚴重磨損，但整體輪廓尚可辨別，鑄紋可辨識程度50%~60%。 F-20 Fine，美品，錢幣鑄紋嚴重磨損，但整體輪廓尚可辨別，與F12相比，焦點區域鑄紋辨析度稍高，鑄紋可辨識程度50%~60%。 F-25 Choice Fine，美品，錢幣鑄紋嚴重磨損，整體輪廓可辨別，至高點幣紋凸起部分磨損更甚於VF30，鑄紋可辨識程度60%~70%。 VF-30 Very Fine，優美品，至高點幣紋凸起部分磨損程度更甚於VF35，細部紋路已有不同程度磨損，但主要圖像均清晰可見，鑄紋可辨識程度70%~80%。 VF-35 Choice Very Fine，優美品+，至高點幣紋凸起部分磨損一半，細部紋路已有不同程度磨損，但主要圖像均清晰可見，鑄紋可辨識程度75%~85%。 XF-40 Extremely Fine，極優美品，整體幣面均有磨損，但圖像仍清晰可辨，幣面仍可能有極少量原有金屬光澤，鑄紋可辨識程度80%~90%。 XF-45 Choice Extremely Fine，極優美品+，整體幣面至高點凸起部分均有些磨損，但整體細部均清晰，幣面部分區域(如文字間)保持原有金屬光澤，可辨識程度90%~95%。 AU-50 接近於未流通，About Uncirculated，整體幣面至高點凸起部分均有不同程度磨損痕跡，至少有20%以上幣面保持原有光澤，鑄紋可辨識程度90%~95%。 AU-53 接近於未流通，About Uncirculated，整體至高點凸起部分有磨損痕跡，部分幣面有不同程度磨損，至少有40%以上幣面保持原有光澤，鑄紋可辨識程度90%~95%。 AU-55 精選接近於未流通，Choice About Uncirculated，整體幣面與至高點凸起部分有輕微磨損痕跡，至少有60%以上幣面保持原有光澤，鑄紋可辨識程度90%~95%。 AU-58 接近於未流通，About Uncirculated，整體幣面與至高點凸起部分有些許細微磨損痕跡，至少有80%以上幣面保持原有光澤，鑄紋可辨識程度90%~95%。 MS-60 UNC，Uncirculated，未流通過，容許有很多深刮痕或很多髮絲般細刮痕，鑄紋辨識度有可能因製造開模技術等因素而不完全，鑄紋可辨識程度95%~98%。 MS-61 UNC+，未流通過，容許有多處深刮痕或多處髮絲般細刮痕，鑄紋辨識度可能因製造開模技術等因素而不完全，鑄紋可辨識程度95%~98%。 MS-62 UNC++，未流通過，容許有較少處深刮痕或少數髮絲般細刮痕，鑄紋辨識度可能因製造開模技術等因素而不完全，鑄紋可辨識程度95%~98%。 MS-63 BU ( Brilliant Uncirculated )，未流通過，容許有少許一般大小的刮痕或少許髮絲般細刮痕，鑄紋辨識度可能因製造開模技術等因素而不完全，鑄紋可辨識程度95%~98%。 MS-64 BU+，僅有少數的刮痕或僅有一、二個較嚴重的刮痕或髮絲般細刮痕，鑄紋辨識度中等，鑄紋可辨識程度95%~98%。 MS-65 Choice BU，可能有較小或不重要的刮痕或髮絲般細刮痕，但焦點區域無刮痕及髮絲般細刮痕，良好的鑄紋辨識度，鑄紋可辨識程度98%~100%。 MS-66 Choice BU+，有二、三個細微較小或不重要的刮痕或髮絲痕，但焦點區域無刮痕及髮絲痕，良好的鑄紋辨識度，鑄紋可辨識程度98%~100%。 MS-67 GEM BU，肉眼乍看像剛鑄造出廠的，仔細觀看可能有較小或不重要的缺陷，有非常好的鑄紋辨識度，鑄紋可辨識程度98%~100%。 MS-68 GEM BU+，肉眼乍看像剛鑄造出廠的，但仔細觀看可能有細微的缺陷，有非常好的鑄紋辨識度，鑄紋可辨識程度99%~100%。 MS-69 GEM BU++，接近完美品，仔細觀看可能有極微小的缺陷(如Bag Marks)，需接近完全的鑄紋辨識度，鑄紋可辨識程度100%。 MS-70 完美品(即完全未使用品相)，即使在10倍放大鏡下觀察，也完全無接觸過的痕跡，亦無任何缺陷或滑痕( Bag Marks )，有頂級完美的鑄紋辨識度，鑄紋可辨識程度100%。註1：F20~XF45是錢幣流通使用過後最常見的品相範圍，請送件者自行斟酌並詳讀定義。註2：對於邊敲、模具損傷造成弱打等錢幣，ACCA會給予0級至2級不等的扣分。註3：對於美觀的自然氧化、幣紋深打、類鏡面等錢幣，ACCA會給予0級至1級不等的加分。註4：對於清洗過之錢幣評級，目前國際尚未有一套固定標準，本中心採納亞洲地區廣大收藏界先進的意見，採取正面評鑑的做法，清洗過之錢幣，會給予敘述分級範圍，例如AU-Details。註5：品相分級分數主要是依照錢幣磨損程度與錢幣接近原始狀態的百分比程度而給予，以數字來表現其差異，請自行參閱上表。

【300壯士：帝國崛起】電影官方中文版最終預告，復仇血戰席捲全球 (HD) (+播放清單)

2014-03-01T14:32:00.001+08:00

【300壯士：斯巴達的逆襲】、【超人：鋼鐵英雄】導演查克史奈德監製作品。300壯士孤軍死戰溫泉關，重挫波斯大帝薛西斯軍威 (羅德林哥桑特羅飾演)，希臘陸路失守；同時海路米西亞 (伊娃葛林飾演) 率重艦進逼，希臘最後的希望落在希臘統帥帝米斯托克力 (蘇利文斯坦布萊頓飾演) 身上，復仇血戰席捲全球。3月7日(五) 2D.3D 正宗回歸史詩再現！

曹軒賓還記得嗎原曲 Ali Eraser韓文版

2014-02-05T22:14:00.001+08:00

曹軒賓全民催淚情歌《還記得嗎》

Ali Eraser韓文版

卡拉OK版
韓國善用YOUTUBE平台
邁向國際化又一例

Gilbert O`Sullivan - CLAIR - ( The Sweetest `Clair ` video Ever !) - An...

2014-01-26T18:08:00.001+08:00

韓劇浪漫滿屋插曲
韓國影劇圈似乎特別鍾情Gilbert O`Sullivan
另一部電影"愛情OK繃"也用他的名曲(Alone again )當插曲
兩曲都搭配得不錯
Clair 其實是寫給他的經紀人Gordon Mills 當時才三歲的女兒
很多人在這曲勇奪英國排行冠軍14週之後在電視上看到這可愛的小女孩
事隔多年現在還是有人會關心她現在的情況
可以點以下連結

http://www.gosullivan.com/dailmail.html

Gilbert O'sullivan唱的 clair

Clair, the moment I met you I swear

I felt as if something somewhere

Had happened to me

Which I couldn't see

And then

The moment I met you again

I knew in my heart THAT we were friends

It had to be so

It couldn't be no

But try as hard as I might do I don't know why

You get to me in a way I can't describe

Words mean so little when you look up and smile

I don't care what people say,

To me you're more than a child

Oh! Clair, Clair

Clair, if ever a moment so rare

Was captured for all to compare

That moment is you

It's all that you do

But why in spite of our age difference do I cry

Each time I leave you I feel I could die

Nothing means more to me than hearing you say

I'm going to marry you

Will you marry me Uncle Ray?

Oh! Clair, Clair

Clair, I've told you before

Don't you dare

Get back into bed

Can't you see that it's late

No you can't have a drink

Oh! all right then but wait just a bit

While I, in an effort to baby sit,

Catch of my breath what there is left of it.

You can be murder at this hour of the day

But in the morning this hour

Will seem a lifetime away

Oh! Clair, Clair

Gilbert O'Sullivan - Alone Again (original version)

2014-01-26T17:53:00.001+08:00

gilbert o'sullivans alone again
韓國電影"愛情OK繃"插曲
很憂鬱的一首歌
很多人以為是他的親身遭遇
他當年模樣宛若剛開始成名時的周杰倫

Gilbert O'Sullivan - Alone Again(Naturally)

In a little while from now,

If I'm not feeling any less sour.

I promised myself, to treat myself,

And visit a nearby tower ..........

And climbing to the top,

Would throw myself off,

In an effort to, make clear to whoever,

What it's like when your shattered .......

Left standing in a lurch,

In a church with people saying .....

My God, that's tough, she stood him up,

No point in us remaining .......

I may as well go home,

As I did on my own,

Alone again, naturally.

To think that only yesterday,

I was cheerful, bright and gay.

Looking forward to, and who wouldn do,

The role I was about to play.

But as if to knock me down,

Reality came around,

And without so much as a mere touch,

Cut me into little pieces.

Leaving me to doubt, all about God and His mercy,

Oh, if He really does exist,

Why did He desert me?

And in my hour of need,

I truely am, indeed,

Alone again, naturally.

It seems to me that there are more hearts,

Broken in the world that can be mended,

Left unattended, what do we do?

What do we do?

Now looking back over the years,

And whatever else that appears.

I remember I cried when my father died,

Never wishing to hide the tears.

At sixty-five years old,

My mother, God rest her soul,

Couldn understand why the only man,

She had ever loved had been taken.

Leaving her to start, with a heart so badly broken,

Despite encouragement from me,

No words were ever spoken.

And when she passed away,

I cried and cried all day,

Alone again, naturally .....

Alone again ................................. naturally.

中文翻譯：

再次孤獨(自然而然地) 　　　　吉伯特歐蘇利文

過了一會兒

如果我感覺不到一點心酸

我會承諾好好的對待自己

參觀附近的一座高塔

爬到最高處，想就此一躍而下

努力想對旁人釐清這一切

當你粉身碎骨被遺棄在教堂裡，那會是什麼情景？

那裡的人們說：「上帝啊！太難了」

「她已承受不了」

「我們也沒有立場」

「倒不如我們回家好了」

如同過去獨來獨往的我

再次孤獨，自然而然地

想想不過是昨天而已

那時的我興高采烈、心情愉快

期待有人不願意擔任我曾經演的角色

如果將我擊倒

現實紛至沓來

即使沒有太多輕微的觸動

也能將我切成碎片

留下許多的疑惑

說到上帝的垂憐

如果祂真的存在

為何祂要棄我於不顧？

在我需要祂的時刻

我是真的非常需要祂啊！

再次孤獨，自然而然地

對我來說，這世上有太多破碎的心

無法修補，無人眷顧

我們能做什麼？

我們究竟能做什麼？

再次孤獨，自然而然地

回首過往的歲月

往事歷歷如昨

記得父親過世時，我哭了

不想刻意去掩飾淚水

六十五歲那年

我的母親，上帝讓她的靈魂安息

她始終無法明白

她唯一愛過的人為什麼會被奪走？

留下她一個人開始心碎難過的活著

無視於我對她的鼓勵

她從此不發一語

她去世以後

我整天哭了又哭........

HEBE TIEN 田馥甄 [愛著愛著就永遠 Forever Love] Official MV HD

2014-01-14T18:57:00.001+08:00

李泰祥唐曉詩告別.mp4

2014-01-03T19:48:00.001+08:00

李泰祥自彼次遇到你

2014-01-03T19:40:00.001+08:00

自彼次遇到你

詞：杜十三／曲：李泰祥

演唱：李泰祥合音：林文俊

自彼次遇到妳

就開始了我的一生

是前世註定的命運

咱兩人相閃在滿滿是菜子仔花的田埂中

雖然不知你的芳名

但是永遠留著妳的身影

在阮的心內 妳是寒冬的日頭

妳是黑暗中的月光

妳親像妖艷的紅花

在風中搖動微笑 滿面的春光

有彩雲(有愛情) 有天星(有悲傷) 有海浪(有起落)

自彼次遇到妳

妳是我所愛的人 妳是我不醒的夢

真想再遇到妳

(遇到妳)…

怨女福建惠安女及東山寡婦村

2013-04-12T20:40:00.001+08:00

怨女
作詞：呂思志作曲：張弘毅編曲：塗惠源

一生的錯　開始在黃昏後請你挪近燭火
黑暗中是什麼　牽引著我的手　朝向未知慢慢走
一夜化作千夜　夜色與情懷如水　
遠處有暗雷低迴
生生離離　多少紅塵舊事　
只能在鬱鬱聲中去回味
別拆穿我哭過的痕跡　
我的熱情已成冰
愛在燃燒後　
不留下一點灰燼
不要把我的癡狂抹去
　我不在乎胭脂狼藉
紅色的淚　有我絕望的美麗
紅色的淚　有我絕望的美麗

惠安女白話字：Hūi-oaⁿ cha-bó·），其實叫惠東女更爲準確，是指主要集中居住在福建省惠安東部的崇武、小岞、山霞、塗寨四鎮這一帶的漢族婦女。惠安女以其服飾奇特，極富地方傳統色彩，再加上吃苦耐勞，獲得極高的美譽。
惠安是個有典型母系社會遺存的地區，勤勞的惠安女是當地生產勞動的主要群體，至今如此。她們做男人應做的粗重活，例如，她們是開公路、修水利、補魚網、扛石頭、拉板車等等勞動的主力軍。進入惠安的崇武鄉間，旅行者還會坐上由惠安女駕駛的各式摩托車，而男人們則把精力放在撫養小孩，雕刻、打魚、照看店鋪上。

惠安女因為其服飾獨特，被稱為漢族中的異類，有人更因之推測其並不是漢族。
惠安女的傳統服飾獨具一格，引人注目，具有很強的色彩感染力，視為「中國服飾精華的一部分」。惠安女的典型特徵是花頭巾、短上衣、銀腰帶、大筒褲。一首打油詩可以形象地勾畫出了惠東女傳統服裝的特徵：「封建頭，民主肚，節約衣，浪費褲。」這種服飾實際上歷史不長，是在1940年代才開始出現的。
崇武一帶的惠安女上衣為藍色，褲子為黑色。而小岞和淨峰一帶則分別為白色和藍色。惠東女腰上系著銀腰鏈，表明已婚。崇武一帶的銀腰鏈較為粗重，而小岞和淨峰一帶則相對較細。

2006年月20日惠安女服飾列入第一批國家級非物質文化遺產名錄。
多數惠安女都有「娃娃親」的習俗，在出生後不久即由家人包辦訂婚，現在仍有少數人延續該習俗。

長住娘家」婚俗又稱「不落夫家」，現在已經沒有這一習俗。婦女出嫁三天後即回娘家長住，只有過年過節及農忙時到夫家住一兩天。只有等到懷孕以後才允許長住夫家。住娘家的時間至少有二三年，最長達20年以上，一般五到八年。她們每年到夫家不上十次，每次不超過三日。回夫家時多半要用塊布遮著臉，到晚上熄燈後才能去掉，第二天天亮又得跑回家。懷孕生子時不能生在娘家，生在娘家會被認為不吉利，所以必須在夜間趕到夫家生產，也因此常有出現來不及而生子於半家。由於妻子很少到夫家，到夫家又多於夜間，且多用布遮臉，所以常出現夫妻多年可互不認識的怪事。

1950年5月12日，國民黨敗退台灣時，在銅砵村強抓壯丁147人，致使這個僅有200多戶人家的村莊95%的青壯年失蹤，91名年輕婦女被迫與丈夫離散，一夜之間成了“寡婦村”。

當年有一名被抓走的村民黃韻奇，曾回來探親，並把村的老婆林招娣也申請到了台灣。但是妻子過去後，看到丈夫在那邊的家庭，不忍傷害，又回到了村子。這些故事，半個多世紀以來一直在村子上演。而當初被抓走的147個青壯年中，至今仍20多位在世，其中有4個選擇了回鄉定居

76歲的謝素娥背著重孫為在台灣去世的丈夫林大鼻燒上一柱香，寄托一份思念。半個世紀來，謝素娥一直苦苦等待丈夫歸來，但丈夫再也沒有回到銅缽村

亞果出任務本尊出現

2013-03-24T20:34:00.000+08:00

數十年來，美國一直是伊朗國王穆罕默德·禮薩·巴列維的主要支持者。隨著民主進程發展，1951年改革派穆罕默德·莫沙德哈當選上伊朗首相。但在1953年的阿賈克斯行動中，美國中央情報局幫助巴列維國王和保守派發動政變推翻了莫沙德哈。前後八位美國總統為巴列維國王提供了大量的軍事和經濟援助，用以換取伊朗的石油供應，以及在中東的戰略存在。那些反對巴列維國王的人（因為他1960年代早期曾許諾自由及改革，後卻食言）對於美國的做法非常反感乃至憤怒。而巴列維國王及其親信中飽私囊，奢侈地按照西方的生活方式生活，讓國內的宗教保守人士十分憤怒。社會及宗教人士的不滿情緒匯合在一起，最終爆發了伊朗革命將巴列維推翻。1979年1月他流亡國外。
美國曾想減少伊斯蘭革命對自身的影響，並也曾嘗試與伊朗的新政權建立關係。但是1979年10月，巴列維前往美國治療淋巴瘤，此事激怒了伊朗的革命者。
1979年11月，伊朗暴民衝入位於德黑蘭的美國大使館，使館內66名外交人員與平民遭到挾持，6名外交人員趁亂逃到加拿大大使的住所，被逮捕只是遲早的事，到時不只這6人，加拿大政府也極可能被捲入這場外交風暴中。中情局決定用假拍片到伊朗真勘景的方式冒險救人。媒體、製片、演員、編劇、甚至連電影公司全部都涉入這場救援行動中，只是當時百分之九十九的參與活動的人都不知情。中情局敵後撤退專家東尼曼德茲，異想天開地發想了這個史無前例的救援計劃，但是對拍戲一竅不通的他，請教得過奧斯卡最佳特效的化妝師約翰錢伯斯該如何讓這個計劃順利成功，約翰認為這個虛構的計劃在騙倒敵人之前，首先必須把自己人先蒙在鼓裡，因此他們一起說服了製片雷斯席格，拍攝一部假的科幻動作片：【亞果出任務】，在資金、腳本、明星、導演全都到位的情況下，舉行了盛大的開鏡記者會，大牌明星齊聚一堂，各大報章雜誌無不爭相報導，但這些都只是整個救援行動的開端而已。帶著這些剪報、劇照、簡單故事腳本與分鏡圖，東尼單槍匹馬前往德黑蘭執行這項近乎不可能但是又關係著許多人性命的祕密救援行動。
美國政府的機密檔案陸續解密，讓過去的機密事件成為故事題材，《亞果出任務》改編自美國CIA的真實故事，為班艾佛列克自編自導自演之作。本片揭露一場直到2007年才正式曝光，隱瞞幾十年的人質救援祕辛真相
這段真實故事改編的好萊屋電影[亞果出任務]獲得2013本屆奧斯卡金像獎最大獎最佳影片

湯尼曼得茲 Tony Mendez 本人近照

緬甸的90元紙鈔事件

2013-03-23T19:33:00.001+08:00

1987年9月5日，緬甸政府發出一紙命令，

決定廢止緬甸聯盟銀行發行的25元、35元與75元紙鈔。

原鈔票上都印有國父翁山將軍的肖像

而當時的軍政府領袖尼溫據說相當迷信

個人偏好"九"這個數字

於是就發行了90圓及45圓的新鈔

新鈔上沒有翁山將軍

取而代之的是其他的革命先烈

這件事也引發了大規模抗議事件

山寺桃花始盛開

2013-03-17T18:52:00.001+08:00

大林寺桃花　
　
　

人間四月芳菲盡，山寺桃花始盛開

長恨春歸無覓處，不知轉入此中來
ー唐白居易

這是白居易當年貶為江州司馬時
一度來到鄰近的江西廬山大林寺
時間是在農曆四月相當於陽曆五月
這時平地一帶時序已進春末夏初
美麗的春光已過
百花凋零
正令詩人感嘆時 , 沒想到在這山上卻見著桃花正開的墔燦
當然這詩以會有人意有所指認為一邊到了盡頭
而另一端正在開展
不論如何回到地理來看
其實就是氣候問題
山地較冷春天來得晚些罷了

No Bravery 為科索沃戰爭而寫(詹姆士布朗特)

2013-03-07T21:07:00.000+08:00

由於南聯盟政府對科索沃境內的阿族穆民實行種族歧視的不公平對待政策，導致一些極端的信奉伊斯蘭教的阿族穆斯林（穆民）開始武裝自我，組織了科索沃解放軍，以暴力抗爭的方式騷亂科索沃自治省境內的正常秩序，以達到獲取科索沃獨立的目的。多數身為塞族並信奉東正基督教的民警與軍警和科索沃自治省境內佔少數的塞族百姓、商人等則成了科索沃解放軍的敵對目標。這個時期冷戰結束不到十年，狄托時代繁榮的南斯拉夫經歷了克羅埃西亞獨立戰爭和歷時三年的波赫戰爭，其中央聯盟政府已失去了對科索沃自治省大部分縣市的直接控制。自治省境內的塞族百姓因受到歧視和聽到阿族準備在科索沃境內屠殺塞族的流言而紛紛遷離科索沃。持續了多年的科索沃危機一方面有占科索沃和梅托希亞自治省多數人口的阿爾巴尼亞民族（阿族）強求脫離塞爾維亞獨立出去，而視科索沃地區為塞爾維亞民族（塞族）發源聖地的南斯拉夫政府則堅決反對以任何形式分裂肢解國家，亦反對北約與他國以任何形式干涉內政或侵犯其國家主權。這是一則典型的冷戰後巴爾幹半島的民族國家問題。雖然科索沃仍未能加入聯合國，但是現時已獲部分國家或地區(包含台灣)的正式承認，其中一些國家已於該國設立了大使館，目前世界上已有98個聯合國會員國予以承認（2012年12月）。這首James Blunt首張專輯「Back to Bedlam」的結尾曲，是他1999年在英國軍隊擔任偵查官時在科索沃兵營寫的。白天巡邏普利斯提納時，他用將吉他綁在坦克車外。夜裡，他將吉他帶進兵營，描寫一個二十二歲的年輕人在這十年來最血腥的內戰之一結束後執行停火協定的日子。當他在夜深人靜的午夜寫和唱歌時，同單位的其他軍官命令他安靜下來。但他並沒有安靜下來。 "No Bravery"是James Blunt在科索沃寫的唯一一首完整的歌。這首歌很宿命論，整張專輯都是。 2003年九月，他到加州錄專輯。永垂不朽的首張專輯「Back to Bedlam」於是誕生!

印我春鞋第一痕

2013-03-03T21:58:00.000+08:00

霧外江山看不真，只憑雞犬認前村；渡船滿板霜如雪，印我春鞋第一痕。

張龍師傅的八極拳示範

2013-03-03T19:11:00.000+08:00

張龍師傅的八極拳示範這打起來很精彩!練練身很不錯! 地板應該是木板,腳蹬的發響,如果是硬地腳板筋骨恐怕會受傷的學學比畫比劃一下也可達到鍛煉的功效

砂塵暴Sandstorm in Riyadh

2013-02-23T14:34:00.001+08:00

Sandstorm in Riyadh, originally uploaded by Peter Arthold.

沙烏地阿拉伯首都利雅得在2009年被拍下的沙漠風暴(砂塵暴)
時間是出現在五月初,規模龐大難以想像

曲江衍派

2013-02-16T14:26:00.001+08:00

DSC01422, originally uploaded by douglas0830.

在檳城仍處處可見漢族遺風
這戶算是大戶
曲江衍派可能是中原張姓的後代
雖離故園萬里仍門庭昭告不忘所本

檳城喬治鎮的VOC砲

2013-02-16T14:18:00.001+08:00

DSC01417, originally uploaded by douglas0830.

檳城喬治鎮的古砲台
這相當於台灣的熱蘭遮城
這門砲上的voc烙印正代表了荷蘭東印度公司的輝煌

肯德基

2013-01-24T23:24:00.001+08:00

肯德基, originally uploaded by douglas0830.

檳城的古建築被用來當西式速食餐廳
這樣的肯德基是否很豪華呢?
周圍有免費停車場,並附設兒童遊戲場
用餐的氣氛必定很棒

夢想的力量(HTC)全文

2013-01-04T12:03:00.000+08:00

你問我
遇到困境
怎麼辦?
我想告訴你
有困難就去面對
每一個挫折的現在
都有一個
繼續努力的動力
我沒有時間氣餒
我會調整翅膀
重新飛翔
世界這麼大
現在說輸贏
還早
我在htc 工作
我喜歡在htc 工作
我相信
我相信
夢想
是的
我相信
夢想的力量

示範兩個button的滑鼠拖曳

2012-12-05T19:19:00.000+08:00

這程式示範兩個button的滑鼠拖曳
只要將buttonclass,buttonplat改成你的button 名稱就可用

Private Sub Buttonclass_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Buttonclass.MouseDown
        Timer1.Enabled = True
        Timer1.Start()
        objectposition = Buttonclass.Location
        cursorpoint = Cursor.Position
    End Sub
    Private Sub Buttonclass_Mouseup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Buttonclass.MouseUp
        Timer1.Stop()
        objectposition = Buttonclass.Location
        cursorpoint = Cursor.Position
    End Sub
    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Buttonclass.Location = objectposition - cursorpoint + Cursor.Position
    End Sub

Private Sub buttonplat_mousedown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Buttonplat.MouseDown
        Timer2.Enabled = True
        Timer2.Start()
        objectposition = Buttonplat.Location
        cursorpoint = Cursor.Position
    End Sub

Private Sub buttonplat_mouseup(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Buttonplat.MouseUp
        Timer2.Stop()
        objectposition = Buttonplat.Location
        cursorpoint = Cursor.Position
    End Sub

    Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
        Buttonplat.Location = objectposition - cursorpoint + Cursor.Position
    End Sub
End Class

黃山農民工

2012-12-03T23:31:00.001+08:00

DSC04951, originally uploaded by douglas0830.

黃山的農民工規定穿上綠背心
一路將山下物資一步步以扁擔挑上山

VB2010 排座位程式

2012-11-18T17:15:00.004+08:00

Public Class form1

Private WithEvents document As New System.Drawing.Printing.PrintDocument

Dim TreeView1 As New TreeView

' Initalize the dialog.

Dim btnprint As Boolean = False

Dim btncolor As Boolean = False

Dim instance As PageSetupDialog

Dim a, b, n1, n2, n3, i, kk, i2, clicknum As Integer

Dim dtextbox(n3) As RichTextBox

Dim myxls As Object

Dim mybooks As Object

Dim mybook As Object

Dim mySht As Object

Dim myRange, myRange2 As Object

Dim dtextboxA1, dtextboxA2, dtextboxA3 As New RichTextBox

'Dim a, b As Integer

'Dim btn As Object

Dim x As String

Dim FillErrorEventHandler As Object

Dim y As Integer

Private Sub Btnpath_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnpath.Click

Dim ofd As New OpenFileDialog

'If ofd.ShowDialog() = DialogResult.OK Then

'If ofd.FileName <> "" Then

'End If

'End If

ofd.ShowDialog()

Tetpath.Text = CStr(ofd.FileName)

End Sub

Public Sub startbtnClick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles startbtn.Click

' Me.ActiveMdiChild.Close()

'Form2.Show()

If Tetpath.Text = "" Then

MsgBox("請輸入正確的Excel檔.Xls路徑")

Exit Sub

End If

If Microsoft.VisualBasic.Right(Tetpath.Text, 3) = "xls" Then

GoTo 3

Else

MsgBox("你選的並非Excel檔,請重新選擇正確 Xls路徑")

Exit Sub

End If

'宣告Excel各種物件

3: '啟動Excel

myxls = CreateObject("Excel.Application")

' myxls.Visible = True '''顯示Excel

mybooks = myxls.workbooks

'開檔案

mybook = mybooks.open(Tetpath.Text)

'取得Sheet

mySht = mybook.sheets(1)

'mySht.Activate()

Dim c, d As String

'取得Cell

Dim i, kk As Integer

Dim myRange, myRange2 As Object

For kk = 1 To 100

c = "a" & CStr(kk)

myRange = mySht.range(c)

If IsNothing(myRange.value) = True Then

kk = kk - 1

GoTo 5

End If

Next

5:

n1 = NumericUpDown1.Value

n2 = NumericUpDown2.Value

n3 = n1 * n2

Dim dtextbox(n3) As RichTextBox

Dim w1, w2, h1, h2 As Integer

Dim jarray(kk) As Integer

'Location = New Point(10, 0)

'=============================

Select Case n1

Case n1 < 6

w1 = 80

w2 = 100

Case n1 = 6, 7

w1 = 80

w2 = 90

Case n1 > 7

w1 = 80

w2 = 85

End Select

Select Case n2

Case n2 < 7

h1 = 60

h2 = 80

Case n2 = 7, 8

h1 = 60

h2 = 70

Case n2 > 8

h1 = 60

h2 = 65

End Select

'MsgBox(w1, h1)

For i = 0 To n3 - 1

15:

Randomize()

Dim j As Integer = CInt(Int((kk * Rnd()) + 1))

If i >= kk Then

x = Nothing

GoTo 30

End If

'不重複

If jarray(j) = 0 Then

jarray(j) = 13

GoTo 20

Else

GoTo 15

End If

'''''''''

'''''''''

20:

a = j + 1

b = a + 1

c = "a" & CStr(j)

d = "b" & CStr(j)

myRange = mySht.range(c)

myRange2 = mySht.range(d)

x = myRange2.value & Chr(13) & Chr(10) & myRange.value()

30:

dtextbox(i) = New RichTextBox

dtextbox(i).Tag = i

dtextbox(i).Name = "dtextbox" & CStr(i)

dtextbox(i).Width = 90

dtextbox(i).Height = 60

'MsgBox(w1, h1)

dtextbox(i).Left = 100 * (i Mod n1 + 1)

dtextbox(i).Top = 80 * (i \ n1 + 1)

dtextbox(i).Text = x '"Btn" & i

dtextbox(i).SelectionFont = New Font("標楷體", 12, FontStyle.Bold)

dtextbox(i).ScrollBars = RichTextBoxScrollBars.None

Me.Controls.Add(dtextbox(i))

AddHandler dtextbox(i).Click, AddressOf dtextbox_Click

Next

'mybook.save()

mybook.close()

GC.Collect()

'mybooks.quit()

myRange = Nothing

myRange2 = Nothing

mySht = Nothing

mybooks = Nothing

End Sub

Private Sub dtextbox_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

If btncolor = True Then

CType(sender, RichTextBox).BackColor = Color.White

btncolor = False

GoTo 45

End If

If btnprint = True Then

GoTo 40

End If

clicknum = clicknum + 1

If clicknum > 2 Then

dtextboxA1.BackColor = Color.White

dtextboxA2.BackColor = Color.White

clicknum = 1

End If

Select Case clicknum

Case 1

'dtextboxA1.Name = CType(sender, RichTextBox).Name

i = CType(sender, RichTextBox).Tag

'MsgBox(CType(sender, RichTextBox).Name)

' i2 = i

dtextboxA1 = CType(sender, RichTextBox)

CType(sender, RichTextBox).BackColor = Color.Orange

'dtextbox(i).Name = "jjjjjj"

Case 2

'dtextboxA2.Name = CType(sender, RichTextBox).Name

i2 = CType(sender, RichTextBox).Tag

'MsgBox(CType(sender, RichTextBox).Name)

' i2 = i

dtextboxA2 = CType(sender, RichTextBox)

CType(sender, RichTextBox).BackColor = Color.Orchid

'dtextbox(i2) = dtextboxA2

End Select

40:

CType(sender, RichTextBox).BackColor = Color.Orchid

45: 'btnprint = True

End Sub

Private Sub exchangeBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exchangeBtn.Click

Dim dtextbox(n3) As RichTextBox

dtextboxA3.Text = dtextboxA1.Text

dtextboxA1.Text = dtextboxA2.Text

dtextboxA2.Text = dtextboxA3.Text

dtextboxA1.BackColor = System.Drawing.Color.White

dtextboxA2.BackColor = System.Drawing.Color.White

'CType(sender, RichTextBox).ForeColor = Color.Black

End Sub

Private Sub buttonprint_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles buttonprint.Click

Tetpath.Visible = False

Me.btnpath.Visible = False

Me.startbtn.Visible = False

Me.NumericUpDown1.Visible = False

Me.Label1.Visible = False

Me.NumericUpDown2.Visible = False

Me.Label2.Visible = False

Me.Label3.Visible = False

Me.exchangeBtn.Visible = False

Me.buttonprint.Visible = False

Me.Buttonfont.Visible = False

Me.Buttonclass.Visible = True

Buttoncolorreset.Visible = False

Dim PD As New PrintDialog

If PD.ShowDialog() = Windows.Forms.DialogResult.Cancel Then

Me.buttonprint.Visible = True

Me.Buttonfont.Visible = True

Exit Sub

End If

Dim PN = PD.PrinterSettings.PrinterName

PrintForm1.Form = Me

PrintForm1.PrinterSettings.PrinterName = PN

PrintForm1.PrintAction = Printing.PrintAction.PrintToPreview

'PrintForm1.PrintAction = Printing.PrintAction.PrintToFile

PrintForm1.Print()

Me.buttonprint.Visible = True

Me.Buttonfont.Visible = True

End Sub

Private Sub Buttonfont_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttonfont.Click

btnprint = True

Tetpath.Visible = False

Me.btnpath.Visible = False

Me.startbtn.Visible = False

Me.NumericUpDown1.Visible = False

Me.Label1.Visible = False

Me.NumericUpDown2.Visible = False

Me.Label2.Visible = False

Me.Label3.Visible = False

Me.exchangeBtn.Visible = False

Me.buttonprint.Visible = True

Me.Buttonfont.Visible = False

Buttoncolorreset.Visible = True

FontDialog1.ShowColor = True

FontDialog1.Font = Me.Font

FontDialog1.Color = Me.ForeColor

'FontDialog1.ShowDialog()

If FontDialog1.ShowDialog() <> DialogResult.Cancel Then

Me.Font = FontDialog1.Font

Me.ForeColor = FontDialog1.Color

End If

End Sub

Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Buttoncolorreset_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Buttoncolorreset.Click

btncolor = True

End Sub

End Class