【正文】 統(tǒng)運(yùn)行人員的崗位技能是影響電力系統(tǒng)運(yùn)行安全的重要因素 ,因此 ,研制功能齊全、造價(jià)低廉、使用和維護(hù)方便的變電站仿真培訓(xùn)系統(tǒng) ,是一項(xiàng)十分重要的工作。變電站仿真培訓(xùn)系統(tǒng)分為盤臺(tái)模式和純軟件模式兩種。盤臺(tái)模式仿真效果逼真 ,但造價(jià)高、占地面積大、靈活性和通用性差、維護(hù)和升級(jí)困難 。純軟件模式完全可以利用計(jì)算機(jī)營造一種逼真的環(huán)境 ,雖然它與實(shí)物相比真實(shí)感差 ,但它顯著的特點(diǎn)是投資少、占地小、靈活性好、容易維護(hù)和升級(jí)。所以我采用純軟件模式開發(fā)了計(jì)算機(jī)多媒體仿真培訓(xùn)系統(tǒng)。第五章 系統(tǒng)設(shè)計(jì)及實(shí)現(xiàn) 系統(tǒng)總體設(shè)計(jì)此系統(tǒng)使用Visual Basic ，仿真變電站一次設(shè)備常見缺陷產(chǎn)生原因和處理方式，讓學(xué)員通過計(jì)算機(jī)就能針對(duì)變電站不同的設(shè)備進(jìn)行仿真練習(xí)。 系統(tǒng)特點(diǎn)此系統(tǒng)有兩個(gè)登陸方式，學(xué)員和教師登陸。學(xué)員：學(xué)員登陸可以通過多媒體演示進(jìn)行缺陷處理的學(xué)習(xí)，并且有考核的功能，最終提交答卷；教師：教師登陸可以查看學(xué)員填寫的試卷并且打分評(píng)價(jià)。 運(yùn)行演示第六章 結(jié)語在電力系統(tǒng)數(shù)字仿真領(lǐng)域，包括火電機(jī)組培訓(xùn)仿真、電網(wǎng)調(diào)度培訓(xùn)仿真、核電站培訓(xùn)仿真和調(diào)節(jié)控制研究分析仿真系統(tǒng)等各種仿真系統(tǒng)已經(jīng)得到了很大的發(fā)展，而在電網(wǎng)中占居重要地位和起重要作用的變電站，其仿真培訓(xùn)系統(tǒng)的開發(fā)和應(yīng)用正逐漸被重視。變電站仿真系統(tǒng)是電力系統(tǒng)數(shù)字仿真領(lǐng)域的重要分支和研究方向。變電站仿真系統(tǒng)中，其電氣系統(tǒng)由高、中、低三個(gè)電壓等級(jí)組成，接線方式也有各級(jí)電壓系統(tǒng)的代表性。各電壓等級(jí)下電氣開關(guān)設(shè)備、變壓器、低壓補(bǔ)償設(shè)備有不同的控制操作方式。所以對(duì)變電站進(jìn)行全面的仿真和模擬，具有重要的理論意義和實(shí)用價(jià)值?，F(xiàn)將本文所做工作歸結(jié)如下：（1） 研究了變電站仿真技術(shù)的現(xiàn)狀，對(duì)變電站仿真培訓(xùn)系統(tǒng)進(jìn)行了詳細(xì)的分析和學(xué)習(xí)。（2） 了解變電站設(shè)備缺陷，并且針對(duì)一次設(shè)備缺陷處理做了詳細(xì)的學(xué)習(xí)。（3） 確定以Visual Basic ，初步制作了簡(jiǎn)單、明了、可靠的變電站缺陷處理培訓(xùn)系統(tǒng)。致 謝 在整個(gè)課程學(xué)習(xí)階段和課題研究階段，始終得到導(dǎo)師、任課老師的關(guān)心和幫助。本文是在導(dǎo)師王健的悉心指導(dǎo)下完成的，在我的課題選擇、方案確定、論文撰寫等過程中始終得到老師的精心指導(dǎo)和幫助。老師淵博的學(xué)識(shí)給我留下了深刻印象，謹(jǐn)向我尊敬的導(dǎo)師表示最衷心的感謝和崇高的敬意。在課程及論文研究階段，給我留下最深印象的是老師們對(duì)事業(yè)執(zhí)著的追求，對(duì)學(xué)術(shù)嚴(yán)謹(jǐn)?shù)膽B(tài)度，我學(xué)到的不僅僅是知識(shí)本身，還真正領(lǐng)悟到科學(xué)的真諦。感謝東南大學(xué)成賢學(xué)院各位老師和同學(xué)的支持和幫助!最后，我再次向給予我?guī)椭完P(guān)心的各位老師和同學(xué)表示衷心的感謝!參考文獻(xiàn)[1] 孫澤鋒，劉鑫；500kV變電站計(jì)算機(jī)監(jiān)控系統(tǒng)發(fā)展的建議[J]；黑龍江電力；2006年02期[2] 杜文柱；變電站綜合自動(dòng)化系統(tǒng)的構(gòu)成和應(yīng)用[J]；科技傳播；2010年18期[3] 楚燕；油浸變壓器的安裝與常規(guī)缺陷處理[J]；廣東科技；2008年10期[4] 王凱，李偉；500kV繁昌變電站5033斷路器相間合閘不同期缺陷的發(fā)現(xiàn)和處理[J]；安徽電力；2007年3期[5] 徐曉慧；變電站仿真培訓(xùn)中缺陷查找及處理的自動(dòng)評(píng)分系統(tǒng)[J]；電力自動(dòng)化設(shè)備；2009年19期[6] 唐軍紅，李晉成；220kV楚都變電站隔離開關(guān)缺陷及處理[J]；河南電力；2007年2期[7] 李昂，王志川；GW11—550型高壓隔離開關(guān)缺陷處理[J]；四川電力技術(shù)；2008年3期[8] 羅毅；變電站多媒體自動(dòng)化系統(tǒng)[J]；電力系統(tǒng)自動(dòng)化；2011年25期[9] 徐光瑜；變電站自動(dòng)化中多媒體技術(shù)應(yīng)用和通信模式[J]；電力系統(tǒng)自動(dòng)化；2011年25期附 錄部分程序代碼：Form1：Private Sub Command1_Click() If = user And = 123456 Then Unload Me ElseIf = teacher And = 123456 Then Unload Me Else: MsgBox 用戶名或密碼不正確！, 1 + 64 + 0, 確認(rèn) End IfEnd SubPrivate Sub Command2_Click() EndEnd SubPrivate Sub mnuAbout_Click() End SubPrivate Sub mnuDl_Click() End SubForm4：Option ExplicitDim a, b, c, d, e, f, g, h, i, j, k, lPrivate Sub Command1_Click() Unload Me End SubPrivate Sub Form_Load() a = b = c = d = e = f = g = h = i = j = k = l = End SubPrivate Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = a = b = c = d = e = f = g = h = i = j = k = lEnd SubPrivate Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = a * = b * End SubPrivate Sub Image2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = c * = d * End SubPrivate Sub Image3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = e * = f * End SubPrivate Sub Image4_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = g * = h * End SubPrivate Sub Image5_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = i * = j * End SubPrivate Sub Image6_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) = k * = l * End SubPrivate Sub Image1_Click() End SubPrivate Sub Image2_Click() End SubPrivate Sub Image3_Click() End SubPrivate Sub Image4_Click() End SubPrivate Sub Image5_Click() End SubPrivate Sub Image6_Click() End SubForm6：Private Sub Command1_Click() Unload MeEnd SubPrivate Sub Command2_Click() Unload MeEnd SubForm7：Private Declare Sub keybd_event Lib user32 (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)Private Const KEYEVENTF_KEYUP = amp。H2Private Sub Command1_Click() keybd_event vbKeySnapshot, 1amp。, 0amp。, 0amp。 DoEvents SavePicture , C:\ amp。 Format() amp。 .jpg MsgBox 上傳成功！, 1 + 64 + 0, 確認(rèn)End SubPrivate Sub Command2_Click() Unload Me End SubPrivate Sub Form_Load() = amp。 If (0).Value = True Then = amp。 目測(cè) ElseIf (1).Value = True Then = amp。 耳聽 ElseIf (2).Value = True Then = amp。 儀器 End If = amp。 = amp。 = amp。 = amp。 End SubForm8：Private Sub Command1_Click() If = 0 Then MsgBox 請(qǐng)先打開試卷, 1 + 64 + 0, 確認(rèn) ElseIf 得 分 : Then MsgBox 已經(jīng)打分！, 1 + 64 + 0, 確認(rèn) Else Dim temp temp = InputBox(輸入0100分?jǐn)?shù), 請(qǐng)打分) If temp 0 Then MsgBox 請(qǐng)輸入0100間分?jǐn)?shù)！, 1 + 64 + 0, 確認(rèn) ElseIf temp 100 Then MsgBox 請(qǐng)輸入0100間分?jǐn)?shù)！, 1 + 64 + 0, 確認(rèn) ElseIf temp = 0 And temp = 100 Then = amp。 temp End If End IfEnd SubPrivate Sub Command2_Click() Unload Me End SubPrivate Sub mnuopen_Click() = *.jpg = c: If Then = LoadPicture() End IfEnd SubPrivate Sub Picture1_Change() = 得 分 :End Su