Adobe Premiere CS3 - 簡單講義

2. 視訊規格

PREMIRER的預設專案規格裡有各種目前現行的視訊規格設定，通常選預設的規格即可。已被全球各地電視業者採用的兩種標準電視播送格式 (NTSC 與 PAL)。這兩種格式最大的不同在於其每秒鐘的畫格數： NTSC 每秒 30 個畫格， PAL 每秒 25 個畫格。一般來說，台灣、美國、日本、加拿大和墨西哥使用的是 NTSC 系統，而法國、德國、英國、南美洲、澳洲，以及多數的西歐和亞洲國家使用 PAL 系統。

視訊尺寸：

720*480適用於DVD。
640*480適用於多媒體光碟。
320*240適用於網路傳輸。

聲音品質：

48K為高品質如CD音質；32K音質如FM廣播。


影片格式支援
MPEG1    
MPEG2-1    
MPEG2-2    
MPEG-4    
光碟格式
視訊大小 時間 品質 光碟容量
VCD 352*240 74-80分 普通 780M
SVCD 480*480 32分 好 780M
DVD 720*480 135分 最佳 4.7G

illustarator-變形好好玩

方法一
1 請繪製曲線
2 繪製小星星二個 大星星一個
3 利用漸變工具 / 由小變大再由大變小
4 全選
5 物件[功能表] / 漸變 / 取代旋轉
6 效果 / 扭曲與變形 / 變形 / 設定水平各參數 / 確定

效果不錯喔


方法二
1 用鉛筆 / 繪製不規則圓
2 物件[功能表] / 變形 / 縮放 / 栲備
3 物件[功能表] / 變形 / 旋轉 / 確定
重複上述動作
4 全選 / 上色
5 效果 / 扭曲與變形 / 縮攏 / 任意設定

效果不錯喔

什麼是三聚氰胺 ?

以下是我信箱收到的
和大家分享

各位好朋友們：
請發揮一傳十、十傳百的力量，告訴您通訊錄裏的所有好朋友們！
什麼是三聚氰胺 ?
l 吃多少才有害 ?
l 吃到了怎麼辦 ?
l 哪些東西可以吃 ?
l 為什麼不肖商人要添加呢 ?
讓我們一一告訴您！！

※ 三聚氰胺（Melamine）是什麼？
「三聚氰胺」俗稱「蛋白精」，是一種白色、無味的化工原料，常用於製造美耐皿餐具、建材、塗料等，不可用於食品或食品添加物。

※ 不肖廠商為什麼要在奶粉中添加三聚氰胺？
奶粉主要以蛋白質含量高低為品級分類，為通過奶粉中蛋白質含量檢測，不肖廠商才加入三聚氰胺。

※ 吃進三聚氰胺為什麼會造成腎結石？
初步研究認為由於加工過程中的某些原因使得三聚氰胺中常常混有三聚氰酸，兩者結合形成不溶於水的結構。吃進人體經腸胃道吸收後，在腎臟中兩者再次結合沉積，從而形成腎結石，堵塞腎小管，嚴重將導致腎衰竭。
三聚氰胺結石略溶於水，對於成年人，由於經常喝水使得結石不容易形成。但對於喝水較少的哺乳期嬰兒，腎臟較成年人狹小，更容易形成結石。

※ 三聚氰胺除了會造成腎病變及結石以外，會不會致癌？
根據國外的研究報告，理論上並不會引起癌症。

※ 吃多少三聚氰胺才危險？
以體重60公斤的成人計算，一次要喝好幾十公斤的毒奶粉，才有急性致死可能；泌尿道系統結石則要連續4周、天天吃7.8公克的純三聚氰胺才會發生。歐盟食品安全管理局建議，三聚氰胺的每日容許量為每公斤體重0.0005克，換算為60公斤成人，每日容許量為0.03克。

※ 不小心吃進三聚氰胺該怎麼辦？
若是真的吃到毒奶粉，最好的方法是多喝水，2.7～4小時即會經腎臟排出一半，且九成會在一天內排出體外，兩天內全數排出。
一天喝水2,000西西（約4大杯），大約一天上廁所7次，每次排尿300西西，就能完全排出毒素，可避免結石。

※ 喝太多水會不會對身體造成傷害？
假如腎臟功能正常，便不需要擔心，因為正常人每天也需要這麼多水份，多喝水不但可幫助排毒，還可以讓身體裡已經存在的小結石(直徑小於0.5公分)排出。若是一歲以下的小嬰兒或是腎功能不好的人，才需要限制飲水量，避免造成腎臟的負擔。

※ 如果還是擔心可能吃出問題，應掛那一科的門診？
建議可至家庭醫學科、一般內科、腎臟科或泌尿科、小兒科等，確認腎臟有無受到三聚氰胺的破壞；或透過腎臟超音波及X光檢查，確認有無泌尿道結石。

--
磐石保險經紀人股份有限公司
廖巧年
Tel:(02)5556-5678 分機381
Fax:(02)5558-1550
手機:0939-288776
台北市敦化北路102號3樓

不用錢的音樂會

祝賀余光中八十大壽【龍的傳人】三十年眾民歌手攜手唱出『詩與歌的迴旋曲』

‧作者： ‧發佈日期：2008/9/22 ‧9/26來大安森林公園聽民歌

這幾年民歌活動頻繁，讓許多五六年級的歌迷們耳福不淺，秋天才開始，最盛大也是唯一的一場主題性民歌活動----『詩與歌的迴旋曲 ----慶祝詩人余光中八十大壽民歌演唱會』----在9月26日晚上7點半就要在台北的大安森林公園上演，參與的陣容堅強，集結了楊弦、蘇來、許景淳、殷正洋、萬芳、野火樂集和胡德夫等，將用許多完美結合詩與歌的旋律再次造福歌迷們的耳朵。

除了演唱詩歌優美結合的作品之外，演唱會上的另一主題是為【龍的傳人】"慶生"，這首由侯德健作曲，當年在陶曉清的節目上首次發表的歌曲，至今也被傳唱三十年了，不止經典，侯德健創作不輟，在9月26日的演唱會上還會有新作品發表，演唱會上將由原唱李建復來詮釋【龍的傳人】及新歌【轉眼一瞬間】。

為了這場『詩與歌的迴旋曲』，所有的民歌手都將熱烈赴會，民歌迷們真的不能錯過這場難得的演唱會。

緣起

1975年開始的民歌熱潮除了全新創作抒發情感之外，就是將當時盛行的詩歌譜上曲子，舉演了被稱為史上第一場中國現代民歌演唱會(1975年6月6日)的楊弦將許多詩人余光中的作品譜成曲，並且被熱烈的傳唱著，像是【鄉愁四韻】、【迴旋曲】和【民歌手】等等，不止余光中，鄭愁予的作品也是"詩與歌的結合" 的例證，作曲家李泰祥譜出了【小木屐】和【傳說】等也都是大家耳熟能詳的民歌。

去年秋天，楊弦在參加紀念李雙澤的演唱會上，跟當時的主持人陶曉清聊到如何祝賀詩人余光中教授80大壽，兩人想辦場演唱會好了，陶曉清在之後提出這個議案，經由中華音樂人交流協會的理監事們討論後定案，決定在余教授生日(陰曆的9月9日重陽節，今年陽曆為10月7日)前一個星期，在台北舉辦一場名為「詩與歌的迴旋曲」的戶外演唱會，最高的原則就是不售票免費，作一場讓所有人都享受得到的詩與歌的饗宴。

同場的另一驚喜

就在這一場演出設計節目時，侯德健去找音樂人交流協會，說起關於【龍的傳人】這首歌問世也將要30年了，詢問有沒有辦活動的可能性。陶曉清在跟合作夥伴討論之後認為加上這個段落會讓節目更豐富，於是便邀請了李建復與包美聖來演唱侯德健的作品。李建復要唱的是【龍的傳人】與侯德健的新作【轉眼一瞬間】;包美聖唱的是【捉泥鰍】與【那一盆火】。

千里迢迢飛回台灣　就是要赴會

為了這場演唱會，參與的音樂人都是特別喬出時間來彩排與演出，像是2005年已定居在北京的蘇來，接到陶曉清的電話後二話不說，回到台灣兩個禮拜上通告作宣傳練彩排，同時還早早就打理好舞台裝；殷正洋在結束美國的活動之後在本週回到台灣也馬上投身彩排；淡出樂壇許久包美聖也特地點頭答應參與演出，演唱會的每首曲目都是經典之選，又僅有9月26日這一場，錯過實在可惜。

影音BLOG - 網址

http://www.im.tv/Vlog/
http://vlog.xuite.net/
http://tw.youtube.com/

為何國人愛COPY

我一直想一句銘言 [上樑不正 , 下樑歪]
試問大家討論一下 倒底是下面影响上面 , 還是上面影响下面
請看今天新聞
http://tw.news.yahoo.com/article/url/d/a/080926/2/16lcp.html

真是傷心萬分

ACCESS VBA 日曆傳值

Private Sub Calendar7_Click()
Forms![查詢日期]![起始日期].Value = Calendar7.Value
DoCmd.Close
End Sub

ACCESS VBA - 日期

Private Sub 起始日期_LostFocus()
起始日期.Value = Int(Mid(起始日期.Value, 1, 2)) + 1911 & "/" & Month(起始日期.Value) & "/" & Day(起始日期.Value)


End Sub

EXCEL - VBA 起始結束設計

Public Function 加分(類別, 起始日期, 結束日期)

If 類別 = "一般" Then
If 結束日期 < #1/1/1992# Then
y1 = Year(起始日期)
y2 = Year(結束日期)

x = y2 - y1
加分 = x

Else

y1 = Year(起始日期)
y2 = Year(結束日期)

x = y2 - y1
加分 = x
End If



Else

If 結束日期 < #1/1/1992# Then
y1 = Year(起始日期)
y2 = Year(結束日期)

x = y2 - y1
加分 = x
Else


y1 = Year(起始日期)
y2 = Year(結束日期)

x = y2 - y1
加分 = x * 2


End If





End If


End Function

EXCEL VBA - 取出儲存格的超連結網址(連續儲存格)

大家好 , 學生問的問題 , 主要功能是要取出儲存格的超連結內的網址 , 有可能是EMAIL , 有可能是檔案
也有可能是一般的網址 , 程式如下

Sub 取出連續儲存格的超連結()
Dim myrng As Range
Dim myhyps As Hyperlinks
Dim myhyp As Hyperlink

rstart = ActiveCell.Row
cstart = ActiveCell.Address
Selection.End(xlDown).Select
rend = ActiveCell.Row
Selection.End(xlUp).Select

For i = rstart To rend Step 1


x = Mid(cstart, 2, 1) & i

y = "a" & i

Set myrng = Range(x)

With myrng
Set myhyps = .Hyperlinks
Set myhyp = myhyps(1)
Range(y).Value = myhyp.Address

End With

Set myrng = Nothing

Set myhyps = Nothing
Set myhyp = Nothing

Next

End Sub

EXCEL VBA - 取出儲存格的超連結網址(單一儲存格)

大家好 , 學生問的問題 , 主要功能是要取出儲存格的超連結內的網址 , 有可能是EMAIL , 有可能是檔案
也有可能是一般的網址 , 程式如下


Sub 單一儲存格()
Dim myrng As Range
Dim myhyps As Hyperlinks
Dim myhyp As Hyperlink
x = ActiveCell.Address
Set myrng = Range(x)

With myrng
Set myhyps = .Hyperlinks
Set myhyp = myhyps(1)
Range("a1").Value = myhyp.Address

End With

Set myrng = Nothing

Set myhyps = Nothing
Set myhyp = Nothing



End Sub

EXCEL 書

書籍編號 書籍名稱 單價 封面照片
1 AutoCAD 操作入門 350
2 Delphi 使用手冊 420
3 Excel 使用手冊 450
4 Internet 上線實務 320
5 Internet 精緻之旅 320
6 MS Plus! 使用手冊 400
7 PhotoShop 細說從頭 980
8 PowerPoint 使用手冊 450
9 Visual Basic 學習手冊 350
10 Windows 95 使用手冊 450
11 Word 使用手冊 450
12 WWW 實用寶典 350
13 遊戲程式設計 350
14 電腦低階應用實務 320

EXCEL 細目

細目序號 訂單序號 數量 查閱書籍
1 1 20 WWW 實用寶典
2 2 50 Windows 95 使用手冊
3 3 25 Word 使用手冊
4 4 15 Excel 使用手冊
5 5 30 Internet 精緻之旅
6 6 55 Internet 精緻之旅
7 7 20 MS Plus! 使用手冊
8 8 50 Windows 95 使用手冊
9 9 25 Word 使用手冊
10 10 15 Excel 使用手冊
11 11 30 Internet 精緻之旅
12 12 55 PowerPoint 使用手冊
13 13 22 AutoCAD 操作入門
14 14 50 Windows 95 使用手冊
15 15 44 遊戲程式設計
16 16 5 AutoCAD 操作入門
17 17 3 Visual Basic 學習手冊
18 18 15 Delphi 使用手冊
19 19 32 PowerPoint 使用手冊
20 20 12 遊戲程式設計
21 21 3 電腦低階應用實務
22 22 60 Windows 95 使用手冊
23 23 50 MS Plus! 使用手冊
24 24 45 MS Plus! 使用手冊
25 25 35 Excel 使用手冊
26 26 54 Windows 95 使用手冊
27 27 30 Internet 上線實務
28 28 25 Internet 精緻之旅
29 29 18 AutoCAD 操作入門
30 30 10 Visual Basic 學習手冊
31 31 20 Word 使用手冊
32 32 25 Word 使用手冊
33 33 20 WWW 實用寶典
34 34 15 Internet 精緻之旅
35 35 10 PhotoShop 細說從頭
38 1 40 Internet 上線實務
39 1 9 Delphi 使用手冊
40 1 40 Windows 95 使用手冊
41 2 20 Internet 上線實務
42 3 15 Excel 使用手冊
43 3 10 PowerPoint 使用手冊
44 3 22 WWW 實用寶典
45 3 20 MS Plus! 使用手冊
46 5 32 Internet 上線實務
47 7 30 Windows 95 使用手冊
48 7 15 Internet 上線實務
49 8 20 Delphi 使用手冊
50 9 5 Internet 精緻之旅
51 9 10 AutoCAD 操作入門
52 9 5 Delphi 使用手冊
53 9 2 PhotoShop 細說從頭
54 9 4 Visual Basic 學習手冊
55 9 2 遊戲程式設計
56 9 2 電腦低階應用實務
57 10 5 WWW 實用寶典
58 10 5 Delphi 使用手冊
59 10 10 Windows 95 使用手冊
60 10 10 Visual Basic 學習手冊
61 10 20 MS Plus! 使用手冊
62 10 3 遊戲程式設計
63 10 3 AutoCAD 操作入門
64 10 3 電腦低階應用實務
65 11 30 MS Plus! 使用手冊
66 11 40 Internet 上線實務
67 11 10 Delphi 使用手冊
68 12 8 PhotoShop 細說從頭
69 12 15 MS Plus! 使用手冊
70 12 20 Windows 95 使用手冊
71 12 10 Word 使用手冊
72 13 5 Delphi 使用手冊
73 13 8 Excel 使用手冊
74 13 8 Internet 上線實務
75 13 5 Visual Basic 學習手冊
76 14 45 MS Plus! 使用手冊
77 14 40 Internet 上線實務
78 14 40 WWW 實用寶典
79 14 20 Internet 精緻之旅
80 14 22 Word 使用手冊
81 15 4 AutoCAD 操作入門
82 15 10 Visual Basic 學習手冊
83 15 10 Delphi 使用手冊
84 16 10 Excel 使用手冊
85 17 3 Delphi 使用手冊
86 17 10 MS Plus! 使用手冊
87 17 2 PhotoShop 細說從頭
88 17 3 PowerPoint 使用手冊
89 17 12 Windows 95 使用手冊
90 17 6 Excel 使用手冊
91 17 8 Word 使用手冊
92 18 15 Internet 上線實務
93 18 20 MS Plus! 使用手冊
94 19 20 Excel 使用手冊
95 19 20 MS Plus! 使用手冊
96 19 20 Windows 95 使用手冊
97 19 15 WWW 實用寶典
98 20 10 Internet 上線實務
99 20 5 MS Plus! 使用手冊
100 21 5 Delphi 使用手冊
101 22 20 Internet 上線實務
102 22 20 MS Plus! 使用手冊
103 22 15 WWW 實用寶典
104 24 35 Internet 上線實務
105 24 45 Windows 95 使用手冊
106 24 15 Visual Basic 學習手冊
107 24 15 Delphi 使用手冊
108 25 8 PhotoShop 細說從頭
109 25 5 PowerPoint 使用手冊
110 25 5 MS Plus! 使用手冊
111 26 35 MS Plus! 使用手冊
112 26 25 Word 使用手冊
113 27 25 Windows 95 使用手冊
114 27 30 MS Plus! 使用手冊
115 27 5 AutoCAD 操作入門
116 27 2 PhotoShop 細說從頭
117 27 5 Visual Basic 學習手冊
118 29 10 MS Plus! 使用手冊
119 30 10 Excel 使用手冊
120 30 10 PowerPoint 使用手冊
121 30 10 Word 使用手冊
122 30 20 MS Plus! 使用手冊
123 30 20 Windows 95 使用手冊
124 30 20 Internet 上線實務
125 30 20 Internet 精緻之旅
126 30 20 WWW 實用寶典
127 31 25 MS Plus! 使用手冊
128 31 5 Visual Basic 學習手冊
129 31 5 WWW 實用寶典
130 32 10 Delphi 使用手冊
131 32 15 MS Plus! 使用手冊
132 33 25 Internet 上線實務
133 33 30 MS Plus! 使用手冊
134 33 30 Windows 95 使用手冊
135 33 15 WWW 實用寶典
136 33 10 Internet 精緻之旅
137 34 15 MS Plus! 使用手冊
138 35 1 AutoCAD 操作入門
139 35 3 Delphi 使用手冊
140 35 5 Excel 使用手冊
141 35 30 Internet 上線實務
142 35 15 MS Plus! 使用手冊
143 35 5 PowerPoint 使用手冊
144 35 3 Visual Basic 學習手冊
145 35 20 Windows 95 使用手冊
146 35 8 Word 使用手冊
147 35 10 WWW 實用寶典
148 35 3 遊戲程式設計
149 35 1 電腦低階應用實務
150 6 30 Internet 上線實務
151 8 30 Internet 上線實務
152 9 35 Internet 上線實務
153 10 25 Internet 上線實務
154 10 20 Windows 95 使用手冊
155 12 25 Internet 上線實務
158 4 2 MS Plus! 使用手冊

EXCEL 訂單

訂單序號 日期 查閱客戶 是否付款 備註
1 85/01/02 聰明書店 -1 "用郵寄方式, 在 5 號之前要寄到
01/10 催繳書款
01/15 向陳老板催繳書款未果
01/20 再次催繳書款未果
01/22 終於繳清書款了"
2 85/01/13 大發書店 0 向楊主任詢問付款時間
3 85/01/13 聰明書店 -1
4 85/01/15 好看書店 0 先拿 5 本應急, 其餘後補
5 85/01/18 新新書店 -1
6 85/01/18 好看書店 -1
7 85/02/02 十全書店 -1
8 85/02/07 好看書店 -1
9 85/02/13 大發書店 0
10 85/02/15 聰明書店 0 請向謝小姐收款
11 85/02/18 新新書店 -1
12 85/02/18 好看書店 0
13 85/02/19 十全書店 -1
14 85/02/20 新新書店 -1 存貨不多了, 要趕快再版
15 85/02/20 旗竿書店 0
16 85/02/24 英雄書店 0 要郵寄, 收件人寫周大媽
17 85/02/26 十全書店 -1
18 85/03/01 新新書店 -1
19 85/03/01 聰明書店 -1
20 85/03/02 大發書店 0
21 85/03/05 聰明書店 -1
22 85/03/05 新新書店 0 要送到忠孝分店
23 85/03/05 愚人書店 -1
24 85/03/08 英雄書店 -1
25 85/03/08 新新書店 0
26 85/03/08 聰明書店 0
27 85/03/09 十全書店 -1
28 85/03/11 好看書店 0 帳款可先欠, 下次一起付
29 85/03/12 大發書店 0
30 85/03/12 大發書店 0
31 85/03/13 大發書店 0
32 85/03/17 愚人書店 0 送貨時順便做一下市場調查
33 85/03/20 新新書店 -1
34 85/03/20 旗竿書店 -1
35 85/03/20 大發書店 -1

EXCEL 客戶

客戶編號 客戶名稱 聯絡人 性別 地址 電話
1 十全書店 陳圓圓 女 北市仁愛路二段56號 (02)321-9845
2 大發書店 陳季暄 女 北市敦化南路一段1號 (02)333-4444
3 好看書店 趙飛燕 女 北市忠孝東路四段4 號 (02)598-4333
4 英雄書店 孟庭亭 女 北市南京東路三段3號 (02)722-5652
5 愚人書店 劉天王 男 北市北平東路24號 (02)578-6666
6 新新書店 黎國明 男 北市中山北路六段88號 (02)555-7444
7 旗竿書店 郭國臹 男 北市師大路67號 (02)341-2345
8 聰明書店 蘇涵蘊 女 北市紹興南路99號 (02)396-4444

EXCEL-VBA - 合併

Sub 合併()

Sheets(1).Select
Sheets.Add

For i = 2 To 20 Step 1

Sheets(i).Select
If i < 3 Then
Range("A1").Select ' 選範圍
Else
Range("A2").Select ' 選範圍
End If
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select



Application.CutCopyMode = False
Selection.Copy



Sheets(1).Select
ActiveSheet.Paste
Application.CutCopyMode = False




Selection.End(xlDown).Select

ActiveCell.Offset(1, 0).Select



Next

End Sub

EXCEL_VBA 工作表命名

方法一 : 陣列
1 工具 / 巨集 / 巨集 / 給名稱 / 編輯
2 輸入以下內容
Sub 命名()
Dim x
x = Array("板橋", "海山", "中和", "永和", "三重", "土城", "新莊", "樹林", "婦幼", "三陜", "驢洲", "新店", "金山", "瑞芳", "汐止", "保安", "交通", "少年", "淡水")

For i = 1 To 19 Step 1
Sheets.Add
Next



For i = 1 To 19 Step 1


Sheets(i).Name = x(i - 1)

Next
End Sub

方法二
1 建立一個DATA的工作表 , 置於最後一張工作表位置
2 內容從A1儲存格輸入 區域 如
板橋
海山
中和
永和
三重
土城
新莊
樹林
婦幼
三陜
驢洲
新店
金山
瑞芳
汐止
保安
交通
少年
淡水
3 工具 / 巨集 / 巨集 / 給名稱 / 編輯
4 輸入下列內容
Sub 命名()
Sheets("DATA").Select
Range("a1").Select

For i = 1 To 19 Step 1

Sheets("DATA").Select
x = ActiveCell.Offset(i - 1, 0).Value

Sheets(i).Name = x

Next
End Sub

5 請結束巨集編輯視窗 / 工具 / 巨集 / 巨集 / 選取 命名
/ 執行
註 : 要注意 工作表張數(大於20張)

我的妹咕故事

大家好 難得今日好天氣 , 我帶妹咕去走一走
大的小朋友和小的小朋友都感冒 , 但是今天是今年唯一有休假的日子
所以我想了一下要帶妹咕去走一走.
耳邊傳來 , 阿爸 您真的要帶找去嗎 , 你不可以騙人喔
突然一陣熱 , 一陣力道 , 像是一群牛隻衝向你
是妹咕 是熱情的妹咕 是期待以久的妹咕 是我的妹咕
謝謝阿爸....重覆數十次
這就是精靈的妹咕
熱情的太陽 像是家中的內人 , 一臉臭臭 , 好似隨時都要炸開
妹咕和我只能悄悄的和她說 , 阿咪我們去木柵走走喔
阿咪同意了 , 此時的妹咕 更是展開狂吻攻勢 [謝謝阿咪]

數小時........終於要出發了

3人行必有我師 , 妹咕就是我的小老師 , 一路上談到
阿爸 ...等一下我要打珠珠
阿咪 也是我的老師 [ 打妳的頭 , 妹咕不行 ]
他們的對話有趣真有趣
一個下午我們都在木柵 , 發現妹咕長大了 , 真的長大了
不論是高度 [目前117] 年齡[6才] 她已是一位可愛的女孩喔
我愛她 , 真的身為父親的我真的愛她
她是百萬寶寶 ..... 真希望這一刻可以永停止
但是我們皆知 是不可能的
祝大家都可以有美好的回憶 在您的BLOG