Kiçik əsas üçün mənbə kodları. “Kiçik Basic proqramlaşdırma mühitinə giriş” mövzusunda informatika və İKT üzrə dərs

Hər kəsə salam, bu yazıda sizə göstərmək istəyirəm faydalı kodlar kiçik proqramlar. Hansı ki, öz daha ciddi proqramlarınızı yazmaq üçün istifadə edə bilərsiniz və ya siz burada təsvir olunan tam olaraq bu funksiyaları axtarırdınız.

Bütün kodlar Microsoft Visual Basic v6.0 proqramlaşdırma mühitində istifadə edilmişdir.

Təsdiqlə çıxın

Birinci növ proqram və ya funksiya çıxışı təsdiq edən mesajı olan çıxışdır. Ümumiyyətlə, Visual Basic proqramlaşdırma mühitini açın, standart layihə yaradın, sonra formada bir düyməni yerləşdirin, düyməni vurun və kodu redaktə pəncərəsi açılacaq və ora aşağıdakı kodu daxil etməlisiniz:

Beep Dim mesajı Sətir kimi Dim düymələri və tam ədəd Dim başlıq kimi Simli Dim cavabı kimi Simli mesaj olaraq = "Çıxmaq istəyirsiniz?" başlıq = "Çıx" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

Proqramı başlamaq üçün parol

Dim Parol, Pword PassWord = "12345" Pword = InputBox("Şifrəni daxil edin") Əgər Pword<>PassWord Sonra MsgBox "Parol düzgün deyil" Sonu Varsa

Harada, 12345 proqramı başlamaq üçün paroldur. Ancaq bu kod istədiyiniz yerdə istifadə edilə bilər.

Mesaj çıxışı

Yalnız bir şey üçün mesaj göstərmək istəyirsinizsə, bunu yapışdırın:

Beep Dim mesajı Sətir kimi Dim düymələri və Tam ədəd Dim başlıq kimi Simli mesaj = "Mesaj" başlığı = "Message" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

Forma üzərində rəsm

Private Sub Form_MouseDown(Düymə Tam Ədəd, Shift Tam Ədəd, X tək Ədəd, Y Tək) Form1.CurrentX = X Form1.CurrentY = Y End Sub Private Sub Form_MouseMove(Düymə Tam Ədəd, Shift Tam Ədəd, X Tək, Y Əsl. Tək) Əgər Düymə = 1 O zaman Xətt (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBCColor(0) End If End Sub

QBColor(0) parametrindən istifadə edərək rəngi dəyişə bilərsiniz, yəni. 0 əvəzinə başqa bir nömrə qoyun.

Kompüterin yenidən işə salınması

Kompüterinizi yenidən yükləmək üçün: düyməni yerləşdirin və aşağıdakı kodu daxil edin:

Proqramın bir nüsxədə işə salınması

Aşağıdakı nümunə proqramı yalnız bir dəfə işə salmağa kömək edəcək, yəni. yenidən işə salınarsa, müvafiq mesajı göstərəcək. Forma koduna aşağıdakıları daxil edin:

Private Sub Form_Load() Əgər App.PrevInstance = True, onda MsgBox "Layihə artıq başlayıb!" Bitsə Bitər

Kompüterin söndürülməsi

Kompüterinizi söndürmək üçün aşağıdakı kodu istifadə edə bilərsiniz:

Dim strComputer As String strComputer = "." Set objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate,(Sutdown))!\\" _ & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("Seçin *")perS3-dən Winyst ColOperatingSystems-də hər bir ObjOperatingSystem ObjOperatingSystem.ShutDown "Sonrakı bağlamaq üçün

İstənilən prosesi bitirmək

Prosesi dayandırmaq üçün aşağıdakı kodu istifadə edə bilərsiniz:

Shell "Cmd /x/c taskkill /f /im ICQlite.exe", vbvhite

Harada, ICQlite.exe əvəzinə hər hansı bir proses ola bilər.

Kompüter nə qədər davam edir?

Aşağıda kompüterin işləmə vaxtını necə təyin edə biləcəyiniz nümunəsi verilmişdir. Bu üsul kernel32 kitabxanasının istifadəsinə əsaslanır, ona görə də forma kodunun ən əvvəlində bu DLL-ni birləşdirin.

Private Declare Function GetTickCount Lib "kernel32" () Nə qədər "Və düymə kodunda: Dim a_saat, a_minute, a_second a = Format(GetTickCount() / 1000, "0") "cəmi saniyə a_days = Int(a / 86400) 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 "Kompüteriniz işləyir" & Str(a_days) & " gün " & Str(a_saat) _ & "saat" & Str(a_dəqiqə) & "dəqiqə" & Str(a_saniyə) & " saniyə"

Demək olar ki, hər yerdə istifadə oluna bilən sadə funksiyalara baxdıq. İndi daha ciddi nümunələrə baxaq və onlar böyük layihələrinizi yazmağınıza çox kömək edə bilər.

Qovluqlarla işləmək nümunələri

Kataloqu silin

Kataloq yaradın

Alt qovluqları olan bütün qovluqları sadalayın

Formaya 2 mətn sahəsi və düymə əlavə edirik, birinci mətn sahəsinin adı StartText, ikinci mətn sahəsinin adı OutText-dir. Çoxsətirli xüsusiyyət = doğru, düymənin adı = CmdStart

Statik çalışan Boolean Dim AllDirs Yeni Kolleksiya Kimi Dim next_dir Tam Ədəd Dim dir_name As Sətir kimi Dim sub_dir Sətir kimi Dim i Əsl Tam Dim txt Sətir kimi Çalışırsa Sonra çalışır = False CmdStart.Enabled = False CmdStart.Caption = "Dayandırılır" True MousePointer = vbHourglass CmdStart.Caption = "Stop" OutText.Text = "" DoEvents next_dir = 1 AllDirs.Add StartText.Text when the next_dir<= AllDirs.Count dir_name = AllDirs(next_dir) next_dir = next_dir + 1 sub_dir = Dir$(dir_name & "\*", vbDirectory) Do While sub_dir <>"" Əgər UCase$(alt_dir)<>"PAGEFILE.SYS" Və sub_dir<>"." Və sub_dir<>".." Sonra sub_dir = dir_name & "\" & sub_dir Xəta Onda Davam edin GetAttr(sub_dir) Və vbDirectory Onda AllDirs.Add sub_dir End Əgər sub_dir = Dir$(, vbDirectory) Döngə DoEvents Çalışmırsa Çıxın Do Loop txt = "" i üçün = 1 AllDirs.Count üçün txt = txt & AllDirs(i) & vbCrLf Next i OutText.Text = txt MousePointer = vbDefault unning = False End Əgər

İndi proqramı işə salırıq, StartText mətn sahəsinə yazırıq: C:\windows və düyməni sıxırıq.

Kataloq ölçüsü

Fayllarla işləmək nümunələri

Kopyalayın

Tutaq ki, C:\1\ qovluğunda 1.txt adlı faylımız var və onu C:\2\-ə köçürməliyik ki, bunun üçün aşağıdakı kodu yazırıq:

Fayl surəti "C:\1\1.txt","C:\2\1.txt"

Qeyd! Əgər 2-ci kataloqda artıq 1.txt adlı fayl varsa, o, 1-ci kataloqdan 1.txt ilə əvəz olunacaq.

Private Declare Function CopyFile Lib _ "kernel32.dll" Alias ​​"CopyFileA" _ (String kimi ByVal lpExistingFileName, ByVal lpNewFileName String kimi, ByVal bFailIfMövcuddur) Uzun Şəxsi Click faylı Cxt1:\t. to D :\1.txt Dim retval As Long " qaytarılması dəyəri "Faylı kopyalayın retval = CopyFile("C:\1.txt", "D:\1.txt", 1) Əgər retval = 0 olarsa, "Əgər. xətası MsgBox " Kopyalaya bilmirəm" Əksinə "Hər şey qaydasındadırsa MsgBox "Fayl kopyalandı." Sondursa Son Alt alt

Silinmə

Məsələn, biz C:\ sürücüsünün kökündən 1.txt faylını silmək istəyirik

Öldür("C:\1.txt")

API metodu

Şəxsi Bəyan Funksiyası DeleteFile Lib _ "kernel32.dll" Təxəllüsü "DeleteFileA" (ByVal lpFileName String kimi) Uzun Şəxsi Alt Komanda1_Click() kimi "C:\Samples\anyfile.txt faylını silin Dim retval dəyəri Long =Return " DeleteFile( "C:\1.txt") Əgər retval = 1 O zaman MsgBox "Fayl uğurla silindi." Son Alt

Hərəkət edir

Məsələn, onu bu şəkildə köçürə bilərsiniz:

Fayl surəti "C:\1.txt","C:\2\1.txt" Öldür ("C:\1.txt")

Ancaq belə daha yaxşıdır (API vasitəsilə):

Şəxsi Bəyan Funksiyası MoveFile Lib _ "kernel32.dll" "MoveFileA" _ (ByVal lpExistingFileName String kimi, ByVal lpNewFileName String kimi) Uzun Şəxsi Sub Command1_Click() kimi Dim retval value As Longret:"Click" \1 .txt", "C:\2\1.txt") Əgər retval = 1 O zaman MsgBox "Uğurla daşındı" Əksinə MsgBox "Xəta" Bitərsə Son Alt alt

Ad dəyişdirilir

C:\-də yerləşən 1.txt faylının adını 2.txt-ə dəyişmək üçün aşağıdakı koddan istifadə edə bilərsiniz:

Fayl surəti "C:\1.txt","C:\2.txt" Öldür ("C:\1.txt")

API metodu

Şəxsi Bəyan Funksiyası MoveFile Lib _ "kernel32.dll" "MoveFileA" _ (ByVal lpExistingFileName String kimi, ByVal lpNewFileName String kimi) Uzun Şəxsi Sub Command1_Click() kimi Dim retval(Long MoveFileA":C return ":" \1 .txt", "C:\2.txt") Əgər retval = 1 O zaman MsgBox "Uğur" Başqa MsgBox "Xəta" Bitərsə Son Alt

Fayl ölçüsünü təyin edin

Fayl ölçüsü iki yolla müəyyən edilə bilər:

Əgər faylı AÇMA funksiyası ilə açmaq olarsa, siz LOF funksiyasından istifadə edə bilərsiniz

FileFree Tam Ədədi kimi Dim Fayl Ölçüsü Uzunluğu FileFree = Sərbəst Fayl Daxil etmək üçün "C:\WIN\GENERAL.TXT" açın FileFree FileSize = LOF(FileFree) FileFree-ni bağlayın

Və ya FileLen funksiyasından istifadə edin

lFileSize Uzun FileSize = FileLen ("C:\WIN\GENERAL.TXT")

Saatı proqramlı şəkildə gizlədin

2 düymə əlavə edin və kodu yapışdırın:

Seçim Açıq Şəxsi Bəyan Funksiyası FindWindow Lib _ "user32" Təxəllüsü "FindWindowA" (ByVal lpClassName String kimi, ByVal lpWindowName String kimi) Uzun Şəxsi Bəyan Funksiyası FindWindowEx Lib _ "istifadəçi31"B kimi _ "istifadəçi31"W kimi. Uzun, ByVal hWnd2 Kimi Uzun, ByVal lpsz1 Sətir kimi, ByVal lpsz2 Sətir kimi) Kimi Uzun Şəxsi Bəyan Funksiya ShowWindow Lib _ "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Dim hnd As Long Command Private1C) 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, "TrayNotifyWnd" = FindWindow(hnd, 0, "TrayNotifyWnd") hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Saatı gizlət" Command2.Caption = "Saatı göstər" Son Alt

Tabla işarəsi əlavə edin

Modul əlavə edin və kodu ona yapışdırın:

Funksiyanı elan et Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Integer Public Const NIM_ADD = 0 Public Const NIM_MODIFY = 1 Public Const NIM_DELETE = 2 Public Const NIFT = MESSAGE Public NIFT NIF_I = 4 Növ NOTIFYICONDATA cbSize Uzun hWnd Kimi Uzun uID Kimi Uzun uFlags kimi Uzun uCallbackMessage Uzun hIcon Kimi Uzun szTip Simli kimi * 64 Son Növ İctimai Funksiya SetTrayIcon(Mode As Long, hWnd Long, Icon Uzun, ucu String) Uzun nidTemp As NOTIFYICONDATA nidTemp.cbSize = Len(nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0& nidTemp.uFlags = NIF_ICON Yaxud NIF_TIP nidTemp.uCallbackMessage = 0.conn hr$( 0) SetTrayIcon = Shell_NotifyIconA(Mode, nidTemp) Son Funksiyası

İstifadə etmək üçün forma kodunu daxil edin:

Private Sub Form_Load() SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "Silmək üçün Şəxsi Alt Komanda1_Click() SetTrayIcon NIM_DELETE, Me.hWnd, 0&, "" End Sub

Başlanğıc düyməsinin bloklanması

Şəxsi Bəyan Funksiyası FindWindow Lib "user32" Alias ​​"FindWindowA" _ (ByVal lpClassName String kimi, ByVal lpWindowName String kimi) Uzun Şəxsi Bəyan Funksiyası FindWindowEx Lib "user32" Təxəllüsü Ex "A y" B, h ByVal kimi. hWnd2 Uzunluğu, ByVal lpsz1 Sətir kimi, ByVal lpsz2 Sətir kimi) Uzun Şəxsi Bəyan Funksiyası EnableWindow Lib "user32" _ (ByVal hwnd Kimi Uzun, ByVal fEnable Kimi Uzun) Kimi Uzun İctimai Alt EnableStartButton(İstəyə Bağlı = Boş Verilmiş) lHwnd As Long " find hWnd lHwnd& = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString) Call EnableWindow(lHwnd&, CLng(Enabled)) End Sub Private Sub Command1_Click(End) deaktivdir End Sub Private Sub Command2_Click() EnableStartButton True "START düyməsi qeyri-aktiv deyil End Sub

INI faylından parametrlərin oxunması

Proqram FTP-yə qoşulur və ini faylında parametrlər var - server, login, port, parol.

Əvvəlcə INI faylı yaradın:

Servname=server usern=Giriş pwd=parol portu=port

Proqram qovluğuna yerləşdirilməlidir. Sonra modula daxil edin:

Private Declare Function WritePrivateProfileString Lib _ "kernel32" Alias ​​"WritePrivateProfileStringA" (ByVal lpApplicationName String kimi, ByVal lpKeyName As String, _ ByVal lpString As String Asp.DeName, String kimi) PrivateProfileString Lib _ "kernel32" Alias ​"GetP rivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpDefault As String, ByVal lpReturnedString As Long, _ ByVal nSize As Long, ByValle As Long m) String kimi ReadIni = GetValue (Razdel, Param, App.Path & "\test.ini", "0") Son Funksiya Şəxsi Funksiya GetValue (String kimi ByVal Bölmə, _ ByVal Açar String kimi, ByVal fFileName String kimi, Könüllü ByVal DefaultValue String = vbNullString kimi) Sətir kimi Dim Data kimi Simli Data = String$(1000, Chr$(0)) GetPrivateProfileString(Bölmə, Açar, DefaultValue, Data, 1000, fFileName) > 0 Əgər GetValue = Left$(Data, InStr) (Data$, Chr $(0)) - 1) Əks halda GetValue = DefaultValue Sonu Funksiyadan Çıxış Funksiyasının Sonu

Sonra forma koduna yapışdırın:

Şəxsi Bəyan Funksiyası InternetOpen Lib _ "wininet.dll" "InternetOpenA" (ByVal sAgent As String, ByVal nAccessType As Long, ByVal sProxyName As Long, _ ByVal sProxyBypass as String, ByVal As Long) Şəxsi Funksiyaları Uzunmüddətli İnternetə Bağlı Lib _ "wininet.dll" Təxəllüsü "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As Long, ByVal nServerName As String, _ ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword By String, By LongerSlagal, by LongerSlagal. , ByVal dwContext As Long) As Long Private Declare Function FtpPutFile Lib _ "wininet.dll" Alias ​​"FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As Long, _ ByVal File As Long, dCon String As Long, ByVal dwContext As Long) ext As Uzun) Boolean Private Declare Function kimi FtpGetFile Lib _ "wininet.dll" Alias ​​"FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ ByVal lpszNewFile As Stringa, ByVals xüsusiyyətləri As Long, _ ByVal dwFlags As Long, ByVal d wContext As Long ) As Boolean Private Declare Function InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Long) As Integer Dim rc& Dim rs&

Və düymə kodunda:

Çalışan proseslərin siyahısı

Siyahı qutusu və 1 düymə əlavə edin, aşağıdakı kodu daxil edin:

Seçim Açıq Şəxsi Bəyan Funksiyası CreateToolhelpSnapshot Lib _ "Kernel32" Alias ​​"CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) Private Declare Function ProcessFirst Lib _First Lib3"as Val hSnapShot Nə qədər ki, uProcess kimi PROCESSENTRY32) Private Declare Function ProcessNext Lib _ "Kernel32" Alias ​​"Process32Next" _ (ByVal hSnapShot Kimi Uzun, uProcess kimi PROCESSENTRY32) Şəxsi Declare Nə qədər Sub CloseHandnel Lib (Uzunca) hSV2"ByVal ) Private Const TH32CS_SNAPPROCESS As Long = 2& Private Const MAX_PATH As Integer = 260 Private Type PROCESSENTRY32 dwSize As Long cntUsage Uzun th32ProcessID kimi Uzun th32DefaultHeapID kimi Long Th32ModuleIDhP2 Longad ClassBase Uzunluğu dwBayraqları Sətir qədər uzun szExeFile * MAX_PATH Son Növ Di m hSnapShot Process kimi Uzun Dim uProcess PROCESSENTRY32 Dim r As Long Private Sub Command1_Click() List1.Clear hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) Əgər hSnapShot = 0 Əgər hSnapShot Alt = 0d If (Enw) Extse. ProcessFirst(hSnapShot, uProcess) Do while r List1.AddItem uProcess.szExeFile r = ProcessNext(hSnapShot, uProcess) Loop Call CloseHandle(hSnapShot) End Sub

Proqramın işə salınması

Proqramın Windows ilə yüklənməsi üçün, bəzi digər proqramlar kimi, qeyd dəftərindən istifadə edə bilərsiniz:

2 düymə və aşağıdakı kodu əlavə edin:

Private Sub Command1_Click() "Reyestr girişi Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Proqramınızın adı", _ "Proqramınıza gedən yol" Son Alt Private Sub Command2_Click() "Reyestrdən silin Reg = CreateObject("WScript.Shell") Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Proqramınızın adı" Son Alt

Proqramın hətta Windows ilə birlikdə yüklənməsi üçün Təhlükəsizlik rejimi, sonra bu kod:

Birincisi, daha ciddi bir üsul (hər halda bunu edin ehtiyat surəti reyestr).

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Proqramınıza gedən yol" Son Sub Private Sub Command(2)" Bu bərpa üçün Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Explorer.exe," End Sub.

Yaxşı, sadə bir yol.

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C:\\WINDOWS\\systrinit.exe. ,Proqramınızın yolu" End Sub Private Sub Command2_Click()"Set Regi bərpa etmək üçün = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C \\ WINDOWS \\ system32 \\ userinit.exe, "Son Alt

Tapşırıq panelinin gizlədilməsi

2 düymə əlavə edin və kodu yapışdırın:

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _ ByVal cx Kimi Uzun, ByVal cy Kimi Uzun, ByVal wFlags Kimi Uzun) Priva Funksiya FindWindow Lib "user32" Alias ​​"FindWindowA" _ (ByVal lpClassName String kimi, ByVal lpWindowName String kimi) Uzun Davamlı SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOW = &H40WinDOW = &H40WindWind = &H40Wind("Command") Shell_traywnd", " ") SetWindowPos-a zəng edin(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) Son Alt "Şəxsi Alt Komandanı göstərir2_Click() hwnd1 = FindWindow("Shell_traywnd", "") Zəng edin SetWindowPos(hwnd0, 0, , , , . 0, 0, SWP_SHOWWINDOW) Son Alt

RAR arxivini açın

RAR arxivini açmaq üçün aşağıdakı kodu istifadə edə bilərsiniz:

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

Kompüterdə nə qədər RAM var

Bir düymə əlavə edin və aşağıdakı kodu yapışdırın:

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As TMemoryStatus) Private Type TMmemoryStatus dwLength Long As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailAvail Son Növ Dim s TMemoryStatus Private Sub Command1_Click( ) ms.dwLength = Len(ms) GlobalMemoryStatus(ms) MsgBox-a zəng edin "Cəmi:" & ms.dwTotalPhys & vbCr & "Pulsuz:" _ & ms.dwAvailPhys & vbCr & "%:" & ms.dwMemoryLoad End istifadə olunur

İş masası nişanlarını gizlədin

Bu aşağıdakı kimi edilir. 2 düymə əlavə edin və aşağıdakı kodu yapışdırın:

Şəxsi Bəyan Funksiyası ShowWindow&Lib "user32" (ByVal hwnd&, ByVal nCmdShow&) Şəxsi Bəyan Funksiya FindWindow Lib _ "user32" Təxəllüsü "FindWindowA" (ByVal lpClassName As String, St_Wal.String As_Val) st SW_NORMAL = 1 Private Sub Command1_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) Zəng ShowWindow(hHandle, SW_HIDE) End Sub Private Sub Command2_Click() Dim hHandle As Long hHandle = FindWDown ("FilgWman") (hHandle , SW_NORMAL) Son Alt

Command1 düyməsini istifadə edərək, nişanlar gizlənir, Command2 - görünür.

Mənim üçün hamısı budur, ümid edirəm yuxarıdakı nümunələr sizin üçün faydalı olacaq, əlvida!

Eclipse, bütün ömrü boyu proqram təminatı yaratmaq, işlətmək və idarə etmək üçün işləmə müddətləri və tətbiq platformaları olan genişləndirilə bilən inkişaf platformasıdır. həyat dövrü. Bir çox insanlar Eclipse-i Java IDE kimi tanıyır, lakin Eclipse əslində 60-dan çox müxtəlif açıq mənbə layihələrindən ibarətdir.

Pulsuz açıq mənbə Mac Windows Linux

Proqramlaşdırmanın əsasları.

Proqramlaşdırma dili Kiçik Əsas

DƏRS 1: Proqramlaşdırma mühitinə giriş Kiçik Əsas .

Hədəf: təqdim etmək Small Basic proqramlaşdırma dili ilə.

Tapşırıqlar:

Proqramlaşdırma dilini öyrənməyə başlayın Kiçik Əsas. OOP (obyekt yönümlü proqramlaşdırma) konsepsiyasını verin

Bu proqramlaşdırma mühitində işləməyi öyrənin. P mühitin “mətn obyektini” təqdim edin Kiçik Əsas.

Proqramlaşdırma mühitində proqramların yaradılması haqqında ilk fikir verin.

Layihənin əsas təhsil məqsədləri:

Şəxsi keyfiyyətlərin tərbiyəsi: fədakarlıq, diqqətlilik, dəqiqlik, özünə hörmətdə obyektivlik, məsuliyyət, idrak marağı.

Layihənin əsas inkişaf vəzifələri:

Tələbələrdə uğurlu sosial uyğunlaşmaya kömək edən əsas bacarıqları inkişaf etdirmək;

Koqnitiv fəaliyyət vasitəsilə özünü inkişaf etdirmək və şəxsi inkişaf arzusunu inkişaf etdirin.

Bilin: Əsas anlayışlar: obyekt, dəyişənlər, təyinat, məlumat növləri, giriş-çıxış.Small Basic proqramlaşdırma mühitinin tərkib elementlərini bilmək.

Bacarmaq: Smal Basic proqramını yükləyin. Bu proqramlaşdırma mühitində sadə layihələr yaradın. Smal Basic dilində riyazi funksiyaları daxil etməyi və riyazi ifadələri yazmağı bacarın. Sadə xətti proqramlar yazın.

Avadanlıq və material: dəstəkləyici mühazirə qeydləri (baxƏlavə 1 ), tapşırıq kartları, PC, Small Basic proqramı, lövhə, multimedia proyektoru, ekran.

Dərslər zamanı:

Təşkilat vaxtı

1. Dərsə hazırlıq

   Biliklərin yenilənməsi

Yeni materialın izahı

Öyrənilən materialın möhkəmləndirilməsi

1. Mövzu ilə bağlı suallar

Xülasə

1. Qiymətləndirmə

   Ev tapşırığı

Təşkilat vaxtı

1. Dərsə hazırlıq (dərsə hazırlığı yoxlayın, olmayanları qeyd edin)

   Biliklərin yenilənməsi

Proqramlaşdırma niyə lazımdır?

Biologiyadan esse yazmaq istəyirsən. Çox güman ki, onu kompüterinizdə hansısa mətn redaktorunda yazacaqsınız. Haradan gəldi? mətn redaktoru? Təbii ki, bunu proqramçılar yazıblar. Proqramçılar tərəfindən də yazılmış brauzerdən istifadə edərək İnternetdə məlumat axtaracaqsınız. İnşa yazdıqdan sonra siz istirahət etmək və yenə də proqramçılar tərəfindən yazılmış kompüter oyunu oynamaq istəyəcəksiniz. Ümumiyyətlə, proqramçıların yazdığı proqramlardan istifadə etmədən kompüterdə işləmək mümkün deyil. Bu o deməkdir ki, proqramlaşdırma olmasaydı, proqramlar da olmazdı və kompüter bir dəstə bahalı aparat olardı, çünki proqramsız kompüterdən istifadə edərək nəsə etmək mümkün deyil.

Problemin həlli mərhələləri.

Əsas anlayışlar

Proqramlaşdırma - proqramların yazılması.

Proqram - kompüterin başa düşə biləcəyi proqramlaşdırma dilində yazılmış alqoritm.

Alqoritm - məqsədə çatmağa yönəlmiş hərəkətlərin aydın ardıcıllığı.

Obyekt yönümlü proqramlaşdırmada obyekt anlayışı təqdim edildi, hesablama mexanizmləri həyata keçirildi ki, bu da imkan verir:

Obyektin strukturunu təsvir edin

Obyektlərlə hərəkətləri təsvir edin

Xüsusi obyekt miras qaydalarından istifadə edin (Vərəsəlik mövcud olanlardan yeni obyektlərin yaradılması deməkdir)

Obyekt komponentlərinin qorunma dərəcəsini təyin edin

Nəzəriyyə

İlk görüş

Microsoft Kiçik Basic - tərəfindən hazırlanmış proqramlaşdırma dili. Proqramların yaradılmasının əsaslarını öyrənmək istəyən başlanğıc tərtibatçılar üçün nəzərdə tutulmuşdur.

Əsas üstünlüklər:

Çox sadə inkişaf mühiti - çoxfunksiyalı alət ipucu və mətni redaktə etmək və proqramları işə salmaq üçün yalnız bir neçə düyməyə malik mətn redaktoru.

Yalnız 20 açar sözlə sadə dil

İnkişaf mühitinə daxil edilmiş bütün dil elementləri üçün kontekst sənədləri

Əlavə funksionallıq daxil etmək üçün Kiçik Əsas komponentləri genişləndirmək imkanı. (Məsələn, çatdırılma artıq xidmətlərlə işləmək imkanlarını ehtiva edir)

BASIC-in xüsusi üstünlüyü proqramların sazlanması prosesini xeyli asanlaşdıran şərh rejimində işləmək bacarığıdır: demək olar ki, hər bir əmrin icrası yazılandan dərhal sonra yoxlanıla bilər.

Nəticə operatoru

Sətri göstərir (mətn və ya nömrə )

Salam!

Nəticəni əldə etmək üçün - "Salam!" Mətni göstərilir. ekrana - bir proqram yazmalısınız:

TextWindow.WriteLine("Salam!")

Proqram pəncərəyə daxil edilirKiçikƏsasvə düymə ilə başlayırBaşlayın və ya açar F 5

Proqramın nəticəsi mətn çıxışıdır: "Salam!" VMətn qutusu proqramlar.

Sətir “Davam etmək üçün istənilən düyməni basın...” deməkdir.

TextWindow mətnin göstərilə biləcəyi “mətn pəncərəsi” obyektidir.

Obyekt var xassələri Və üsulları.

Obyekt metodu - obyekt nə edə bilər, yəniəməliyyatlar (operatorlar )

Parametr Əməliyyat WriteLine mötərizələri içərisindədir()

Həm də obyekt mətn qutusu var xassələri (bunlar obyektin xüsusiyyətləridir) , Misal üçün

BackgroundColor xüsusiyyəti – mətn üçün fon rəngini təyin edir,Ön Plan Rəngi- mətn rəngi

Rənglər:

sarı

yaşıl

mavi

qara

ağ

qırmızı

sarı

yaşıl

mavi

qara

ağ

Dəyişən

Proqramlar yaratmaq üçün çox vaxt dəyişənlərdən istifadə olunur.

Dəyişən varad - latın hərfi (a)

Dəyişənə rəqəmli dəyər kimi bir dəyər təyin edilə bilər

a= 5, burada işarəsi " = "- Bu təyinat operatoru

a = a + 5

a dəyişəninin qiymətini götürün

Ona 5 əlavə edin

a dəyişəninə yeni bir dəyər qoyun, əvvəlkini ondan silin

İki növ dəyişən var: nömrə Və xətt

10, -5, 3.14 “informatika”

Çoxaltmaq *

Bölmək /

Riyazi əməliyyatlar:

Sinus, loqarifm, kök

Yapışqan

Parçalara bölün

Simvolları axtarın

Simvolları dəyişdirin

ilə NÜMUNƏ operator "+"

ifadə

nəticə

ifadə

nəticə

"İvan" + "ova"

"İvanova"

"sinif"+ 10

"sinif 10"

Proqramlaşdırma

Nümunə 1: proqram nəticəsi

Nümunə 2: proqram nəticəsi

Nümunə 3: Proqram iki dəyişənin cəmini hesablayır və göstərira Və b

modul

Math.Cos( nömrə)

kosinus

Riyaziyyat.Tavan(nömrə)

tam ədədə yuvarlaqlaşdırır

Math.GetDegrees( nömrə)

ədədləri radyandan dərəcəyə çevirmək

Math.GetRandomNumber( maksimum sayı)

1-dən aralığında təsadüfi nömrəmaksimum sayı

NaturalLog(nömrə)

Təbii loqarifm

Math.Pi

Pi

Math.Power( baza nömrəsi, eksponent)

IN obaseNamber-in eksponentə çevrilməsi

Riyaziyyat. Maks (nömrə1, nömrə2)

Maksimum iki ədəd

Riyaziyyat. Qalıq (dividend, bölən)

Bölmənin qalan hissəsi

Riyaziyyat .Günah(nömrə)

Sinus

Riyaziyyat. Tan(nömrə)

Kosinus

Riyaziyyat .SquareRoot(nömrə)

Kök

Riyaziyyat. Dəyirmi(nömrə)

Normal yuvarlaqlaşdırma

Riyaziyyat .ArcSin(nömrə)

arcsine

Riyaziyyat. Mərtəbə(nömrə)

Ən yaxın ən kiçik tam ədədə yuvarlaqlaşdırır

x=TextWindow.ReadNumber()

y=Riyaziyyat.Abs(x)

TextWindow.WriteLine("y bərabərdir "+y)

Materialın bərkidilməsi

1. Müstəqil praktiki iş PC üçün

Müstəqil iş üçün tapşırıqlar

Məşq 1:

Tapşırıq bəyanatlarının son nəticələrini müəyyənləşdirin

Y=2

X=X+2

Y=X*2

X=Y

A= 15

B=A

A=B/5+2

B=A*3

A=0

Tapşırıq 2 : 3 dəyişənin hasilini hesablamaq üçün proqram yaradın:a , b Və c .

Tapşırıq 3 : ifadəni hesablamaq üçün proqram yaradın:z=5* x+ y/2 (x=10 fərz etsək,y=100)

Tapşırıq 4: X və dəyərlərini göstərmək üçün proqram yaradınY, 1-ci tapşırığa əsasən.

Tapşırıq 5: Diskriminantı tapmaq üçün proqram yaradın

Tapşırıq 6 : ifadələri qiymətləndirin

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

Cos 2 (Pi/4)+ Günah 2 (Pi/2) (1 )

( 1)

Y=2x 2 ( saat x=5, y=50)

X 1.2 = (a=2-də, b=6, c=4 , x 1=-1, x 2=-2)

Z= ln(y)-3 ( saat y=3, z=-1,901…)

C= (at a=4, b=9, c=13)

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

Suallar

Proqram nədir?

Proqramlaşdırma dilləri nə üçündür?

Obyekt yönümlü proqramlaşdırmanın əsas elementləri hansılardır?

“Mətn pəncərəsi”ndə hansı əməliyyatları yerinə yetirmək olar?

Təyinat operatoru nə deməkdir:

Hansı məlumat növlərindən istifadə olunur Kiçik Əsas?

I/O ifadələri necə yazılır?

Xülasə

1. Qiymətləndirmə

   Ev tapşırığı

İş dəstək qeydləri ilə

mesaj hazırlayın mövzuda: “Proqramlaşdırma dillərinin müxtəlifliyi”

Proqram hazırlayın Heron düsturundan istifadə edərək üçbucağın sahəsinin hesablanması

Ərizə

OK 1: Dildə proqramlaşdırmanın əsasları Kiçik Əsas .

Proqramlaşdırma - proqramların yazılması.

ALQORİTM + PROQRAMLAMA DİLİ= PROQRAM

Dəyişən

Dəyişən varad - Latın hərfi (Məsələn,a , IN , x1 , C9 )

Bir dəyişənə dəyər təyin edilə bilər

Misal: a = 5 , işarəsi harada = "- Bu təyinat operatoru

İki növ dəyişən var: nömrə Və xətt (simvolların ardıcıllığı)

10, -5, 3.14 “informatika”

Çoxaltmaq *

Bölmək /

Riyazi əməliyyatlar:

Sinus, loqarifm, kök

Yapışqan

Parçalara bölün

Simvolları axtarın

Simvolları dəyişdirin

Proqramlaşdırma

Mətn pəncərəsi- Bu mətn pəncərəsi obyekti , mətni göstərə biləcəyiniz.

Əməliyyat parametri mötərizə içərisində - WriteLine()

Bir obyekt mətn qutusu var xassələri , Misal üçün

Əmlak Fon rəngi – mətn üçün fon rəngini təyin edir,Ön Plan Rəngi - mətn rəngi

İstifadə olunan rənglər:

sarı

yaşıl

mavi

qara

ağ

qırmızı

sarı

yaşıl

mavi

qara

ağ

Kiçik əsas dil operatorları

"+" operatoru

İfadədə istifadə edin riyazi funksiyalar

x=TextWindow.ReadNumber()

y=Riyaziyyat.Abs(x)

TextWindow.WriteLine("y bərabərdir "+y)

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

İki dəyişənin cəminin hesablanması üçün proqramA Və b

TextWindow.WriteLine("a dəyişəninin dəyərini daxil edin")

a=TextWindow.ReadNumber()

TextWindow.WriteLine("b dəyişəninin dəyərini daxil edin")

b=TextWindow.ReadNumber()

s=a+b

TextWindow.WriteLine("ədədlərin cəmi bərabərdir "+s)

Proqram pəncərəyə daxil edilirKiçikƏsasvə düymə ilə başlayırBaşlayın və ya açar F 5.

Xətt basın hər hansı açar davam et ... deməkdir " davam etmək üçün hər hansı düyməyə bas