Gjuha e Visual Basic - shembuj kodesh. Alternativa për të zëvendësuar kodet burimore të vogla bazë të Microsoft me bazë të vogël

Përshëndetje të gjithëve, në këtë artikull dua t'ju tregoj kode të dobishme për programe të vogla. Të cilat mund t'i përdorni për të shkruar programet tuaja më serioze, ose po kërkoni pikërisht këto funksione që përshkruhen këtu.

Të gjitha kodet janë përdorur në mjedisin e programimit Microsoft Visual Basic v6.0.

Dilni me konfirmim

Lloji i parë i programit, pusi ose funksioni, është një dalje me një mesazh që konfirmon daljen. Në përgjithësi, hapni mjedisin e programimit të Visual Basic, krijoni një projekt standard, më pas vendosni një buton në formular, klikoni mbi butonin dhe do të hapni një dritare për modifikimin e kodit dhe aty duhet të ngjitni kodin e mëposhtëm:

Mesazhi i zbehtë si mesazh i zbehtë i vargut dhe ikonat si numër i plotë Titulli i zbehtë si vargu përgjigje e zbehtë Si mesazh vargu = "A doni të dilni?" titulli = "(! GJUHË: Dil" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

Fjalëkalimi për të nisur programin

Fjalëkalimi i zbehtë, Fjalëkalimi Pword = "12345" Pword = InputBox("Fut fjalëkalimin") Nëse Pword<>Fjalëkalimi Pastaj MsgBox "Fjalëkalimi nuk është i saktë" Fundi Fund Nëse

Ku, 12345 është fjalëkalimi për të ekzekutuar programin. Por ky kod mund të përdoret kudo që dëshironi.

Dalja e mesazhit

Nëse thjesht dëshironi të shfaqni një mesazh për diçka, atëherë vendosni këtë në:

Mesazhi i zbehtë si tingull i zbehtë si butonat e zbehjes së vargut." buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

Vizatim në formë

Nën-Private Form_MouseDown(Butoni si numër i plotë, Shift si numër i plotë, X si i vetëm, Y si i vetëm) Form1.CurrentX = X Form1.CurrentY = Y Fundi Nën-Private Form_MouseMove(Butoni si numër i plotë, Shift si numër i plotë, X si i vetëm, Y si Single) Nëse Butoni = 1 Pastaj Rreshti (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBCcolor(0) Fund If End Sub

Ju mund ta ndryshoni ngjyrën duke përdorur parametrin QBColor(0), d.m.th. zëvendësoni 0 me një numër tjetër.

Rinisja e kompjuterit

Për të rifilluar kompjuterin tuaj: vendosni butonin dhe ngjitni kodin e mëposhtëm:

Ekzekutimi i programit në një kopje të vetme

Shembulli i mëposhtëm do t'ju ndihmojë që programi të funksionojë vetëm një herë, d.m.th. në rast të rifillimit, do të lëshojë një mesazh përkatës. Ngjitni kodin e formularit:

Nën Private Form_Load() Nëse App.PrevInstance = E vërtetë Atëherë MsgBox "Projekti tashmë ka filluar!" Fund Fundi Nëse

Fikja e kompjuterit

Për të fikur kompjuterin, mund të përdorni kodin e mëposhtëm:

Dim strComputer As String strComputer = "." Cakto objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate,(Shutdown))!\\" _ & strComputer & "\root\cimv2") Cakto colOperatingSystems = objWMIService.ExecQuery *perting(3y_Sstem)" Çdo ObjOperatingSystem në colOperatingSystems ObjOperatingSystem.ShutDown "Për mbyllje Next

Përfundoni çdo proces

Për të përfunduar procesin, mund të përdorni kodin e mëposhtëm:

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

Ku, në vend të ICQlite.exe, mund të ketë ndonjë proces.

Sa kohë funksionon një kompjuter

Më poshtë është një shembull se si mund të përcaktoni kohën e funksionimit të kompjuterit. Kjo metodë bazohet në përdorimin e bibliotekës kernel32, kështu që në fillim të kodit të formularit, përfshini këtë DLL.

Funksioni i Deklarimit Privat GetTickCount Lib "kernel32" () Për aq kohë sa "Dhe në kodin e butonit: Zbehni një orë, një minutë, një sekondë a = Format(GetTickCount() / 1000, "0") "sekonda totale në ditë = Int(a / 8640) = a - a_ditë * 86400 a_hour = Int(a / 3600) a = a - a_ore * 3600 a_minute = Int(a / 60) a_second = a - a_minute * 60 MsgBox "Kompjuteri juaj ka funksionuar" & Str(a_ditë) & " ditë " & Str(a_orë) _ & " orë " & Str(a_minutë) & "minuta" & Str(a_sekondë) & " sekonda"

Ne kemi shqyrtuar funksione të thjeshta të cilat mund të përdoren pothuajse kudo. Tani le të shohim shembuj më seriozë dhe ata mund t'ju ndihmojnë shumë të shkruani projektet tuaja të mëdha.

Shembuj të dosjeve

Fshi drejtorinë

Krijo drejtori

Listoni të gjitha dosjet me nëndosje

Ne shtojmë 2 fusha teksti dhe një buton në formular, emri i fushës së parë të tekstit është StartText, emri i fushës së dytë të tekstit është OutText. Vetia me shumë rreshta = e vërtetë, emri i butonit = CmdStart

Ekzekutimi statik si zbehtë boolean AllDirs si koleksion i ri Dim next_dir Si numër i plotë zbehtë dir_name Si varg Dim sub_dir Si varg i zbehtë i si numër i plotë dim txt si varg Nëse po funksionon Pastaj ekzekutimi = False CmdStart.Enabled = E rreme CmdStart.Caption = "Ndalohet" Else True MousePointer = vbHourglass CmdStart.Caption = "Stop" OutText.Text = "" DoEvents next_dir = 1 AllDirs.Add StartText.Text Bëni ndërsa next_dir<= AllDirs.Count dir_name = AllDirs(next_dir) next_dir = next_dir + 1 sub_dir = Dir$(dir_name & "\*", vbDirectory) Do While sub_dir <>"" Nëse UCase$(nën_dir)<>"PAGEFILE.SYS" Dhe sub_dir<>"." Dhe sub_dir<>".." Pastaj sub_dir = dir_name & "\" & sub_dir Në Gabim Rifillo Tjetër Nëse GetAttr(sub_dir) Dhe vbDirectory Pastaj AllDirs. Shto sub_dir Fund If sub_dir = Dir$(, vbDirectory) Lloko DoEvents Nëse nuk funksionon Pastaj Dil Do Loop txt = "" Për i = 1 Tek AllDirs.Count txt = txt & AllDirs(i) & vbCrLf Tjetra i OutText.Text = txt MousePointer = vbDefault anulimi = Fundi i rremë nëse

Tani e ekzekutojmë programin, në fushën e tekstit StartText shkruajmë: C:\windows dhe klikojmë në butonin.

Madhësia e drejtorisë

Shembuj të punës me skedarë

Kopjo

Le të themi se kemi një skedar me emrin 1.txt në dosjen C:\1\, dhe duhet ta kopjojmë në C:\2\ për këtë ne shkruajmë kodin e mëposhtëm:

Kopjoni skedarin "C:\1\1.txt","C:\2\1.txt"

Shënim! Nëse drejtoria 2 përmban tashmë një skedar të quajtur 1.txt, ai do të zëvendësohet me 1.txt nga drejtoria 1.

Private Deklaroni funksionin CopyFile Lib _ "kernel32.dll" Pseudonimi "CopyFileA" _ (ByVal lpExistingFileName si varg, ByVal lpNewFileName si varg, ByVal bFailIfExists për aq kohë sa) Për aq kohë sa skedari Private:\C. në D :\1.txt. Revali i zbehtë Për sa kohë " kthen vlerën "Kopjo skedarin retval = CopyFile("C:\1.txt", "D:\1.txt", 1) Nëse retval = 0 Pastaj "Nëse MsgBox dështoi" Nuk mund të kopjohet" Përndryshe "Nëse OK MsgBox "Skedari u kopjua." Përfundoni Nëse Përfundoni Nën

Heqja

Për shembull, ne duam të fshijmë skedarin 1.txt nga rrënja e diskut C:\

Kill ("C:\1.txt")

Mënyra API

Private Deklaroni Funksionin DeleteFile Lib _ "kernel32.dll" Pseudonimi "DeleteFileA" (ByVal lpFileName As String) Për aq kohë sa Private Sub Command1_Click() "Fshi skedarin C:\Samples\anyfile.txt Dim retvaln si Loue DeleteFile( "C:\1.txt") Nëse retval = 1 Atëherë MsgBox "Skedari u fshi me sukses." fundi nën

duke lëvizur

Për shembull, mund ta lëvizni atë si kjo:

Skedari "C:\1.txt","C:\2\1.txt" Kill ("C:\1.txt")

Por është më mirë kështu (nëpërmjet API):

Private Deklaroni Funksionin MoveFile Lib _ "kernel32.dll" Pseudonimi "MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName as String) Sa Long Private Sub Command1_Click() Dim retvalle As" \1 .txt", "C:\2\1.txt") Nëse retval = 1 Atëherë MsgBox "Lëvizi me sukses" Përndryshe MsgBox "Gabim" Fund If End Sub

Riemërtimi

Për të riemërtuar skedarin 1.txt të vendosur në C:\ në 2.txt, mund të përdorni kodin e mëposhtëm:

Skedar "C:\1.txt","C:\2.txt" Kill ("C:\1.txt")

Mënyra API

Private Deklaroni Funksionin MoveFile Lib _ "kernel32.dll" Pseudonimi "MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName as String) Për aq kohë sa Nën Komanda Private1_Click() Dim "MoveFilerets" \1 .txt", "C:\2.txt") Nëse retval = 1 Atëherë MsgBox "Sukses" Përndryshe MsgBox "Gabim" Fund Nëse Fundi Nën

Përcaktoni madhësinë e skedarit

Madhësia e skedarit mund të përcaktohet në dy mënyra:

Nëse skedari mund të hapet me funksionin OPEN, atëherë mund të përdorni funksionin LOF

Dim FileFree si Integer Dim FileSize Sa Long FileFree = File Falas Hap "C:\WIN\GENERAL.TXT" për të hyrë si FileFree FileSize = LOF(FileFree) Mbylle FileFree

Ose përdorni funksionin FileLen

Dim lFileSize Sa Long FileSize = FileLen ("C:\WIN\GENERAL.TXT")

Fshih orën në mënyrë programore

Shtoni 2 butona dhe ngjisni kodin:

Opsioni eksplicit Private Deklaroje Funksionin FindWindow Lib _ "user32" Pseudonimi "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) Për aq kohë sa Private Deklaroje Funksionin FindWindowEx Lib _ "WindowEx Lib _ "downE1XA" Gjatë, ByVal hWnd2 për aq kohë, ByVal lpsz1 si varg, ByVal lpsz2 si varg) Për sa kohë Private Deklaroni Funksionin ShowWindow Lib _ "user32" (ByVal hwnd Për aq kohë, ByVal nCmdShfaq për sa kohë) Për aq kohëzgjatje Private1_ ShowWindow hnd, 0 Fund Sub Private Sub Command2_Click() ShowWindow hnd, 1 Fund Sub Private Sub Form_Load() hnd = FindWindow("Shell_TrayWnd", vbNullString) hnd = FindWindowEx(hnd, 0, "FindingWW"(TrayNobndify) hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Fshih orën" Command2.Caption = "Trego Orën" Fund Sub

Shtoni ikonën në tabaka

Shtoni një modul, ngjisni kodin në të:

Deklaroni funksionin Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage për aq kohë sa, lpData si NOTIFYICONDATA) si një numër i plotë Const Publik NIM_ADD = 0 Const Publik NIM_MODIFY = 1 Const Publik NIM_DELETE = 1 Const Publik NIM_DELETE = 1 Const Public NIM_DELETE = 2 Const Public NIM_DELETE = 2 Const Public Lloji NOTIFYICONDATA cbMadhësia për aq kohë sa uID për aq kohë sa uFlamujt për aq kohë uCallbackMesazh për aq kohë hikona Për sa kohë szTip Si varg * 64 Lloji i fundit i funksionit publik SetTrayIcon (Modaliteti për aq kohë sa zgjat, hWnd për sa kohë, ikona për aq kohë sa zgjat) nidTemp si NOTIFYICONDATA nidTemp.cbSize = Len(nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0& nidTemp.uFlamuj = NIF_ICON Ose NIF_TIP nidTemp.uCallbackMesTemp.uCallbackMesTemp.uCallbackMesTemp.uCallback0Temp. Shell_NotifyIconA (Mode, nidTemp) Funksioni i Fundit

Për të përdorur ngjitjen në kodin e formës:

Nën Private Form_Load() SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" Fund Sub "Për të fshirë nënkomandën private1_Click() SetTrayIcon NIM_DELETE, Me.hWnd, 0&, "" Fund Sub

Bllokimi i butonit të fillimit

Funksioni i Deklarimit Privat FindWindow Lib "user32" Pseudonimi "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) Për aq kohë sa Private Deklaroni Funksionin FindWindowEx Lib "user32" në Alias ​​"Eh"Vxal" hWnd2 Për aq kohë sa, ByVal lpsz1 si varg, ByVal lpsz2 si varg) Për sa kohë Private Deklaroni funksionin EnableWindow Lib "user32" _ (ByVal hwnd për aq kohë, ByVal fEnable për aq kohë sa) Për sa kohë që Publike Sub EnableStartButton (EnableStartButton) lHwnd Për aq kohë sa " gjeni hWnd lHwnd& = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString) Thirrni EnableWindow(lHwnd&, CLng(Enabled)) Mbyll butonin Sub Private Sublickttar"(BBTtartTar)1_ i çaktivizuar End Sub Private Sub Command2_Click() EnableStartButton True "Butoni Start nuk është i çaktivizuar Fund Sub

Leximi i parametrave nga skedari INI

Programi lidhet me FTP, dhe parametrat shkruhen në skedarin ini - server, hyrje, port, fjalëkalim.

Së pari, krijoni një skedar INI:

Emri i shërbimit=përdoruesi i serverit=Hyrja pwd=fjalëkalimi port=port

Duhet të vendoset në dosjen me programin. Më pas, futni në modul:

Funksioni i Deklarimit Private WritePrivateProfileString Lib _ "kernel32" Pseudonimi "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpString As Stringp, ByVal lpString As Stringp, ByValPringvateleeN) ​"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpDefault As String, ByVal lpReturnedString As String, _ ByVal nSize As Long, ByValNactionAs RingIp) String ReadIni = GetValue (Razdel, Param, App.Path & "\test.ini", "0") Funksioni i Fundit Funksioni Privat GetValue(Seksioni ByVal si varg, _ Kyç ByVal si varg, ByVal fFileName si varg, Opsionale ByVal DefaultValue si String = vbNullString) Si varg Dim Data Si String Data = String$(1000, Chr$(0)) If GetPrivateProfileString(Section, Key, DefaultValue, Data, 1000, fFileName) > 0 Pastaj GetValue = Left$(Data, InStr( Të dhënat$, Chr $(0)) - 1 ) Përndryshe GetValue = DefaultValue Fund Nëse Funksioni Dil Funksioni Fundi

Më pas ngjisni kodin e formës:

Private Deklaroni Funksionin InternetOpen Lib _ "wininet.dll" Pseudonimi "InternetOpenA" (ByVal sAgent As String, ByVal nAccessType As Long, ByVal sProxyName As String, _ ByVal sProxyBypass As String, ByVal sProxyBypass As String, ByValAs Lib _ "wininet.dll" Pseudonimi "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, _ ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword, ByVal sPassword as String, ByVal nServerPort as Integer , ByVal dwContext Sa Long) Për aq kohë sa Private Deklaroni Funksionin FtpPutFile Lib _ "wininet.dll" Pseudonimi "FtpPutFileA" (ByVal hFtpSession Për aq kohë sa, ByVal lpszLocalFile As String, _ ByValFonte ByVal, ByVonteFonte,As StringwFile Gjatë) Si Boolean Private Deklaroni Funksionin FtpGetFile Lib _ "wininet.dll" Pseudonimi "FtpGetFileA" (ByVal hFtpSession për aq kohë sa, ByVal lpszRemoteFile As String, _ ByVal lpszNewFile As fringFwgsaild ByVal lpszNewFile As Ftpgsaild ByValEfwgsailt ByVal,Fwgsaild, ByValEfwgsaildAs,Fwgsla,ByValEfwgsail, _ ByVal dwFlamuj për aq kohë, ByVal dwContext për aq kohë sa) Si Boolean Private Deklaroni Funksionin InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet Për aq kohë sa) Si numër i plotë Dim rc& Dim rs&

Dhe në kodin e butonit:

Lista e proceseve të ekzekutimit

Shtoni një kuti listë dhe butonin 1, ngjitni kodin e mëposhtëm:

Opsioni eksplicit Private Declare Function CreateToolhelpSnapshot Lib _ "Kernel32" Pseudonimi "CreateToolhelp32Snapshot" _ (ByVal lFlags për aq kohë, ByVal lProcessID për aq kohë) Për aq kohë sa Private Deklaroni Funksionin për Process'nShhFirst Për aq kohë, uProcess As PROCESSENTRY32) Për aq kohë sa Private Deklaroni Funksionin ProcessNext Lib _ "Kernel32" Pseudonimi "Process32Next" _ (ByVal hSnapShot Për aq kohë sa, uProcess As PROCESSENTRY32) Për sa kohë Private Deklaroni Sub "Lob CloseHandelle" ) Private Const th 32cs_snawpocess si Long = 2 & Private Const Max_PATH si Integer = 260 Procesi i tipit privat32 Dwizize si të gjatë Th32PROCESSID si të gjatë Th32defuletid si të gjatë th32moduleid si të gjatë th32parentprocessid si dwfliclassbase të gjatë si dwflags të gjatë si të gjatë szexefat si string * max_path Lloji i FunditSnaphot DimSnaphot Dim uProcesi si PROCESSENTRY32 Dim r Për sa kohë Nënkomanda private1_Click() List1.Pastro hSnapShot = Cre ateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) Nëse hSnapShot = 0 Pastaj Dilni Sub-Fundin Nëse uProcess.dwSize = Len(uProcess) r = ProcessFirst(hSnapShot, uProcess) Bëni Ndërsa r List1.AddItem uProcesse. CloseHandle(hSnapShot) Fundi Nën

Vendosja e një programi në fillim

Në mënyrë që programi të ngarkohet me Windows, si disa programe të tjera, mund të përdorni regjistrin:

Shtoni 2 butona dhe kodin e mëposhtëm:

Nën Komanda Private1_Click() "Registry Write Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Emri i programit tuaj", _ "Rruga drejt programit tuaj" Fundi Sub Private Sub Command2_Click() "Fshi nga regjistri Set Reg = CreateObject("WScript.Shell") Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Emri i programit tuaj" Fundi nën

Dhe në mënyrë që programi të ngarkohet me Windows, edhe në mënyra e sigurt, pastaj ky kod:

Për të filluar, një mënyrë më serioze (bëjeni për çdo rast rezervë regjistri).

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Rruga drejt programit tuaj Sub2_li" Kjo është për rikuperim Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Explorer.exe," Fund Sub

Epo, mënyra e lehtë.

Nën Komanda Private1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C:\\\\System. ,Rruga drejt programit tuaj" Fund Sub Private Sub Command2_Click()"Për të rivendosur Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\User_Winit", \\WINDOWS\\system32\\userinit.exe," Fund Sub

Fshih shiritin e detyrave

Shtoni 2 butona dhe ngjitni kodin:

Funksioni i deklarimit privat SetWindowPos Lib "user32" (ByVal hwnd Për aq kohë, _ ByVal hWndInsertPas për aq kohë, ByVal x Për aq kohë, ByVal y Për aq kohë, _ ByVal cx Për aq kohë, ByVal cy Për aq kohë, Përgjatë Gjatësisë ByVal) Funksioni FindWindow Lib "user32" Pseudonimi "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName as String) As Long Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOWides =PrivaWind,(H4WINDOW =Privatell ") Thirrni SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) Fund Sub "Trego Private Sub Command2_Click() hwnd1 = FindWindow("Shell_traywnd", "") Telefono SetWindWindowPos1,0,0,hwn 0, 0, SWP_SHOWWINDOW) Fundi Nën

Zhzip arkivin RAR

Për të shkëputur një arkiv RAR, mund të përdorni kodin e mëposhtëm:

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

Sa RAM ka në kompjuter

Shtoni një buton dhe ngjitni kodin e mëposhtëm:

Private deklarojnë nën globalmemorystatus lib "kernel32" (lpbuffer si tmemorystatus) lloji privat tmemorystatus si dwmemoryphys gjatë si dwtotalpage të gjatë si dwtotalpage të gjatë si dwtotalpage të gjatë si dwtotalpage të gjatë si dwtotalpage të gjatë si dwtotalpage të gjatë si dwtotalpage të gjatë Si Long End TMemoryStatus( ) ms.dwLength = Len(ms) Telefono GlobalMemoryStatus(ms) MsgBox "Total:" & ms.dwTotalPhys & vbCr & "Pa pagesë:" _ & ms.dwAvailPhys & vbCr & "Përdorur në %" ms.dwMemoryLoad Fundi Nën

Fshih ikonat e desktopit

Kjo bëhet në mënyrën e mëposhtme. Shtoni 2 butona dhe ngjisni kodin e mëposhtëm:

Funksioni i Deklarimit Privat ShowWindow& Lib "user32" (ByVal hwnd&, ByVal nCmdShow&) Funksioni i Deklarimit Privat FindWindow Lib _ "user32" Pseudonimi "FindWindowA" (ByVal lpClassName As String, ByVal, Aslp_Windowal) 1 Nën Komanda Private1_Click() Zbeh hHandle për aq kohë sa hHandle = FindWindow("progman", vbNullString) Thirr ShowWindow(hHandle, SW_HIDE) Fundi Sub Command Sub Private2_Click() Dim hHandle =GjenprogWinllHandle" (Handle , SW_NORMAL) Fundi Nën

Duke përdorur butonin Command1, ikonat fshihen, Command2 - shfaqen.

Kjo është gjithçka që kam, shpresoj që shembujt e mësipërm do të jenë të dobishëm për ju, mirupafshim!

Bazat e programimit.

Gjuhë programimi I vogël bazë

MESIMI 1: Hyrje në mjedisin e programimit I vogël bazë .

Synimi: prezantoj me gjuhë programimi Bazë e vogël.

Detyrat:

Filloni të mësoni një gjuhë programimi Bazë e vogël. Jepni konceptin e OOP (programimi i orientuar nga objekti)

Mësoni të punoni në këtë mjedis programimi. P familjarizohen me "objektin e tekstit" të mjedisit Bazë e vogël.

Për të dhënë një ide të parë të krijimit të programeve në një mjedis programimi.

Detyrat kryesore arsimore të projektit:

Edukimi i cilësive personale: qëllimshmëria, vëmendja, saktësia, objektiviteti në vetëvlerësim, përgjegjësia, interesi njohës.

Detyrat kryesore të zhvillimit të projektit:

Të formojë te nxënësit kompetenca kyçe që kontribuojnë në përshtatjen e suksesshme sociale;

Të zhvillojë dëshirën për vetë-zhvillim dhe rritje personale përmes aktivitetit kognitiv.

Dije: Konceptet bazë: objekti, variablat, caktimi, llojet e të dhënave, hyrje-dalja.Njihni elementët përbërës të mjedisit programor Small Basic.

Te jesh i afte te: Shkarkoni programin Smal Basic. Krijoni projekte të thjeshta në këtë mjedis programimi. Të jetë në gjendje të futë funksione matematikore dhe të shkruajë shprehje matematikore në gjuhën Smal Basic. Shkruani programe të thjeshta lineare.

Pajisjet dhe materialet: shënimet bazë të leksionit (krh.Shtojca 1 ), kartat e detyrave, PC, aplikacioni Small Basic, tabelë e bardhë, projektor multimedial, ekran.

Gjatë orëve të mësimit:

Koha e organizimit

1. Përgatitja për mësimin

   Përditësimi i njohurive

Shpjegimi i materialit të ri

Konsolidimi i materialit të studiuar

1. Pyetje të lidhura

Duke përmbledhur

1. Notimi

   Detyre shtepie

Koha e organizimit

1. Përgatitja për mësimin (kontrolloni gatishmërinë për mësimin, shënoni mungesën)

   Përditësimi i njohurive

Për çfarë është programimi?

Ju dëshironi të shkruani një abstrakt në biologji. Me shumë mundësi, do ta shkruani në një kompjuter në ndonjë redaktues teksti. Dhe nga erdhi redaktori i tekstit? Sigurisht, programuesit e shkruajtën atë. Ju do të kërkoni për informacion në internet duke përdorur një shfletues që e kanë shkruar edhe programuesit. Pasi të shkruani esenë tuaj, do të dëshironi të relaksoheni dhe të luani një lojë kompjuterike, e cila, përsëri, është shkruar nga programuesit. Në përgjithësi, puna në kompjuter është e pamundur pa përdorimin e programeve që shkruajnë programuesit. Pra, nëse nuk do të kishte programim, nuk do të kishte programe dhe kompjuteri do të ishte një grumbull harduerësh të shtrenjtë, sepse është e pamundur të bësh diçka me ndihmën e një kompjuteri pa programe.

Fazat e zgjidhjes së problemit.

Konceptet bazë

Programimi - shkrimi i programeve.

Programi Një algoritëm i shkruar në një gjuhë programimi të kuptueshme nga një kompjuter.

Algoritmi - një sekuencë e qartë veprimesh që synojnë arritjen e qëllimit.

Në programimin e orientuar nga objekti prezantohet koncepti i një objekti, zbatohen mekanizmat e llogaritjes që lejojnë:

Përshkruani strukturën e një objekti

Përshkruani veprimet me objekte

Përdorni rregulla të veçanta të trashëgimisë së objekteve (Trashëgimia nënkupton krijimin e objekteve të reja nga ato ekzistuese)

Vendosni shkallën e mbrojtjes së përbërësve të objektit

Teoria

Takimi i parë

Microsoft Small Basic - gjuhë programimi e zhvilluar nga . Projektuar për zhvilluesit fillestarë që duan të mësojnë bazat e krijimit të programeve.

Përparësitë kryesore:

Një mjedis shumë i thjeshtë zhvillimi - një redaktues teksti me një këshillë veglash shumëfunksionale dhe vetëm disa butona për redaktimin e tekstit dhe nisjen e programeve.

Gjuhë e thjeshtë me vetëm 20 fjalë kyçe

Dokumentacioni kontekstual i integruar në mjedisin e zhvillimit për të gjithë elementët e gjuhës

Aftësia për të zgjeruar komponentët Small Basic për të përfshirë funksionalitete shtesë. (Për shembull, dorëzimi tashmë përfshin veçori për të punuar me shërbimet)

Një avantazh i veçantë i BASIC duhet të konsiderohet aftësia për të punuar në modalitetin e interpretimit, e cila thjeshton shumë procesin e korrigjimit të programeve: ekzekutimi i pothuajse çdo komande mund të kontrollohet menjëherë pas shkrimit.

Operatori i daljes

Shfaq një varg (teksti ose numri )

Hej!

Për të marrë rezultatin - dalja e tekstit "Përshëndetje!" në ekran - duhet të shkruani një program:

TextWindow.WriteLine ("Përshëndetje!")

Programi futet në dritareI vogëlbazëdhe filloni me një butonNisja ose çelësi F 5

Rezultati i programit është dalja e tekstit: "Përshëndetje!" vkuti teksti programet.

Vargu do të thotë "Shtypni çdo çelës për të vazhduar...".

TextWindow është një objekt "dritare teksti" në të cilin mund të shfaqet teksti.

Objekti ka Vetitë dhe metodat.

Metoda e objektit -çfarë mund të bëjë objekti, d.m.thoperacionet (operatorët )

Parametri operacionet janë të mbyllura në kllapa WriteLine()

I njëjti objekt kuti teksti ka Vetitë (këto janë karakteristikat e objektit) , Për shembull

Vetia BackgroundColor – vendos ngjyrën e sfondit për tekstin,Ngjyra e përparme- ngjyra e tekstit

Ngjyrat:

e verdhe

jeshile

blu

e zezë

të bardhë

E kuqe

e verdhe

jeshile

blu

e zezë

E bardha

E ndryshueshme

Variablat shpesh përdoren për të krijuar programe.

ndryshorja kaemri - shkronja latine (a)

Një ndryshore mund t'i caktohet një vlerë, si një numër

a= 5, ku shenja " = " - ajo operatori i caktimit

a = a + 5

Merrni vlerën e ndryshores a

Shtoni 5 në të

Vendosni një vlerë të re për ndryshoren a, duke fshirë atë të mëparshmen prej saj

Variabla është e dy llojeve: numri dhe linjë

10, -5, 3.14 "shkenca kompjuterike"

shumo *

Ndaje /

Veprimet matematikore:

Sinus, logaritëm, rrënjë

ngjitës

Ndani në pjesë

Kërko simbolet

Zëvendësoni karakteret

SHEMBULL me operatori "+"

shprehje

rezultat

shprehje

rezultat

"ivan" + "ova"

"ivanova"

"klasë" + 10

"klasa 10"

Programimi

Shembulli 1: rezultati i programit

Shembulli 2: rezultati i programit

Shembulli 3: Programi llogarit dhe shfaq shumën e dy variablavea dhe b

modul

Math.Cos( numri)

kosinusi

Tavani i matematikës (numri)

rrumbullakoset në një numër të plotë

Math.GetDegrees( numri)

shndërrimi i një numri nga radianët në gradë

Math.GetRandomNumber( numri maksimal)

Numër i rastësishëm në rangun nga 1 nënumri maksimal

Regjistri natyror (numri)

logaritmi natyror

Math Pi

Pi

Math.Power( Numri bazë, eksponent)

V oduke e ngritur bazënNamber në fuqinë e eksponentit

Math. maksimumi (numri 1, numri 2)

Maksimumi dy numra

Math. Pjesa e mbetur (dividend, pjesëtues)

Pjesa e mbetur e ndarjes

Math .Sin(numri)

Sinus

Math. Tan(numri)

Kosinusi

Math .ScuareRoot(numri)

Rrënja

Math. Rrumbullakët(numri)

Rrumbullakimi normal

Math .ArcSin(numri)

Arksine

Math. kat(numri)

Rrumbullakoset në numrin më të afërt të plotë më të vogël

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("y barazohet "+y)

Rregullimi i materialit

1. Punë praktike e pavarur në një PC

Detyrat për punë e pavarur

Ushtrimi 1:

Përcaktoni rezultatet përfundimtare të deklaratave të detyrave

Y=2

X=X+2

Y=X*2

X=Y

A= 15

B=A

A=B/5+2

B=A*3

A=0

Detyra 2 : Shkruani një program për llogaritjen e prodhimit të 3 variablave:a , b dhe c .

Detyra 3 : Shkruani një program për llogaritjen e shprehjes:z=5* x+ y/2 (duke supozuar x=10,y=100)

Detyra 4: Shkruani një program për të nxjerrë vlerat e X dheY, sipas detyrës 1.

Detyra 5: Shkruani një program për të gjetur diskriminuesin

Detyra 6 : vlerësojnë shprehjet

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

Cos 2 (Pi/4)+ Mëkati 2 (Pi/2) (1 )

( 1)

Y=2x 2 ( në x=5, y=50)

X 1,2 \u003d (kur një \u003d 2, b=6, c=4 , x 1=-1, x 2=-2)

Z= n(y)-3 ( në y=3, z=-1,901…)

С= (kur a=4, b=9, c=13)

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

Pyetje

Çfarë është një program?

Për çfarë shërbejnë gjuhët e programimit?

Cilat janë elementet bazë të programimit të orientuar nga objekti?

Çfarë operacionesh mund të kryhen në "dritaren e tekstit"?

Çfarë do të thotë operatori i caktimit:

Në cilat lloje të të dhënave përdoren Bazë e vogël?

Si shkruhen deklaratat I/O?

Duke përmbledhur

1. Notimi

   Detyre shtepie

Puna me një përmbledhje

përgatit një mesazh me temën: "Një shumëllojshmëri gjuhë programimi"

Bëni një program duke llogaritur sipërfaqen e një trekëndëshi duke përdorur formulën e Heronit

Shtojca

OK 1: Bazat e programimit në gjuhë I vogël bazë .

Programimi - shkrimi i programeve.

ALGORITMI + GJUHA E PROGRAMIMIT= PROGRAM

E ndryshueshme

ndryshorja kaemri - Shkronja latine (për shembull,a , V , x1 , C9 )

Një ndryshore mund t'i caktohet një vlerë

Shembull: a = 5 , ku shenja " = " - ajo operatori i caktimit

Variabla është e dy llojeve: numri dhe linjë (sekuenca e personazheve)

10, -5, 3.14 "shkenca kompjuterike"

shumo *

Ndaje /

Veprimet matematikore:

Sinus, logaritëm, rrënjë

ngjitës

Ndani në pjesë

Kërko simbolet

Zëvendësoni karakteret

Programimi

TextWindow- atë objekti "dritare me tekst" , në të cilin mund të shfaqet teksti.

Parametri i funksionimit mbyllur në kllapa - WriteLine()

Nje objekt kuti teksti ka Vetitë , Për shembull

Pronës ngjyrë e sfondit - vendos ngjyrën e sfondit për tekstin,Ngjyra e përparme - ngjyra e tekstit

Ngjyrat e përdorura:

e verdhe

jeshile

blu

e zezë

të bardhë

E kuqe

e verdhe

jeshile

blu

e zezë

E bardha

Operatorët e Vogël Bazë

Operatori "+".

Përdorimi i funksioneve matematikore në një shprehje

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("y barazohet "+y)

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

Program për llogaritjen e shumës së dy variablavea dhe b

TextWindow.WriteLine ("Fut vlerën e ndryshores a")

a=TextWindow.ReadNumber()

TextWindow.WriteLine ("Fut vlerën e ndryshores b")

b=TextWindow.ReadNumber()

s=a+b

TextWindow.WriteLine(" shuma e numrave është "+s)

Programi futet në dritareI vogëlbazëdhe filloni me një butonNisja ose çelësi F 5.

Linjë Shtypni ndonjë Celës vazhdojnë ...do të thotë " Shtypni çdo tast për të vazhduar

Eclipse është një platformë zhvillimi e zgjeruar me kohë pune dhe platforma aplikimi për krijimin, përdorimin dhe menaxhimin e softuerit gjatë gjithë ciklit të tij jetësor. Shumë njerëz e njohin Eclipse si një Java IDE, por Eclipse në fakt përbëhet nga mbi 60 projekte të ndryshme me burim të hapur, seksioni

Burim i hapur pa pagesë Mac Windows Linux