Jezik Visual Basic – primeri kode. Alternative za zamenjavo izvornih kod Microsoft Small Basic z majhnimi osnovnimi

Pozdravljeni vsi, v tem članku vam želim pokazati uporabne kode za majhne programe. Ki jih lahko uporabite za pisanje lastnih resnejših programov ali pa ste iskali točno te funkcije, ki so tukaj opisane.

Vse kode so bile uporabljene v programskem okolju Microsoft Visual Basic v6.0.

Izhod s potrditvijo

Prva vrsta programa, vodnjak ali funkcija, je izhod s sporočilom, ki potrjuje izhod. Na splošno odprite programsko okolje Visual Basic, ustvarite standardni projekt, nato postavite en gumb na obrazec, kliknite gumb in odprlo se vam bo okno za urejanje kode, kjer morate prilepiti naslednjo kodo:

Beep Dim message As String Dim buttonsanddicons As Integer Dim title As String Dim response As String message = "Ali želite zapustiti?" title = "(!LANG:Izhod" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

Geslo za zagon programa

Dim Password, Pword PassWord = "12345" Pword = InputBox("Enter password") Če Pword<>Geslo Nato MsgBox "Geslo ni pravilno" Konec Konec Če

Kjer je 12345 geslo za zagon programa. Toda to kodo lahko uporabite kjerkoli želite.

Izhod sporočila

Če želite samo prikazati sporočilo za nekaj, vnesite to:

Pisk zatemni sporočilo Kot niz Dim gumbi in ikoni Kot celo število Dim naslov Kot niz sporočilo = "Message" title = "(!LANG:Message" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

Risanje na obrazcu

Zasebni podobrazec_MouseDown(gumb kot celo število, Shift kot celo število, X kot eno samo, Y kot eno) Form1.CurrentX = X Form1.CurrentY = Y Konec podzasebni podobrazec_MouseMove(gumb kot celo število, premik kot celo število, X kot enojni, Y kot Enojno) Če je gumb = 1, potem vrstica (obrazec1. trenutniX, obrazec1. trenutniY)-(X, Y), QBColor(0) konec, če je konec pod

Barvo lahko spremenite s parametrom QBColor(0), tj. zamenjaj 0 z drugo številko.

Ponovni zagon računalnika

Če želite znova zagnati računalnik: postavite gumb in prilepite naslednjo kodo:

Zagon programa v enem izvodu

Naslednji primer vam bo pomagal, da se program zažene samo enkrat, tj. v primeru ponovnega zagona bo izdalo ustrezno sporočilo. Prilepite kodo obrazca:

Private Sub Form_Load() Če je App.PrevInstance = True, potem MsgBox "Projekt se je že začel!" Konec Konec Če

Izklop računalnika

Za izklop računalnika lahko uporabite naslednjo kodo:

Dim strComputer Kot niz strComputer = "." Nastavite objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate,(Shutdown))!\\" _ & strComputer & "\root\cimv2") Nastavite colOperatingSystems = objWMIService.ExecQuery("Select Format *) iz Win-a" Vsak ObjOperatingSystem v colOperatingSystems ObjOperatingSystem.ShutDown "Za zaustavitev Naprej

Prekinite kateri koli postopek

Če želite končati postopek, lahko uporabite naslednjo kodo:

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

Kjer je namesto ICQlite.exe lahko kateri koli proces.

Kako dolgo deluje računalnik

Sledi primer, kako lahko določite čas delovanja računalnika. Ta metoda temelji na uporabi knjižnice kernel32, zato na samem začetku kode obrazca vključite ta DLL.

Private Declare Function GetTickCount Lib "kernel32" () As Long "In v kodi gumba: Dim a_hour, a_minute, a_second a = Format(GetTickCount() / 1000, "0") "skupaj sekund 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 "Vaš računalnik je deloval" & Str(a_days " dnevi " & Str (a_ura) _ & " ure " & Str (a_minuta) & " minute" & Str (a_sekunda) & " sekunde"

Pregledali smo preproste funkcije ki se lahko uporablja skoraj povsod. Zdaj pa si poglejmo resnejše primere, ki vam lahko zelo pomagajo pri pisanju velikih projektov.

Primeri map

Izbriši imenik

Ustvari imenik

Seznam vseh map s podmapami

V obrazec dodamo 2 besedilni polji in gumb, ime prvega besedilnega polja je StartText, ime drugega besedilnega polja OutText. Lastnost več vrstic = true, ime gumba = CmdStart

Statično teče kot Boolean Dim AllDirs kot nova zbirka Dim next_dir As Integer Dim dir_name Kot niz Dim sub_dir Kot niz Dim i As Integer Dim txt kot niz Če se izvaja Potem teče = False CmdStart.Enabled = False CmdStart.Caption = "Ustavljanje" 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 <>"" Če UCase$(sub_dir)<>"PAGEFILE.SYS" In pod_dir<>"." In pod_dir<>".." Nato sub_dir = dir_name & "\" & sub_dir Ob napaki Nadaljuj Naprej Če GetAttr(sub_dir) In vbDirectory Nato AllDirs.Add sub_dir End Če sub_dir = Dir$(, vbDirectory) Zanka DoEvents Če se ne izvaja Nato Izhod Do Loop txt = "" Za i = 1 Za AllDirs.Count txt = txt & AllDirs(i) & vbCrLf Naprej i OutText.Text = txt MousePointer = vbDefault unning = False End Če

Sedaj zaženemo program, v besedilno polje StartText napišemo: C:\windows in kliknemo na gumb.

Velikost imenika

Primeri dela z datotekami

Kopirati

Recimo, da imamo datoteko z imenom 1.txt v mapi C:\1\ in jo moramo kopirati v C:\2\, za to napišemo naslednjo kodo:

Kopija datoteke "C:\1\1.txt", "C:\2\1.txt"

Opomba! Če imenik 2 že vsebuje datoteko z imenom 1.txt, jo bo nadomestil 1.txt iz imenika 1.

Private Declare Funkcija CopyFile Lib _ "kernel32.dll" Alias ​​"CopyFileA" _ (ByVal lpExistingFileName kot niz, ByVal lpNewFileName kot niz, ByVal bFailIfExists tako dolgo) As Long Private Sub Command() "Copy file Click:\Click na D :\1.txt. Dim retval As Long " vrni vrednost "Kopiraj datoteko retval = CopyFile("C:\1.txt", "D:\1.txt", 1) Če je retval = 0 Potem "Če MsgBox neuspešno" Ne morem kopirati" Drugače "Če je v redu MsgBox "Datoteka je kopirana." Konec, če Konec pod

Odstranitev

Na primer, želimo izbrisati datoteko 1.txt iz korena pogona C:\

Kill("C:\1.txt")

API način

Private Declare Funkcija DeleteFile Lib _ "kernel32.dll" Alias ​​"DeleteFileA" (ByVal lpFileName kot niz) As Long Private Sub Command1_Click() "Delete File C:\Samples\anyfile.txt Dim retval As Long "Return Val DeleteFile( "C:\1.txt") Če je retval = 1, potem MsgBox "Datoteka je bila uspešno izbrisana." konec sub

premikanje

Lahko ga na primer premaknete tako:

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

Ampak bolje je tako (prek API-ja):

Private Declare Funkcija MoveFile Lib _ "kernel32.dll" Alias ​​"MoveFileA" _ (ByVal lpExistingFileName kot niz, ByVal lpNewFileName kot niz) As Long Private Sub Command1_Click() Dim retval As Long "Return" C: Fi: Return \1 .txt", "C:\2\1.txt") Če je retval = 1, potem MsgBox "uspešno premaknjen" Drugače MsgBox "Napaka" Konec, če Konec pod

Preimenovanje

Če želite preimenovati datoteko 1.txt v C:\ v 2.txt, lahko uporabite naslednjo kodo:

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

API način

Private Declare Funkcija MoveFile Lib _ "kernel32.dll" Alias ​​"MoveFileA" _ (ByVal lpExistingFileName kot niz, ByVal lpNewFileName kot niz) As Long Private Sub Command1_Click() Dim retval As Long " vrnjena vrednost \1 .txt", "C:\2.txt") Če je retval = 1 Potem MsgBox "Uspeh" Drugače MsgBox "Napaka" Konec Če Konec Sub

Določite velikost datoteke

Velikost datoteke je mogoče določiti na dva načina:

Če lahko datoteko odprete s funkcijo OPEN, potem lahko uporabite funkcijo LOF

Zatemni FileFree kot celo število Dim FileSize As Long FileFree = FreeFile Odpri "C:\WIN\GENERAL.TXT" za vnos kot FileFree Velikost datoteke = LOF(FileFree) Zapri FileFree

Ali pa uporabite funkcijo FileLen

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

Programsko skrij uro

Dodajte 2 gumba in prilepite kodo:

Možnost Explicit Private Declare Funkcija FindWindow Lib _ "user32" vzdevek "FindWindowA" (ByVal lpClassName kot niz, ByVal lpWindowName kot niz) As Long Private Declare Funkcija FindWindowEx Lib _ "user32" vzdevek "WindowEx Lib _ "user32" Wh_V "nd_V" (Vzdevek Ex_W) Long, ByVal hWnd2 As Long, ByVal lpsz1 kot niz, ByVal lpsz2 kot niz) As Long Private Declare Funkcija ShowWindow Lib _ "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Dim hnd As Long Private_ ShowWindow hnd, 0 Konec podzasebnega podukaza2_Klik() ShowWindow hnd, 1 Konec podzasebnega podzasebnega podobrazca_Load() hnd = FindWindow("Shell_TrayWnd", vbNullString) hnd = FindWindowEx(hnd, 0, "StreyNotifyNhinWnd" Str. FindWindowEx(hnd, 0, "StreyNotifyNhinWnd") hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Skrij uro" Command2.Caption = "Pokaži uro" Končni pod

Dodaj ikono v pladenj

Dodajte modul, vanj prilepite kodo:

Razglasite funkcijo Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage As Long, lpData kot NOTIFYICONDATA) Kot celo število Public Const NIM_ADD = 0 Public Const NIM_MODIFY = 1 Public Const NIM_DELETE = 2 Public Const NIM_DELETE = 2 Public Const NIF NI_M Public Const NI 1 P Public Const Tip NOTIFYICONDATA cbSize As Long hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 End Type Public Function SetTrayIcon(Mode As Long, hWnd As Long, Icon As Long, Tip As String) As Long Dim nidTemp As NOTIFYICONDATA nidTemp.cbSize = Len(nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0& nidTemp.uFlags = NIF_ICON Ali NIF_TIP nidTemp.uCallbackMessage = 0& nidTemp = tip nidTemp(nidTemp) &zTemp. Shell_NotifyIconA(Mode, nidTemp) Končna funkcija

Če želite uporabiti prilepi v kodi obrazca:

Private Sub Form_Load() SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "Če želite izbrisati zasebni pod Command1_Click() SetTrayIcon NIM_DELETE, Me.hWnd, 0&, "" End Sub

Blokiranje gumba za zagon

Private Declare Funkcija FindWindow Lib "user32" Alias ​​"FindWindowA" _ (ByVal lpClassName kot niz, ByVal lpWindowName kot niz) As Long Private Declare Funkcija FindWindowEx Lib "user32" Alias ​​"FindWindowEx Lib "user32" Alias ​​"FindWindowEx kot V, WBExy" kot V hWnd2 As Long, ByVal lpsz1 Kot niz, ByVal lpsz2 Kot Niz) As Long Private Declare Funkcija EnableWindow Lib "user32" _ (ByVal hwnd As Long, ByVal fEnable As Tru) As Long Public Sub EnableStartButton (Izbirno EnableStartButton) Di Bodance Enabled As lHwnd As Long " find hWnd lHwnd& = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString) Pokliči EnableWindow(lHwnd&, CLng(Enabled)) Konec podzasebnega gumba za podzasebno podukaz (Start) EnBStareklik onemogočeno End Sub Private Sub Command2_Click() EnableStartButton True "Gumb Start ni onemogočen Konec sub

Branje parametrov iz datoteke INI

Program se poveže na FTP, parametri pa so zapisani v ini datoteko - strežnik, prijava, vrata, geslo.

Najprej ustvarite datoteko INI:

Servname=server usern=Prijava pwd=geslo vrata=vrata

Postaviti ga je treba v mapo s programom. Nato v modul vstavite:

Private Declare Funkcija WritePrivateProfileString Lib _ "kernel32" Alias ​​"WritePrivateProfileStringA" (ByVal lpApplicationName kot niz, ByVal lpKeyName kot niz, _ ByVal lpString kot niz, ByVal lpString kot niz, ByVal lpString kot niz, ByVal lpString kot niz, ByVal lpString kot niz, ByVal lpString kot niz, ByVal lpString kot niz, ByVal lpString kot niz, ByVal lpString kot string, ByVal lpApplicationName As lpFi. ​"GetPrivateProfileStringA" (ByVal lpApplicationName kot niz, ByVal lpKeyName kot niz, _ ByVal lpDefault kot niz, ByVal lpReturnedString kot niz, _ ByVal nSize As Long, ByVal lpKeyName kot String As) String ReadIni = GetValue (Razdel, Param, App.Path & "\test.ini", "0") Končna funkcija Zasebna funkcija GetValue (razdelek ByVal kot niz, _ ByVal ključ kot niz, ByVal fFileName kot niz, izbirna ByVal DefaultValue kot String = vbNullString) Kot niz zatemnjenih podatkov Kot niz podatkov = String$(1000, Chr$(0)) Če GetPrivateProfileString(Section, Key, DefaultValue, Data, 1000, fFileName) > 0 Potem GetValue = Left$(Data, InStr( Data$, Chr $(0)) - 1 ) Else GetValue = Konec privzete vrednosti Če Izhod iz funkcije Konec funkcije

Nato prilepite kodo obrazca:

Private Declare Function InternetOpen Lib _ "wininet.dll" Alias ​​"InternetOpenA" (ByVal sAgent kot niz, ByVal nAccessType As Long, ByVal sProxyName kot niz, _ ByVal sProxyBypass kot niz, ByVal nFlags kot dolgi internetni zastavica) Lib _ "wininet.dll" vzdevek "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName kot niz, _ ByVal nServerPort kot celo število, ByVal sUserName kot niz, ByVal sPassword kot niz, ByVal V kot dolgo_, ByVal V kot dolgo_ d , ByVal dwContext As Long) As Long Private Declare Funkcija FtpPutFile Lib _ "wininet.dll" Alias ​​"FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _ ByVal lpszRemote, ByVal lpszRemote, Z V Long) As Boolean Private Declare Funkcija FtpGetFile Lib _ "wininet.dll" vzdevek "FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile kot niz, _ ByVal lpszNewFile kot fstring, ByVal kot niz, ByVal, A. _ ByVal dwFlags As Long, ByVal dwContext As Long) Kot Boolean Private Declare Funkcija InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Long) As Integer Dim rc& Dim rs&

In v kodi gumba:

Seznam tekočih procesov

Dodajte seznamsko polje in gumb 1, prilepite naslednjo kodo:

Možnost Explicit Private Declare Funkcija CreateToolhelpSnapshot Lib _ "Kernel32" Alias ​​"CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function ProcessFirst Lib _ "3Kas" V Dokler, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib _ "Kernel32" Alias ​​"Process32Next" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Sub CloseHandle Lib2h "KBass V ) Private Const TH32CS_SNAPPROCESS As Long = 2& Private Const MAX_PATH As Integer = 260 Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long th32ModuleID As Long As Long As cntTh_PATH Long As Long AsLongsPrishChPath. End TypeSnaphot DimSnaphot Dim uProces As PROCESSENTRY32 Dim r As Long Private Sub Command1_Click() List1.Clear hSnapShot = Cre ateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) Če je hSnapShot = 0, potem Exit Sub End Če je uProcess.dwSize = Len(uProcess) r = ProcessFirst(hSnapShot, uProcess) Do While r List1.AddItem uNecessle.szhotSzhot SzFi Process CloseHandle(hSnapShot) End Sub

Postavljanje programa ob zagonu

Da se program naloži z operacijskim sistemom Windows, tako kot nekateri drugi programi, lahko uporabite register:

Dodajte 2 gumba in naslednjo kodo:

Private Sub Command1_Click() "Registry Write Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name of your program", _ "Poth do your program" End Sub Private Sub Command2_Click() "Izbriši iz registra Set Reg = CreateObject("WScript.Shell") Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name of your program" End Sub

In da se program naloži z Windows, tudi v varni način, potem ta koda:

Za začetek bolj resen način (naredite za vsak slučaj rezerva register).

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Pot do vašega podukaza" End Sub_C Private To je za obnovitev Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Explorer.exe," End Sub

No, lahek način.

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C:\\WINDOWS\exe\use" ,Pot do vašega programa" Konec Sub Private Sub Command2_Click()"Za obnovitev Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon_Userinit", \\WINDOWS\\system32\\userinit.exe," End Sub

Skrij opravilno vrstico

Dodajte 2 gumba in prilepite kodo:

Private Declare Function 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 wFlags As Long) Funkcija FindWindow Lib "user32" Vzdevek "FindWindowA" _ (ByVal lpClassName kot niz, ByVal lpWindowName kot niz) As Long Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOW = &H40 Command (Skrij podzasebni ukaz) (1hw_tra) ") Pokliči SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Pokaži zasebni podukaz2_Click() hwnd1 = FindWindow("Shell_traywnd", "") Pokliči SetWindowPos(hwnd1, 0, 0, 0, SWP_SHOWWINDOW) Konec pod

Razpakirajte arhiv RAR

Če želite razpakirati arhiv RAR, lahko uporabite naslednjo kodo:

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

Koliko RAM-a je v računalniku

Dodajte en gumb in prilepite naslednjo kodo:

Zasebno ugotovi Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer Kot TMemoryStatus) Zasebno Vrsta TMemoryStatus dwLength Dokler dwMemoryLoad Dokler dwTotalPhys Dokler dwAvailPhys Dokler dwTotalPageFile Dokler dwAvailPageFile Dokler dwTotalVirtual Dokler dwAvailPageFile Dokler dwTotalVirtual Dokler dwAvailPageFile Dokler dwTotalVirtual Dokler dwAvailPageFile Kot Long End TMemoryStatus() ms.dwLength = Len(ms) Call GlobalMemoryStatus(ms) MsgBox "Skupaj:" & ms.dwTotalPhys & vbCr & "Free:" _ & ms.dwAvailPhys & vbCr &" & "Used v % : ms.dwMemoryLoad End Sub

Skrij ikone na namizju

To se naredi na naslednji način. Dodajte 2 gumba in prilepite naslednjo kodo:

Funkcija zasebne izjave ShowWindow& Lib "user32" (ByVal hwnd&, ByVal nCmdShow&) Funkcija zasebne izjave FindWindow Lib _ "user32" vzdevek "FindWindowA" (ByVal lpClassName As String, ByVal nCmdShow&) Zasebna deklarirana funkcija FindWindow Lib _ "user32" vzdevek "FindWindowA" (ByVal lpClassName As String, ByVal Nam kot String, ByVal Na Con_St. 1 zasebni podukaz1_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) Call ShowWindow(hHandle, SW_HIDE) Konec podzasebnega podukaza2_Click() Dim hHandle As Long hHandle("progman", vbNullString) Call ShowWindow(hHandle, SW_HIDE) Konec podzasebnega podukaza2_Click() Dim hHandle As Long hHandle("progman", vbNullString) Call ShowWindow(hHandle, SW_HIDE) Konec podzasebnega podukaza2_Click() Dim hHandle As Long hHandle("progman", vbNullString) Call ShowWindow(hHandle, SW_HIDE) Konec podzasebnega podukaza2_Click() Dim hHandle As Long hHandle("progman", vbNullString) (hHandle , SW_NORMAL) Končni pod

Z gumbom Command1 so ikone skrite, Command2 - se prikažejo.

To je vse, kar imam, upam, da vam bodo zgornji primeri koristni, adijo!

Osnove programiranja.

Programski jezik majhna Osnovni

1. lekcija: Uvod v programsko okolje majhna Osnovni .

Cilj: predstaviti s programskim jezikom Small Basic.

Naloge:

Začnite se učiti programskega jezika Small Basic. Podajte koncept OOP (objektno usmerjeno programiranje)

Naučite se delati v tem programskem okolju. P spoznati "besedilni objekt" okolja Small Basic.

Dajte prvo idejo o ustvarjanju programov v programskem okolju.

Glavne izobraževalne naloge projekta:

Vzgoja osebnih lastnosti: namenskost, pozornost, natančnost, objektivnost v samozavesti, odgovornost, kognitivni interes.

Glavne razvojne naloge projekta:

Pri učencih oblikovati ključne kompetence, ki prispevajo k uspešni socialni prilagoditvi;

Razvijati željo po samorazvoju in osebni rasti s kognitivno aktivnostjo.

vedeti: Osnovni pojmi: objekt, spremenljivke, dodelitev, tipi podatkov, vhod-izhod.Spoznajte sestavne elemente programskega okolja Small Basic.

Biti zmožen: Prenesite program Smal Basic. Ustvarite preproste projekte v tem programskem okolju. Znati vnašati matematične funkcije in pisati matematične izraze v jeziku Smal Basic. Napišite preproste linearne programe.

Oprema in material: osnovne zapiske predavanj (prim.Priloga 1 ), kartice z opravili, osebni računalnik, aplikacija Small Basic, tabla, multimedijski projektor, zaslon.

Med poukom:

Organiziranje časa

1. Priprava na lekcijo

   Posodobitev znanja

Razlaga novega gradiva

Utrjevanje preučenega gradiva

1. Povezana vprašanja

Povzetek

1. Ocenjevanje

   Domača naloga

Organiziranje časa

1. Priprava na lekcijo (preveri pripravljenost na lekcijo, označi odsoten)

   Posodobitev znanja

Čemu je programiranje?

Želite napisati povzetek iz biologije. Najverjetneje ga boste napisali na računalniku v kakšnem urejevalniku besedil. In od kod je prišlo urejevalnik besedil? Seveda so ga napisali programerji. Po internetu boste iskali informacije s pomočjo brskalnika, ki so ga napisali tudi programerji. Ko napišete svoj esej, se boste želeli sprostiti in igrati računalniško igrico, ki so jo spet napisali programerji. Na splošno je delo na računalniku nemogoče brez uporabe programov, ki jih pišejo programerji. To pomeni, da če ne bi bilo programiranja, ne bi bilo programov, računalnik pa bi bil kup drage strojne opreme, saj je s pomočjo računalnika brez programov nemogoče nekaj narediti.

Faze reševanja problema.

Osnovni koncepti

Programiranje - pisanje programov.

Program Algoritem, napisan v programskem jeziku, razumljivem računalniku.

algoritem - jasno zaporedje dejanj, namenjenih doseganju cilja.

V objektno usmerjenem programiranju uveden je koncept predmeta, implementirani so mehanizmi izračuna, ki omogočajo:

Opišite strukturo predmeta

Opišite dejanja s predmeti

Uporabite posebna pravila za dedovanje objektov (Dedovanje pomeni ustvarjanje novih predmetov iz obstoječih)

Nastavite stopnjo zaščite komponent objekta

teorija

Prvo srečanje

Microsoft Small Basic - programski jezik, ki ga je razvil . Zasnovan za razvijalce začetnike, ki se želijo naučiti osnov ustvarjanja programov.

Glavne prednosti:

Zelo preprosto razvojno okolje - urejevalnik besedil z večnamenskim opisom orodja in le nekaj gumbi za urejanje besedila in zagon programov.

Preprost jezik s samo 20 ključnimi besedami

Kontekstualna dokumentacija, vgrajena v razvojno okolje za vse elemente jezika

Sposobnost razširitve komponent Small Basic za vključitev dodatnih funkcionalnosti. (Dostava že vključuje funkcije za delo s storitvami)

Posebno prednost BASIC-a je treba upoštevati zmožnost dela v interpretacijskem načinu, ki močno poenostavi postopek odpravljanja napak v programih: izvajanje skoraj vsakega ukaza je mogoče preveriti takoj po pisanju.

Izhodni operater

Prikaže niz (besedilo oz številko )

Zdravo!

Če želite dobiti rezultat - izpis besedila "Pozdravljeni!" na zaslonu - morate napisati program:

TextWindow.WriteLine("Živjo!")

Program se vnese v oknomajhnaOsnovniin začnite z gumbomkosilo ali ključ F 5

Rezultat programa je izhod besedila: "Pozdravljeni!" vbesedilno polje programi.

Niz pomeni "Pritisnite katero koli tipko za nadaljevanje ...."

TextWindow je objekt "besedilnega okna", v katerem je mogoče prikazati besedilo.

Objekt ima lastnosti in metode.

Objektna metoda - kaj zmore objekt, tjoperacije (operaterji )

Parameter operacije so zaprte v oklepajih WriteLine()

Isti predmet besedilno polje ima lastnosti (to so značilnosti predmeta) , na primer

Lastnost BackgroundColor – nastavi barvo ozadja za besedilo,Barva ospredja- barva besedila

Barve:

rumena

zelena

modra

Črna

belo

rdeča

rumena

zelena

modra

črna

Bela

Spremenljivka

Spremenljivke se pogosto uporabljajo za ustvarjanje programov.

spremenljivka imaime - latinična črka (a)

Spremenljivki je mogoče dodeliti vrednost, na primer številko

a= 5, kjer je znak " = « - to operaterja dodelitve

a = a + 5

Vzemite vrednost spremenljivke a

Dodajte mu 5

Spremenljivki a nastavite novo vrednost in iz nje izbrišete prejšnjo

Spremenljivka je dveh vrst: številka in vrstico

10, -5, 3.14 "računalništvo"

pomnoži *

Razdeli /

Matematična dejanja:

Sinus, logaritem, koren

lepilo

Razdelite na dele

Išči simboli

Zamenjajte znake

PRIMER z operater "+"

izražanje

rezultat

izražanje

rezultat

"ivan" + "ova"

"ivanova"

"razred" + 10

"razred 10"

Programiranje

Primer 1: rezultat programa

Primer 2: rezultat programa

Primer 3: Program izračuna in prikaže vsoto dveh spremenljivka in b

modul

Math.Cos( številko)

kosinus

Matematični strop (številka)

zaokroži na celo število

Math.GetDegrees( številko)

pretvarjanje števila iz radianov v stopinje

Math.GetRandomNumber( največje število)

Naključno število v območju od 1 donajvečje število

NaturalLog (število)

naravni logaritem

Matematika Pi

Pi

Math.Power( osnovna številka, eksponent)

IN odvig baseNamber na potenco eksponenta

matematika. max(število1,število2)

Največ dve številki

matematika. Preostanek (dividenda, delilec)

Preostanek divizije

matematika .Sin(število)

Sinus

matematika. Tan(številko)

kosinus

matematika .ScuareRoot(število)

koren

matematika. Okrogla(številko)

Normalno zaokroževanje

matematika .ArcSin(število)

Arcsinus

matematika. nadstropje(številko)

Zaokroži navzdol na najbližje najmanjše celo število

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("y enaka "+y)

Pritrditev materiala

1. Samostojno praktično delo na osebnem računalniku

Naloge za samostojno delo

1. vaja:

Določite končne rezultate stavkov o dodelitvi

Y=2

X=X+2

Y=X*2

X=Y

A= 15

B=A

A=B/5+2

B=A*3

A=0

2. naloga : Napišite program za izračun produkta 3 spremenljivk:a , b in c .

3. naloga : Napišite program za izračun izraza:z=5* x+ y/2 (ob predpostavki x=10,y=100)

4. naloga: Napišite program za izpis vrednosti X inY, v skladu z nalogo 1.

5. naloga: Napišite program za iskanje diskriminanta

6. naloga : oceni izraze

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

Cos 2 (Pi/4)+ Greh 2 (Pi/2) (1 )

( 1)

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

X 1,2 \u003d (ko \u003d 2, b=6, c=4 , x 1=-1, x 2=-2)

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

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

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

vprašanja

Kaj je program?

Čemu so programski jeziki?

Kateri so osnovni elementi objektno usmerjenega programiranja?

Katere operacije je mogoče izvesti v "besedilnem oknu"?

Kaj pomeni operator dodelitve:

Katere vrste podatkov se uporabljajo v Small Basic?

Kako so napisani V/I stavki?

Povzetek

1. Ocenjevanje

   Domača naloga

Job s povzetkom

pripravi sporočilo na temo: "Različni programski jeziki"

Naredite program izračun površine trikotnika po Heronovi formuli

Dodatek

OK 1: Osnove programiranja v jeziku majhna Osnovni .

Programiranje - pisanje programov.

ALGORITEM + PROGRAMSKI JEZIK= PROGRAM

Spremenljivka

spremenljivka imaime - latinične črke (npr.a , IN , x1 , C9 )

Spremenljivki je mogoče dodeliti vrednost

Primer: a = 5 , kjer je znak " = « - to operaterja dodelitve

Spremenljivka je dveh vrst: številko in vrstico (zaporedje znakov)

10, -5, 3.14 "računalništvo"

pomnoži *

Razdeli /

Matematična dejanja:

Sinus, logaritem, koren

lepilo

Razdelite na dele

Išči simboli

Zamenjajte znake

Programiranje

TextWindow- to predmet "okno z besedilom" , v katerem je mogoče prikazati besedilo.

Parameter delovanja v oklepaju - WriteLine()

Predmet besedilno polje ima lastnosti , na primer

Lastnina Barva ozadja - nastavi barvo ozadja za besedilo,Barva ospredja - barva besedila

Uporabljene barve:

rumena

zelena

modra

Črna

belo

rdeča

rumena

zelena

modra

črna

Bela

Majhni osnovni operaterji

Operater "+".

Uporaba matematičnih funkcij v izrazu

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("y enaka "+y)

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

Program za izračun vsote dveh spremenljivkampak in b

TextWindow.WriteLine("Vnesite vrednost spremenljivke a")

a=TextWindow.ReadNumber()

TextWindow.WriteLine("Vnesite vrednost spremenljivke b")

b=TextWindow.ReadNumber()

s=a+b

TextWindow.WriteLine(" vsota števil je "+s)

Program se vnese v oknomajhnaOsnovniin začnite z gumbomkosilo ali ključ F 5.

vrstica Pritisnite kaj ključ nadaljevati ... pomeni " za nadaljevanje pritisnite katerikoli gumb

Eclipse je razširljiva razvojna platforma z izvajalnimi in aplikacijskimi platformami za ustvarjanje, uporabo in upravljanje programske opreme skozi njen življenjski cikel. Mnogi ljudje poznajo Eclipse kot Java IDE, vendar je Eclipse dejansko sestavljen iz več kot 60 različnih odprtokodnih projektov, razdelek

Brezplačno odprtokodno Mac Windows Linux