第一篇：常見問題總結

如何降低Noise

方法一：普通亮度下，犧牲幀率

方法：在pline_table中修改，降低shutter，Gain值略做減小。

方法二：低亮度下，犧牲圖片亮度

方法：在Pline table中修改，shutter值不變，gain值降低

方法三：調整對應的ＥＥ和ANR參數

方法四：降低當前圖片的飽和度

降低PCA或CCR

照片ISO小暗環境才400左右這個問題有兩個原因導致：

1.Mini ISO 低

2.capture AE Pline table最大的gain 為6倍。

基于上面兩個原因，暗處計算出來的ISO 就低。

因為修改AE pline table 會影響capture 的noise表現。我這邊建議修改Mini ISO（這個值反應sensor的敏感度，但目前只是用來計算ISO 值）。建議修改到100.修改文件： camera_tuning_para_xxx.cpp

56-->100, // u4MiniISOGain, ISOxx

使用82 CCT做CCM時只生成一組參數

貴司的操作 是 Muti CCM。也就是說，貴司的操作 CCM 生效的在 camera_tuning_para_ov8858raw.cpp文件中的 CAMERA_ISP_DEFAULT_VALUE 里面的ISPCcmPoly22 這個結構體。

而 camera_isp_regs_ov8858raw.cpp 中的 CCM 部分 是 Dynamic CCM。

如果需要使用 Dynamic CCM 的參數。因為 82 的 cct tools 并沒有把 gen Dynamic CCM 的功能打開。

可以使用 92 的 cct tools，在 CCM 頁面 按照相同的操作，在每次 add new poly data 之前 使用 右上角的 矩陣下拉菜單 保存到對應的色溫下。

如何開啟 Dynamic CCM 的功能，請參考 isp_tuning_customer.cpp 檔案中的is_to_invoke_dynamic_ccm 函數

返回值是 MTRUE 表示 使用Muti CCM。

返回值是MFALSE 表示使用Dynamic CCM。

默認使用的是 Muti CCM。

因此貴司反饋 camera_isp_regs_ov8858raw.cpp文件中只產生D65一組參數，CWF,TL84,A對應的參數都是0.電話：+86 755 2663 0099 分機：85016

Camera 快速入門MediatekSupportCamera Support

Camera器件選2擇

Camera概述Camera HW介紹

Camera軟件架4構

Camera DriverDriver的配置Porting Guide

常見問題及7Debug

Camera TuningTuning Tool及設備介紹Tuning Guide常見問題及Debug

Camera 應用Camera 應用簡介Camera 應用常見問題

Camera Feature

Feature介紹/常見問 題Feature開關/常用配 13

置Feature API調用

Camera進階實作

添加三方feature/算 法添加External ISPPerformance問題分析16

學習天地學習資料鏈接ApplicationNote

MediaTek support

1，Camera HW Design

平臺通用的注意事項請參考DCC文件:

MediaTek DCC > External Document > HW > Common Design Notes > Camera > Common

各平臺的注意事項請參考各平臺Design Notes的camera 章節

2，申請驅動代碼：

需要使用的sensor請到Camera器件查找對應平臺是否已經上DRL，表格里面沒有的器件，請找HW CPM商討對策。表格里support的器件release的代碼包里會有，如果沒有或者不確定是否為最新版本，請提EService申請并在拿到驅動代碼后驗證

3，申請調試：

確認驅動ok后，如需我司調試，請提對應的Eservice過來，格式請參考

[FAQ03734]如何提交Camera調試效果需求

4，遇到問題

上搜索是否有答案，可以查到對應問題的文檔，請先在FAQ，Ecource等，如果搜索的內容不佳，可以對搜索內容加上英文雙引號""會更加精準，如果沒有解決，請提EService給我司，并請按照以下規范

5，提E_service的規范：

Camera Function性質問題（例如死機，花屏，黑屏，卡屏等）a)標題中需要注明是哪顆image sensor，提交時需正確填寫復現概率，復現步驟，以及現象描述。并提供復現問題時的mobile log和驅動代碼 Camera圖像效果方面的問題（例如shading，飽和度，噪點，清晰度等）a)請注意在note中注明該項目是否有人調試過并說明調試人員，如果是我司調試過的項目，請同時提供eservice ID

b)請提交問題時提供對應的問題圖片和對比機圖片，同時將Tuning參數發過來

其他Camera問題

a)其他camera問題，需注意描述正確，提交mobile log，不好描述時請提供視頻

Camera器件選擇

1，查看Mediatek support的Image Sensor型號

在MOL上QVL/DRL ListCamera部分可以查看目前我們各個平臺支持的Camera?的型號（一般四周更新一次）

Excel表格Name：MTK_Camera_Sensor_DRL_W****.xlsx（W***表示是哪一周更新的表格）

第二篇：鋼筋常見問題總結

1.剪力墻水平筋用不用伸至暗柱柱邊？（在水平方向暗柱長度遠大于lae時）

答：要伸至柱對邊，其構造03G101-1已表達清楚，其原理就是剪力強暗柱與墻身本身是一個共同工作的整體，不是幾個構件的連接組合，暗柱不是柱，它是剪力墻的豎向加強帶；暗柱與墻等厚，其剛度與墻一致。不能套用梁與柱兩種不同構件的連接概念。剪力墻遇暗柱是收邊而不是錨固。

2.剪力墻端部有暗柱時，剪力墻水平鋼筋應該伸入柱鋼筋內側還是外側，現實中大多數工地都是伸入暗柱主筋外側，我覺得這樣不妥，但圖集上沒有詳細規定，正確的做法應該是怎么樣的？

答： 通常剪力墻水平鋼筋放在外側，如果伸入端柱豎向鋼筋內側時，需要向內彎折，這樣做會形成鋼筋籠“頸縮”，因此，水平鋼筋走暗柱主筋外側即可。剪力墻盡端不存在水平鋼筋的支座，只存在“收邊”問題。請參看03G101勘誤：

6、第47頁端部暗柱墻構造中剪力墻水平筋彎鉤位置稍往后退，在暗柱端部縱筋后“扎進”暗柱。

3.《03G101-1圖集》第17頁的第（5）條規定：洞口上下左右每邊都設置補強鋼筋；但第（4）條只在上下設置、而不在左右設置？

答： 03G101-1的洞口規則與構造僅適用于剪力墻上（含墻身、墻梁與墻柱）開洞，如果在框架梁或非框架梁上開洞，其構造方式就有所不同了。梁與墻梁的主要受力機理不同，梁的主要功能是承受豎向荷載，連梁的主要功能是協助剪力墻承受橫向地震荷載；梁的箍筋主要為保證梁的（受剪）強度而設，連梁的箍筋主要為保證連梁的剛度而設。所以，當設置在連梁中部且直徑不大于1/3梁高的圓洞切斷了連梁的箍筋時，并不會使連梁的受剪強度減弱到不安全的程度，但卻會影響連梁的剛度。所以，第（4）條規定僅需在洞口上下設置“補強鋼筋”（嚴格的說法應是“補剛鋼筋”）。

4.當框架柱的上層鋼筋直徑小于下層鋼筋直徑時（柱截面不變），能否采用將下 層鋼筋在樓板板厚范圍內彎折收頭，而上層鋼筋重新插筋的方式施工？若可以，上 層鋼筋的插入長度應為多少？

答：可以，上層鋼筋的插入長度應大于1.5la，但是如此施工過于浪費。一般，此情況宜采用上下層鋼筋連接的做法，搭接、機械連接或對焊均可。

柱

● 柱問題（1）：柱縱筋錨入基礎的問題

《03G101-1圖集》對基礎頂面以上的柱縱筋的構造要求講得比較詳細，但是對柱縱筋錨入基礎的問題，圖集中沒有介紹，而且，此類問題查看了一些混凝土構造手冊之類也找不到詳細的介紹，所以，很有必要在此向專家請教，這些問題也是不少工程技術人員共同的問題。① 柱縱筋伸入基礎（承臺梁，或有梁式筏板基礎的基礎梁）的錨固長度是多少？是一個 laE 還是更多？（甚至有人提出 1.5 倍的 laE）

② 當柱縱筋伸入基礎的直錨長度滿足“錨固長度”的要求，是否可以“直錨”而不必進行彎錨？有的人說可以“直錨”；但又有人說必須拐一個直角彎。

③ 如果柱縱筋伸入基礎必須“彎錨”的話，彎折部分長度是多少？有人說是 10d ,而在《03G101-1圖集》第39頁“梁上柱LZ縱筋構造”中彎折長度為 12d，這個規定是否可用于基礎？

④ 同樣在《03G101-1圖集》第39頁“梁上柱LZ縱筋構造”中，規定“直錨部分長度”不小于 0.5 laE，這個規定是否可用于基礎？

⑤ 當基礎梁的梁高大于柱縱筋的錨固長度時，柱縱筋可以不伸到梁的底部。是這樣的嗎？⑥ 當基礎梁的梁高小于柱縱筋的錨固長度時，柱縱筋必須伸到梁的底部，然后拐一個直角彎。其彎折部分長度，“剩多少拐過去多少”，顯然不合適。這時候，應該用上前面第③條，即規定一個彎折部分長度；同時，也應該檢驗一下“直錨部分長度”，看看它是否不小于前面第④條規定的“最小直錨長度”。是這樣的嗎？

■ 答柱問題（1）： 所提問題將會在“筏形、箱形、地下室基礎平法國家建筑標準設計03G101-

3、-4”中得到相應答案（2003年底陸續推出）。現在簡單答復如下：

①⑤ 柱縱筋一般要求伸至基礎底部縱筋位置。特厚基礎（2米以上）中部設有抗水化熱的鋼筋時，基礎有飛邊的所有柱和基礎無飛邊的中柱的柱縱筋可伸至中層筋位置；②③ 當柱縱筋伸入基礎的直錨長度滿足“錨固長度”的要求時，要求彎折12d；④⑥ 梁上柱縱筋的錨固要求亦適用于柱在基礎中的錨固，但要求柱縱筋“坐底”。

● 柱問題（2）： 我們在施工中經常遇到柱主筋 大變小的問題。試問：當柱子采用電渣壓力焊時候有什么限制條件，例：25mm碰焊14mm的鋼筋的能不能？

■ 答柱問題（2）： 25mm碰焊14mm，直徑相差過大受力時會出現應力集中現象。如果施工規范對大小直徑鋼筋對焊無限制規定的話，建議直徑相差不要超過兩級（25與20或18與

14）。

● 柱問題（3）： 柱伸入承臺梁或基礎梁中，是否設置箍筋？箍筋如何設置？不需加密？ 此箍筋起什么作用？ 這個問題如果在施工圖中明確標示，就沒有問題。如果在施工圖中沒有明確表出，則施工人員如何執行？現在的情況是各人有各的做法，例如，有的人設置兩根箍筋，有的人只設置一根箍筋。

■ 答柱問題（3）： 要設不少于兩道箍筋，但不需要加密。箍筋的作用是保持柱縱筋在澆筑混凝土時鋼筋之間的相對位置和鋼筋籠的定位不受擾動。

● 柱問題（4）： 柱上端“非連接區”？

《G101圖集》規定，柱的下部，即在樓板梁的上方有一個“非連接區”（是個箍筋加密區），縱筋的接頭只能在“非連接區”以上部位（也就是柱的中部）進行。然而，圖集沒有規定在柱的上部有沒有“非連接區”？例如，在柱上部的箍筋加密區或者在柱梁的交叉部位允許不允許縱筋連接？

事實上，有的施工人員在上述的柱上部區域進行了鋼筋接頭。這樣，他在柱中部有一個鋼筋接頭，在柱上部又有一個鋼筋接頭，違背了“同一縱向受力鋼筋不宜設置兩個或兩個以上接頭”的規定。（見《混凝土結構工程施工質量驗收規范》）

不過，上述規范的用語是“不宜”，并沒有強制規定。因此，請教一下上述柱縱筋的接頭問題如何解釋？如何執行？其中有什么理論根據？

■ 答柱問題（4）： 提問者可能是指00G101，03G101-1中從下層柱的上部到上層柱的下部形成的非連接區是連續的。規范對此規定是“不宜”，未做強制規定，國家建筑標準設計的規定偏嚴，對保證質量有好處。如果難以做到，結構設計師可以對此規定進行變更。規范用語“不宜”，反映了中國人的辨證思維。對于執行與否，結構設計師有抉擇權利。該規定多出于概念設計考慮，未見其理論根據的文章發表。

● 柱問題（5）：前在03G101第45頁中（非抗震KZ箍筋構造非抗震QZ.LZ縱向鋼筋構造）中注7：當為復合箍筋時，對于四邊有梁與柱相連的同一節點，可僅在四根梁端的最高梁底

至最低梁頂范圍周邊設置矩形封閉箍筋，那么請問陳教授，1、該條能否用于第36頁（抗震KZ縱向鋼筋連接構造）中。或者說用于四級抗震的節點處。因為我注意到構造規定中非抗震與四級抗震處理基本上一樣的。

2、對于四邊有梁與柱相連的同一節點能否用于邊（端）柱與梁相交處。

■ 答柱問題（5）：

1、該條不適用于（抗震KZ縱向鋼筋連接構造），抗震結構要求所有復合箍筋要貫通柱梁節點，而且要按照加密間距設置。

2、只有邊柱有懸挑梁時才會形成四邊有梁的情況，該節點構造要求適用于該情況。

● 柱問題（6）：有的施工單位把柱子的接頭只考慮底部的區域滿足要求 而上部卻不考慮，施工單位 認為是受壓的，所以他們認為 他們采取的閃光對焊上部接頭 他們就不考慮了？這樣做法對嗎？

■ 答柱問題（6）： 框架柱是偏壓構件，受彎矩、軸向壓力和剪力的共同作用，其受彎時的反彎點一般在柱中稍向上的位置，抗震時柱兩端都要加密箍筋以保證實現“強剪弱彎”，因此，連接位置不考慮避開柱上端是錯誤的。

● 綜合問題（1）： 在混凝土結構施工中，出現Ⅳ級鋼筋時，它得錨固長度應該如何計算？因在混凝土結構設計規范及混凝土驗收規范上都沒有出現Ⅳ鋼筋，是否國家已經取消了該級別的鋼筋用于建筑工程中。謝謝！

■ 答綜合問題（1）： 混凝土結構基本理論中，受混凝土的極限應變值的限制，強度過高的鋼筋發揮不出其全部作用（這正是混凝土設計規范和施工規范不設Ⅳ級鋼筋的理論依據）。所以，即便是Ⅳ級鋼筋，其強度設計值也只能取到360N/mm2（與Ⅲ級鋼筋相同），且當用于軸心受拉和小偏心受拉構件時只能按300N/mm2取用。因此，高于Ⅲ級的鋼筋的錨固長度取值按Ⅲ級鋼筋即可。

還有，Ⅳ級鋼筋的塑性性能和可焊性比新Ⅲ級鋼筋差，用在普通混凝土結構中并不合適，也不經濟。

● 綜合問題（2）： 03G101與03G329有矛盾時依誰為準？

■ 答綜合問題（2）： 03G101在編制時已經盡可能地做到與03G329協調一致。當設計者選用03G101時，應以03G101為準。當設計者既選用了03G101，又選用了03G329時，由于03G101中的構造是與平法施工圖配套使用的正式設計文件（詳見03G101總說明第4、5兩條），如果設計者采用了平法制圖規則完成了施工圖設計，其構造應以03G101為準；如果未使用平法表達，則不應以03G101為準。

●綜合問題（3）： 03G101圖集中為什么把受力鋼筋的錨固長度改了，這些數據不便記憶，施工中也容易出錯，為什么不采用整數呢？

■ 答綜合問題（3）： 不是03G101把受力鋼筋的錨固長度改了，而是《混規》GB50010-2002把原來以5d進位的錨固長度改了。《混規》也是國家建筑標準設計03G101的依據之一。為了方便施工，03G101把規范第9.3條的公式根據不同的鋼筋種類、混凝土強度等級以及鋼筋直徑計算成表格，盡量做到目前的樣子。

● 綜合問題（4）：在“GB50010-2002”混凝土結構設計規范第126頁10.1.5條規定板下不受力鋼筋伸入支座的錨固長度不應小于5d，我個人認為是否還應該滿足伸至支座的中心線位置，這也是一貫的施工做法。

■ 答綜合問題（4）：請注意規范用語“不應小于”的意義。大學教科書中是“=”概念，而工程規范和規程是“≥”的概念，因此，可以伸至支座中心位置。

當為非抗震設計時，正常情況下板的下部鋼筋在支座部位受壓；當為抗震設計時，通常板不作為耗能構件，因而不考慮地震作用的分配，仍然按非抗震設計，板的下部鋼筋在支座部位亦受壓；在這兩種情況下，即便其伸入支座長度為5d，通常也是安全的。執行規范規定時，應特別注意“當連續板內溫度、收縮應力較大時，伸入支座的錨固長度宜適當增加”。● 綜合問題（5）：有梁式筏板基礎問題：

① 筏板部分一般為上下兩層鋼筋網，下層鋼筋網片放在最下面，基礎梁的整個鋼筋（箍筋及縱筋）放在下層鋼筋網片的上面。是這樣的嗎？

② 但是，一般圖紙在標注基礎梁的高度時，梁底標高和筏板板底標高是在同一個高度，這樣就出現了“基礎梁的有效高度”縮減的問題。因為，首先是梁的下部縱筋的保護層變厚了。（最下面是筏板的保護層，然后是筏板下層鋼筋網片的縱橫鋼筋，然后是基礎梁的縱筋，最后才是基礎梁的下部縱筋）當我們進行基礎梁的強度計算時，應該采用這個“縮減后的有效高度”進行計算。您說對嗎？然而，有的設計院并不是這樣，甚至連基礎梁的箍筋高度還是采用梁高減兩倍的保護層來計算的，這顯然會造成箍筋“高度太大”。

③ 至于筏板鋼筋網片，縱橫兩個方向的鋼筋哪個在下面、哪個在上面？是否應為： ⅰ“下層鋼筋網片”是短方向的鋼筋在下面、長方向的鋼筋在上面；

ⅱ“上層鋼筋網片”是長方向的鋼筋在下面、短方向的鋼筋在上面；

ⅲ 因為，從“有梁式筏板”的受力結構模型來看，正好是“樓板和梁”的受力結構模型翻轉過來。這樣的看法對嗎？

■ 答綜合問題（5）：

1、形基礎的鋼筋配置包括梁（或暗梁）和板兩部分，布筋考慮一般“以梁為先”；

2、比較兩個方向上的基礎梁，從中判斷強者（等高時選跨度較小者，不等高時選高度較大者），與“強梁”相垂直布置第一層（最底層）板筋；

3、在第一層板筋之上并與其垂直布置“強梁”的底層縱筋和第二層板筋（“強梁”的箍筋與第一層板筋在同一層面上插空走過）；

4、再在其上布置另一方向上梁的底層縱筋；

5、板上部面筋的布置依據板區兩個方向的跨度。跨度相差較大時，短跨面筋在上，長跨面筋在下；跨度相差不大時，與板底筋的上下保持一致（兩個方向的ho相等）；

6、設計時應當充分考慮兩個方向梁相交對ho的影響，也應當考慮雙向板的ho與單向板不同；

7、“筏形基礎”相當于“倒樓蓋”的說法不完全正確。當承受地震橫向作用是，柱是第一道防線，樓蓋梁是耗能構件，所以要做到“強柱弱梁”“強剪弱彎”，梁要考慮箍筋加密區、塑性鉸等問題；但筏形基礎的基礎梁通常不考慮參與抵抗地震作用計算。

● 綜合問題（6）： 凡是“沒有明令禁止”的連接區域，鋼筋是否就可以連接呢？■ 答綜合問題（6）： 事實上，除高抗震設防烈度的重要構件外，沒有明令“完全”禁止的非連接部位。只要保證連接質量和控制連接百分率，在任何位置都可以連接。需要注意的是“盡可能避開”這個要求的含義，如盡可能避開節點區、箍筋加密區、應力（彎矩）較大區等等。

● 綜合問題（7）：框架頂層端節點處，可將柱外側縱向鋼筋的相應部分彎入梁內作梁上部縱向鋼筋使用，也可將梁上部縱向鋼筋與柱外側縱向鋼筋在頂層及附近部位搭接。請問陳教授這原理是不是柱與梁是剛節點？那么是不是頂層主梁與柱鋼筋連接要這樣做，頂層聯系梁鋼筋與柱鋼筋連接是不是可以不這樣做的，只要保證錨固長度就可以了？

■ 答綜合問題（7）： 抗震結構柱與梁的連接節點為剛性連接。問題的后半部不好答復，因所提“主梁”與“聯系梁” 是否為框架梁還缺少若干判別條件。頂層框架梁與框架柱的連接必須采用該節點構造，但頂層非框架梁通常不與框架柱連接，所以與該構造無關；遇特殊

情況頂層非框架梁的一端與柱相連（另一端以梁為支座）時，由于未形成框架（因而不是框架梁），所以滿足錨固條件即可。

● 綜合問題（8）：有的施工單位和監理都對關于筏片基礎的基礎梁是否要錨固如果錨固 那 又怎樣計算，還有板是否要彎勾？如果彎勾，那采取什么標準？

■ 答綜合問題（8）：

1、筏形基礎的基礎梁主要功能之一是作為框架柱的支座，因此，基礎主梁（直接支承框架柱的基礎梁）的鋼筋（縱筋與箍筋）應在節點區連續布置；基礎次梁（以基礎梁為支座的基礎梁）的鋼筋應錨固在基礎主梁中（可參考框架梁的錨固方式，但上下鋼筋受力性質相反）。

2、筏形基礎板盡端鋼筋彎鉤直段≥12d，當板的上部與下部均配置鋼筋時，要采用拉筋將板封邊。

第三篇：OPNET常見問題總結

OPNET常見問題總結

1．如何設置全局變量？

在.h文件里定義變量，然后在process的HEAD BLOCK 里include 這個頭文件，就可以使用全局變量了。

2．OPNET中如何更方便的看程序？

1.opnet中的設置：

preferences->editor_prog

2.source insight的設置

operation->preferences->symbol Lookups->Project symbol path->Add Project to Path

（添加自己創建一個包含所有opnet model 和 include目錄的project）

當然，這個有些不足，就是那個sv，tv，hb等中定義的內容，不能進行關聯。

3．OPNET中的函數FIN，FRET以及FOUT都是什么功能？

為了使一個用戶定義的函數被執行，該函數必須與一個特殊的堆棧跟蹤代碼相連。堆棧跟蹤技術靠在函數的入口點和出口點插入預處理器宏指令完成（一個函數只有一個入口點，但可以有多個出口點（由C語言的return聲明決定））。這些宏指令為：FIN、FOUT和FRET。FIN被插入到函數的入口點，FOUT被插入到函數的出口點，但卻不返回任何值，FRET被插入到函數的出口點，返回一個值。注意這些宏指令不需要以分號結束（它們自我包含），FIN的參數中也不需要雙引號。

Opnet提供的所有的示例模型都包含了這些宏指令，并且建議用戶定義的函數也包含這些宏指令。如果FIN、FOUT、和FRET被正確插入了用戶代碼中，我們就可以使用op_vuerr來找出程序錯誤的位置，哪怕是在一個嵌套的模型函數調用中。

4．local statistics和global statistics的區別？

local statistics表示的是本地的統計量，而global statistics是全局的統計量，比如你做了一個節點模型，此節點發送數據包，然后編程把發送的數據包數分別寫入一個local statistics和global statistics中，假如你在工程中用到了兩個這樣的節點，那么你可以分別view result每一個節點發送的數據包數，而global statistics則是這兩個節點一共發送的數據包數。

5．Objid和user id的區別？

Objid是系統分配的，全局唯一，整數。user id是自己可以設置的，可以不唯一。

6．如何將模塊添加到OPNET中？

edit> preferences-> mod_dirs中，新建一個路徑，并作為第一路徑即可。

8．想查找一個變量的使用場合，包括不同process,不同node中的header和funtion，如何做 ？

在OPNET中變量是在一個PROCESS中存在的。不同的PROCESS之間則是通過進程之間的通信機制來共享信息的。因此你查找變量的作用范圍應該是在一個PROCESS內的。編譯后每個PROCESS會產生一個C或C++文件。在那個文件里就可以查到變量的應用地方。不同的進程可能具有相同的ATTRIBUTE。而為了減少NODE的ATTRIBUTE數目可以采用 MERGE/RENAME ATTRIBUTE的方式。這時這些ATTRIBUTE具體對應到各個PROCESS 的哪個ATTRIBUTE可以通過NODE INTERFACE菜單下的MERGE/RENAME ATTRIBUTE 找到。

9．請問OPNET怎樣將圖導出來？

一：可以從Topology->Export Topology->……導出Project的幾種圖形，有bitmap，html等格式。node,process都可以從file中的Export Bitmap導出拓撲圖。

二：對于分析出來的曲線，按鼠標右鍵，其中有個 Export Graph Data to Spreadsheet，然后會有提示 說你文件保存在什么地方，一般缺省是保存在 c:op_admintmp 目錄下。文件你可以用 UltraEdit 打開來看，是兩列數據，一列是仿真時間，一列是 仿真數據，然后你就可以想用什么工具畫圖就無所謂了。

補充：其實很好用的還有就是直接抓圖，效果不錯。

10．在opnet中關于時延的問題。

數據速率是用來和包長結合計算傳輸時延的，而“delay”屬性是用來描述電波的傳播時延的。在點到點鏈路屬性里，“delay”就是總傳播時延；在多點鏈路里，“delay”指單位距 離的傳播時延。用戶可以修改傳播時延的計算方法，那個“Distance Related”就是表示在自定 義的傳播時延 pipeline stage里基于距離計算傳播時延。

11．.在opnet中關于統計一些速率方面的參數。

統計流速率的時候，首先應該在Local Statistics中將這個統計項 的Capture Mode設成sum/time，然后在程序中每次收到一個數據包，就將這個包的長度L寫入，比如op_stat_write(handle,L),隨后再馬上 調用一個op_stat_write（handle, 0)來結束這次寫入，就可以了。

12．關于begin intrpt和endsim intrpt 仿真0時刻時需要進行的初始化，則需要設begin intrpt, 仿真結束時刻需要進行一些工組，則需要enable endsim intrpt.13．用VC調試的時候，state variable的值無法看到，怎么辦？

用op_sv_ptr這個指針。它指向了所有的狀態變量。

14．關于Elapsed time and Simulation time ? 一個是仿真程序運行的時間，反映仿真程序執行的速度。而另一個是所仿真的系統的時間進度，反映當前的仿真執行的進度。

仿真時間的修改是通過事件的發生來進行的。譬如說你在0s時作一件事持續時間為5秒，5秒鐘結束后會觸發一個事件，這個事件將系統的仿真時間改為5s。你使用OPNET的模型，它在接收到事件時會進行相應的仿真時間的更新。而你自己也可根據需要更新仿真時間。你采用op_intrpt_schedule_self(op_sim_time()+需要的時間，intrptcode),就可以在當前時刻的所需的時間以后產生一個中斷，從而觸發一個事件，系統的仿真事件也就被更新為此時間。OPNET中數據的收集方式是可選的，可以選擇為逐點的，也可以選擇按照漏斗進行平滑的根據自己的需要而定。

15．OPNet運行時無法進行C代碼編譯的解決辦法

當你出現這種情況時, OPNet總是提示說 comp_msvc 不能執行, 因為Visual C++沒有正確安裝, 這時你需要修改系統的環境變量。具體方法如下(Win2000): 1.正確安裝 VC++, 缺省目錄為(以下均以缺省目錄為例)C:Program FilesMicrosoft Visual Studio 2.在桌面鼠標右擊“我的電腦”圖標, 選擇“屬性”.在出現的界面中, 選擇“高級”, 然后選擇“環境變量”。

3.這里需要修改用戶的“用戶變量”,而不是“系統變量”增加下列參數: 變量名 include 變量值 C:Program FilesMicrosoft Visual Studi0VC98atlinclude;C:Program FilesMicrosoft Visual StudioVC98mfcinclude;

C:Program FilesMicrosoft Visual StudioVC98include

變量名 lib 變量值 C:Program FilesMicrosoft Visual StudioVC98mfclib C:Program FilesMicrosoft Visual StudioVC98lib

變量名 MSDevDir 變量值 C:Program FilesMicrosoft Visual StudioCommonMSDev98

變量名 path 變量值 C:Program FilesMicrosoft Visual StudioCommonToolsWinNT C:Program FilesMicrosoft Visual StudioCommonMSDev98bin C:Program FilesMicrosoft Visual StudioCommonTools Program FilesMicrosoft Visual StudioVC98bin 4.按“確定”按鈕, 退出設置.如果你在安裝 VC 的時候讓安裝程序來修改環境變量就完全可以就避免這些步驟.16．.請問opnet中的移動臺的trajectory（即運動軌跡）能否用一個專門的代碼來生成，而不是用鼠標事先畫出？如何實現opnet與此段代碼的交互？

要做到運動軌跡的交互性，你得修改一些process和pipeline。運動的結果無非是和基站的距離變化，然后利用衰落模型得到snr，ber等參數，所以你可以修改dra_propdel.ps.c, umts_ue_dra_power, umts_dra_snr等process.如在dra_propdel.ps.c中把start_pro_distance用自己的距離函數代替即可。

17．前面提到的隨機性服從一些隨機分布，如高斯分布、泊松分布等等，我想問一下，opnet 中有沒有現成的概率分布函數供調用？如何調用？

用op_dist_outcome這一類的函數，在online document中介紹的很詳細。

18．對opnet的認識，它是在project、node以及process三個域上進行仿真，而且好像代碼都是在process域中的進入、退出以及轉化這些地方編寫，那么要實現的移動臺隨機產生的代碼好像沒有一個公共的全局性的平臺可以放置（就像C語言中的全局變量聲明段）？這個問題如何解決？

函數應該在process的FB中，FSM只是調用而已，全局變量通常在外部.h中，也可在HB中。

19．OPNET 的輸出結果選項“As is”，“Average”，“Time_average”有什么區別？

在這些選項下得到的曲線不一樣 ：

As is ,就是不做任何處理，Average 就是做平均

Time_average 就是做時間平均

20．請問OPNET中的animation指什么？

21．OPNET中如何刪除一個senario,而保留工程？ 在menu->senarios->manage senarios里。

22．請問OPNET中的animation指什么？

激活節點變化過程記錄功能，并記錄statistic的變化過程，可以作為動畫演示。

23．opnet的節點域中處理模塊之間如何共享變量？ 可以試試以下2種方法： 1。在HB中定義全局變量

2。添加節點屬性，然后使用op_ima_xxx_xxx()函數，就是那個IMA包。24．在node interfaces里面設置屬性為set,promoted和hidden有什么意義？ hidden可以在仿真的時候看不到設置的這個參數，promoted可以在仿真的過程中根據需要改變參數的值 激活節點變化過程記錄功能并記錄statistic的變化過程。

25．我在學習opnet的tutorial的packet switching1 時最后仿真出現下面的錯誤，請問如何解決? Creating library PS_pksw_net-scenario1.i0.nt.lib and object PS_pksw_net-io1.i0.nt.exp dpt_propdel.i0.ps.o : error LNK2001: unresolved external symbol _link_de PS_pksw_net-scenario1.i0.nt.so : fatal error LNK1120: 1 unresolved exter 在運行仿真時，選擇declare external file，將link_delay.h文件包含即可。26．請問opnet里如何提取統計信息作為反饋控制變量？例如將丟失率提取出來后，通過函數將其反饋回模型中進行控制。

可以試試stat_intrpt函數。

27．模型中的數據線中的src stream [n]和dest stream [n]中括號中的序號n分別表示什么意思？

op_pk_get(STRM NUM)的參數，會根據n來選擇數據線的。

28．pipeline stage 的函數是怎么調用的啊？為什么我的數據在被接收端的時候那幾個pipeline 函數并沒有執行完呢？只執行了3個函數，后面就沒有了，結果數據不知道扔哪去了，上層也沒有stream中斷是怎么回事呢？

pipeline state 函數體接口是規定的，由KP調用。在stage 2 有連通性的檢查，如果false，則以后的stage 都不需執行了。

29．仔細察看了一下程序，FIN和FOUT都是配對的。在一個Idle的狀態中，什么操作也沒做。但是程序執行了好長時間之后，突然告訴說Abnormal function stack function。就是在Idle狀態出的錯。可是哪個狀態根本就是空操作。而在.pr.c文件中，發現所有的process的.pr.c文件中的那個最全的函數都是只有FIN，沒有FOUT的。請問出現上述錯誤還有可能是何原因？

查看事件列表，有可能是事件列表滿的緣故，你可以試著改變preference里面的一個event_speed_parameter參數出現該問題的設置不同，出現的時間也會不同。

30．請問OPNET的背景路由流量的如何配置？

三種方法：

application configi.conersation pair link load

31．怎樣在mac層獲取在pipeline stage中計算的某些參數的數值，如接收功率的數值？

可以用pwr = op_td_get_dbl(pkptr, OPC_TDA_RA_RCVD_POWER)。32．我對某個pipeline 函數做了一點修改然后以另外一個名字另存了一下，但是在模塊中卻不能把原來的pipeline函數改成重新命名的pipeline函數這是怎么回事啊？ 你修改后的文件名要與函數名相同，然后得用OPNET自帶的EXTERNAL INTERFACE提供的工具編譯就可以了。

第四篇：鋰離子電池常見問題總結

鋰離子電池常見問題總結

11、什么是電池的容量？

電池的額定量是指設計與制造電池時規定或保證電池在一定的放電條件下，應該放出最低限度的電量。Li-ion規定電池在常溫、恒流（1C）恒壓（4.2V）控制的充電條件下充電3h，電池的實際容量是指電池在一定的放電條件下所放出的實際電量，主要受放電倍率和溫度的影響（故嚴格來講，電池容量應指明充放電條件）。容量常見單位有：mAh、Ah=1000mAh）。

14、什么是工作電壓？

又稱端電壓，是指電池在工作狀態下即電路中有電流過時電池正負極之間電勢差。在電池放電工作狀態下，當電流流過電池內部時，不需克服電池的內阻所造成阻力，故工作電壓總是低于開路電池，充電時則與之相反。Li-ion的放電工作電壓在3.6V左右。

15、什么是放電平臺？

放電平臺是恒壓充到電壓為4.2V并且電電流小于0.01C時停充電，然后擱置10分鐘，在任何們率的放電電流下下放電至3.6V時的放電時間。是衡量電池好壞的重要標準。

17、什么是自放電率？

又稱荷電保持能力。注：電池100%充電開路擱置后，一定程度的自放電正常現象。在GB標準規定LI-ion后在20±2℃條件下開條件下開路擱置28天。可允許電池有容量損失。

18、什么是內壓？ 指電池的內部氣壓，是密封電池在充放電過程中產生的氣體所致，主要受電池材料、制造工藝、電池結構等因素影響。其產生原因主要是由于電池內部水分及有機溶液分解產生的氣體于電池內聚集所致。

高倍率的連續過充，會導致電池溫度升高、內壓增大，嚴重時對電池的性能及外觀產生破壞性影響，如漏液、鼓底，電池內阻增大，放電時間及循環壽命變短等。

Li-ion任何形式的過以都會導致電池性能受到嚴重破壞，甚至爆炸。幫Li-ion在充電過程中需采用恒流恒壓充電方式，避免對電池產生過充。

19、為什么電池要儲存一段時間后才能包裝出貨？

電池的儲存性能是衡量電池綜合性能穩定程度的一個重要參數。電池經過一定時間儲存后，允許電池的容量及內阻有一定程度的變化。經過了一段時間的儲存，可以讓內部各成分的電化學性能穩定下來，可以了解該電池的自放電性能的大小，以便保證電池的品質。21.什么是分容？

電池在制造過程中，因工藝原因使得電池的實際容量不可能完全一致，通過一定的充放電制度檢測，并將電池按容量分類的過程稱為分容。22．什么是壓降？

電池按定性充電至80%以上，測量其電池空載電壓。5W/2W電池 作為負載連接電池正負極端開關作為電池的斷路，通路的裝置進行串聯。打開開關后5秒電壓下降不大于0。4V，為合格主要為測試電池負載性能。23．什么是靜態電阻？即放電時電池內阻 24．什么是動態電阻？即充電時電池內阻。

25．什么是電池的負載能力？ 當電池的正負極兩端連接在用電器上時，帶動用電器工作時的輸出功率，即為電池的負載能力。26，什么是充電效率？什么是放電效率？

充電效率是指電池在充電過程中所消耗的電能轉化成電池所能儲蓄顧的化學能程度的量度。主要受電池工藝，配方及電池的工作環境溫度影響，一般環境溫度越高，則充電效率要低。放電效率是指在一定的放電條件下放電至終點電壓所放出的實際電量與額定容量之比，主要受放電倍率，環境溫度，內阻等到因素影響，一般情況下，放電倍率越高，則放電效率越低。溫度越低，放電效率越低。27．目前常見的各種可充電電池之間有什么區別？

目前鎳鎘，鎳氫，鋰離子充電電池大量應用于各種便攜式用電設備（如筆記本電腦，攝像機和移動電話等到）中，每種充電電池都具自已獨特的化學性質。鎳鎘和鎳氫電池之間主要差別在于：鎳氫電池能量密度比較高。與相同型號電池對比，鎳氫電池容量是鎳鎘電池的二倍。這意味著在不為用電設備增加額外重量時，使用鎳氫電池能大大地延長設備工作時間。鎳氫電池另一優點是；A大大減少了處鎘電池中存在的：“記憶效應”問題，從而使得鎳氫電池可更方便地使用。鎳氫電池比鎳鎘電池更環保，因為它內部沒有有毒重金屬元素。

33、目前在使用和研究的“綠色電池”有哪些？

新型綠色環保電池是指近年來已經投入使用或正在研制開發的一類高性能、無污染的電池。目前已經大量使用的鋰離子蓄電池、金屬氫化物鎳蓄電池和正在推廣使用的無汞堿性鋅錳電池以及正在研制開發的鋰或鋰離子塑料蓄電池、燃燒電池、電化學儲能超級電容器都屬于新型綠色環保電池的范疇。此外，目前已經廣泛應用的利用太陽能進行光電轉換的太陽電池。

34、什么電池將會主宰電池市場？

隨著照相機，移動和無繩電話，筆記本電腦，帶圖像，聲音的多媒體設備在家用電器中占據越來越重要的位置，與一次電池相比較，二次電池即可充電式電池也大量的應用到這些領域中。而二次充電電池將向體積小，重量輕，容量，智能化的方向發展。

35、什么是鋰離子蓄電池？

是指以鋰離子為反應活性物質的可充式電池，當電池放電到終止電壓后能夠再充電，以恢復到放電前的狀態。

36、鋰離子蓄電池的工作原理?

放電時,鋰與碳的相嵌化合物中的鋰,從負極溶解形成鋰離子到電解液中,穿過電解液并在正極晶體中嵌入形成嵌入化合物.充電時,在正極嵌入的鋰離子重新回到電解液中,然后在負極上與碳形成嵌入化合物,周而復始.37、鋰離子蓄電池與鎳/鎘、鎳/氫、鉛酸蓄電池相比有哪些優點？

比能量高，自放電率低，高低溫性能好和充放電壽命長。

38、何為電池的平均電壓？

電池放電時，從開始到放電終止時的電壓平均值。

39、何為電池的能量密度？

指電池的單位體積所含的電能。

40、何為電池的容量？

指電池內的活性物質參加電化學反應所能放出的電能稱為電池的容量。

41、何為電池的設計容量？

根據電池內所含活性物質的量，從電化學理論計算電池的容量稱為設計容量。

42、何為電池額定容量？

指電池經設計后，經電池制程過程的影響，電池所能達到容量稱為額定容量。

43、鋰離子蓄電池的工作溫度范圍？ 充電

-10—45℃

放電

-30—55℃

44、何為電池的倍率放電？

指放電時，放電電流（A）與額定容量（A?h）的倍率關系表示。

45、何為電池的小時率放電？

按一定輸出電流放完額定容量所需的小時數數，稱為放電時率。

46、鋰離子蓄電池由那些原材料組成？

正極活性物質，負極活性物質，集流片，隔膜，電解液，外殼等材料組成。

47、鋰離子蓄電池型號與電池的那些特征有關？

電池的外形長、寬、高及電池的容量。

48、影響鋰離子電池循環性能的兩個最重要的因素是什么？

活性物質的性質和雜質的種類、含量。

49、如何在生產過程中控制電池內部的水份？

1、作好防潮、防濕處理。

2、縮短操作時間，減少極片在空氣中暴露時間。

3、合理正確地進行烘烤作業。

4、盡量在干燥環境下進行作業。

50、鋰離子蓄電池的活性正極材料是什么？ 鋰鹽；如鈷酸鋰，錳酸鋰，鎳酸鋰等。

51、鋰離子蓄電池的活性負極材料是什么？

石墨粉

52、電極材料為何要加入導電劑？ 在電池工作時，電池的活性物質無論充放電都不會溶解在電解液中，為加強活性物質與網柵、集流片的接解導電性，而加放導電劑。

53、鋰離子蓄電池的電解液的組成是什么？

常用的為六氟磷酸鋰，四氟磷酸鋰（LiPF6、LiClO4）等。

54、配料的目的是什么？

使活性物質分散均勻，便于拉漿均勻，上漿量恒定。

55、請簡述配料的工藝流程。

56、正、負極片拉漿的三個基本參數。

拉漿溫度、速度、敷料量。

57、如何控制極片的敷料量？ 根據正負極漿料的固含量、比重調節拉漿機機頭刀具間隙，控制拉漿的厚度，以達到控制。

58、如何頭判定拉漿過程中極片的質量好壞。

極片表面平整、光滑、敷料均勻、附著力好、干燥，不脫料、不掉料、缺料、無積塵、無劃痕、無 氣泡的極片為好的極片，有缺陷的為不好的極

59、正、負極片裁片的主要的設備。

鍘紙刀、剪板機。

60、正、負極片的主要注意事項。1）、檢查刀口有無毛刺、不平，作業時注意用刀的安全。2）、正負極裁片用刀不可混用。3）、在裁片過程中隨時檢查極片的質量，將不合格的分檔分開，不可混淆放置。4）、裁完的片經檢查后極時轉入以后的工序作業中。61、正、負極正烘烤的目的是什么？

除去極片內的水份和有機溶劑。

62、正、負極片壓片的目的？ 使活性物質與網柵及集流片接觸緊密，減小電子的移動距離，降低極片的厚度，增加裝填量，提高電池體積的利用率。從而提高電池的容量。

63、壓片厚度對電池性能有什么影響？

壓片厚度太厚時，容易使電池內活性物質量減少，單位體積的活性物質量的減少和極化電位的增大，從而造成電池的容量降低。

壓片厚度太薄時，容易造成電池內的活性物質量增加，極片表面有效面積減小，從而造成活性材料的浪費和大電流的困難。64、極片稱重的目的是什么？

準確了解和掌握極片的敷料量。

65、配片的目的是什么？

使正負極片上的活性物質的量比例保持一致性。66、為什么要進行刷片操作？

清除極片上的積塵，積料，毛刺等。67、正極片采用什么極耳？

采用鋁帶極耳。68、負極片采用什么極耳？

采用鎳帶極耳。

69、焊接極耳的設備？

正極用超聲波焊機，負極用點焊機。70、卷繞車間的濕度對電池質量有什么影響？

卷繞房內的濕度大時，極片吸水量大，增加了極片的水份含量，在電池中產生氣體量增加，使電池的內壓增加，危害電池的安全性能。水份的增加多消耗電池中的活物質，使電池容量下降。濕度小反之

71、卷繞車間中空調機和除濕系統的作用？

保持室內的溫度恒度，減小室內的濕度，以提高電池的性能。72、卷繞車間是否可用水擦地板？

不可以

73、卷繞電池芯的主要注意事項？

1、極片與隔膜紙鋪平對齊。用手按住極片與隔膜紙時，用力大小適中均勻。電池芯卷繞松緊適當。

2、注意極片上有無劃痕、掉料、缺料、氣孔、起泡等不良及隔膜紙有無不良，如有作廢品處理。

3、卷繞時注意手腳的諧調性，不被卷針劃傷手。73、電池芯貼膠紙的目的和位置？

電池芯貼紙的位置在電芯卷繞成型后不變形。底部貼膠紙防止電芯內的正極片底部與電池外殼接觸電池造成短路。側面貼紙使電芯卷繞成型后不變形。底部貼膠紙防止電芯內的正極片底部與電池外殼接觸造成電池短路。74、將極耳焊接到蓋板上采用那些設備？ 超聲波、對焊機。75、電池芯電阻要求？ 大于20MΩ 76、電池芯的電阻達不到要求怎么辦？ 返修

77、為何極耳也要貼膠紙？

增加牢固性和防止極耳接觸產生短路。

78、電池蓋板在使用前需要做那些檢驗？

外形尺寸、形狀、厚度、絕緣懷、密封性、耐腐蝕性、材持等項目的檢驗。79、電池蓋板所能承受的最大壓力是多少？ 0.4Mpa 80、如何防止電池漏液？

防止電池漏液應做好以下幾方面的工作：

1、焊接電池外殼與蓋帽時，應焊接牢固、密封，焊接無漏焊、虛焊，焊縫無裂縫、裂口等不良。

2、鋼珠封口時，鋼珠大小適當，鋼珠材質與蓋帽材質相同。焊接無裂口、裂縫并且焊接牢固。

3、蓋帽的正極柳接緊密，無間隙，并且絕緣密封墊彈性適當，耐腐蝕，不易老化。81、如何在現有條件下防止未封口電池在車間吸水？

1、作業電池應少量多次。縮短電池在空氣中暴露時間。

2、作業完畢的電池及時轉送到下一工序。盡量縮短電池在制程中的停滯時間。82、干燥房的濕度要求？ 相對濕度在6%以下。

83、干燥房的濕度對電池的性能有什么影響？ 濕度增加使電池芯的吸水量增大，使電池的容量下降，內壓增加。84、如何盡量防止濕氣進入干燥房？ 少進少出，少開門，干燥房的門不能同時打開。85、你認為干燥房可以用水擦地板嗎？ 不可以。86、電池在注液前需要做那些處理？

涂膠和真空烘烤處理。

87、電池在注液前為何要進行真空烘烤？ 盡量除去電芯內的所含的水份和溶劑。88、電池在注液前為何要稱重？

以便準確計算注液量多少。89、電池注液方法？用手動注液機或自動注液機進行注液操作。

90、如何檢驗電池是否注滿電解液？ 用真空抽吸測試，在注液口上用真空吸時，有電解液被抽上表示已滿，沒有表示沒滿 91、電解液中的LiOF6的作用？

導電的電解質。92、電解液中的LiPF6的濃度？ 1mol/L 93、電解液中溶劑的作用？溶解電解質，使電解質離子化。94、電解液的電導率范圍？

8×10-3Ω-1 95、電導率對電池工作電流的影響？電導率影響倍率放電率，和電池的內阻，和電池的電壓。

96、電池的內阻受那些因素影響？電解液的電導率，電池的外殼材料性能，極片的導電率及極耳材料的截面積。電池焊接的質量。

97、電池的容量受那些因素影響？正負極材料的特征的性能及材料的種類、型號和活性物質的量。正負極活性物質的正確比例。電解液的濃度和種類。

生產制程過程。

98、你認為如何在電池生過程中控制電池內的水份？

在生產制程中嚴格控制環境的濕度以及加強電芯的烘烤控制電池的水份。99、電池在帶電時可否用表測量電阻？ 可以

100、化成機在化成大容量電池時應該注意什么問題？ 注意電池的總功率是否超過化成機的功率。就目前國際標準電液lipf6體系而言: 1M lipf6 EC:DMC 1:1 RT(9ms)低溫性能差,-10℃EC結晶 1M lipf6 EC:DEC 1:1 低溫略好 揮發性氣體 對鋰不穩定 改進方向:在不影響碳電化學性能條件下,三元體系或者四元體系 例如:1M lipf6 EC:DEC:DMC 1:1:1(SONY)等等 lipf6體系優點:對鋁穩定、電導率高、SEI容易形成......缺點:溶劑中80度分解、水解.....總體上說,各廠家針對負極材料不同的會選擇合適配比的電解液配方.電解液與負極在形成SEI時得到質量好的SEI同時氣體產生量較少，有沒有精通的！？閉口化成,呵呵,保密

添加劑的種類大體有......不過不是萬能的,看使用的目的,如果連目的都不清楚,還是不用的好 我還是想說說，其實就負極而言，成膜的電位是比較高的，一般高于0.8V（石墨），而后才是嵌鋰階段，直到負極電位接近0V,請注意，千萬要控制住不要低于0V，那樣會出現析鋰了。其實所謂成膜添加劑，有些就是在更高的電位成膜，來減少EC等在負極表面成膜而造成的不可逆容量。

就整個電池電壓而言，是在電壓較低的時候成膜，此時正極電位剛剛爬到3.90V以上，考慮到極化的影響，成膜電壓應該在3.35V或更低。大家可以做試驗，用極小的電流，來觀察是否有“平臺”出現，當然要細心觀察。SEI并不重要！

電池在初始充電都能很好的形成，對電池的性能改善不大！原材料本身的缺陷在后天工藝上是彌補不了的！電池的好壞要看工藝的成熟程度和品質的控制思維，還有原材料本身的性能和穩定性，以及其中的合理搭配！

說白了電池要做好和其他的產品一樣，需要技術，品質，管理等的一切配合，能做好其他就能做好電池，能做好電池你也能做好其他，包括汽車！國產VC如何叩開電解液廠的大門

VC因為其對電池的循環有很好的效果所以目前很多電解液廠都使用其做添加劑制作功能電解液。但是因為要求較高大部份廠家就選進口VC了，而其中日本產的VC因為質量較好所占的分額較大。其時國產VC只要做好以下幾方面要叩開電解液廠的大門可以說是比較輕松的事。與進口VC相比國產貨主要是質量較差：

1.純度不夠高，電池工業級要求純度達到99。99%以上。2.水分太高，電解液要求VC含水量不超過10PPM，而很多國產VC達不到這一指標所以被拒之門外，這是一很重要的指標。3.穩定性不好，一般低溫放置三個月就變色了而一般日產的VC可放六個月以上，一般一百公斤可用五個月左右，變色的VC無論如何電解液廠都是不敢用的。

以上三點是電解液廠考慮的重點，特別是第二和第三點是重中之重，因為純度方面電解液廠因為受色譜柱使用 范圍的限制而無法分析，但是要想建立長久的合作VC廠商就必須達到這一指標，但在前期可以吹一下牛皮的了，畢竟這年頭不吹牛連電解液都賣不掉，VC廠吹一下牛又有什么關系呢！對于第二點則需要VC廠商的努力了，筆者這里有相關的可行性方案，而對于第三點要控制變色方法還是很多的，而其對電解液的損失是頭等因數，而其造成電解液的變色是無法挽回的，同時還要解決的問題是VC與電解液穩定劑的影響，筆者在使用過程中發現一個經常被電解液廠忽視的問題，這一點連日產VC都無法避免如果國產的可解決這一問題那么其效果則不用我多說了吧！

總之希望VC和電解液都做好，很好賣！聯系電話：0*** 對于一臺手機或一臺電腦而言，電池的作用就如同一個人的心臟一樣，而電解液就如同血液一樣。大家對電池的要求越來越高相應的電池廠商對電解液的要求也越來越高，畢竟在一個固液反應體系而言，溶液的作用是關鍵。那么電解液對電池有什么影響呢？

首先，電解液對電池的比容量和循環壽命有決定作用。電解液質量的好壞直接影響電池的比容量和循環，好的電解液可以使電池的循環做到700以上，而差的電解液也許連300也做不到。好的電解液可以使容量達到理想的范圍，而差的電解液會使很多工作功虧一潰。

其次，電解液會影響電池的內阻和自放電。影響電池的內阻包括以下幾方面：隔膜的厚度和孔隙率；正負極的密實度；電解液中的機械雜質和沉積物。在此我僅對電解液的影響稍做討論。電解液在生產過程中不可避免會使用分子篩，即使過濾也會留有分子篩的碎屑。機械雜質不僅會使離子遷移困難，還會堵塞隔膜的細孔對電極產生包復作用，這就造成了電池的內阻升高，同時包復作用還會使電極的比表面減少造成電極的利用率降低。再者分子篩中帶入的鈉離子會使電池的自放電增大，同時使電池的容量衰減。

再次，對電池安全性能的影響。電解液中的雜質會使電池發生氣漲和鼓包，嚴重的會漲裂電池而漏液，更危險的會發生爆炸，具體的雜質下文會敘及。第四，對電池穩定性的影響。電解液的穩定性直接影響到電池的穩定。

第五，對電池耐候性的影響。因為地域的影響對電池的要求會有所不同普通的電解液在0度左右會凝固，所以在北方的冬天不適用。第六，對其他特殊性能的影響。如大電流放電和快速充電，聚合物鋰電等都與電解液的生產制照和其質量密不可分。終上所述，電解液對電池的性能起決定性的作用，那么影響電解液的因數是什么呢

電解液的滲透與分布：

一、電極的比表面積加大（材料比表面積和導電劑的添加量及種類）；

二、正負極片不要壓太實；

三、注液后的擱置時間和方式（離心，加溫，延長時間等）；

四、化成制度，盡量延長時間；

五、化成后的擱置時間和方式；材料充分被浸透，電池性能才能穩定和正常發揮 SEI膜不重要？？？你不是做電池的吧？電解液和碳負極的相容性問題，不同的電解液有不同的負極去匹配。

一般來說，天然石墨包覆的負極，不可逆容量要大一點。mcmb要好一點，這是我實驗的結果。還有一個，SEI膜的成膜電位是1.2～0.8V（vs Li/Li+），嵌鋰電位是0.25～0v，這個電位中嵌入的鋰才是可逆的。如果能讓SEI膜在更高的電位下形成，它能阻止溶劑的進一步還原，減少不可逆容量，也就是在首次充電曲線中不可逆容量的極化比較大，容易下降到嵌鋰平臺，這樣形成的可逆容量要高。SEI膜對電池的循環性能有至關重要的作用，沒有良好的SEI膜，每次循環都有較大不可逆容量損失，這樣的電池通常可以從電解液吸水，或電池內部存在結晶水時可以看出來。electrodes with high power and high capacity for rechargeable lithium batteries 本研究組已經實現磷酸鐵鋰的規模化生產,現處于保密階段.粒度超前穩定在1-2微米，1C容量120mAh/g以上.估計今年底達到噸量級。預備自用 若想生產出來批次穩定的產品取決于以下幾點：

1、原材料的具有穩定的純度，穩定的粒徑，較少的s,Na等離子。純度不高的材料會使LiFePO4的晶格結構。

2、穩定的混合工藝以保證多種原料達到分子級混合狀態，穩定的燒結工藝以保證所得材料的一致性。

3、燒結后要采用先進的粉碎技術，以保證最終產品具有穩定的粒徑和比表面積。鋰離子電池陰極活性材料的表面改性方法

鋰離子電池陰極活性材料的表面改性方法，先將可溶性的摻雜離子鹽配制成水溶液，然后將有機溶劑與水溶液混合，再加入需要改性的陰極活性材料粉末攪拌均勻形成懸浮液，在懸浮液中加入尿素回流，并加熱即可得到改性的陰極活性材料粉末。本發明利用尿素的水解促成沉淀劑的生成，使改性氧化物的前驅體離子發生沉淀反應，通過反應條件的調節，控制沉淀劑的釋放速度，滿足包覆前驅體在陰極活性材料表面非均勻成核的條件，讓改性氧化物全部在陰極活性材料表面成核生長，產生均勻致密的包覆前驅體，再在一定溫度下使沉淀分解為改性氧化物，最后在一定溫度下處理包覆氧化物的陰極活性材料，在其表面形成高濃度的摻雜離子，能夠顯著改善陰極材料的循環性能。

1、鋰離子電池陰極活性材料的表面改性方法，其特征在于： 1)首先將可溶性的摻雜離子鹽MxAy配制成濃度為0.01-0.2mol/l的水溶液，其中M＝Mg2+、Zn2+、Ni2+、Cu2+、Al3+、Co3+、Cr3+、Fe3+或Ti4+；A＝NO-

3、Cl-或 CH3COO-； 2)然后將有機溶劑與水溶液按2∶1～1∶10的體積比混合，再在該混合液中按10～300g/l加入需要改性的陰極活性材料LiBO2或LiNZMn2-ZO4、LiFePO4粉末攪拌均勻形成懸浮液，其中B＝CoxNiyMn1-x-y，x＝0-1，y＝0-1，x+y≤1；N＝Co、Ni、Ti、Cr或Cu，Z＝0～0.5； 3)按摻雜離子與尿素1∶1～1∶10的摩爾比在懸浮液中加入尿素，在70 ℃-100℃回流，持續攪拌并加熱2-20h后，在空氣中60℃干燥20h，隨后在 200-600℃恒溫處理5-20h，再在600-1000℃處理1-20h，研磨后得到改性的陰極活性材料粉末

第五篇：VB常見問題總結

快捷域名：http://yujimyfavorcn.programfan.com 創建于：2005-6-5 共 6篇文章 訪問統計：169

VB常見問題總結

點擊數：138 發布日期：2005-6-5 18:28:00 【字體：大 中 小】【評論】【打印】

各位朋友大家好，如果你在這里的時間夠長，那么你會發現很多帖子的問題是相同的，既然這樣，不如總結到一起讓初學者來翻看，再熱心的大蝦也不愿意把一個答案重復幾十遍：）Ryowu制作匆忙，難免錯漏，還請見諒。

若朋友您想要問如何才能學好vb，或者入門需要看什么教材一類的問題，建議你抱著一顆刻苦鉆研的心去面對這門學問，多動腦，少提問，遇到不知道的，多查msdn，多看老貼，或者用斷點來親自試驗。實在不會了，請在此貼中查找您的常見問題，如果還沒有，那請您發出新貼，向各位高手討教：）

查找方法：按ctrl+f，輸入要查找的問題關鍵字即可

注明：本貼源于VB編程樂園網站，本人只是稍微編輯了一下。

每個問題中間用///分隔，這只是一部分最常見到的問題，以后會逐漸更新。

//////////////////////////////////////////////////////////////////////////////////// 如何用VB建立快捷方式

Private Declare Function fCreateShellLink Lib “STKIT432.DLL”(ByVal lpstrFolderName As String, ByVal lpstrLinkName As String, ByVal lpstrLinkPath As String, ByVal lpstrLinkArgs As String)As Long Sub Command1_Click()Dim lReturn As Long '添加到桌面

lReturn = fCreateShellLink(“....Desktop”, “Shortcut to Calculator”, “c:windowscalc.exe”, “")'添加到程序組

lReturn = fCreateShellLink(”“, ”Shortcut to Calculator“, ”c:windowscalc.exe“, ”“)'添加到啟動組

lReturn = fCreateShellLink(”Startup“, ”Shortcut to Calculator“, ”c:windowscalc.exe“, ”“)End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何讓程序在 Windows 啟動時自動執行？

有以下二個方法：

方法1: 直接將快捷方式放到啟動群組中。

方法2: 在注冊檔 HKEY_LOCAL_MACHINE 中找到以下機碼 SoftwareMicrosoftWindowsCurrentVersionRun 新增一個字串值，包括二個部份

1.名稱部份：自己取名，可設定為 AP 名稱。

2.資料部份：則是包含 '全路徑檔案名稱' 及 '執行參數' 例如：

Value Name = Notepad Value Data = c:windowsnotepad.exe

//////////////////////////////////////////////////////////////////////////////////// 在 TextBox 中如何限制只能輸入數字？

參考下列程序：

Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0 End If End Sub

//////////////////////////////////////////////////////////////////////////////////// 我希望 TextBox 中能不接受某些特定字符，例如 '@#$%”，有沒有簡單一點的寫法？

方法有好幾種, 以下列舉二種：

方法1: 可以使用 IF 或 Select Case 一個個判斷, 但如果不接受的字符多時, 較麻煩!方法2: 將要剔除的字符統統放在一個字串中，只要一個 IF 判斷即可！如下： Private Sub Text1_KeyPress(KeyAscii As Integer)Dim sTemplate As String sTemplate = “!@#$%^&*()_+-=” '用來存放不接受的字符 If InStr(1, sTemplate, Chr(KeyAscii))> 0 Then KeyAscii = 0 End If End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何讓鼠標進入 TextBox 時自動選定 TextBox 中之整串文字？

這個自動選定反白整串文字的動作，會使得輸入的資料完全取代之前在 TextBox 中的所有字符。

Private Sub Text1_GotFocus()Text1.SelStart = 0 Text1.SelLength = Len(Text1)End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何檢查軟盤驅動器里是否有軟盤？

使用：

Dim Flag As Boolean

Flag = Fun_FloppyDrive(“A:”)If Flag = False Then MsgBox “A:驅沒有準備好，請將磁盤插入驅動器！”, vbCritical

' '函數:檢查軟驅中是否有盤的存在 ' Private Function Fun_FloppyDrive(sDrive As String)As Boolean On Error Resume Next Fun_FloppyDrive = Dir(sDrive)<> “" End Function

//////////////////////////////////////////////////////////////////////////////////// 如何彈出和關閉光驅托盤？

Option Explicit

Private Declare Function mciSendString Lib ”winmm.dll“ Alias ”mciSendStringA“(ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long)As Long

Private Sub Command1_Click()mciExecute ”set cdaudio door open“ '彈出光驅 Label2.Caption = ”彈 出“ End Sub

Private Sub Command2_Click()Label2.Caption = ”關 閉“

mciExecute ”set cdaudio door closed“ '合上光驅 Unload Me End End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何讓你的程序在任務列表隱藏

Private Declare Function RegisterServiceProcess Lib ”kernel32“(ByVal ProcessID As Long, ByVal ServiceFlags As Long)As Long Private Declare Function GetCurrentProcessId Lib ”kernel32“()As Long

'請你試試 Ctrl+Alt+Del 是不是你的程序隱藏了 Private Sub Command1_Click()i = RegisterServiceProcess(GetCurrentProcessId, 1)End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何用程序控制滑鼠游標(Mouse Cursor)到指定位置？

以下這個例子，當 User 在 Text1 中按下 'Enter' 鍵后，滑鼠游標會自動移到 Command2 按鈕上方

請在聲明區中加入以下聲明：

'16 位版本：(Sub 無傳回值)Declare Sub SetCursorPos Lib ”User“(ByVal X As Integer, ByVal Y As Integer)

'32 位版本：(Function 有傳回值，Integer 改成 Long)Declare Function SetCursorPos Lib ”user32“(ByVal x As Long, ByVal y As Long)As Long

'在 Form1 中加入以下程序碼：

Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 13 Then x% =(Form1.Left + Command2.Left + Command2.Width / 2 + 60)/ Screen.TwipsPerPixelX y% =(Form1.Top + Command2.Top + Command2.Height / 2 + 360)/ Screen.TwipsPerPixelY SetCursorPos x%, y% End If End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何用鼠標移動沒有標題的 Form，或移動 Form 中的控制項？

在聲明區中放入以下聲明：

'16 位版本：(Sub 無返回值)Private Declare Sub ReleaseCapture Lib ”User“()Private Declare Sub SendMessage Lib ”User“(ByVal hwnd As Integer, ByVal wMsg As Integer, ByVal wParam As Integer, lParam As Long)

'32 位版本：(Function 有返回值，Integer 改成 Long)Private Declare Function ReleaseCapture Lib ”user32“()As Long Private Declare Function SendMessage Lib ”user32“ Alias ”SendMessageA“(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)As Long

'共用常數：

Const WM_SYSCOMMAND = &H112 Const SC_MOVE = &HF012

'若要移動 Form，程序碼如下：

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim i As Long i = ReleaseCapture i = SendMessage(Form1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0)End Sub

'以上功能也適用于用鼠標在 Form 中移動控制項，程序碼如下：

Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)Dim i As Long i = ReleaseCapture i = SendMessage(Command1.hwnd, WM_SYSCOMMAND, SC_MOVE, 0)End Sub

//////////////////////////////////////////////////////////////////////////////////// 檢查文件是否存在？

Function FileExists(filename As String)As Integer Dim i As Integer On Error Resume Next i = Len(Dir$(filename))If Err Or i = 0 Then FileExists = False Else FileExists = True End Function

//////////////////////////////////////////////////////////////////////////////////// 如何設置對VB數據庫連接的動態路徑

我個人因為經常作一些數據庫方面的程序，對于程序間如何與數據庫進行接口的問題之煩是深有體會，因為VB在數據庫鏈接的時候，一般是靜態，即數據庫存放的路徑是固定的，如用VB的DATA，adodc,DataEnvironment 等到作數據庫鏈接時，如果存放數據庫的路徑被改變的話，就會找不到路經，真是一個特別煩的事。

筆者的解決方法是利用app.path 來解決這個問題。

一、用data控件進行數據庫鏈接，可以這樣： 在form_load()過程中放入： private form_load()Dim str As String '定義 str = App.Path If Right(str, 1)<> ”“ Then str = str + ”“ End If data1.databasename=str & ”數據庫名“ data1.recordsource=”數據表名“ data1.refresh sub end 這幾句話的意為，打開當前程序運行的目錄下的數據庫。你只要保證你的數據庫在你程序所在的目錄之下就行了。

二、利用adodc（ADO Data Control)進行數據庫鏈接： private form_load()Dim str As String '定義 str = App.Path If Right(str, 1)<> ”“ Then str = str + ”“ End If str = ”Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=“ & str & ”tsl.mdb“ Adodc1.ConnectionString = str Adodc1.CommandType = adCmdText

Adodc1.RecordSource = ”select * from table3“ Adodc1.Refresh end sub

三、利用DataEnvironment進行數據庫鏈接 可在過程中放入： On Error Resume Next

If DataEnvironment1.rsCommand1.State <> adStateClosed Then DataEnvironment1.rsCommand1.Close '如果打開，則關閉 End If 'i = InputBox(”請輸入友人編號:“, ”輸入“)'If i = ”“ Then Exit Sub

DataEnvironment1.Connection1.Open App.Path & ”userdatabasetsl.mdb“ DataEnvironment1.rsCommand1.Open ”select * from table3 where 編號='“ & i & ”'“ 'Set DataReport2.DataSource = DataEnvironment1 'DataReport2.DataMember = ”command1“ 'DataReport2.show end sub

四、利用ADO(ActiveX Data Objects)進行編程： 建立連接：

dim conn as new adodb.connection dim rs as new adodb.recordset dim str str = App.Path If Right(str, 1)<> ”“ Then str = str + ”“ End If str = ”Provider=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source=“ & str & ”tsl.mdb“ conn.open str rs.cursorlocation=aduseclient rs.open ”數據表名“,conn,adopenkeyset.adlockpessimistic 用完之后關閉數據庫： conn.close set conn=nothing

//////////////////////////////////////////////////////////////////////////////////// 如何讓用戶自行輸入方程式，并計算其結果？

假設我們要讓使用者在“方程式”欄位中自由輸入方程式，然后利用方程式進行計算，則引用ScriptControl控件可以很方便地做到。

(ScriptControl 控件附屬于VB 6.0，如果安裝后沒有看到此一控件，可在光盤的

CommonToolsVBScript 目錄底下找此一控件，其.文件名為Msscript.ocx。)假設放在窗體上的ScriptControl控件名稱為ScriptControl1，則在“計算”按鈕的Click事件中編寫如下代碼： Dim Statement As String Statement = ”X=“ + Text1.Text + vbCrLf + _ ”Y=“ + Text2.Text + vbCrLf + _ ”MsgBox “"計算結果=”“ & Y ” ScriptControl1.ExecuteStatement(Statement

//////////////////////////////////////////////////////////////////////////////////// 如何讓一個 App 永遠保持在最上層(Always on Top)

請在聲明區中加入以下聲明

Private Declare Function SetWindowPos Lib “user32”(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)As Long

Const SWP_NOMOVE = &H2 '不更動目前視窗位置 Const SWP_NOSIZE = &H1 '不更動目前視窗大小 Const HWND_TOPMOST =-1 '設定為最上層

Const HWND_NOTOPMOST =-2 '取消最上層設定 Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

'將 APP 視窗設定成永遠保持在最上層

SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS

'取消最上層設定

SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS

//////////////////////////////////////////////////////////////////////////////////// 我要如何在程序中開啟網頁？

在聲明區中聲明如下(在.bas 檔中用 Public, 在 Form 中用 Private)

Private Declare Function ShellExecute Lib “shell32.dll” Alias “ShellExecuteA”(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)As Long

在程序中

Intranet：

ShellExecute Me.hWnd, “open”, “http://Intranet主機/目錄”, “", ”“, 5 Internet：

ShellExecute Me.hWnd, ”open“, ”http://www.tmdps.cn.tw“, ”“, ”“, 5

//////////////////////////////////////////////////////////////////////////////////// VB可以產生四角形以外其他形狀的 Form 嗎？

這個問題，您一定無法想像有多容易，您可以產生任何形狀的 Form，但必須借助 CreateEllipticRgn 及 SetWindowRgn 二個 API，例如：

Private Declare Function CreateEllipticRgn Lib ”gdi32“(ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long)As Long

Private Declare Function SetWindowRgn Lib ”user32“(ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean)As Long

Private Sub Form_Load()Dim lReturn As Long Me.Show lReturn = SetWindowRgn(hWnd, CreateEllipticRgn(10, 10, 340, 150), True)End Sub

執行結果圖片

CreateEllipticRgn 之四個參數說明如下：

X1：橢圓中心點之X軸位置，但以 Form 的實№邊界為限。Y1：橢圓中心點之Y軸位置，但以 Form 的實№邊界為限。X2：橢圓長邊的長度 Y2：橢圓短邊的長度的

//////////////////////////////////////////////////////////////////////////////////// 如何移除 Form 右上方之『X』按鈕？

其實 Form 右上方之三個按鈕分別對應到 Form 左上方控制盒(ControlBox)中的幾個選項(縮到最小 / 放到最大 / 關閉)，而其中的最大化(MaxButton)及最小化(Minbutton)都可以直接在 Form 的屬性中設定，但是 VB 并沒有提供設定『X』按鈕的功能！要達到這個功能，必須借助 API：

由于『X』按鈕對應到 ControlBox 的關閉選項，所以我們只要移除系統 Menu(就是ControlBox)的關閉選項即可！您自己可以先看看您現在使用的 Browser 左上方的系統 Menu，【關閉】選項是在第幾個，不是第 6 個！是第 7 個，分隔線也算一個！分隔線才是第 6 個！

當我們移除了關閉選項之後，會留下一條很奇怪的分隔線，所以最好連分隔線也一并移除。而 Menu 的 Index 是從 0 開始，分隔線是第 6 個，所以 Index = 5。

修正：為了讓程序碼在 Windows NT 也能運作正常，將各 Integer 型態改成 Long。89.05.04

'抓取系統 Menu 的 hwnd Private Declare Function GetSystemMenu Lib ”user32“ Alias ”GetSystemMenu“(ByVal hwnd As Long, ByVal bRevert As Long)As Long '移除系統 Menu 的 API Private Declare Function RemoveMenu Lib ”user32“ Alias ”RemoveMenu“(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long)As Long '第一個參數是系統 Menu 的 hwnd '第二個參數是要移除選項的 Index

//////////////////////////////////////////////////////////////////////////////////// 如何制作透明的表單(Form)？

請在聲明區中放入以下聲明

Const GWL_EXSTYLE =(-20)Const WS_EX_TRANSPARENT = &H20& Const SWP_FRAMECHANGED = &H20 Const SWP_NOMOVE = &H2 Const SWP_NOSIZE = &H1 Const SWP_SHOWME = SWP_FRAMECHANGED Or SWP_NOMOVE Or SWP_NOSIZE Const HWND_NOTOPMOST =-2

Private Declare Function SetWindowLong Lib ”user32“ Alias ”SetWindowLongA“(ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long)As Long Private Declare Function SetWindowPos Lib ”user32“(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)As Long

在 Form_Load 使用的范例如下：

Private Sub Form_Load()SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT

SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME Me.Refresh End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何在 Menu 中加入美美的圖案？

在模組中加入以下程序碼：

Declare Function GetMenu Lib ”user32“(ByVal hwnd As Long)As Long

Declare Function GetSubMenu Lib ”user32“(ByVal hMenu As Long, ByVal nPos As Long)As Long

Declare Function GetMenuItemID Lib ”user32“(ByVal hMenu As Long, ByVal nPos As Long)As Long

Declare Function SetMenuItemBitmaps Lib ”user32“(ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long, ByVal hBitmapUnchecked As Long, ByVal hBitmapChecked As Long)As Long

Public Const MF_BITMAP = &H4&

Type MENUITEMINFO cbSize As Long fMask As Long fType As Long fState As Long wID As Long hSubMenu As Long hbmpChecked As Long hbmpUnchecked As Long dwItemData As Long dwTypeData As String cch As Long End Type

Declare Function GetMenuItemCount Lib ”user32“(ByVal hMenu As Long)As Long

Declare Function GetMenuItemInfo Lib ”user32“ Alias ”GetMenuItemInfoA“(ByVal hMenu As Long, ByVal un As Long, _ ByVal b As Boolean, lpMenuItemInfo As MENUITEMINFO)As Boolean

Public Const MIIM_ID = &H2 Public Const MIIM_TYPE = &H10 Public Const MFT_STRING = &H0&

在 Form 中加入一個 PictureBox，屬性設定為： AutoSize = True Picture =.bmp(尺寸大小為 13x13，不可設定為.ico)

在 Form_Load 中的程序碼如下：

Private Sub Form_Load()'取得程序中 Mennu 的 handle hMenu& = GetMenu(Form1.hWnd)'取得第一個 submenu 的 handle hSubMenu& = GetSubMenu(hMenu&, 0)'取得 Submenu 第一個選項的 menuId hID& = GetMenuItemID(hSubMenu&, 0)'加入圖片

SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, Picture1.Picture, Picture1.Picture '在一個 Menu 選項中您一共可以加入二張圖片 '一張是 checked 狀態用，一張是 unchecked 狀態用 End Sub

89、如何把小圖片填滿 Form 成為背景圖？

對于這個問題，我看過很多方法，有的方法很麻煩，要聲明一大堆 Type，用一大堆的 API，但是有一個最笨但我認為最好的方法如下：(就好像拼磁磚一樣，不用任何 API, 不必聲明任何 Type)

在 Form 中放一個 PictureBox，Picture 屬性設定為某一張小圖，AutoSize 屬性性設定 True，完成的模組如下：

Sub PictureTile(Frm As Form, Pic As PictureBox)Dim i As Integer Dim t As Integer Frm.AutoRedraw = True Pic.BorderStyle = 0 For t = 0 To Frm.Height Step Pic.ScaleHeight For i = 0 To Frm.Width Step Pic.ScaleWidth Frm.PaintPicture Pic.Picture, i, t Next i Next t End Sub

PictureTile 這個模組共有二個參數，第一個是表單名稱，第二個則是 PictureBox 的名稱。以下為一應用實例：

Private Sub Form_Load()PictureTile Me, Picture1 End Sub

90、如何把小圖片填滿 MDIForm 成為背景圖？

以下這個范例，要：

1、一個 MDIForm：不必設定任何屬性。

2、一個 Form1：不一定是 MDIChild，最好 MDIChild 為 False，但是 AutoRedraw 設成 True。

3、Form1 上面放一個隱藏的 PictureBox：名稱為 Picture1，不必設定 Picture 屬性。

4、一張圖片的完整路徑。

'將以下模組放入 MDIForm 的聲明區中：

Sub TileMDIBkgd(MDIForm As Form, bkgdtiler As Form, bkgdfile As String)If bkgdfile = ”“ Then Exit Sub Dim ScWidth%, ScHeight% ScWidth% = Screen.Width / Screen.TwipsPerPixelX ScHeight% = Screen.Height / Screen.TwipsPerPixelY Load bkgdtiler bkgdtiler.Height = Screen.Height bkgdtiler.Width = Screen.Width bkgdtiler.ScaleMode = 3 bkgdtiler!Picture1.Top = 0 bkgdtiler!Picture1.Left = 0 bkgdtiler!Picture1.Picture = LoadPicture(bkgdfile)bkgdtiler!Picture1.ScaleMode = 3

For n% = 0 To ScHeight% Step bkgdtiler!Picture1.ScaleHeight For o% = 0 To ScWidth% Step bkgdtiler!Picture1.ScaleWidth bkgdtiler.PaintPicture bkgdtiler!Picture1.Picture, o%, n% Next o% Next n%

MDIForm.Picture = bkgdtiler.Image Unload bkgdtiler End Sub

以下為一應用實例：

Private Sub MDIForm_Load()TileMDIBkgd Me, Form1, ”c:windowsTiles.bmp“ End Sub

//////////////////////////////////////////////////////////////////////////////////// 關閉指定的程序

要做到像 Task Manager 一樣，可以關閉指定的程序，方法如下：

在聲明區中放入以下聲明：(16位 改成 win31 API)

Declare Function FindWindow Lib ”user32“ Alias ”FindWindowA“(ByVal lpClassName As String, ByVal lpWindowName As String)As Long

Declare Function PostMessage Lib ”user32“ Alias ”PostMessageA“(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any)As Long

Public Const WM_CLOSE = &H10

以下之范例示范如何關閉一個視窗標題(Caption)為 【小算盤】的程序：

Dim winHwnd As Long Dim RetVal As Long winHwnd = FindWindow(vbNullString, ”小算盤“)Debug.Print winHwnd If winHwnd <> 0 Then RetVal = PostMessage(winHwnd, WM_CLOSE, 0&, 0&)If RetVal = 0 Then

MsgBox ”Error posting message.“ End If Else MsgBox ”并未開啟小算盤程序.“ End If

//////////////////////////////////////////////////////////////////////////////////// 如何隱藏及再顯示鼠標

很簡單，只用到了一個 ShowCursor API，參數也很簡單，只有一個 bShow，設定值如下：

True：顯示鼠標 / False：隱藏鼠標

Declare Function ShowCursor Lib ”user32“ Alias ”ShowCursor“(ByVal bShow As Long)As Long

//////////////////////////////////////////////////////////////////////////////////// 如何從您的應程序中結束 Windows 重開機？

很多軟件在 Setup 完之后都會自動關機重開機，以便讓某些設定值可以生效，其實這個功能很簡單，只要幾行指令就可以做到了！

關鍵就是要使用 ExitWindowsEx 這個 API，這個 API 只有二個參數，第一個參數是一個 Flag，目的是要告訴 Windows 要以什么方式關機，在下面的聲明中會列出可用的 Flag 常數值，至于第二個參數則是一個保留值，只要設定成 0 就可以了。

很重要的一點是：如果您想要讓關機動作更順利，記得要 Unload 您的程序！

'在聲明區中(Bas Module / Form Module)加入以下聲明：

Public Const EWX_LOGOFF = 0 '這四個常數值可以并用 Public Const EWX_SHUTDOWN = 1 Public Const EWX_REBOOT = 2 Public Const EWX_FORCE = 4 Declare Function ExitWindowsEx Lib ”user32“ Alias ”ExitWindowsEx“(ByVal uFlags As Long, ByVal dwReserved As Long)As Long

'實例：如果您想強迫關機重開機，程序碼如下：

ret = ExitWindowsEx(EWX_FORCE OR EWX_REBOOT, 0)

//////////////////////////////////////////////////////////////////////////////////// 如何用 VB 啟動其他程序或開啟各類文件？

要在 VB 中啟動其他程序或開啟各類文件，最簡單的方法就是使用 Shell 函數，例如：要開啟 C:Test.txt 這個文字文件，則要啟動記事本來開啟這個文件案，程序如下：

Dim RetVal As Long RetVal = Shell(”C:WindowsNotepad.exe C:Test.txt“, 3)'3代表視窗會最大化，并具有駐點，細節請查 Help

以上的語法雖然很簡單，但有一個風險，若是我們不知道開啟文件的執行文件位置，則程序便會有錯誤產生，尤其一般軟件在安裝的時候都可以讓使用者自行選擇安裝目錄，所以執行文件的路徑不能寫死在程序中，要解決這個問題，就是在注冊文件中找到該副文件名之啟動程序位置，再放入 Shell 中。

但是以上的作法必須熟悉注冊文件，而且必須使用 Windows API 來 Call(注冊文件的存取以后會有專文來說明)，如果您對注冊文件的存取及 API 的使用都很純熟的話，當然沒問題，但是有些人對于注冊文件會有畏懼，這時候，您可以使用下面的方法：

Shell(”Start C:Test.txt“)

您完全不用知道這份文件的啟動程序是什么？它放在什么地方？參數 Start 便會自動依照附文件名到注冊文件中找到啟動程序來開啟該份文件案！不賴吧！

注一：在 Windows 95/98/NT平臺中, 什么副文件名之文件案, 該由什么執行文件來啟動, 都設在關聯中，代碼為 HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionExtensions

例如: 名稱為 ”.DOC“ 之資料為 ”C:Progra~1Micros~2OfficeWINWORD.EXE ^.DOC“

名稱為 ”.TXT“ 之資料為 ”notepad.exe ^.txt“

注二：使用 Start 之唯一缺點為 ”會比直接指定執行文件稍為慢 0.5-1 秒鐘.“

//////////////////////////////////////////////////////////////////////////////////// 如何找出 Windows 目錄的正確路徑？

有時候我們在程序中必須用到 Windows 的目錄，以存取 Windows 目錄下的文件，照理說，這應該是最簡單的功能，前提是每個人在 Setup Windows 必須采用 Windows 的預設目錄名稱，也就是 C:Windows，但是常常不是這樣，有時候由於要使新舊版本共存，或者其他原因，有人會將 Windows 目錄改成 c:win95、c:win98、Windows95 或 Windows98......若是程序中必須用到 Windows 目錄，要找到正確的路徑，做法如下：

'在聲明區中加入以下聲明：

Const MAX_PATH = 260

Private Declare Function GetWindowsDirectory Lib ”kernel32“ Alias ”GetWindowsDirectoryA“(ByVal lpBuffer As String, ByVal nSize As Long)As Long

Public Function GetWinPath()Dim strFolder As String Dim lngResult As Long strFolder = String(MAX_PATH, 0)lngResult = GetWindowsDirectory(strFolder, MAX_PATH)If lngResult <> 0 Then GetWinPath = Left(strFolder, InStr(strFolder, Chr(0))1 Next lNum sGetFile = Mid(sGetFile, 2)'得到文件名 MsgBox sGetFile

//////////////////////////////////////////////////////////////////////////////////// 如何防止使用者按下 CTRL + ALT + DEL

有些時候，我們的應用程序執行時，不希望使用者按下 CTRL + ALT + DEL 來異常結束程序或關機，這時候我們可以在啟動程序時，將 CTRL + ALT + DEL 功能鍵之功能取消，然后在結束程序之前，再從新恢復 CTRL + ALT + DEL 之功能。

在模組聲明區中加入以下聲明及模組：

Declare Function SystemParametersInfo Lib ”user32“ Alias ”SystemParametersInfoA“(ByVal uAction As Long, ByVal uParam As Long, lpvParam As Any, ByVal fuWinIni As Long)As Long

Public Const SPI_SCREENSAVERRUNNING = 97

Public Sub Disable_Ctrl_Alt_Del()'讓 CTRL+ALT+DEL 失效 Dim AyW As Integer Dim TurFls As Boolean

AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, True, TurFls, 0)End Sub

Public Sub Enable_Ctrl_Alt_Del()'讓 CTRL+ALT+DEL 恢復功能 Dim AwY As Integer Dim TurFls As Boolean

AwY = SystemParametersInfo(SPI_SCREENSAVERRUNNING, False, TurFls, 0)End Sub

'實際使用時，在 Form 中加入以下程序碼：

Private Sub Form_Load()Disable_Ctrl_Alt_Del End Sub

Private Sub Form_Unload(Cancel As Integer)Enable_Ctrl_Alt_Del End Sub

//////////////////////////////////////////////////////////////////////////////////// 如何取得文件大小？

VB6 提供了一個新的物件模型，叫做 FSO(File System Object)物件模型，運用它，我們可以很方便的處理磁盤、資料夾和文件的一些動作。

FSO 物件模型含有好幾個物件，其中有一個 File 物件是用來求得文件的相關資訊，在目前這個主題，我們就可以使用 File 物件！它有一個屬性是 Size，對文件來說就是指文件的大小(單位為位元組)。(注一)

雖然使用 File 物件的 Size 屬性就可以求得文件的大小，但是它有以下二個缺點：

1、只能用于 VB6 以后的版本。

2、它不是 VB6 內定的功能，必須另外引用 Scrrun.dll(Microsoft Scripting Runtime)才可以！

以下的二個方法就可以使用在所有的 VB 版本中(含 VB6)，而且是 VB 內定的功能：

1、FileLen 函數：返回一個 Long，代表一個文件的長度，單位是位元組。

語法：FileLen(pathname)' pathname 是全路徑之文件名稱 適用：取得一個尚未開啟的文件的長度大小(注二)

2、LOF 函數：返回一個 Long，單位為位元組，用來代表由 Open 陳述式所開啟的文件之大小。

語法：LOF(filenumber)' filenumber 是一個文件代碼 適用：取得一個已開啟的文件的長度大小

注一：File 物件的 Size 屬性除了可以求得一個文件的大小，也可以用來取得整個目錄的所有文件大小！

注二：使用 FileLen 函數時，如果所指定的文件正在開啟中，則所返回的值是這個文件在開啟前的大小。

//////////////////////////////////////////////////////////////////////////////////// 如何移除或更改桌面背景的底色圖案(Wallpaper)？

SystemParametersInfo 這個 API 可以設定許多 Windows 系統的功能參數，而其中一個參數就是桌面底圖！通常一般的使用者會透過控制面板中的【顯示器】來設定桌面底圖。

在底下的范例中，我們使用 SPI_SETDESKWALLPAPER 這個參數及圖片文件名稱來設定新的桌面底圖，同時使用 SPIF_SENDWININICHANGE 來通知各個視窗這個改變。

'在表單的聲明區中加入以下聲明及常數：

Private Declare Function SystemParametersInfo Lib ”user32“ Alias ”SystemParametersInfoA“(ByVal uAction As Long, ByVal uParam As Long, ByVal lpvParam As String, ByVal fuWinIni As Long)As Long

Const SPI_SETDESKWALLPAPER = 20 Const SPIF_UPDATEINIFILE = &H1 Const SPIF_SENDWININICHANGE = &H2

'在表單上加入一個 CommandButton(Command1)來移除桌面底圖，程序碼如下：

Private Sub Command1_Click()Dim X As Long X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, ”(None)“, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)MsgBox ”桌面底圖(Wallpaper)已經被移除“ End Sub

'在表單上加入另一個 CommandButton(Command2)來更改桌面底圖，程序碼如下：

Private Sub Command2_Click()Dim FileName As String Dim X As Long FileName = ”c:windowstest.bmp“ X = SystemParametersInfo(SPI_SETDESKWALLPAPER, 0&, FileName, SPIF_UPDATEINIFILE Or SPIF_SENDWININICHANGE)MsgBox ”桌面底圖(Wallpaper)已經被更改“ End Sub

//////////////////////////////////////////////////////////////////////////////////// 一個快速注冊 DLL 及 OCX 的方法

有時候我們在 VB 中要引用某一個 DLL 或 OCX 時，會出現文件未注冊的訊息，這時，我們可以使用人工注冊的方法，也就是直接在命令列中使用 regsvr32.exe 來做，做法如下：

文件注冊：C:WindowsSystemRegsvr32.exe C:WindowsSystemTest.ocx 取消注冊：C:WindowsSystemRegsvr32.exe /u C:WindowsSystemTest.ocx

這些動作我們也可以直接寫到程序中，使用 Shell 來執行，但是我現在要說的，都不是上面提到的方法！

注意看羅！方法如下：

1、在資源管理器中找到 C:WindowsSystemRegsvr32.exe 并【復制】(按鼠標右鍵選復制)

2、將目錄移到 C:WindowsSendTo 后，執行【貼上快捷方式】(按鼠標右鍵選貼上快捷方式)

3、將快捷方式名稱改成【REGISTER】

4、OK

現在，如果您想替某一個文件做注冊動作，例如：C:WindowsSystemTest.ocx，您只要打開資源管理器，找到 C:WindowsSystemTest.ocx，按鼠標右鍵選【傳送到】【REGISTER】即可完成注冊動作了！

注：有一個地方要注意的是，Regsvr32.exe 只能注冊 32 位的文件！如果要用它來注冊 16 位的文件，會有錯誤訊息產生。

//////////////////////////////////////////////////////////////////////////////////// 如何用TextBox打開和保存文件

作為輕量級的控件，TextBox控件使用率很高，但相關的資料極少談及如何用TextBox控件打開和保存文件，大都采用回避的態度，對VB初學者帶來很多不便。筆者近日為友人做一個英文朗讀軟件，按友人的要求，軟件要能象MS的記事本那樣能打開和保存文檔。其實實現方法并不復雜，現將心得寫出來，希望對大家有幫助。如果您有更好的方法，請來信：handanfang@163.net。

'新建標準EXE，加入一個TextBox控件，一個公共對話框，兩個菜單。

'打開

Private Sub mnuOpen_Click()CommonDialog1.Filter = ”文檔文件(*.txt)|*.txt|所有文件(*.*)|*.*“ CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As #1 Text1.Text = StrConv(InputB$(LOF(1), 1), vbUnicode)Close #1 End Sub

'保存

Private Sub mnuSave_Click()On Error Resume Next

CommonDialog1.Filter =”文檔文件(*.txt)|*.txt|所有文件(*.*)|*.*“ CommonDialog1.ShowSave Open CommonDialog1.FileName For Output As #1 Print #1, Text1.Text Close 1 End Sub

TextBox只支持打開64K以下的文件，建議最好設置出錯處理。以上程序在PWin98、VB6.0下調試通過。

//////////////////////////////////////////////////////////////////////////////////// 如何判斷目前文件資源管理器中，文件名稱之擴展文件名是顯示或隱藏？

由于我在集團性的資訊處工作，所負責的公司系統有的是屬于外點，例如潤泰建設有個單位是行銷業務處，他們的工作是賣公司蓋的房子，所以他們的業務人員平常都是待在各工地的接待中心，我替他們開發的銷售系統在工地的部份是屬于單機作業的，使用 Access 資料庫，每一個星期資料回傳總公司一次。業務人員由于流動性大，不太了解系統，有時候，系統出了問題，業務人員又搞不清楚狀況，于是我會要求他們將資料庫 sale.mdb 回傳公司，結果，常鬧笑話，原來他們回傳公司的，常常不是 sale.ldb 就是 sale.exe，為什么呢？

原因很簡單，因為他們的文件資源管理器中，設定了將擴展文件名隱藏起來，結果只看到三個不同圖示的 sale 文件(分別是 Sale.mdb、Sale.ldb、Sale.exe)，不太會操作的業務人員根本分不清楚那一個圖示的 sale 文件才是資料庫文件案！

我們在 VB 的程序中要如何判斷，目前文件資源管理器中的設定是否顯示擴展文件名呢？

Private Declare Function GetFileTitle Lib ”comdlg32.dll“ Alias ”GetFileTitleA"(ByVal lpszFile As String, ByVal lpszTitle As String, ByVal cbBuf As Integer)As Integer Private Function HasExtension(sFileName As String)As Long Dim sTemp As String Dim lTemp As Long

sTemp = String(1, 0)lTemp = GetFileTitle(sFileName, sTemp, Len(sTemp))If lTemp < 0 Then HasExtension =-1: Exit Function sTemp = String(lTemp, 0)Call GetFileTitle(sFileName, sTemp, Len(sTemp))

If(Left$(Right$(Left$(sTemp, lTemp網站導航誠邀加盟友情鏈接-贊助本站 Copyright? 1999-2004 Programfan.com.All Rights Reserved 網站制作&維護：Hannibal Email: yaoz@163.com 網站合作及廣告聯系：(021)28540908