छोटे बुनियादी तैयार कोड। विजुअल बेसिक भाषा - कोड लिखने के उदाहरण

सभी को नमस्कार, इस लेख में मैं आपको कुछ उपयोगी छोटे प्रोग्राम कोड दिखाना चाहता हूं। जिसका उपयोग आप अपने स्वयं के अधिक गंभीर प्रोग्राम लिखने के लिए कर सकते हैं, ठीक है, या आप वास्तव में इन कार्यों की तलाश में थे, जिनका वर्णन यहां किया गया है।

सभी कोड Microsoft Visual Basic v6.0 प्रोग्रामिंग वातावरण में उपयोग किए गए थे।

पुष्टि के साथ बाहर निकलें

पहले प्रकार का प्रोग्राम, या फ़ंक्शन, एक निकास पुष्टिकरण संदेश के साथ एक निकास है। सामान्य तौर पर, विजुअल बेसिक प्रोग्रामिंग वातावरण खोलें, एक मानक प्रोजेक्ट बनाएं, फिर फॉर्म पर एक बटन रखें, बटन पर क्लिक करें और आपको कोड संपादन विंडो दिखाई देगी, और वहां आपको निम्नलिखित कोड डालने की आवश्यकता है:

बीप मंद संदेश स्ट्रिंग मंद बटन के रूप में और चिह्न पूर्णांक मंद शीर्षक के रूप में स्ट्रिंग मंद प्रतिक्रिया स्ट्रिंग संदेश के रूप में = "क्या आप बाहर निकलना चाहेंगे?" शीर्षक = "(! लैंग: बाहर निकलें)" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

प्रोग्राम शुरू करने के लिए पासवर्ड

मंद पासवर्ड, पासवर्ड पासवर्ड = "12345" पासवर्ड = इनपुटबॉक्स अगर पासवर्ड<>पासवर्ड फिर MsgBox "पासवर्ड सही नहीं है" एंड एंड इफ

जहां, 12345 प्रोग्राम शुरू करने का पासवर्ड है। लेकिन इस कोड को आप जहां चाहें इस्तेमाल कर सकते हैं।

एक संदेश प्रदर्शित करना

यदि आप किसी चीज़ के लिए केवल एक संदेश प्रदर्शित करना चाहते हैं, तो इसे सम्मिलित करें:

बीप मंद संदेश स्ट्रिंग मंद बटन के रूप में और चिह्न पूर्णांक मंद शीर्षक के रूप में स्ट्रिंग संदेश = "संदेश" शीर्षक = "(! LANG: संदेश" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

एक फॉर्म पर आरेखण

प्राइवेट सब फॉर्म_माउसडाउन (बटन के रूप में इंटीजर, शिफ्ट के रूप में इंटीजर, एक्स सिंगल के रूप में, वाई सिंगल के रूप में) फॉर्म 1। करंटएक्स = एक्स फॉर्म 1। करंटवाई = वाई एंड सब प्राइवेट सब फॉर्म_माउसमूव (बटन के रूप में इंटीजर, शिफ्ट के रूप में इंटीजर, एक्स के रूप में सिंगल, वाई के रूप में) सिंगल) अगर बटन = 1 तो लाइन (फॉर्म1.करंटएक्स, फॉर्म1.करेंटवाई) - (एक्स, वाई), क्यूबीकलर (0) एंड इफ एंड सब

आप QBColor (0) पैरामीटर का उपयोग करके रंग बदल सकते हैं, अर्थात। 0 को दूसरे अंक से बदलें।

कंप्यूटर को दोबारा चालू करो

अपने कंप्यूटर को पुनरारंभ करने के लिए: बटन रखें और निम्न कोड पेस्ट करें:

एक ही प्रति में कार्यक्रम चलाना

निम्नलिखित उदाहरण आपको प्रोग्राम को केवल एक बार चलाने में मदद करेगा, अर्थात पुनरारंभ करने के मामले में, यह एक संबंधित संदेश प्रदर्शित करेगा। फॉर्म कोड में डालें:

Private Sub Form_Load () यदि App.PrevInstance = True तो MsgBox "प्रोजेक्ट पहले से चल रहा है!" अंत अंत अगर

कंप्यूटर शटडाउन

कंप्यूटर को बंद करने के लिए, आप निम्न कोड का उपयोग कर सकते हैं:

स्ट्रिंग के रूप में मंद strComputer strComputer = "।" objWMIService = GetObject ("winmgmts:" और "(प्रतिरूपण स्तर = प्रतिरूपण, (शटडाउन)) सेट करें! \\" _ और strComputer और "\ root \ cimv2") सेट करें colOperatingSystems = objWMIService.ExeperacQuery ("Win32_O प्रत्येक ObjOperatingSystem से * चुनें * चुनें) colOperatingSystems ObjOperatingSystem.ShutDown में "अगला बंद करने के लिए"

किसी भी प्रक्रिया को पूरा करना

प्रक्रिया को पूरा करने के लिए, आप निम्न कोड का उपयोग कर सकते हैं:

शैल "सीएमडी / एक्स / सी टास्ककिल / एफ / आईएम ICQlite.exe", vbvhite

जहां ICQlite.exe की जगह कोई भी प्रोसेस हो सकता है.

कंप्यूटर कितने समय तक काम करता है

नीचे एक उदाहरण दिया गया है कि आप अपने कंप्यूटर के ऑपरेटिंग समय को कैसे निर्धारित कर सकते हैं। यह विधि कर्नेल 32 लाइब्रेरी का उपयोग करने पर आधारित है, इसलिए इस डीएलएल को फॉर्म कोड की शुरुआत में शामिल करें।

निजी घोषणा समारोह GetTickCount Lib "कर्नेल 32" () लंबे समय तक "और बटन कोड में: मंद a_hour, a_minute, a_second a = Format (GetTickCount () / 1000," 0 ")" केवल सेकंड a_days = Int (a / 86400) a = a - a_days * 86400 a_hour = int (a / 3600) a = a - a_hour * 3600 a_मिनट = int (a / 60) a_second = a - a_minute * 60 संदेश बॉक्स "आपका कंप्यूटर चल रहा है" और Str (a_days) & ""& Str (a_hour) _ &" घंटे "और Str (a_मिनट) और" मिनट "और Str (a_second) और" सेकंड "

हमने सरल कार्यों को कवर किया है जिनका उपयोग लगभग कहीं भी किया जा सकता है। अब आइए अधिक गंभीर उदाहरणों को देखें, और वे आपकी बड़ी परियोजनाओं को लिखने में आपकी बहुत मदद कर सकते हैं।

फ़ोल्डरों के साथ काम करने के उदाहरण

निर्देशिका हटाएं

निर्देशिका बनाओ

सब फोल्डर वाले सभी फोल्डर की सूची

प्रपत्र में 2 टेक्स्ट फ़ील्ड और एक बटन जोड़ें, पहले टेक्स्ट फ़ील्ड का नाम: StartText, दूसरे टेक्स्ट फ़ील्ड का नाम OutText। बहुपंक्ति गुण = सत्य, बटन का नाम = CmdStart

बूलियन डिम ऑलडायर्स के रूप में नए संग्रह के रूप में स्थिर चल रहा है अगला_दिर इंटीजर मंद dir_name के रूप में स्ट्रिंग मंद उप_दिर के रूप में स्ट्रिंग मंद के रूप में मैं स्ट्रिंग के रूप में इंटीजर मंद txt के रूप में चल रहा है तो चल रहा है = झूठा CmdStart। सक्षम = गलत CmdStart.Caption = "रोकना" अन्य चल रहा है = True MousePointer = vbHourglass CmdStart.Caption = "रोकें" OutText.Text = "" DoEvents next_dir = 1 AllDirs। StartText जोड़ें।<= AllDirs.Count dir_name = AllDirs(next_dir) next_dir = next_dir + 1 sub_dir = Dir$(dir_name & "\*", vbDirectory) Do While sub_dir <>"" यदि UCase $ (sub_dir)<>"PAGEFILE.SYS" और sub_dir<>"।" और उप_दिर<>".." फिर sub_dir = dir_name और "\" और sub_dir ऑन एरर रिज्यूमे अगला अगर GetAttr (sub_dir) और vbDirectory तो AllDirs.Add sub_dir End if sub_dir = Dir $ (, vbDirectory) लूप DoEvents यदि नहीं चल रहा है तो Exit Do Loop txt = "" के लिए i = 1 AllDirs के लिए। गणना txt = txt और AllDirs (i) और vbCrLf अगला i आउटटेक्स्ट। टेक्स्ट = txt माउसपॉइंटर = vbDefault unning = गलत अंत अगर

अब हम प्रोग्राम चलाते हैं, StartText टेक्स्ट बॉक्स में लिखते हैं: C: \ windows, और बटन पर क्लिक करें।

कैटलॉग का आकार

फाइलों के साथ काम करने के उदाहरण

प्रतिलिपि

मान लें कि हमारे पास C: \ 1 \ फ़ोल्डर में 1.txt नाम की एक फ़ाइल है, और हमें इसे C: \ 2 \ में कॉपी करने की आवश्यकता है, इसके लिए हम निम्नलिखित कोड लिखते हैं:

फाइलकॉपी "सी: \ 1 \ 1.txt", "सी: \ 2 \ 1.txt"

ध्यान दें! यदि निर्देशिका 2 में पहले से ही 1.txt नाम की कोई फ़ाइल है, तो उसे निर्देशिका 1 से 1.txt से बदल दिया जाएगा।

निजी घोषणा समारोह CopyFile Lib _ "kernel32.dll" उपनाम "CopyFileA" _ (ByVal lpExistingFileName स्ट्रिंग के रूप में, ByVal lpNewFileName स्ट्रिंग के रूप में, ByVal bFailIfExists लंबे समय तक) लंबे निजी उप कमांड के रूप में 1_क्लिक () "फ़ाइल कॉपी करें C: \ 1.txt टू डी: \ 1.txt। डिम रिटवल जब तक "रिटर्न वैल्यू" कॉपी फाइल रिटवल = कॉपीफाइल ("सी: \ 1.txt", "डी: \ 1.txt", 1) अगर रिटवल = 0 फिर "अगर MsgBox error" कॉपी नहीं कर सकता "अन्य" अगर सब कुछ ठीक है MsgBox "फाइल कॉपी की गई।" एंड अगर एंड सब

हटाया जा रहा है

उदाहरण के लिए, हम फ़ाइल 1.txt को C:\drive . के रूट से हटाना चाहते हैं

किल ("सी: \ 1.txt")

एपीआई रास्ता

प्राइवेट डिक्लेयर फंक्शन DeleteFile Lib _ "kernel32.dll" उपनाम "DeleteFileA" (ByVal lpFileName As String) लॉन्ग प्राइवेट सब कमांड के रूप में 1_क्लिक () "फाइल C: \ नमूने \ anyfile.txt डिम रिटवल अस लॉन्ग" रिटर्न वैल्यू रिटवल = DeleteFile ("C: \ 1.txt") यदि retval = 1 तो MsgBox "फ़ाइल सफलतापूर्वक हटा दी गई।" अंत उप

चलती

उदाहरण के लिए, आप इसे इस तरह स्थानांतरित कर सकते हैं:

फाइलकॉपी "सी: \ 1.txt", "सी: \ 2 \ 1.txt" किल ("सी: \ 1.txt")

लेकिन यह इस तरह बेहतर है (एपीआई के माध्यम से):

निजी घोषणा समारोह MoveFile Lib _ "kernel32.dll" उपनाम "MoveFileA" _ (ByVal lpExistingFileName स्ट्रिंग के रूप में, ByVal lpNewFileName स्ट्रिंग के रूप में) लंबे समय तक निजी उप कमांड के रूप में 1_क्लिक () डिम रेटवाल लंबे समय तक "रिटर्न वैल्यू रेटवल = मूवफाइल (" सी: \ 1 .txt "," C: \ 2 \ 1.txt ") यदि retval = 1 तो MsgBox" सफलतापूर्वक स्थानांतरित हो गया "अन्य MsgBox" त्रुटि "समाप्त हो तो अंत उप

नाम

C: \ से 2.txt में स्थित 1.txt फ़ाइल का नाम बदलने के लिए, आप निम्न कोड का उपयोग कर सकते हैं:

फाइलकॉपी "सी: \ 1.txt", "सी: \ 2.txt" किल ("सी: \ 1.txt")

एपीआई रास्ता

निजी घोषणा समारोह MoveFile Lib _ "kernel32.dll" उपनाम "MoveFileA" _ (ByVal lpExistingFileName स्ट्रिंग के रूप में, ByVal lpNewFileName स्ट्रिंग के रूप में) लंबे समय तक निजी उप कमांड के रूप में 1_क्लिक () डिम रिटवल एज़ लॉन्ग "रिटर्न वैल्यू रेटवल = मूवफाइल (" C: \ 1 .txt "," C: \ 2.txt ") यदि retval = 1 तो MsgBox" सफलता "Else MsgBox" त्रुटि "समाप्त हो तो अंत उप

फ़ाइल का आकार निर्धारित करें

फ़ाइल का आकार दो तरीकों से निर्धारित किया जा सकता है:

यदि फ़ाइल को OPEN फ़ंक्शन के साथ खोला जा सकता है, तो आप LOF फ़ंक्शन का उपयोग कर सकते हैं

डिम फाइलफ्री इंटीजर डिम फाइल साइज जितनी लंबी फाइलफ्री = फ्रीफाइल ओपन "सी: \ विन \ GENERAL.TXT" फाइलफ्री फाइल साइज = एलओएफ (फाइलफ्री) के रूप में इनपुट के लिए फाइलफ्री बंद करें

या फाइललेन फ़ंक्शन का उपयोग करें

लंबे फ़ाइल आकार के रूप में मंद lFileSize = FileLen ("सी: \ जीत \ GENERAL.TXT")

घड़ी को प्रोग्रामेटिक रूप से छिपाएं

2 बटन जोड़ें और कोड पेस्ट करें:

विकल्प स्पष्ट निजी घोषणा समारोह FindWindow Lib _ "user32" उपनाम "FindWindowA" (ByVal lpClassName स्ट्रिंग के रूप में, ByVal lpWindowName स्ट्रिंग के रूप में) लंबे निजी डिक्लेयर फ़ंक्शन के रूप में FindWindowEx लिब _ "user32" उपनाम "FindWindowExA" _ (ByVal hWnd1 As लॉन्ग, ByVal hWnd2 जितना लंबा, ByVal lpsz1 स्ट्रिंग के रूप में, ByVal lpsz2 स्ट्रिंग के रूप में) लॉन्ग प्राइवेट डिक्लेयर फंक्शन शोविंडो लिब _ "user32" (ByVal hwnd as Long, ByVal nCmd लॉन्ग के रूप में लंबे समय तक मंद और लॉन्ग प्राइवेट सब कमांड 1_क्लिक () ShowW hnd, 0 End Sub Private Sub Command2_Click () ShowWindow hnd, 1 End Sub Private Sub Form_Load () hnd = FindWindow ("Shell_TrayWnd", vbNullString) hnd = FindWindowEx (hnd, 0, "TrayNotifyWnd", vbNullString) hnd = FindWindowEx ( hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "घड़ी छुपाएं" Command2.Caption = "घड़ी दिखाएं" एंड सब

ट्रे में आइकन जोड़ें

एक मॉड्यूल जोड़ें, उसमें कोड पेस्ट करें:

डिक्लेयर फंक्शन Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage As Long, lpData as NOTIFYICONDATA) इंटीजर पब्लिक कॉन्स्टेबल के रूप में NIM_ADD = 0 पब्लिक कॉन्स्ट NIM_MODIFY = 1 पब्लिक कॉन्स्ट NIM_DELETE = 2 पब्लिक कॉन्स्ट NIF_MESSAGE_ 1 पब्लिक कॉन्स्टेबल NIF_MESSAGE_ 1 पब्लिक कॉन्स्टेबल NIF_MESSAGE के रूप में hWnd लंबे यूआईडी के रूप में लंबे समय तक uCallbackMessage लंबे hIcon के रूप में लंबे szTip के रूप में स्ट्रिंग * 64 अंत प्रकार सार्वजनिक फ़ंक्शन सेटट्रे आइकन (मोड जितना लंबा, एचडब्ल्यूएनडी लंबा, आइकन जितना लंबा, स्ट्रिंग के रूप में टिप) लंबे मंद nidTemp को NOTIFYICONDATA nidTemp के रूप में। cbSize = लेन (nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0 और nidTemp.uFlags = NIF_ICON या NIF_TIP nidTemp.uCallbackMessage = 0 और nidTraycon = Shell_NotifyIconA (मोड, nidTemp) एंड फंक्शन

उपयोग करने के लिए, फॉर्म के कोड में पेस्ट करें:

प्राइवेट सब फॉर्म_लोड () SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "निजी सब कमांड को हटाने के लिए1_क्लिक करें () SetTrayIcon NIM_DELETE, Me.hWnd, 0 &," "End Sub"

स्टार्ट बटन को ब्लॉक करना

निजी डिक्लेयर फ़ंक्शन FindWindow Lib "user32" उपनाम "FindWindowA" _ (ByVal lpClassName स्ट्रिंग के रूप में, ByVal lpWindowName स्ट्रिंग के रूप में) लंबे समय तक निजी डिक्लेयर फ़ंक्शन FindWindowEx Lib "user32" उपनाम "FindWindowExA" _ (ByVal hWnd1 जितना लंबा, ByVal hWnd2 लंबे समय तक, ByVal lpsz1 स्ट्रिंग के रूप में, ByVal lpsz2 स्ट्रिंग के रूप में) लॉन्ग प्राइवेट डिक्लेयर फंक्शन के रूप में सक्षमविंडो लिब "user32" _ (ByVal hwnd as Long, ByVal fEnable as Long) लंबे पब्लिक सब इनेबलस्टार्ट बटन के रूप में (बूलियन = ट्रू के रूप में वैकल्पिक सक्षम) मंद lHwnd जब तक " hWnd ढूंढें lHwnd & = FindWindowEx (FindWindow ("Shell_TrayWnd", ""), 0 &, "बटन", vbNullString) कॉल इनेबलविंडो (lHwnd &, CLng (सक्षम)) एंड सब प्राइवेट सब कमांड1_क्लिक () इनेबलस्टार्टबटन गलत "स्टार्ट बटन लॉक है एंड सब प्राइवेट सब कमांड2_क्लिक करें () इनेबलस्टार्टबटन ट्रू" स्टार्ट बटन लॉक नहीं है एंड सब

आईएनआई फ़ाइल से पैरामीटर पढ़ना

कार्यक्रम एफ़टीपी से जुड़ता है, और पैरामीटर आईएनआई फ़ाइल में लिखे जाते हैं - सर्वर, लॉगिन, पोर्ट, पासवर्ड।

शुरुआत से हम एक आईएनआई फाइल बनाते हैं:

सर्वनाम = सर्वर उपयोगकर्ता = लॉगिन pwd = पासवर्ड पोर्ट = पोर्ट

इसे प्रोग्राम फोल्डर में रखें। अगला, हम मॉड्यूल में सम्मिलित करते हैं:

प्राइवेट डिक्लेयर फंक्शन राइटप्राइवेटप्रोफाइलस्ट्रिंग लिब _ "कर्नेल 32" एलियास "राइट प्राइवेटप्रोफाइलस्ट्रिंग ए" (बायवैल एलपीएप्लिकेशननाम स्ट्रिंग के रूप में, बायवैल एलपीकेनेम स्ट्रिंग के रूप में, _ बायवैल एलपीस्ट्रिंग स्ट्रिंग के रूप में, बायवैल एलपीफाइलनाम स्ट्रिंग के रूप में) लंबे कर्नेल के रूप में निजी डिक्लेयर फंक्शन गेटप्राइवेट । स्ट्रिंग के रूप में ByVal lpApplicationName, स्ट्रिंग के रूप में ByVal lpKeyName, _ स्ट्रिंग के रूप में ByVal lpDefault, स्ट्रिंग के रूप में ByVal lpReturnedString, _ ByVal nSize as Long, ByVal lpFileName as String) लॉन्ग पब्लिक फंक्शन ReadIni (Razdel as String, Param) के रूप में Param, App.Path & "\ test.ini", "0") एंड फंक्शन प्राइवेट फंक्शन GetValue (ByVal सेक्शन as स्ट्रिंग, _ ByVal Key as string, ByVal fFileName as String, वैकल्पिक ByVal DefaultValue as String = vbNullString) स्ट्रिंग डिम के रूप में स्ट्रिंग डेटा के रूप में डेटा = स्ट्रिंग $ (1000, Chr $ (0)) यदि GetPrivateProfileString (अनुभाग, कुंजी, डिफ़ॉल्ट मान, डेटा, 1000, fFileName)> 0 तो GetValue = वाम $ (डेटा, InStr (डेटा $, Chr $ (0)) )) - 1 ) अन्य गेटवैल्यू = डिफॉल्टवैल्यू एंड अगर एग्जिट फंक्शन एंड फंक्शन

फिर हम फॉर्म कोड में पेस्ट करते हैं:

निजी डिक्लेयर फंक्शन इंटरनेटओपन लिब _ "wininet.dll" उपनाम "इंटरनेट ओपनए" (बायवैल एसएजेंट स्ट्रिंग के रूप में, बायवैल एनएक्सेस टाइप लंबे समय तक, बायवैल एसप्रॉक्सीनाम स्ट्रिंग के रूप में, _ बायवैल एसप्रॉक्सी बायपास स्ट्रिंग के रूप में, बायवैल एनफ्लैग्स एज़ लॉन्ग) इंटरनेटकनेक्ट प्राइवेट डिक्ला Lib _ "wininet.dll" उपनाम "InternetConnectA" (ByVal hInternetSession as long, ByVal sServerName as string, ByVal nServerPort as Integer, ByVal sUserName as String, ByVal sPassword as long, ByVal nService as Long, dw_ ByVal As , ByVal dwVFlags as Long, ByVal dwVFlags as Long, ByVal Long) लंबे निजी घोषणा समारोह के रूप में FtpPutFile Lib _ "wininet.dll" उपनाम "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpsz ByVal dwFlags as Long, ByVal dw) AsContext Asole लॉन्ग फंक्शन FtpGetFile Lib _ "wininet.dll" उपनाम "FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile as स्ट्रिंग, _ ByVal lpszNewFile As बूओ, _ ByVal lpszNewFile स्ट्रिंग के रूप में। , लंबी विशेषताएं _ ByVal dwFlags as Long, ByVal dwContext as Long) बूलियन प्राइवेट डिक्लेयर फंक्शन के रूप में InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Long) Integer Dim rc और Dim rs & के रूप में

और बटन कोड में:

चल रही प्रक्रियाओं की सूची

लिस्टबॉक्स और 1 बटन जोड़ें, निम्नलिखित कोड डालें:

विकल्प स्पष्ट निजी घोषणा समारोह CreateToolhelp स्नैपशॉट लिब _ "कर्नेल 32" उपनाम "CreateToolhelp32 स्नैपशॉट" _ (ByVal lFlags as Long, ByVal lProcessID जितने लंबे समय तक) लंबे समय तक निजी डिक्लेयर फंक्शन प्रोसेसफर्स्ट लिब _ "कर्नेल 32" उपनाम "Process32First" _ (ByVal lFlags as long) जब तक PROCESSENTRY32) लॉन्ग प्राइवेट डिक्लेयर फंक्शन प्रोसेस नेक्स्ट लिब _ "कर्नेल 32" उपनाम "प्रोसेस 32 नेक्स्ट" _ (ByVal hSnapShot as Long, uProcess as PROCESSENTRY32) लॉन्ग प्राइवेट डिक्लेयर सब क्लोजहैंडल लिब "कर्नेल 32" (बायवैल hPass जितना लंबा) Const TH32CS_ AsNAPPRO = 2 और निजी Const MAX_PATH पूर्णांक के रूप में = 260 निजी प्रकार PROCESSENTRY32 dwSize जितना लंबा cnt उपयोग th32ProcessID जितना लंबा th32DefaultHeapID लंबा th32ModuleID जितना लंबा cnt थ्रेड लंबा th32 है डिम आर लॉन्ग प्राइवेट सब कमांड1_क्लिक () लिस्ट 1. क्लियर hSnapShot = Cre ateToolhelpSnapshot (TH32CS_SNAPPROCESS, 0 &) यदि hSnapShot = 0 तो उप-अंत से बाहर निकलें यदि uProcess.dwSize = लेन (uProcess) r = ProcessFirst (hSnapShot, uProcess) कॉल करते समय r List1.AddItem uProcess.szExeFile r = (hSnapShot) CloseHandle अंत उप

स्टार्टअप पर प्रोग्राम डालना

प्रोग्राम को विंडोज़ के साथ लोड करने के लिए, कुछ अन्य प्रोग्रामों की तरह, आप रजिस्ट्री का उपयोग कर सकते हैं:

2 बटन और निम्न कोड जोड़ें:

Private Sub Command1_Click () "रजिस्ट्री प्रविष्टि सेट Reg = CreateObject (" WScript.Shell ") Reg.RegWrite" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ आपके प्रोग्राम का नाम ", _" आपके प्रोग्राम का पथ "एंड सब Private Sub Command2_Click () "रजिस्ट्री से हटाना सेट Reg = CreateObject (" WScript.Shell ") Reg.RegDelete" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ आपके प्रोग्राम का नाम "एंड सब

और प्रोग्राम को विंडोज के साथ लोड करने के लिए, यहां तक ​​​​कि सुरक्षित मोड में, फिर निम्न कोड:

शुरुआत के लिए, एक अधिक गंभीर तरीका (बस मामले में, रजिस्ट्री की बैकअप प्रतिलिपि बनाएं)।

प्राइवेट सब कमांड1_क्लिक () सेट रेग = क्रिएटऑब्जेक्ट ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Shell", _ "आपके प्रोग्राम का पथ" एंड सब प्राइवेट सब कमांड2_क्लिक () " यह सेट Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ सॉफ़्टवेयर \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Shell", _ "Explorer.exe," End Sub को पुनर्स्थापित करने के लिए है।

खैर, आसान तरीका।

निजी उप कमांड1_क्लिक () सेट रेग = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ सॉफ़्टवेयर \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Userinit", _ "C: \\ WINDOWS \\ system32 \\ userinit.exe , आपके प्रोग्राम का पथ "एंड सब प्राइवेट सब कमांड2_क्लिक ()" सेट रेग को पुनर्स्थापित करने के लिए = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ सॉफ़्टवेयर \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Userinit", _ "C : \\ विन्डोज़ \\ system32 \\ userinit.exe, "एंड सब

टास्कबार छुपाएं

2 बटन जोड़ें और कोड पेस्ट करें:

प्राइवेट डिक्लेयर फंक्शन सेटविंडोपॉस लिब "यूजर 32" (बायवैल एचडब्ल्यूएनडी जितना लंबा, _ बायवैल एचडब्ल्यूएनडी इंसर्ट लंबे समय के बाद, बायवैल एक्स जितना लंबा, बायवैल वाई जितना लंबा, _ बायवैल सीएक्स जितना लंबा, बायवैल साइ जितना लंबा, बायवैल डब्ल्यूफ्लैग जितना लंबा हो) लंबे समय तक निजी घोषणा फ़ंक्शन FindWindow Lib "user32" उपनाम "FindWindowA" _ (ByVal lpClassName स्ट्रिंग के रूप में, ByVal lpWindowName स्ट्रिंग के रूप में) लॉन्ग कॉन्स्ट SWP_HIDEWINDOW = & H80 Const SWP_SHOWWINDOW = & H40 "निजी उप कमांड को छुपाता है 1_क्लिक () hwnd1 =" FindWindow ("" Shell_trawindow ("" Shell_trawindow) कॉल SetWindowPos (hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) एंड सब "निजी सब कमांड दिखाता है2_क्लिक () hwnd1 = FindWindow (" Shell_traywnd "," ") SetWindowPos पर कॉल करें (hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) एंड सब

RAR संग्रह को अनज़िप करें

RAR संग्रह को अनज़िप करने के लिए, आप निम्न कोड का उपयोग कर सकते हैं:

WinRarApp = "C: \ प्रोग्राम फ़ाइलें \ WinRAR \ WinRAR.exe x -o +" iPath = "C: \" iArhivName = "Filename.rar" adr = WinRarApp और "" "" और iPath और iArhivName और "" "" "" और iPath और "" "" रेटवैल = शेल (adr, vbHide)

कंप्यूटर में कितनी RAM होती है

एक बटन जोड़ें और निम्नलिखित कोड पेस्ट करें:

"निजी डिक्लेयर सब ग्लोबलमेमरीस्टैटस लिब "कर्नेल 32" (टीपीबफ़र टीमेमरीस्टैटस के रूप में) निजी प्रकार टीमेमरीस्टैटस dwLength जितनी लंबी dwMemoryLoad जितनी लंबी dwTotalPhys जितनी लंबी dwAvailPhys जितनी लंबी dwTotalPageFile जितनी लंबी dwTotalPageFile = लंबी dwAvailwat File Status (TotalPage) " & ms.dwTotalPhys और vbCr और "फ्री:" _ और ms.dwAvailPhys और vbCr और "% में प्रयुक्त:" और ms.dwMemoryLoad End Sub

डेस्कटॉप आइकन छुपाएं

यह निम्न प्रकार से किया जाता है। 2 बटन जोड़ें और निम्नलिखित कोड पेस्ट करें:

प्राइवेट डिक्लेयर फंक्शन शोविंडो और लिब "यूजर 32" (बायवैल एचडब्ल्यूएनडी और, बायवैल एनसीएमडीशो एंड) प्राइवेट डिक्लेयर फंक्शन फाइंडविंडो लिब _ "यूजर 32" उपनाम "फाइंडविंडोए" (बायवैल एलपीक्लासनाम स्ट्रिंग के रूप में, बायवैल एलपीविंडोनाम स्ट्रिंग के रूप में) लॉन्ग कॉन्स्ट SW_HIDE = 0 कॉन्स्ट SW_NORMAL = 1 प्राइवेट सब कमांड1_क्लिक () डिम hHandle ऐज़ लॉन्ग hHandle = FindWindow ("प्रोगमैन", vbNullString) कॉल शोविंडो (hHandle, SW_HIDE) एंड सब प्राइवेट सब कमांड2_क्लिक () डिम hHandle ऐज़ लॉन्ग hHandle = FindWindow ("प्रोगमैन", vbNullStringHandle शोविंडो, SW_NORMAL) एंड सब

कमांड 1 बटन आइकन छुपाता है, कमांड 2 आइकन प्रकट करता है।

मेरे लिए बस इतना ही, मुझे आशा है कि उपरोक्त उदाहरण अभी के लिए आपके लिए उपयोगी होंगे!

एक्लिप्स अपने पूरे जीवन चक्र में सॉफ़्टवेयर बनाने, उपयोग करने और प्रबंधित करने के लिए रनटाइम और एप्लिकेशन प्लेटफ़ॉर्म के साथ एक एक्स्टेंसिबल डेवलपमेंट प्लेटफ़ॉर्म है। बहुत से लोग एक्लिप्स को जावा आईडीई के रूप में जानते हैं, लेकिन एक्लिप्स में वास्तव में 60 से अधिक विभिन्न ओपन सोर्स प्रोजेक्ट शामिल हैं, देखें

मुक्त खुला स्रोतमैक विंडोज लिनक्स

प्रोग्रामिंग की मूल बातें।

प्रोग्रामिंग भाषा छोटा बुनियादी

पाठ 1: प्रोग्रामिंग वातावरण से परिचित छोटा बुनियादी .

लक्ष्य:परिचित स्मॉल बेसिक प्रोग्रामिंग लैंग्वेज के साथ।

कार्य:

प्रोग्रामिंग भाषा सीखना शुरू करेंस्माल बेसिक। OOP (ऑब्जेक्ट ओरिएंटेड प्रोग्रामिंग) की अवधारणा दें।

इस प्रोग्रामिंग वातावरण में कैसे काम करना है यह सिखाने के लिए। एन एस पर्यावरण की "पाठ वस्तु" से परिचित होंस्माल बेसिक।

प्रोग्रामिंग वातावरण में प्रोग्राम बनाने का पहला विचार देना।

परियोजना के मुख्य शैक्षिक कार्य:

व्यक्तिगत गुणों की शिक्षा: समर्पण, सावधानी, सटीकता, आत्म-सम्मान में निष्पक्षता, जिम्मेदारी, संज्ञानात्मक रुचि।

परियोजना के मुख्य विकासात्मक कार्य:

छात्रों में सफल सामाजिक अनुकूलन में योगदान देने वाली प्रमुख दक्षताओं का निर्माण करना;

संज्ञानात्मक गतिविधि के माध्यम से आत्म-विकास और व्यक्तिगत विकास की इच्छा विकसित करना।

जानना: बुनियादी अवधारणाएँ: वस्तु, चर, असाइनमेंट, डेटा प्रकार, इनपुट-आउटपुट।स्मॉल बेसिक प्रोग्रामिंग वातावरण के घटक तत्वों को जानें।

करने में सक्षम हों: स्माल बेसिक प्रोग्राम लोड करें। किसी दिए गए प्रोग्रामिंग वातावरण में सबसे सरल प्रोजेक्ट बनाएं। स्माल बेसिक भाषा में गणितीय कार्यों को दर्ज करने और गणितीय अभिव्यक्तियों को लिखने में सक्षम हो। सरल रैखिक कार्यक्रम बनाएं।

उपकरण और सामग्री: सहायक व्याख्यान नोट्स (देखें।परिशिष्ट 1 ), टास्क कार्ड, पीसी, स्मॉल बेसिक एप्लिकेशन, व्हाइटबोर्ड, मल्टीमीडिया प्रोजेक्टर, स्क्रीन।

कक्षाओं के दौरान:

आयोजन का समय

1. पाठ की तैयारी

   ज्ञान अद्यतन

नई सामग्री की व्याख्या

अध्ययन सामग्री का समेकन

1. विषय पर प्रश्न

सारांश

1. ग्रेडिंग

   होम वर्क

आयोजन का समय

1. पाठ की तैयारी (पाठ के लिए तैयारी की जाँच करें, अनुपस्थित को चिह्नित करें)

   ज्ञान अद्यतन

प्रोग्रामिंग किसके लिए है?

आप जीव विज्ञान में एक सार लिखना चाहते हैं। सबसे अधिक संभावना है, आप इसे अपने कंप्यूटर पर किसी टेक्स्ट एडिटर में लिखेंगे। टेक्स्ट एडिटर कहाँ से आया? बेशक, प्रोग्रामर ने इसे लिखा था। आप एक ब्राउज़र का उपयोग करके इंटरनेट पर जानकारी की खोज करेंगे जो प्रोग्रामर द्वारा भी लिखा गया था। अपना सार लिखने के बाद, आप आराम करना और एक कंप्यूटर गेम खेलना चाहेंगे, जिसे फिर से प्रोग्रामर द्वारा लिखा गया था। सामान्य तौर पर, प्रोग्रामर्स द्वारा लिखे गए प्रोग्रामों का उपयोग किए बिना कंप्यूटर पर काम करना असंभव है। इसका मतलब यह है कि अगर प्रोग्रामिंग नहीं होती, तो कोई प्रोग्राम नहीं होता, और कंप्यूटर महंगे हार्डवेयर का एक गुच्छा होता, क्योंकि बिना प्रोग्राम के कंप्यूटर का उपयोग करके कुछ करना असंभव है।

समस्या समाधान के चरण।

बुनियादी अवधारणाओं

प्रोग्रामिंग - कार्यक्रम लिखना।

कार्यक्रम - कंप्यूटर द्वारा समझी जाने वाली प्रोग्रामिंग भाषा में लिखा गया एक एल्गोरिथम।

कलन विधि - लक्ष्य को प्राप्त करने के उद्देश्य से कार्यों का एक स्पष्ट क्रम।

वस्तु-उन्मुख प्रोग्रामिंग में एक वस्तु की अवधारणा पेश की गई है, गणना तंत्र लागू किया गया है जो अनुमति देता है:

किसी वस्तु की संरचना का वर्णन करें

वस्तुओं के साथ क्रियाओं का वर्णन करें

वस्तु विरासत के लिए विशेष नियमों का प्रयोग करें (वंशानुक्रम का अर्थ है मौजूदा वस्तुओं से नई वस्तुएँ बनाना)

वस्तु के घटकों की सुरक्षा की डिग्री निर्धारित करें

सिद्धांत

पहली बैठक

माइक्रोसॉफ्ट स्मॉल बेसिक - कंपनी द्वारा विकसित एक प्रोग्रामिंग भाषा। शुरुआती डेवलपर्स के लिए डिज़ाइन किया गया जो सॉफ़्टवेयर विकास की मूल बातें समझना चाहते हैं।

मुख्य लाभ:

एक बहुत ही सरल विकास वातावरण - एक बहुकार्यात्मक टूलटिप वाला एक टेक्स्ट एडिटर और टेक्स्ट संपादित करने और प्रोग्राम लॉन्च करने के लिए केवल कुछ बटन।

केवल 20 कीवर्ड के साथ सरल भाषा

विकास के माहौल में निर्मित सभी भाषा तत्वों के लिए प्रासंगिक दस्तावेज़ीकरण

अतिरिक्त कार्यक्षमता को शामिल करने के लिए छोटे बुनियादी घटकों का विस्तार करने की क्षमता। (उदाहरण के लिए, डिलीवरी में पहले से ही सेवाओं के साथ काम करने के अवसर शामिल हैं)

BASIC के एक विशेष लाभ को व्याख्या मोड में काम करने की क्षमता माना जाना चाहिए, जो डिबगिंग कार्यक्रमों की प्रक्रिया को बहुत सरल करता है: लगभग हर कमांड के निष्पादन को लिखने के तुरंत बाद जांचा जा सकता है।

अनुमान कथन

लाइन प्रदर्शित करता है (मूलपाठया संख्या )

अरे!

परिणाम प्राप्त करने के लिए - "हैलो!" टेक्स्ट आउटपुट करें स्क्रीन पर - आपको एक प्रोग्राम लिखना होगा:

TextWindow.WriteLine ("हैलो!")

कार्यक्रम खिड़की में दर्ज किया गया हैछोटाबुनियादीऔर बटन द्वारा शुरू किया गया हैदौड़नाया कुंजी द्वारा एफ 5

कार्यक्रम का परिणाम पाठ का आउटपुट है: "हैलो!" वीपाठ बॉक्स कार्यक्रम।

लाइन का अर्थ है "जारी रखने के लिए कोई भी कुंजी दबाएं ..."

टेक्स्टविंडो एक टेक्स्ट विंडो ऑब्जेक्ट है जिसमें टेक्स्ट प्रदर्शित किया जा सकता है।

वस्तु के पास है गुणतथा तरीके।

वस्तु विधि कुछ ऐसा जो वस्तु करने में सक्षम है, अर्थात वह हैसंचालन (ऑपरेटरों )

पैरामीटर ऑपरेशन कोष्ठक में संलग्न है WriteLine()

वही वस्तु पाठ बॉक्स के पास गुण (ये वस्तु की विशेषताएं हैं) , उदाहरण के लिए

बैकग्राउंड कलर प्रॉपर्टी - टेक्स्ट के लिए बैकग्राउंड कलर सेट करती है,अग्रभूमि रंग- लिखावट का रंग

रंग की:

पीला

हरा

नीला

काला

सफेद

लाल

पीला

हरा

नीला

काला

सफेद

चर

प्रोग्राम बनाने के लिए अक्सर वेरिएबल्स का उपयोग किया जाता है।

चर हैनाम - लैटिन पत्र (ए)

एक चर को एक मान दिया जा सकता है, जैसे एक संख्यात्मक मान

ए= 5, जहां चिन्ह " = " - यह है असाइनमेंट ऑपरेटर

ए = ए + 5

चर a . का मान लें

इसमें 5 जोड़ें

वेरिएबल a का नया मान डालें, इससे पिछले वाले को मिटा दें

चर दो प्रकार के होते हैं: संख्यातथा रेखा

10, -5, 3.14 "सूचना विज्ञान"

गुणा करें *

विभाजित /

गणितीय क्रियाएं:

ज्या, लघुगणक, जड़

गोंद

टुकड़े करना

प्रतीक खोजें

वर्ण बदलें

उदाहरण के साथ ऑपरेटर "+"

अभिव्यक्ति

नतीजा

अभिव्यक्ति

नतीजा

"इवान" + "ओवा"

"इवानोवा"

"कक्षा" + 10

"कक्षा 10"

प्रोग्रामिंग

उदाहरण 1: कार्यक्रम परिणाम

उदाहरण 2: कार्यक्रम परिणाम

उदाहरण 3: कार्यक्रम दो चरों के योग की गणना और प्रदर्शित करता हैए तथा बी

मापांक

गणित.कोस ( नंबरे)

कोज्या

मठ। छत (नंबर)

एक पूर्णांक के लिए राउंड

Math.GetDegrees ( नंबरे)

किसी संख्या को रेडियन से अंश में बदलना

Math.GetRandomNumber ( मैक्सनंबर)

1 से . की सीमा में एक यादृच्छिक संख्यामैक्सनंबर

प्राकृतिक लॉग (नंबर)

प्राकृतिक

गणित.Pi

अनुकरणीय

गणित। शक्ति ( बेसनंबर, प्रतिपादक)

वी हेआधारनाम को घातांक से गुणा करना

गणित। मैक्स (नंबर 1, नंबर 2)

अधिकतम दो अंक

गणित। शेष (लाभांश, भाजक)

विभाग के शेष

गणित पाप (नंबर)

साइनस

गणित। टैन(नंबरे)

कोज्या

गणित .ScuareRoot (नंबर)

जड़

गणित। गोल(नंबरे)

सामान्य गोलाई

गणित आर्कसिन (नंबर)

आर्कसिन

गणित। फ़र्श(नंबरे)

निकटतम सबसे छोटे पूर्णांक तक पूर्णांकित करें

एक्स = टेक्स्टविंडो। रीडनंबर ()

वाई = गणित। एब्स (एक्स)

TextWindow.WriteLine ("yबराबरी "+ वाई)

सामग्री की सुरक्षा

1. पीसी पर स्वतंत्र व्यावहारिक कार्य

स्व-अध्ययन कार्य

अभ्यास 1:

असाइनमेंट ऑपरेटरों के अंतिम परिणाम निर्धारित करें

वाई = 2

एक्स = एक्स + 2

वाई = एक्स * 2

एक्स = वाई

ए = 15

बी = ए

ए = बी / 5 + 2

बी = ए * 3

ए = 0

असाइनमेंट 2 : 3 चरों के गुणनफल की गणना के लिए एक प्रोग्राम बनाएं:ए , बी तथा सी .

असाइनमेंट 3 : व्यंजक की गणना के लिए एक प्रोग्राम बनाएं:जेड=5* एक्स+ आप/ 2 (बशर्ते x = 10,आप=100)

असाइनमेंट 4: X और . के मानों को आउटपुट करने के लिए एक प्रोग्राम बनाएंयू, कार्य 1 के अनुसार।

कार्य 5: भेदभाव करने वाले को खोजने के लिए एक प्रोग्राम बनाएं

असाइनमेंट 6 : भावों का मूल्यांकन करें

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

क्योंकि 2 (अनुकरणीय/4)+ पाप 2 (अनुकरणीय/2) (1 )

( 1)

वाई = 2x 2 ( पर एक्स = 5, वाई = 50)

एक्स 1,2 = (ए = 2 के लिए, बी=6, सी=4 , एक्स 1=-1, एक्स 2=-2)

जेड= एलएन (वाई)-3 ( पर वाई = 3, जेड = -1.901 ...)

= (के लिए ए=4, बी=9, सी=13)

वाई = कॉस (एक्स) + पाप (एक्स) (एक्स = 180 0 , वाई = -1)

प्रशन

एक कार्यक्रम क्या है?

प्रोग्रामिंग लैंग्वेज किसके लिए हैं?

ऑब्जेक्ट-ओरिएंटेड प्रोग्रामिंग के मूल तत्व क्या हैं?

"टेक्स्ट बॉक्स" में कौन से ऑपरेशन किए जा सकते हैं?

असाइनमेंट ऑपरेटर का क्या अर्थ है:

में किस प्रकार के डेटा का उपयोग किया जाता हैस्माल बेसिक?

I/O स्टेटमेंट कैसे लिखे जाते हैं?

सारांश

1. ग्रेडिंग

   होम वर्क

काम सपोर्टिंग नोट्स के साथ

एक संदेश तैयार करें विषय पर: "विभिन्न प्रकार की प्रोग्रामिंग भाषाएं"

एक कार्यक्रम बनाओ बगुला के सूत्र का उपयोग करके त्रिभुज का क्षेत्रफल ज्ञात करना

आवेदन

ओके 1: भाषा में प्रोग्रामिंग की बुनियादी बातें छोटा बुनियादी .

प्रोग्रामिंग - कार्यक्रम लिखना।

कलन विधि + प्रोग्रामिंग भाषा= कार्यक्रम

चर

चर हैनाम - लैटिन अक्षर (उदाहरण के लिए,ए , वी , x1 , सी9 )

एक चर को एक मान सौंपा जा सकता है

उदाहरण: ए = 5 , जहां चिन्ह " = " - यह है असाइनमेंट ऑपरेटर

चर दो प्रकार के होते हैं: संख्या तथा रेखा (चरित्र अनुक्रम)

10, -5, 3.14 "सूचना विज्ञान"

गुणा करें *

विभाजित /

गणितीय क्रियाएं:

ज्या, लघुगणक, जड़

गोंद

टुकड़े करना

प्रतीक खोजें

वर्ण बदलें

प्रोग्रामिंग

टेक्स्टविंडो- यह है टेक्स्ट विंडो ऑब्जेक्ट जहां आप टेक्स्ट प्रदर्शित कर सकते हैं।

ऑपरेशन पैरामीटर कोष्ठक में संलग्न - WriteLine()

एक वस्तु पाठ बॉक्स के पास गुण , उदाहरण के लिए

संपत्ति पीछे का रंग - पाठ के लिए पृष्ठभूमि का रंग सेट करता है,अग्रभूमि रंग - लिखावट का रंग

इस्तेमाल किए गए रंग:

पीला

हरा

नीला

काला

सफेद

लाल

पीला

हरा

नीला

काला

सफेद

स्मॉल बेसिक ऑपरेटर्स

ऑपरेटर "+"

अभिव्यक्ति में गणित के कार्यों का उपयोग करना

एक्स = टेक्स्टविंडो। रीडनंबर ()

वाई = गणित। एब्स (एक्स)

TextWindow.WriteLine ("yबराबरी "+ वाई)

TextWindow.WriteLine (Math.Abs ​​(-10))

दो चरों के योग की गणना के लिए कार्यक्रमएतथा बी

TextWindow.WriteLine ("चर का मान दर्ज करें a")

ए = टेक्स्टविंडो। रीडनंबर ()

TextWindow.WriteLine ("बी के लिए एक मान दर्ज करें")

बी = टेक्स्टविंडो। रीडनंबर ()

एस = ए + बी

TextWindow.WriteLine ("संख्याओं का योग है "+ एस)

कार्यक्रम खिड़की में दर्ज किया गया हैछोटाबुनियादीऔर बटन द्वारा शुरू किया गया हैदौड़नाया कुंजी द्वारा एफ 5.

रेखा दबाएँ कोई भी चाभी जारी रखें ... साधन " जारी रखने के लिए कोई भी कुंजी दबाएँ