Majhne osnovne že pripravljene kode. Jezik Visual Basic – primeri pisanja kode

Pozdravljeni vsi, v tem članku vam želim pokazati nekaj uporabnih majhnih programskih kod. S katerimi lahko pišete svoje resnejše programe, no ali pa ste iskali točno te funkcije, ki so opisane tukaj.

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

Izhod s potrditvijo

Prva vrsta programa ali funkcije je izhod s potrditvenim sporočilom za izhod. Na splošno odprite programsko okolje Visual Basic, ustvarite standardni projekt, nato postavite en gumb na obrazec, kliknite gumb in videli boste okno za urejanje kode, kjer morate vstaviti 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 If Pword<>Geslo Nato MsgBox "Geslo ni pravilno" Konec Konec Če

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

Prikaz sporočila

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

Beep Dim message As String Dim buttonsanddicons As Integer Dim title 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 Končni podzasebni podobrazec_MouseMove (gumb kot celo število, premik kot celo število, X kot enojni, Y kot Enojno) Če je gumb = 1, potem vrstica (Oblika1.CurrentX, Form1.CurrentY) - (X, Y), QBColor (0) Konec, če Konec pod

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

Znova zaženite računalnik

Č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 se prikaže ustrezno sporočilo. V obrazec vstavite kodo:

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

Izklop računalnika

Če želite izklopiti računalnik, lahko uporabite naslednjo kodo:

Dim strComputer Kot niz strComputer = "." Nastavite objWMIService = GetObject ("winmgmts:" & "(impersonationLevel = impersonate, (Shutdown))! \\" _ & strComputer & "\ root \ cimv2") Nastavite colOperatingSystems = objWMIService.ExeperacQuery ("For Win3jOlect2_Osebe za Win3jOlectO") V colOperatingSystems ObjOperatingSystem.ShutDown "Za izklop Naprej

Zaključek katerega koli postopka

Za dokončanje postopka 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

Spodaj je primer, kako lahko določite čas delovanja vašega računalnika. Ta metoda temelji na uporabi knjižnice kernel32, zato vključite ta DLL na sam začetek kode obrazca.

Private Declare Function GetTickCount Lib "kernel32" () As Long "In v kodo gumba: Dim a_hour, a_minute, a_second a = Format (GetTickCount () / 1000," 0 ")" samo sekunde 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 deluje" & Str (a_days) " "& Str (a_ura) _ &" ure "& Str (a_minuta) &" minute "& Str (a_sekunda) &" sekunde "

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

Primeri dela z mapami

Izbriši imenik

Ustvari imenik

Seznam vseh map s podmapami

V obrazec dodajte 2 besedilni polji in gumb, ime prvega besedilnega polja: 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 Nato teče = False CmdStart.Enabled = False CmdStart.Caption = "Ustavi" 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 $ (pod_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

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

Velikost kataloga

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 je v imeniku 2 že datoteka z imenom 1.txt, bo nadomeščena z 1.txt iz imenika 1.

Private Declare Function CopyFile Lib _ "kernel32.dll" vzdevek "CopyFileA" _ (ByVal lpExistingFileName kot niz, ByVal lpNewFileName kot niz, ByVal bFailIfExists tako dolgo) As Long Private Sub Command (Ukaz 1_Click: "Click. na D : \ 1.txt. Dim retval As Long "vrnjena vrednost" Kopiraj datoteko retval = CopyFile ("C: \ 1.txt", "D: \ 1.txt", 1) Če je retval = 0 Potem "Če MsgBox napaka" Ne morem kopirati "Drugo" Če je vse v redu MsgBox "Datoteka je kopirana." Konec, če Konec pod

Brisanje

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 As String) As Long Private Sub Command1_Click () "Izbriši datoteko C: \ Samples \ anyfile.txt Dim retval As Long" Vrnjena vrednost DeleteFile ( "C: \ 1.txt") Če je retval = 1, potem MsgBox "Datoteka je bila uspešno izbrisana." Končni 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" vzdevek "MoveFileA" _ (ByVal lpExistingFileName kot niz, ByVal lpNewFileName kot niz) As Long Private Sub Command1_Click () Dim retval As Long "Vrni vrednost C: Mo Fi" \ 1 .txt "," C: \ 2 \ 1.txt ") Če je retval = 1 Potem MsgBox" Uspešno premaknjen "Else MsgBox" Napaka "End If End Sub

Preimenovanje

Če želite preimenovati datoteko 1.txt, ki se nahaja 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 "return C" = Mo Fi vrednost \ 1 .txt "," C: \ 2.txt ") Če je retval = 1 Potem MsgBox" Uspešno "Else MsgBox" Napaka "End If End Sub

Določite velikost datoteke

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

Če lahko datoteko odprete s funkcijo OPEN, 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" Alias ​​"FindWindowA" (ByVal lpClassName kot niz, ByVal lpWindowName kot niz) As Long Private Declare Funkcija FindWindowEx Lib _ "user32" vzdevek WindowEx (WindowEx) (v. 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 ShowW hnd, 0 End Sub Private Sub Command2_Click () ShowWindow hnd, 1 End Sub Private Sub Form_Load () hnd = FindWindow ("Shell_TrayWnd", vbNullString) hnd = FindWindowEx (hnd, 0, "TrayBNundStr = FindWind", 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 Javna konst NIM_ADD = 0 Javna konst NIM_MODIFY = 1 Javna konst NIM_DELETE = 2 Javna konst NIM_DELETE = 2 Javna konst NIM_DELETE = 2 Javna konst. hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 Končna vrsta javne funkcije 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 & nidTraycon = Shell_NotifyIconA (Način, zabava nidTemp)

Za uporabo prilepite v kodo obrazca:

Private Sub Form_Load () SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "Če želite odstraniti zasebni pod Command1_Kliknite () 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 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 Body Enabled As Long lHwnd As Long " find hWnd lHwnd & = FindWindowEx (FindWindow ("Shell_TrayWnd", ""), 0 &, "Button", vbNullString) Pokliči EnableWindow (lHwnd &, CLng (Enabled)) End Sub Private Sub Command (Enable Stars) EnStare "Gumb START je zaklenjen Končni podzasebni podukaz2_Klikni () EnableStartButton True "Gumb START ni zaklenjen Konec sub

Branje parametrov iz datoteke INI

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

Od začetka ustvarimo datoteko INI:

Ime strežnika = uporabnik strežnika = prijava pwd = geslo vrata = vrata

Postavite ga v mapo programa. Nato v modul vstavimo:

Private Declare Funkcija WritePrivateProfileString Lib _ "kernel32" vzdevek "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 string, ByVal Name Private lpFi) ByVal lpApplicationName kot niz, ByVal lpKeyName kot niz, _ ByVal lpDefault kot niz, ByVal lpReturnedString kot niz, _ ByVal nSize As Long, ByVal lpFileName kot niz) kot dolga javna funkcija kot ReadIni (Radel String, Brani parameter String) 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 niz = vbNullString) Kot niz Dim Podatki kot niz Podatki = 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 prilepimo v 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 kot dolgi december) Lib _ "wininet.dll" vzdevek "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName kot niz, _ ByVal nServerPort kot celo število, ByVal uporabniško ime kot niz, ByVal sPassword kot niz, ByVal V kot dolgo_, ByVal V kot d. , ByVal dwVFlags As Long, ByVal dwVFlags As Long, ByVal Long) As Long Private Declare Funkcija FtpPutFile Lib _ "wininet.dll" Alias ​​"FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszRing, ByVal St. ByVal dwFlags As Long, ByVal dw) AsContext Asole Dolga funkcija FtpGetFile Lib _ "wininet.dll" Alias ​​"FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ ByVal lpszRemoteFile As String, _ ByVal As F ring, St. , LongAndAttributes _ 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, vstavite naslednjo kodo:

Možnost Explicit Private Declare Funkcija CreateToolhelpSnapshot Lib _ vzdevek "Kernel32" "CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function ProcessFirst Lib _ "3Kas" V Dokler PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib _ "Kernel32" Alias ​​"Process32Next" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Sub CloseHandle Lib "Kernel As V32" Const TH32CS_SNAPPRO = 2 & Private Const MAX_PATH As Integer = 260 Zasebni tip PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32Default EndHeapID As Long th32PCModuleID As Long cntThreads As Long CntThreads As LongPricessRY As dwBSSla As Long PricessShot3 As dwBsm r As Long Private Sub Command1_Klik () Seznam1.Clear hSnapShot = Cre ateToolhelpSnapshot (TH32CS_SNAPPROCESS, 0 &) Če je hSnapShot = 0, potem Exit Sub End Če uProcess.dwSize = Len (uProcess) r = ProcessFirst (hSnapShot, uProcess) Do While Call r List1.AddItemS uProcessleShot.sz = Exna ProcessHot.sz Končni sub

Postavljanje programa ob zagonu

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

Dodajte 2 gumba in naslednjo kodo:

Private Sub Command1_Klik () "Vnos v register Set Reg = CreateObject (" WScript.Shell ") Reg.RegWrite" HKLM \ Programska oprema \ Microsoft \ Windows \ CurrentVersion \ Run \ Ime vašega programa ", _" Pot do vašega programa "End Sub Private Sub Command2_Click () "Brisanje iz registra Set Reg = CreateObject (" WScript.Shell ") Reg.RegDelete" HKLM \ Programska oprema \ Microsoft \ Windows \ CurrentVersion \ Run \ Ime vašega programa "End Sub

In da se program naloži skupaj z Windows, tudi v varnem načinu, potem naslednja koda:

Za začetek bolj resen način (za vsak slučaj naredite varnostno kopijo registra).

Private Sub Command1_Klik () Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Shell", _ "Pot do vašega programa" End Sub Private Sub Command2_Kliknite 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 \\ system32 \\ useri. , Pot do vašega programa "End Sub Private Sub Command2_Click ()" Za obnovitev Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Userinit", _ "C : \\ 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" Alias ​​"FindWindowA" _ (ByVal lpClassName kot niz, ByVal lpWindowName kot niz) As Long Const SWP_HIDEWINDOW = & H80 Const SWP_SHOWWINDOW = & H40 Sub Command (H40 Sub Commands Hide) (Zasebni ukaz HideWick Hide) Shell_trawindow ("" Shell_trawindow) Call SetWindowPos (hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Pokaže zasebni podukaz2_Click () hwnd1 = FindWindow (" Shell_traywnd SetW,"ndPos Call SetW,"ndPos ) 0, 0, 0, 0, SWP_SHOWWINDOW) Konec pod

Razpakirajte arhiv RAR

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

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

Koliko RAM-a je v računalniku

Dodajte en gumb in prilepite naslednjo kodo:

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As TMemoryStatus) Zasebni tip TMemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long DwTotalPageFile As Long LenageTotal) " & ms.dwTotalPhys & vbCr & "Brezplačno:" _ & ms.dwAvailPhys & vbCr & "Used in%:" & ms.dwMemoryLoad End Sub

Skrij ikone na namizju

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

Funkcija zasebne deklaracije ShowWindow & Lib "user32" (ByVal hwnd &, ByVal nCmdShow &) Funkcija zasebne izjave FindWindow Lib _ "user32" vzdevek "FindWindowA" (ByVal lpClassName As String, ByVal Name As StW, ByVal Na Con_ Long As StWinNa Con_ Long Const SW_NORMAL = 1 Private Sub Command1_Click () Dim hHandle As Long hHandle = FindWindow ("progman", vbNullString) Call ShowWindow (hHandle, SW_HIDE) End Sub Private Sub Command2_Click () Dim hHandle As Long "Find hHandle As Long" ShowWindow , SW_NORMAL) Konec pod

Gumb Command1 skrije ikone, Command2 pa prikaže ikone.

To je zame vse, upam, da vam bodo zgornji primeri za zdaj koristni!

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 Eclipse dejansko sestavlja več kot 60 različnih odprtokodnih projektov, gl.

Brezplačna odprtokodna Mac Windows Linux

Osnove programiranja.

Programski jezik Majhna Osnovni

1. lekcija: Poznavanje programskega okolja Majhna Osnovni .

Cilj: Za seznanitev s programskim jezikom Small Basic.

Naloge:

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

Naučiti se delati v tem programskem okolju. NS spoznati "besedilni objekt" okolja Smal Basic.

Dajte prvo idejo o ustvarjanju programov v programskem okolju.

Glavne izobraževalne naloge projekta:

Vzgoja osebnih lastnosti: predanost, 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 sposoben: Naložite program Smal Basic. Ustvarite najpreprostejše projekte v danem programskem okolju. Znati vnašati matematične funkcije in pisati matematične izraze v jeziku Smal Basic. Ustvarite preproste linearne programe.

Oprema in material: podporne zapiske predavanj (gl.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. Vprašanja na temo

Povzetek

1. Ocenjevanje

   Domača naloga

Organiziranje časa

1. Priprava na lekcijo (preverite pripravljenost na lekcijo, označite odsotne)

   Posodobitev znanja

Čemu je programiranje?

Želite napisati povzetek iz biologije. Najverjetneje ga boste napisali na računalniku v kakšnem urejevalniku besedil. Od kod 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 povzetek, 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 so jih napisali programerji. To pomeni, da če ne bi bilo programiranja, ne bi bilo programov, računalnik pa bi bil kup drage strojne opreme, saj je z računalnikom brez programov nemogoče narediti nekaj.

Faze reševanja problemov.

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 objekta, implementirani so bili mehanizmi za izračun, 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 predmeta

teorija

Prvo srečanje

Microsoft Small Basic - programski jezik, ki ga je razvilo podjetje. Zasnovan za razvijalce začetnike, ki želijo razumeti osnove razvoja programske opreme.

Glavne prednosti:

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

Preprost jezik s samo 20 ključnimi besedami

Kontekstualna dokumentacija za vse jezikovne elemente, vgrajene v razvojno okolje

Sposobnost razširitve komponent Small Basic za vključitev dodatnih funkcionalnosti. (Dostava že vključuje možnosti 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.

Izjava o sklepanju

Prikaže vrstico (besedilo oz številko )

Zdravo!

Če želite dobiti rezultat - izpišite besedilo "Pozdravljeni!" na zaslon - napisati morate program:

TextWindow.WriteLine ("Pozdravljeni!")

Program se vnese v oknoMajhnaOsnovniin se zažene z gumbomTek ali po ključu F 5

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

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

TextWindow je objekt besedilnega okna, v katerem se lahko prikaže besedilo.

Objekt ima lastnosti in metode.

Objektna metoda nekaj, kar je objekt sposoben narediti, tjoperacije (operaterji )

Parameter operacija je zaprta v oklepaju WriteLine()

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

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

Barve:

rumeno

zelena

modra

Črna

belo

rdeča

rumeno

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 številčno vrednost

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

a = a + 5

Vzemite vrednost spremenljivke a

Dodajte mu 5

Vnesite novo vrednost spremenljivke a in iz nje izbrišete prejšnjo

Obstajata dve vrsti spremenljivk: številka in vrstico

10, -5, 3.14 "informatika"

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 ( ime)

kosinus

matematika. strop (ime)

zaokroži na celo število

Math.GetDegrees ( ime)

pretvarjanje števila iz radianov v stopinje

Math.GetRandomNumber ( maxnamber)

Naključno število v območju od 1 domaxnamber

NaturalLog (ime)

Naravni logaritem

Math.Pi

Pi

Math.Power ( baseNamber, eksponent)

V omnoženje baseNamber na eksponent

matematika. Največ (namber1, ime2)

Največ dve številki

matematika. Preostanek (dividenda, delilec)

Preostanek divizije

matematika .Sin (namber)

Sinus

matematika. Tan(ime)

kosinus

matematika .ScuareRoot (ime)

koren

matematika. Okrogla(ime)

Normalno zaokroževanje

matematika .ArcSin (ime)

Arcsinus

matematika. Nadstropje(ime)

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

x = TextWindow.ReadNumber ()

y = Math.Abs ​​(x)

TextWindow.WriteLine ("y enaka "+ y)

Zavarovanje materiala

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

Naloge za samostojno učenje

1. vaja:

Določite končne rezultate operaterjev dodelitve

Y = 2

X = X + 2

Y = X * 2

X = Y

A = 15

B = A

A = B / 5 + 2

B = A * 3

A = 0

Naloga 2 : Ustvarite program za izračun produkta 3 spremenljivk:a , b in c .

Naloga 3 : Naredite program za izračun izraza:z=5* x+ y/ 2 (pod pogojem, da je x = 10,y=100)

4. naloga: Ustvarite program za izpis vrednosti X inY, glede na nalogo 1.

5. naloga: Ustvarite program za iskanje diskriminanta

Naloga 6 : 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 = (za a = 2, b=6, c=4 , x 1=-1, x 2=-2)

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

С = (za 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 polju"?

Kaj pomeni operator dodelitve:

Katere vrste podatkov se uporabljajo v Smal Basic?

Kako so zapisane I/O izjave?

Povzetek

1. Ocenjevanje

   Domača naloga

Delo s podpornimi opombami

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

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

Aplikacija

OK 1: Osnove programiranja v jeziku Majhna Osnovni .

Programiranje - pisanje programov.

ALGORITEM + PROGRAMSKI JEZIK= PROGRAM

Spremenljivka

Spremenljivka imaime - latinične črke (npr.a , V , x1 , C9 )

Spremenljivki je mogoče dodeliti vrednost

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

Obstajata dve vrsti spremenljivk: številko in vrstico (zaporedje znakov)

10, -5, 3.14 "informatika"

pomnoži *

Razdeli /

Matematična dejanja:

Sinus, logaritem, koren

Lepilo

Razdelite na dele

Išči simboli

Zamenjajte znake

Programiranje

TextWindow- to je predmet besedilnega okna kjer lahko prikažete besedilo.

Parameter delovanja v oklepaju - WriteLine()

Predmet besedilno polje poseduje lastnosti , na primer

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

Uporabljene barve:

rumeno

zelena

modra

Črna

belo

rdeča

rumeno

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 spremenljivka in b

TextWindow.WriteLine ("vnesite vrednost spremenljivke a")

a = TextWindow.ReadNumber ()

TextWindow.WriteLine ("vnesite vrednost za b")

b = TextWindow.ReadNumber ()

s = a + b

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

Program se vnese v oknoMajhnaOsnovniin se zažene z gumbomTek ali po ključu F 5.

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