جایگزین هایی برای جایگزینی Microsoft Small Basic. درس از علوم کامپیوتر و فناوری اطلاعات و ارتباطات با موضوع: "دانش وسط برنامه نویسی Small Basic" مسدود کردن دکمه شروع

سلام به همه، در این مقاله می خواهم به شما نشان دهم کدهای قهوه ایبرنامه های کوچک می‌توانید از آن برای نوشتن برنامه‌های جدی‌تر خود استفاده کنید، یا به عملکردهای توصیف‌شده در اینجا نگاه کرده‌اید.

همه کدها در میان افزار Microsoft Visual Basic نسخه 6.0 کامپایل شدند.

با تایید خارج شوید

اولی برنامه ای در نوع خود یا عملکردی است که از شما می خواهد با اعلان هایی در مورد تأیید خروج خارج شوید. زاگالوم وسط برنامه نویسی باز کن ویژوال بیسیک، ايجاد كردن پروژه استانداردسپس یک دکمه را روی فرم قرار دهید، روی دکمه کلیک کنید و پنجره ای برای ویرایش کد مشاهده می کنید و در آنجا باید کد زیر را وارد کنید:

بیپ پیام کم نور به عنوان دکمه تیره رشته و نمادها به عنوان عدد صحیح تیره عنوان به عنوان پاسخ کم رشته به عنوان پیام رشته = "آیا می خواهید وارد شوید؟" title = "(! LANG: خروجی" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}!}

رمز عبور برای راه اندازی برنامه

رمز عبور کم رنگ، رمز عبور Pword = "12345" Pword = InputBox ("رمز عبور را وارد کنید") اگر Pword<>PassWord سپس MsgBox "رمز عبور نامعتبر است" End End If

بله، 12345 رمز عبور برنامه است. شما می توانید این کد را هر طور که می خواهید ویکوریز کنید.

به روز رسانی

اگر به هر دلیلی می خواهید فقط اطلاعات را نمایش دهید، این را وارد کنید:

پیغام کم‌نور به‌عنوان دکمه‌های کم‌نور رشته و علامت‌ها به‌عنوان عدد صحیح تیرگی عنوان به‌عنوان پیام رشته = عنوان «مکاشفه» = «(! LANG: یادآوری" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}!}

نقاشی روی فرم

Private Sub Form_MouseDown (دکمه به عنوان عدد صحیح، Shift به عنوان عدد صحیح، X به عنوان تک، Y به عنوان تک) Form1.CurrentX = X Form1.CurrentY = Y End Sub Private Sub Form_MouseMove (دکمه به عنوان عدد صحیح، Shift به عنوان عدد صحیح، X به عنوان تک، Y به عنوان Single) If Button = 1 سپس Line (Form1.CurrentX, Form1.CurrentY) - (X, Y), QBCcolor (0) End If End Sub

می توانید رنگ را با استفاده از پارامتر اضافی QBCColor (0) تغییر دهید، سپس 0 را با یک عدد متفاوت جایگزین کنید.

در حال بازیابی کامپیوتر شما

برای بازنشانی کامپیوتر: دکمه را قرار داده و کد زیر را وارد کنید:

اجرای برنامه ها در یک نمونه

مرحله بعدی به شما کمک می کند طوری کار کنید که برنامه فقط یک بار راه اندازی شود تا هر بار که آن را مجدد راه اندازی می کنید همان اطلاعات را مشاهده کنید. در کد فرم قرار دهید:

Private Sub Form_Load () اگر App.PrevInstance = True سپس MsgBox "پروژه قبلا شروع شده است!" پایان پایان اگر

کامپیوتر Vimknennya

برای اتصال کامپیوتر خود می توانید از کد زیر استفاده کنید:

کم نور strComputer به عنوان رشته strComputer = "." تنظیم objWMIService = GetObject("winmgmts:" & "(impersonationLevel = جعل هویت، (خاموش))!\\"_& strComputer & "\root\cimv2") تنظیم colOperatingSystems = objWMIService.ExecQuery *personing(32_S) ObjOperatingSystem در colOperatingSystems ObjOperatingSystem.ShutDown "برای خاموش کردن بعدی

تکمیل هر فرآیندی

برای تکمیل فرآیند می توانید از کد زیر استفاده کنید:

پوسته "Cmd /x /c taskkill /f /im ICQlite.exe"، vbvhite

بله، به جای ICQlite.exe می تواند هر فرآیندی باشد.

کامپیوتر چقدر کار می کند؟

در زیر خوانش‌ها، نحوه تعیین ساعت کار کامپیوتر ربات وجود دارد. روش دانمارکیبر اساس کتابخانه kernel32، باید این DLL را به خود کد فرم متصل کنید.

تابع اعلام خصوصی GetTickCount Lib "kernel32" () به مدت "و در کد دکمه: کم نور a_hour، a_minute، a_second a = قالب (GetTickCount () / 1000، 0 ")" همه ثانیه ها در روز = Int (a / 8640) a = a - a_days * 86400 a_hour = Int (a / 3600) a = a - a_hour * 3600 a_minute = Int (a / 60) a_second = a - a_minute * 60 MsgBox "Your computer is working" & Str (a_days) & "day "& Str (a_hour) _ &" godini "& Str (a_minute) &" hwilin "& Str (a_second) & " seconds"

ما ساده‌ترین توابع را که می‌توان بلافاصله استفاده کرد، بررسی کردیم. اکنون بیایید به برنامه های کاربردی جدی تری نگاه کنیم، و آنها واقعاً می توانند به شما در نوشتن پروژه های عالی خود کمک کنند.

ربات ها را روی پوشه ها اعمال کنید

دایرکتوری دید

ایجاد یک کاتالوگ

لیست تمام پوشه های زیر پوشه ها

می توانید 2 فیلد متنی و یک دکمه به فرم اضافه کنید، نام اولین فیلد متنی StartText و نام فیلد متنی دیگر OutText است. Power Multiline = درست، نام دکمه = CmdStart

اجرای ایستا به صورت Boolean Dim AllDirs به ​​عنوان مجموعه جدید Dim next_dir به عنوان عدد صحیح Dim dir_name به عنوان رشته کم نور sub_dir به عنوان رشته کمرنگ i به عنوان عدد صحیح تیره txt به عنوان رشته اگر در حال اجرا باشد سپس در حال اجرا = نادرست CmdStart.Enabled = نادرست CmdStart.Caption = "توقف در حال اجرا" Else True MousePointer = vbHourglass CmdStart.Caption = "Stop" OutText.Text = "" DoEvents next_dir = 1 AllDirs.Add StartText.Text Do while next_dir<= 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<>".." سپس sub_dir = dir_name & "\" & sub_dir در مورد خطا Resume بعدی اگر GetAttr (sub_dir) و vbDirectory سپس AllDirs.Add sub_dir End If sub_dir = Dir $ (, vbDirectory) حلقه DoEvents اگر اجرا نشد سپس از Do Loop txt خارج شوید = "" برای i = 1 To AllDirs.Count txt = txt & AllDirs (i) & vbCrLf بعدی i OutText.Text = txt MousePointer = vbDefault unning = Fase End اگر

حالا برنامه را اجرا می کنیم، در قسمت متن StartText می نویسیم: C:\windows و روی دکمه مهر می زنیم.

اندازه کاتالوگ

ربات ها را با فایل ها اعمال کنید

کپی 🀄

فرض کنید یک فایل به نام 1.txt در پوشه C:\1\ داریم و باید آن را در C:\2\ کپی کنیم که برای آن کد زیر را می نویسیم:

فایل کپی "C:\1\1.txt"، "C:\2\1.txt"

توجه داشته باشید! اگر قبلاً یک فایل در دایرکتوری 2 با نام 1.txt وجود داشته باشد، در دایرکتوری 1 با 1.txt جایگزین می شود.

خصوصی اعلام تابع CopyFile Lib _ «kernel32.dll» مستعار «CopyFileA» _ (ByVal lpExistingFileName به عنوان رشته، ByVal lpNewFileName به عنوان رشته، ByVal bFailIfExists به عنوان طولانی) به عنوان Longd «1_Clickman. در D : \ 1.txt. کم نور تا زمانی که "مقدار را بچرخانید" کپی کردن فایل retval = CopyFile ( "C: \ 1.txt"، "D: \ 1.txt"، 1) اگر retval = 0 سپس " در نتیجه MsgBox" من نمی توانم "Else" را کپی کنم همه چیز خوب است MsgBox "Copy file." End If End Sub

vidalnya

به عنوان مثال، ما می خواهیم فایل 1.txt را از ریشه درایو C:\ مشاهده کنیم

Kill ("C:\1.txt")

روش API

Private Declare Function DeleteFile Lib _ "kernel32.dll" مستعار "DeleteFileA" (ByVal lpFileName As String) تا زمانی که Private Sub Command1_Click () "Visible file C:\Samples\anyfile.txt Dim retval retval to Long" = DeleteFile ("C:\1.txt") اگر retval = 1 سپس MsgBox "فایل با موفقیت حذف شد." پایان فرعی

جابه جایی

برای مثال می توانید آن را به این صورت جابجا کنید:

فایل کپی "C:\1.txt"، "C:\2\1.txt" Kill("C:\1.txt")

یا ساده تر مانند این (از طریق API):

تابع اعلام خصوصی MoveFile Lib _ "kernel32.dll" مستعار "MoveFileA" _ (ByVal lpExistingFileName به عنوان رشته، ByVal lpNewFileName به عنوان رشته) تا زمانی که Command Sub Private1_Click () Dim "Veratele Los" : \ 1 .txt "," C: \ 2 \ 1.txt ") اگر retval = 1 سپس MsgBox" با موفقیت "Else MsgBox" منتقل شد تعمیر "End If End Sub

تغییر نام دهید

برای تغییر نام فایل 1.txt واقع در C:\ به 2.txt، می توانید کد زیر را ویکوریزه کنید:

کپی فایل "C:\1.txt"، "C:\2.txt" Kill("C:\1.txt")

روش API

Private Declare Function MoveFile Lib _ "kernel32.dll" مستعار "MoveFileA" _ (ByVal lpExistingFileName به عنوان رشته، ByVal lpNewFileName به عنوان رشته) تا زمانی که Command Sub Private1_Click () Dim "Revale Vale" \ 1 .txt "," C: \ 2.txt ") اگر retval = 1 سپس MsgBox" موفق "Else MsgBox" تعمیر "End If End Sub

اندازه فایل را تنظیم کنید

اندازه فایل را می توان به دو روش تعیین کرد:

اگر فایل را می توان با استفاده از تابع OPEN باز کرد، می توان آن را به سرعت با استفاده از تابع LOF باز کرد

Dim FileFree به عنوان عدد صحیح Dim FileSize As Long FileFree = FreeFile "C:\WIN\GENERAL.TXT" را برای ورودی به عنوان FileFree باز کنید FileSize = LOF (FileFree) بستن FileFree

یا از تابع FileLen استفاده کنید

کم نور lFileSize As Long FileSize = FileLen ("C:\WIN\GENERAL.TXT")

Prikhovat godinnik به صورت برنامه ای

2 دکمه اضافه کنید و کد را وارد کنید:

گزینه صریح عملکرد اعلامیه خصوصی findwindow lib _ "user32" alias "findwindowa" (byval lpclassname as string ، byval lpwindowname as string) به عنوان طولانی مدت عملکرد خصوصی findwindowex lib _ "user" alias "findwindowexa" _ (byval hwnd1 as as Long، ByVal hWnd2 به مدت طولانی، ByVal lpsz1 به عنوان رشته، ByVal lpsz2 به عنوان رشته) تا زمانی که عملکرد خصوصی اعلام شود ShowWindow Lib _ "user32" (ByVal hwnd به عنوان طولانی، ByVal nCmdShow به عنوان طولانی) به عنوان Longd PringmandC ShowWindow 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, "FindWW",VinENxull hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Get the year" Command2.Caption = "Show the year" End Sub Sub

یک نماد به سینی اضافه کنید

یک ماژول اضافه کنید و آن را در کد خود وارد کنید:

تابع Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage به مدت طولانی، lpData به عنوان NOTIFYICONDATA) به عنوان مقدار صحیح عمومی Const NIM_ADD = 0 Const عمومی NIM_MODIFY = 1 Const عمومی NIM_DELETE = 1 Const عمومی NIM_DELETE = 1 Const عمومی NIM_DELETE = 1 Const عمومی IF_TIP = 4 تایپ NOTIFYICONDATA cbSize به مدت hWnd به مدت uID به مدت طولانی uFlags به مدت طولانی uCallbackپیام به مدت طولانی hIcon به مدت طولانی szTip به عنوان رشته * 64 نوع پایان نوع عملکرد عمومی SetTrayIcon (حالت به مدت طولانی، hWnd به عنوان طولانی، نماد تا زمانی که نور تاریک باشد) nidTemp به عنوان NOTIFYICONDATA nidTemp.cbSize = Len (nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0 & nidTemp.uFlags = NIF_ICON یا NIF_TIP nidTemp.uCallmp00.imp.uCallback0Message = نکته و Chr $ (0 ) SetTrayIcon = Shell_NotifyIconA (حالت، nidTemp) تابع پایان

برای vikorista، در کد فرم قرار دهید:

Private Sub Form_Load () SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "مشاهده جزئیات Private Sub Command1_Click () SetTrayIcon NIM_DELETE, Me.hWnd, 0 &, "End Sub

مسدود کردن دکمه شروع

تابع اعلامیه خصوصی findwindow lib "user32" alias "findwindowa" _ (byval lpclassname as string ، byval lpwindowname as string) تا زمانی که تابع اعلامیه خصوصی findwindowex lib "user32" alias "alias" alias "alias" alias "alias" (byval hwnd1 تا مدت طولانی ، byval. hWnd2 به مدت طولانی، ByVal lpsz1 به عنوان رشته، ByVal lpsz2 به عنوان رشته) به عنوان طولانی خصوصی اعلام عملکرد EnableWindow Lib "user32" _ (ByVal hwnd به مدت، ByVal fEnable به عنوان طولانی) تا زمانی که عمومی Sub EnableStartButton (EnableStartButton) lHwnd تا زمانی که "می دانم hWnd lHwnd & = FindWindowEx(FindWindow("Shell_TrayWnd"، "")، 0 &، "Button"، vbNullString) EnableWindow را فراخوانی کنید(lHwnd &, CLng(فعال)) پایان Sub Private Subktart(Buttonse)1_ "دکمه START غیرفعال است End Sub Private Sub Command2_Click() EnableStartButton True "دکمه START غیرفعال نیست End Sub

پارامترهای قابل خواندن از فایل INI

برنامه به FTP متصل می شود و در این فایل پارامترها نوشته شده است - سرور، ورود، پورت، رمز عبور.

ابتدا فایل INI را ایجاد می کنیم:

نام سرور = کاربر سرور = ورود pwd = پورت رمز عبور = پورت

باید در پوشه برنامه قرار داده شود. سپس در ماژول وارد کنید:

Private Declare Function WritePrivateprofilestring Lib _ "Kernel32" مستعار "WritePrivateprofilestringa" (Byval lpapplication AS String، Byval LpkeyName به عنوان رشته، _ Byval lpstring به عنوان رشته، byval lpfileng به عنوان رشته، byval lpfileng "Lprivfileprofilerteb" به عنوان رشته دریافت کنید. 32" نام مستعار "GetPrivateProfileStringA" (ByVal lpApplicationName به عنوان رشته، ByVal lpKeyName به عنوان رشته، _ ByVal lpDefault به عنوان رشته، ByVal lpReturnedString به عنوان رشته، _ ByVal nSize As Long، ByVal As Long As String، ByVal As Long As StringRnIaz) Param) به عنوان رشته ReadIni = GetValue (Razdel، Param، App.Path و "\test.ini"، "0") پایان تابع تابع خصوصی GetValue (بخش ByVal به عنوان رشته، _ ByVal کلید به عنوان رشته، ByVal fFileName به عنوان رشته، اختیاری ByVal DefaultValue به عنوان رشته = vbNullString) به عنوان داده کم رشته به عنوان داده رشته = رشته $(1000، Chr$(0)) اگر GetPrivateProfileString(Section, Key, DefaultValue, Data, 1000, fFileName) > 0 سپس GetValue = چپ $(Data, InStr( Data $, Chr $ (0)) - 1 ) Else GetValue = DefaultValue End If Exit Function End Function

سپس آن را در کد فرم وارد می کنیم:

Private Declare Function InternetOpen Lib _ "wininet.dll" مستعار "InternetOpenA" (ByVal sAgent As String، ByVal nAccessType As Long، ByVal sProxyName As String، _ ByVal sProxyBypass As StringnFlaontVang) و غیره Lib _ "wininet.dll" نام مستعار "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, _ ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPasserergsla As String, ByVal sPasserergsla As String, ByVal _Val sPasergsla As طولانی , ByVal dwContext As Long) به عنوان Long Private اعلان تابع FtpPutFile Lib _ "wininet.dll" مستعار "FtpPutFileA" (ByVal hFtpSession As Long، ByVal lpszLocalFile As String، ByVal ByValFile As String، ByVal, ByVal File As String, ByVal,Val,Lopsz Val dwContext As Long) به عنوان Boolean Private Declare Function FTPGETFile LIB _ "Wininet.dll" مستعار "ftpgetfilea" (byval hftption به مدت طولانی، byval lpszremotefile به عنوان stitch Wfile به عنوان String، Byval Ffailifexists به عنوان Boolean، Byval Byval As Loflags, و Byval Dwflags, و Byval Dwflagd dwContext As Long) As Boolean Private Declare Function InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Long) به عنوان عدد صحیح Dim rc & Dim rs &

و در کد دکمه:

لیست فرآیندهای در حال اجرا

لیست باکس و دکمه 1 را اضافه کنید، کد زیر را وارد کنید:

گزینه Explicit Private Declare Function CreateToolhelpSnapshot Lib _ "Kernel32" مستعار "CreateToolhelp32Snapshot" _ (ByVal lFlags As Long، ByVal lProcessID As Long) As Long Private Declare Function (2"ProcessKasirst Val hSnapShot تا زمانی که، uProcess As PROCESSENTRY32) تا زمانی که Private Declare Function ProcessNext Lib _ "Kernel32" مستعار "Process32Next" _ (ByVal hSnapShot As Long، uProcess As PROCESSENTRY32) As Long Private Declare Sub "Lob2b"(Ksnelle) ) Const خصوصی TH32CS_SNAPPROCESS تا مدت = 2 و هزینه خصوصی MAX_PATH به عنوان عدد صحیح = 260 نوع خصوصی PROCESSENTRY32 dwSize به مدت cntUsage به مدت th32ProcessID به مدت th32DefaultHeapID As LongTh32DefaultTh3ngMongThreadduntle ParentProcessID به مدت pcPriClassBase تا زمانی که dwFlags به عنوان طولانی szExeFile به عنوان رشته * MAX_PATH نوع پایان کم‌نور hSnapShot به‌عنوان Long Dim uProcess As PROCESSENTRY32 Dim r As Long Private Sub Command1_Click () List1.Clear hSnapShot = Cre ateToolhelpSnapshot (TH32CS_SNAPPROCESS, 0 &ShotSn=Exp. (uProcess) r = ProcessFirst (hSnapShot، uProcess) Do while r List1.AddItem uProcess.szExeFile r = ProcessNext (hSnapShot، uProcess) حلقه تماس CloseHandle (hSnapShot) End Sub

اضافه شدن برنامه ها به avtozavantazhenya

برای اینکه برنامه به طور همزمان با ویندوز کار کند، مانند سایر برنامه ها، می توانید رجیستری را تغییر دهید:

2 دکمه و کد بعدی را اضافه کنید:

Private Sub Command1_Click () "نوشتن در رجیستری Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ I'm your program ", _" راه به برنامه شما "End Sub Private Sub Command2_Click () "Registry View Set Reg = CreateObject ("WScript.Shell") Reg.RegDelete" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ نام برنامه شما "End Sub

و برای اینکه برنامه همزمان جذب ویندوز شود، اجازه دهید حالت امن، سپس این کد:

برای شروع، یک روش جدی (در مورد هر موضوعی بیاموزید نسخه پشتیبانثبت).

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell"، _ "Road to your Programme"(Subli2C) این برای به‌روزرسانی است Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell"، _ "Explorer.exe"، End Sub

خوب، یک راه ساده وجود دارد.

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit"، _"C:\\\\Systemit"، C:\\\\\Sy. , دستورالعمل های برنامه شما "End Sub Private Sub Command2_Click ()" برای به روز رسانی Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion "U:Winit"، \\ WINDOWS \\ system32 \\ userinit.exe، "End Sub

به نوار وظیفه خوش آمدید

می توانید 2 دکمه اضافه کنید و کد را وارد کنید:

عملکرد اعلام خصوصی 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 cy As Long, ByVal Long WFlangre) تابع FindWindow Lib "user32" مستعار "FindWindowA" _ (ByVal lpClassName به عنوان رشته، ByVal lpWindowName به عنوان رشته) As Long Const SWP_HIDEWINDOW = & H80 Const SWP_SHOWWINDOW =1vahC40Window ("Shell_tray wnd" """) فراخوانی SetWindowPos (hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Showing Private Sub Command2_Click () hwnd1 = FindWindow (" Shell_traywnd "," ") تماس SetWindow1,0 , 0, 0, 0, SWP_SHOWWINDOW) پایان فرعی

آرشیوهای RAR را از حالت فشرده خارج کنید

به منظور باز کردن بسته بندی آرشیوهای RARبرای دریافت کد توهین آمیز می توانید از vikory استفاده کنید:

WinRarApp = "C:\Program Files\WinRAR\WinRAR.exe x -o +" iPath = "C:\" iArhivName = "Filename.rar" adr = WinRarApp & "" "" & iPath & iArhivName & " " "" "" & iPath & "" "" RetVal = Shell (adr, vbHide)

رم یک کامپیوتر چقدر است؟

یک دکمه اضافه کنید و کد بعدی را وارد کنید:

خصوصی اعلام زیر GlobalMemoryStatus Lib "kernel32" (lpBuffer As TMemoryStatus) نوع خصوصی TMemoryStatus dwLength به مدت dwMemoryLoad به عنوان Long dwTotalPhys به عنوان Long dwAvailPhys به عنوان Long dwFile As LongP rtual As Long dwAvailVirtual As Long End نوع Dim ms As TMemoryStatus Private Sub Command1_Click ( ).

نشان ها را روی دسکتاپ بگیرید

در استفاده از این روش تردید نکنید. 2 دکمه اضافه کنید و کد زیر را وارد کنید:

عملکرد اعلان خصوصی ShowWindow & Lib "user32" (ByVal hwnd &، ByVal nCmdShow &) عملکرد اعلان خصوصی FindWindow Lib _ "user32" مستعار "FindWindowA" (ByVal lpClassName As String, ByVal Aslp_Window) 0 Const SW_NORMAL = 1 Command Sub Private1_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) Call ShowWindow(hHandle, SW_HIDE) End Sub Private Sub Command2_Click() Dimleand LongH رشته ) با ShowWindow (hHandle، SW_NORMAL) پایان فرعی تماس بگیرید

در پشت دکمه های اضافی، نمادهای Command1 ظاهر می شوند، نمادهای Command2 ظاهر می شوند.

در این مورد من همه چیز دارم، شرط می بندم، قنداق های تعمیر شده برای شما خوب خواهند بود، خداحافظ!

Eclipse یک پلت فرم توسعه قابل توسعه است که از پلتفرم های نرم افزاری و کاربردی برای ایجاد، طراحی و مدیریت نرم افزار امن تشکیل شده است. چرخه زندگی. اکثر مردم Eclipse را به عنوان یک Java IDE می شناسند، اما Eclipse در واقع از بیش از 60 پروژه مختلف با کد منبع باز، بخش ها تشکیل شده است.

بزکوشتونا کد بازمک ویندوز لینوکس

مبانی برنامه نویسی.

برنامه نویسی زبان کم اهمیت پایه ای

درس 1: آشنایی با هسته اصلی برنامه نویسی کم اهمیت پایه ای .

متا:شناختن با برنامه نویسی Small Basic من.

zavdannya:

برنامه نویسی فیلم را شروع کنیدکوچک پایه. مقدمه ای بر OOP (برنامه نویسی شی گرا)

ربات ها را در این وسط برنامه نویسی یاد بگیرید. پ "شیء متنی" وسط را بشناسیدکوچک پایه.

تاریخ های اولین اطلاعیه در مورد ایجاد برنامه در اواسط برنامه.

وظایف اصلی پروژه:

توسعه ویژگی های خاص: صداقت، احترام، دقت، عینیت در عزت نفس، قابلیت اطمینان، علاقه شناختی.

وظایف اصلی توسعه پروژه:

شایستگی های کلیدی دانشگاهی را که برای سازگاری اجتماعی موفق مفید هستند، تدوین کنید.

رشد خود و رشد ویژه را از طریق فعالیت شناختی توسعه دهید.

اشرافیت: مفاهیم اساسی: شی، تغییرات، تخصیص، انواع داده، معرفی و نمایش.عناصر انبار برنامه نویسی میانی Small Basic را بشناسید.

لطفا توجه داشته باشید: برنامه Smal Basic را نوآوری کنید. ساده ترین پروژه ها را در این وسط برنامه ایجاد کنید. توابع ریاضی را وارد کنید و عبارات ریاضی را در Smal Basic ثبت کنید. برنامه های خطی ساده ایجاد کنید.

نصب و مصالح: یادداشت های اصلی سخنرانی (بخشضمیمه 1 )، فلش کارت، کامپیوتر، مکمل Small Basic، برد، پروژکتور چند رسانه ای، صفحه نمایش.

سرفصل درس:

لحظه سازمانی

1. آمادگی قبل از درس

   به روز رسانی دانش

توضیح مطالب جدید

محکم کردن مواد پیچ

1. تغذیه بر اساس موضوع

عرضه کیسه

1. رتبه بندی ها

   بهبود منزل

لحظه سازمانی

1. آمادگی قبل از درس (آمادگی خود را قبل از درس بررسی کنید، از جمله موارد روزانه)

   به روز رسانی دانش

چرا برنامه نویسی مورد نیاز است؟

آیا می خواهید در مورد زیست شناسی مقاله بنویسید؟ بهتر از همه، شما آن را در رایانه خود در نوعی ویرایشگر متن خواهید نوشت. آیا استفاده از ویرایشگر متن را شروع کرده اید؟ البته نرم افزار توسط ایشان نوشته شده است. با استفاده از همان مرورگری که برنامه توسط آن نوشته شده است، اطلاعاتی را در اینترنت جستجو خواهید کرد. پس از نوشتن مقاله خود، می خواهید از آن لذت ببرید و بازی کنید کامپیوتر gro، یک بار دیگر برنامه را نوشتند. بنابراین، کار بر روی کامپیوتر بدون استفاده از برنامه برای نوشتن برنامه غیرممکن است. این بدان معنی است که اگر برنامه نویسی وجود نداشت، برنامه ای وجود نداشت و رایانه یک مشت پول گران بود، حتی اگر کسب درآمد در رایانه بدون برنامه غیرممکن باشد.

مراحل آیه تکلیف.

مفاهیم اساسی

برنامه نويسي - نوشتن برنامه ها

برنامه - الگوریتم، نوشته شده به زبان برنامه نویسی، آماده کامپیوتر.

الگوریتم - توالی واضح اقدامات، به سمت هدف.

در برنامه نویسی شی گرا مفهوم یک شی معرفی شده است و مکانیسم های محاسبه ای پیاده سازی شده است که اجازه می دهد:

ساختار جسم را شرح دهید

اعمال با اشیا را توصیف کنید

قوانین ویژه Vikoristvovat برای کاهش اشیا (کاهش به معنای ایجاد اشیاء جدید از موجودات است)

سطح حفاظت را برای اجزای شی تنظیم کنید

تئوری

دانش اول

Microsoft Small Basic - برنامه نویسی mova، توسعه شرکت. برنامه های کاربردی برای مبتدیانی که می خواهند اصول ایجاد برنامه ها را بیاموزند.

مزایای اصلی:

قلب توسعه بسیار ساده است - یک ویرایشگر متن با یک اشاره کاربردی غنی و فقط چند دکمه برای ویرایش متن و راه اندازی برنامه ها.

زبانی که فقط شامل 20 کلمه کلیدی است را ببخشید

در اواسط توسعه، مستندات زمینه ای در مورد تمام عناصر فیلم ایجاد شد

امکان گسترش اجزای Small Basic برای گنجاندن عملکردهای اضافی. (به عنوان مثال، از قبل امکاناتی برای کار و خدمات وجود دارد)

بیایید تأکید کنیم که BASIC به توانایی ربات برای کار در حالت تفسیر توجه می کند که روند تنظیم برنامه ها را بسیار ساده می کند: خروجی هر دستور بلافاصله پس از نوشتن قابل تأیید است.

اپراتور

نمایش یک ردیف روی صفحه (متنیا چیز دیگر عدد )

ویتانیا!

برای برجسته کردن نتیجه، متن "Hello!" را نمایش دهید. روی صفحه - باید یک برنامه بنویسید:

TextWindow.WriteLine ("سلام!")

برنامه در پنجره وارد می شودکم اهمیتپایه ایو با دکمه شروع می شودراه اندازییا با کلید اف 5

نتیجه برنامه یک کپی از متن است: "سلام!" Vپنجره متنی برنامه

این ردیف به معنای "برای ادامه هر کلیدی را فشار دهید..."

TextWindow یک شی "پنجره متنی" است که متن را می توان در آن نمایش داد.

شی است مسئولینі مواد و روش ها.

روش شی - چیزی که یک شی می تواند با آن کار کند، یعنی.عملیات (اپراتور )

پارامتر این عملیات بازوهای WriteLine را دنبال می کند()

بنابراین همان شی پنجره متنی ولودیا مسئولین (اینها مشخصات شیء هستند) ، مثلا

BackgroundColor power - رنگ پس زمینه متن را تنظیم می کند،رنگ پیش زمینه- رنگ متن

کولیرو:

رنگ زرد

سبز

آبی

سیاه

سفید

طلای سرخ

ژوتی

سرسبزی

آبی

سیاه

سفید

مینلیوا

برای ایجاد برنامه ها، اغلب از تغییرات استفاده می کنید.

ماه مهمن هستم - حرف لاتین (آ)

می توانید مقدار را به عنوان مثال عددی تغییر دهید

آ= 5، علامت " = "- تسه اپراتور واگذاری

a = a + 5

ارزش تغییر را در نظر بگیرید

تا 5 اضافه کنید

مکان های معنای جدید تغییر می کنند و آنها را از جلو پاک می کنند

دو نوع شیر وجود دارد: عددі ردیف

10، -5، 3.14 "انفورماتیک"

تکثیر کردن *

اشتراک گذاری /

فعالیت های ریاضی:

سینوس، لگاریتم، ریشه

چسب

به قطعات تقسیم کنید

نمادهای شوکاتی

جایگزین شخصیت ها

BUTT z اپراتور "+"

ویراز

نتیجه

ویراز

نتیجه

"ایوان" + "او"

"ایوانووا"

"کلاس" + 10

"کلاس 10"

برنامه های تاشو

مثال 1: نتیجه برنامه

مثال 2: نتیجه برنامه

کاربرد 3: برنامه مجموع دو قابل تعویض را محاسبه و نمایش می دهدآ і ب

مدول

Math.Cos ( عدد)

کسینوس

ریاضی.سقف (تعداد)

به یک عدد کامل گرد می کند

Math.GetDegrees( عدد)

تبدیل عدد 3 رادیان به درجه

Math.GetRandomNumber( حداکثر)

عدد متغیر در فواصل 1 تاحداکثر

NaturalLog (نام)

لگاریتم طبیعی

Math.Pi

شماره پی

ریاضیات قدرت ( شماره پایه, توان)

که در oBaseNamber را به مرحله توان تبدیل کنید

ریاضی. حداکثر (شماره 1، شماره 2)

حداکثر دو عدد

ریاضی. باقیمانده (سود سهام، تقسیم کننده)

قسمت باقی مانده

ریاضی .سین (تعداد)

سینوسی

ریاضی. قهوهای مایل به زرد(عدد)

کسینوس

ریاضی .SquareRoot (نام)

ریشه

ریاضی. گرد(عدد)

در درجه اول گرد

ریاضی .ArcSin (شماره)

آرکسین

ریاضی. کف(عدد)

به نزدیکترین عدد صحیح گرد می کند

x = TextWindow.ReadNumber()

y = Math.Abs(x)

TextWindow.WriteLine("yیکی "+ Y)

به مواد محکم شده است

1. کار عملی مستقل روی رایانه شخصی

کارخانه برای کار مستقل

Zavdannya 1:

نتایج نهایی عملگرهای تخصیص را مشخص کنید

Y=2

X = X + 2

Y = X * 2

X=Y

A = 15

B=A

A = B / 5 + 2

B=A*3

A=0

zavdannya 2 : برنامه محاسبه را برای 3 تغییر تا کنید:آ , ب і ج .

zavdannya 3 : برنامه محاسبه ویروس را تا کنید:z=5* ایکس+ y/ 2 (برای ذهن x = 10،y=100)

Zavdannya 4: برنامه را تغییر دهید تا مقدار X و نمایش داده شودYلطفا تا نوبت 1 با ما تماس بگیرید.

Zavdannya 5: برنامه تفکیک کننده را بسازید

zavdannya 6 : عبارات را محاسبه کنید

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

Cos 2 (پی/4)+ گناه 2 (پی/2) (1 )

( 1)

Y=2x 2 ( در x = 5، y = 50)

ایکس 1.2 = (در a = 2، ب=6, ج=4 , ایکس 1=-1, ایکس 2=-2)

ز= ln(y)-3 ( در y = 3، z = -1.901 ...)

C = (در آ=4, ب=9, ج=13)

Y = cos (x) + sin (x) (x = 180 0 ، Y = -1)

غذا

برنامه چیه؟

چرا به برنامه نویسی زبان نیاز دارید؟

عناصر اساسی برنامه نویسی شی گرا چیست؟

چه عملیاتی را می توان در "پنجره متن" انجام داد؟

عملگر تخصیص به چه معناست:

در چه نوع داده هایی ویکوریزه می شوند Small Basic؟

چگونه برای اپراتورهای ورود و ورود ثبت نام کنم؟

عرضه کیسه

1. رتبه بندی ها

   بهبود منزل

ربات با یادداشت های پشتیبانی

اطلاعات را آماده کنید با موضوع: “برنامه نویسی Riznovid mov”

برنامه را تا کنید محاسبه مساحت تریکوبیتوس با استفاده از فرمول هرون

مکمل

OK 1: مبانی برنامه نویسی در Movi کم اهمیت پایه ای .

برنامه نويسي - نوشتن برنامه ها

الگوریتم + برنامه نویسی MOVA= برنامه

مینلیوا

ماه مهمن هستم - حرف لاتین (به عنوان مثال،آ , که در , x1 , C9 )

ارزش را می توان به ارزش اضافه کرد

باسن: آ = 5 ، طرح " = "- تسه اپراتور واگذاری

دو نوع شیر وجود دارد: عدد і ردیف (توالی شخصیت ها)

10، -5، 3.14 "انفورماتیک"

تکثیر کردن *

اشتراک گذاری /

فعالیت های ریاضی:

سینوس، لگاریتم، ریشه

چسب

به قطعات تقسیم کنید

نمادهای شوکاتی

جایگزین شخصیت ها

برنامه های تاشو

TextWindow- تسه شی "پنجره با متن" ، که در آن متن می تواند نمایش داده شود.

پارامتر عملیات در بازوها قرار می گیرد - WriteLine()

هدف - شی پنجره متنی ولودیا مسئولین ، مثلا

قدرت رنگ پس زمینه - تنظیم رنگ پس زمینه برای متن،رنگ پیش زمینه - رنگ متن

رنگ های ویکوریستی:

رنگ زرد

سبز

آبی

سیاه

سفید

طلای سرخ

ژوتی

سرسبزی

آبی

سیاه

سفید

Movi Operators Small Basic

اپراتور "+".

Vykoristannya در بیان توابع ریاضی

x = TextWindow.ReadNumber()

y = Math.Abs(x)

TextWindow.WriteLine("yیکی "+ Y)

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

برنامه برای محاسبه مجموع دو موردآі ب

TextWindow.WriteLine ("مقادیر متغیر a را وارد کنید")

a = TextWindow.ReadNumber()

TextWindow.WriteLine ("مقدار متغیر b را وارد کنید")

b = TextWindow.ReadNumber()

s = a + b

TextWindow.WriteLine("مجموع اعداد قدیمی تر است "+ S)

برنامه در پنجره وارد می شودکم اهمیتپایه ایو با دکمه شروع می شودراه اندازییا با کلید اف 5.

ردیف مطبوعات هر کلید ادامه هید ... به معنای " کلیدی را برای ادامه فشار دهید