Jazyk Visual Basic - příklady psaní kódu. Alternativy k nahrazení zdrojových kódů Microsoft Small Basic za Small Basic

Ahoj všichni, v tomto článku vám chci ukázat pár užitečných malých programových kódů. Což můžete použít k psaní vlastních serióznějších programů, no, nebo jste hledali přesně tyto funkce, které jsou zde popsány.

Všechny kódy byly použity v programovacím prostředí Microsoft Visual Basic v6.0.

Odejděte s potvrzením

Prvním druhem programu nebo funkce je ukončení s potvrzením ukončení. Obecně otevřete programovací prostředí Visual Basic, vytvořte standardní projekt, poté umístěte jedno tlačítko na formulář, klikněte na tlačítko a zobrazí se okno pro úpravu kódu a tam musíte vložit následující kód:

Beep Dim message As String Dim buttonsandicons As Integer Dim title As String Dim response As String message = "Chcete ukončit?" title = "(! LANG: Konec" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

Heslo pro spuštění programu

Dim Password, Pword PassWord = "12345" Pword = InputBox If Pword<>PassWord Then MsgBox "Heslo není správné" End End If

Kde, 12345 je heslo pro spuštění programu. Ale tento kód lze použít, kdekoli chcete.

Zobrazení zprávy

Pokud chcete pouze zobrazit zprávu pro něco, vložte toto:

Beep Dim message As String Dim buttonsandicons As Integer Dim title As String message = "Message" title = "(! LANG: Message" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

Kreslení na formuláři

Private Sub Form_MouseDown (Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.CurrentX = X Form1.CurrentY = Y End Sub Private Sub Form_MouseMove (Button As Integer, Shift As Integer, X as Single, Y As Single) If Button = 1 Then Line (Form1.CurrentX, Form1.CurrentY) - (X, Y), QBColor (0) End If End Sub

Barvu můžete změnit pomocí parametru QBColor (0), tzn. nahraďte 0 jinou číslicí.

Restartujte počítač

Chcete-li restartovat počítač: umístěte tlačítko a vložte následující kód:

Spuštění programu v jedné kopii

Následující příklad vám pomůže, aby se program spustil pouze jednou, tzn. v případě restartu zobrazí odpovídající zprávu. Vložte do kódu formuláře:

Private Sub Form_Load () If App.PrevInstance = True Then MsgBox "Projekt již běží!" End End If

Vypnutí počítače

Chcete-li vypnout počítač, můžete použít následující kód:

Dim strComputer As String strComputer = "." Nastavit objWMIService = GetObject ("winmgmts:" & "(impersonationLevel = zosobnit, (Vypnutí))! \\" _ & strComputer & "\ root \ cimv2") Set colOperatingSystems = objWMIService.ExeperacQuery ("Vybrat * z pro Win32_O každý objekt V colOperatingSystems ObjOperatingSystem.ShutDown "Chcete-li vypnout Další

Dokončení jakéhokoli procesu

K dokončení procesu můžete použít následující kód:

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

Kde místo ICQlite.exe může být jakýkoli proces.

Jak dlouho počítač funguje

Níže je uveden příklad, jak můžete určit provozní dobu vašeho počítače. Tato metoda je založeno na použití knihovny kernel32, takže tuto DLL zahrňte na úplný začátek kódu formuláře.

Private Declare Function GetTickCount Lib "kernel32" () As Long "A do kódu tlačítka: Dim a_hour, a_minute, a_second a = Format (GetTickCount () / 1000," 0 ")" only seconds 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 "Váš počítač běží" & Str (a_days) & " "& Str (a_hour) _ &" hours "& Str (a_minute) &" minutes "& Str (a_second) &" seconds "

Zvažovali jsme jednoduché funkce které lze použít téměř kdekoli. Nyní se podívejme na vážnější příklady, které vám mohou výrazně pomoci při psaní vašich velkých projektů.

Příklady práce se složkami

Smazat adresář

Vytvořit adresář

Seznam všech složek s podsložkami

Do formuláře přidejte 2 textová pole a tlačítko, název prvního textového pole: StartText, název druhého textového pole OutText. Víceřádková vlastnost = true, název tlačítka = CmdStart

Statické běží jako Boolean Dim AllDirs As New Collection Dim next_dir As Integer Dim dir_name As String Dim sub_dir As String Dim i As Integer Dim txt As String If running Then running = False CmdStart.Enabled = False CmdStart.Caption = "Stopping" Else running = 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 <>"" Pokud UCase $ (sub_dir)<>"PAGEFILE.SYS" A sub_dir<>"." A sub_dir<>".." Then sub_dir = dir_name & "\" & sub_dir On Error Pokračovat Další If GetAttr (sub_dir) And vbDirectory Then AllDirs.Add sub_dir End If sub_dir = Dir $ (, vbDirectory) Loop DoEvents If Neběží Potom Exit Do Loop txt = "" For i = 1 To AllDirs.Count txt = txt & AllDirs (i) & vbCrLf Další i OutText.Text = txt MousePointer = vbDefault unnning = False End If

Nyní spustíme program, do textového pole StartText napište: C: \ windows a klikněte na tlačítko.

Katalogová velikost

Příklady práce se soubory

kopírovat

Řekněme, že máme soubor s názvem 1.txt ve složce C: \ 1 \ a potřebujeme jej zkopírovat do C: \ 2 \, k tomu napíšeme následující kód:

Kopie souboru "C: \ 1 \ 1.txt", "C: \ 2 \ 1.txt"

Poznámka! Pokud již v adresáři 2 existuje soubor s názvem 1.txt, bude nahrazen souborem 1.txt z adresáře 1.

Private Declare Function CopyFile Lib _ "kernel32.dll" Alias ​​​​"CopyFileA" _ (ByVal lpExistingFileName jako řetězec, ByVal lpNewFileName jako řetězec, ByVal bFailIfExists as Long) As Long Private Sub Command1_Click () "Kopírovat soubor C: do D : \ 1.txt. Dim retval As Long "návratová hodnota" Kopírovat soubor retval = CopyFile ("C: \ 1.txt", "D: \ 1.txt", 1) If retval = 0 Pak "If MsgBox chyba" Nelze zkopírovat "Else" Pokud je vše v pořádku MsgBox "Soubor zkopírován." End If End Sub

Mazání

Například chceme odstranit soubor 1.txt z kořenového adresáře jednotky C: \

Zabít ("C: \ 1.txt")

způsobem API

Private Declare Function DeleteFile Lib _ "kernel32.dll" Alias ​​​​"DeleteFileA" (ByVal lpFileName As String) As Long Private Sub Command1_Click () "Smazat soubor C: \ Samples \ anyfile.txt Dim retval As Long" Návratová hodnota retval = DeleteFile ( "C: \ 1.txt") Pokud retval = 1, pak MsgBox "Soubor byl úspěšně odstraněn." End Sub

Stěhování

Můžete jej přesunout například takto:

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

Ale je to lepší takto (přes API):

Private Declare Function MoveFile Lib _ "kernel32.dll" Alias ​​​​"MoveFileA" _ (ByVal lpExistingFileName jako řetězec, ByVal lpNewFileName jako řetězec) As Long Private Sub Command1_Click () Dim retval As Long "Vrácená hodnota retval = MoveFile (" C \ 1 .txt "," C: \ 2 \ 1.txt ") If retval = 1 Then MsgBox" Úspěšně přesunuto "Else MsgBox" Chyba "End If End Sub

Přejmenování

Chcete-li přejmenovat soubor 1.txt umístěný v C: \ na 2.txt, můžete použít následující kód:

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

způsobem API

Private Declare Function MoveFile Lib _ "kernel32.dll" Alias ​​​​"MoveFileA" _ (ByVal lpExistingFileName jako řetězec, ByVal lpNewFileName jako řetězec) As Long Private Sub Command1_Click () Dim retval As Long "return value retval = MoveFile (" C \ 1 .txt "," C: \ 2.txt ") If retval = 1 Then MsgBox" Success "Else MsgBox" Error "End If End Sub

Určete velikost souboru

Velikost souboru lze určit dvěma způsoby:

Pokud lze soubor otevřít pomocí funkce OPEN, můžete použít funkci LOF

Dim FileFree As Integer Dim FileSize as Long FileFree = FreeFile Otevřít "C: \ WIN \ GENERAL.TXT" pro vstup jako FileFree FileSize = LOF (FileFree) Zavřít FileFree

Nebo použijte funkci FileLen

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

Programově skrýt hodiny

Přidejte 2 tlačítka a vložte kód:

Možnost Explicitní Private Declare Funkce FindWindow Lib _ "user32" Alias ​​​​"FindWindowA" (ByVal lpClassName jako řetězec, ByVal lpWindowName jako řetězec) As Long Funkce soukromého deklarování FindWindowEx Lib _ "user32" Alias ​​W ​​"FindWindow (Hind_ByndW ​​"FindWindow Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function ShowWindow Lib _ "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Dim hnd As Long Private Sub Command1_Click () 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, "TrayNotifyWnd", vbNullStringWind) hnd = hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Skrýt hodiny" Command2.Caption = "Zobrazit hodiny" End Sub

Přidejte ikonu do zásobníku

Přidejte modul, vložte do něj kód:

Funkci Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) Deklarujte jako Integer Public Const NIM_ADD = 0 Public Const NIM_MODIFY = 1 Public Const NIM_DELETE = 2 Public Const NIF_2 Public ConstIFI = NIF_MESS_MESS NIM_MESS Typ NOTIFYICONDATA cbSize As Long hWnd As Long uID 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 Nebo NIF_TIP nidTemp.uCallbackMessage = 0 & ShellNot_Temp Function = 0 & ShellNotTrayAMo

Chcete-li použít, vložte do kódu formuláře:

Private Sub Form_Load () SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "Odstranění Private Sub Command1_Click () SetTrayIcon NIM_DELETE, Me.hWnd, 0 &," "End Sub

Blokování startovacího tlačítka

Funkce soukromé deklarace FindWindow Lib "user32" Alias ​​​​"FindWindowA" _ (ByVal lpClassName jako řetězec, ByVal lpWindowName jako řetězec) As Long Funkce soukromé deklarace FindWindowEx Lib "user32" Alias ​​​​"FindWindowExA" hV 1 Wnd By hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Funkce EnableWindow Lib "user32" _ (ByVal hwnd As Long, ByVal fEnable As Long) As Long Public Sub EnableStartButton (Volitelné Povoleno jako Di Bomolean = True) lHwnd As Long " find hWnd lHwnd & = FindWindowEx (FindWindow ("Shell_TrayWnd", ""), 0 &, "Button", vbNullString) Volání EnableWindow (lHwnd &, CLng (Povoleno)) End Sub Private Sub Command1_Click () Povolit "Tlačítko START je uzamčeno End Sub Private Sub Command2_Click () EnableStartButton True "Tlačítko START není uzamčeno End Sub

Čtení parametrů z INI souboru

Program se připojí k FTP a parametry se zapíší do ini souboru - server, login, port, heslo.

Od začátku vytvoříme INI soubor:

Servname = server usern = login pwd = heslo port = port

Umístěte jej do složky programu. Dále do modulu vložíme:

Private Declare Function WritePrivateProfileString Lib _ "kernel32" Alias ​​"WritePrivateProfileStringA" (ByVal lpApplicationName jako řetězec, ByVal lpKeyName jako řetězec, _ ByVal lpString jako řetězec, ByVal Function StringPrivateName As) Defilm jako funkce GetnelPrivate cllia jako soubor " (ByVal lpApplicationName jako řetězec, ByVal lpKeyName jako řetězec, _ ByVal lpDefault jako řetězec, ByVal lpReturnedString jako řetězec, _ ByVal nSize as Long, ByVal lpFileName jako řetězec) jako Long Public Function Ready String (R As) Čtení veřejné funkce jako String (R As Razdel, Param, App.Path & "\ test.ini", "0") Koncová funkce Soukromá funkce GetValue (ByVal sekce jako řetězec, _ ByVal klíč jako řetězec, ByVal fFileName jako řetězec, volitelně ByVal DefaultValue jako řetězec = vbNullString) jako String Dim Data As String Data = String $ (1000, Chr $ (0)) If GetPrivateProfileString (Section, Key, DefaultValue, Data, 1000, fFileName)> 0 Then GetValue = Left $ (Data, InStr (Data $, Chr $ (0)) - 1 ) Else GetValue = DefaultValue End If Exit Function End Function

Poté do kódu formuláře vložíme:

Private Declare Function InternetOpen Lib _ "wininet.dll" Alias ​​​​"InternetOpenA" (ByVal sAgent As String, ByVal nAccessType As Long, ByVal sProxyName as String, _ ByVal sProxyBypass As String, ByVal nFlags As Long) As LongCon Private Decl Lib _ "wininet.dll" Alias ​​​​"InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName jako String, _ ByVal nServerPort As Integer, ByVal SUserName as String, ByVal sPassword as String, ByVal nService As Long, _ ByVal nServerPort As Long, _ ByVal nServerPort As Long, _ ByVal nServerPort As Long, _ ByVal nServerPort as Long, _ ByVal nServerPort As Long, _ ByVal nServerPort as Integer , ByVal dwVFlags As Long, ByVal dwVFlags As Long, ByVal Long) As Long Soukromá deklarační funkce FtpPutFile Lib _ "wininet.dll" Alias ​​"FtpPutFileA" (ByVal hFtpSession As Long, ByVal As Strzing ByVle,l ByVal dwFlags As Long, ByVal dw) AsContext Asole Long Function FtpGetFile Lib _ "wininet.dll" Alias ​​"FtpGetFileA" (ByVal hFtpSession As Long, ByVal flag lpszRemoteFile As String, _ ByVal ByVal Exil StringsanNew, AsFal , LongAndAttributes _ ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean Private Declare Function InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Long) As Integer Dim rc & Dim rs &

A v kódu tlačítka:

Seznam běžících procesů

Přidejte seznam a tlačítko 1, vložte následující kód:

Možnost Explicitní Private Declare Funkce CreateToolhelpSnapshot Lib _ "Kernel32" Alias ​​​​"CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function ProcessFirst Lib _ "Kernel32" Snapshot Snapshot "Sho" Process As Long 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 Lib "Kernel32" hPas Long As Long As Long Const TH32CS_SNAPPRO = 2 & Private Const MAX_PATH As Integer = 260 Private Type PROCESSENTRY32 dwSize Jak dlouhé cntUsage Tak dlouhé th32ProcessID Stejně dlouhé th32DefaultHeapID Tak dlouhé th32ID modulu Jak dlouhé cntThreadsBallESSBCClag th32ProcessDlouhézPark r As Long Private Sub Command1_Click () List1.Clear hSnapShot = Cre ateToolhelpSnapshot (TH32CS_SNAPPROCESS, 0 &) If hSnapShot = 0 Pak Exit Sub End If uProcess.dwSize = Délka (uProcess) r = ProcessFirst (hSnapShot, uProcess) Proveďte během volání r List1.AddItem uHFixandlexeS ) End Sub

Uvedení programu při spuštění

Aby se program načetl společně s Windows, stejně jako některé jiné programy, můžete použít registr:

Přidejte 2 tlačítka a následující kód:

Private Sub Command1_Click () "Položka registru Set Reg = CreateObject (" WScript.Shell ") Reg.RegWrite" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ Název vašeho programu ", _" Cesta k vašemu programu "End Sub Private Sub Command2_Click () "Odstranění z registru Set Reg = CreateObject (" WScript.Shell ") Reg.RegDelete" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ Název vašeho programu "End Sub

A aby se program načetl spolu s Windows i v bezpečný režim, pak kód jako tento:

Za prvé, vážnější způsob (jen pro případ záloha registr).

Private Sub Command1_Click () Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Shell", _ "Cesta k vašemu programu" End Sub Private Sub Command2_Click () " Toto slouží k obnovení Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Shell", _ "Explorer.exe," End Sub

No, snadný způsob.

Private Sub Command1_Click () Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Userinit", _ "C: \\ WINDOWS \\ system32 \\ userinit.exe , Cesta k vašemu programu "End Sub Private Sub Command2_Click ()" Obnovení Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Userinit", _ "C : \\ WINDOWS \\ system32 \\ userinit.exe, "End Sub

Skrýt hlavní panel

Přidejte 2 tlačítka a vložte kód:

Funkce Private Declare 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) As Long Private Declare Funkce FindWindow Lib "user32" Alias ​​​​"FindWindowA" _ (ByVal lpClassName jako řetězec, ByVal lpWindowName jako řetězec) As Long Const SWP_HIDEWINDOW = & H80 Const SWP_SHOWWINDOW = & H40 "Hides Private Sub Command" (1WC1 hides)" Shell_trawindow ("" Shell_trawindow) Volání SetWindowPos (hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Shows Private Sub Command2_Click () hwnd1 = FindWindow (" Shell_traywnd "," ") Volání SetWind1Po 0, 0, 0, 0, SWP_SHOWWINDOW) End Sub

Rozbalte archiv RAR

Chcete-li rozbalit archiv RAR, můžete použít následující kód:

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

Kolik RAM je v počítači

Přidejte jedno tlačítko a vložte následující kód:

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As TMemoryStatus) Private Type TMemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long "dwAvailwatPage)StamLengsFile Global:TotalMage. " & ms.dwTotalPhys & vbCr & "Free:" _ & ms.dwAvailPhys & vbCr & "Použito v %:" & ms.dwMemoryLoad End Sub

Skrýt ikony na ploše

To se provádí následujícím způsobem. Přidejte 2 tlačítka a vložte následující kód:

Funkce Private Declare ShowWindow & Lib "user32" (ByVal hwnd &, ByVal nCmdShow &) Funkce Private Declare FindWindow Lib _ "user32" Alias ​​"FindWindowA" (ByVal lpClassName jako řetězec, ByVal lpWindowName As Long_0 SWindowName As HIDE) Const SW_NORMAL = 1 Private Sub Command1_Click () Dim hHandle As Long hHandle = FindWindow ("progman", vbNullString) Volání ShowWindow (hHandle, SW_HIDE) End Sub Private Sub Command2_Click () Dim hHandle As Long hHandle = FindWindWindow (""pro" ShowWindow , SW_NORMAL) End Sub

Tlačítko Command1 skryje ikony, Command2 zajistí zobrazení ikon.

To je pro mě vše, doufám, že výše uvedené příklady vám budou prozatím užitečné!

Základy programování.

Programovací jazyk Malý Základní

LEKCE 1: Seznámení s programovacím prostředím Malý Základní .

Cílová: Seznámit se s programovacím jazykem Malý základní.

úkoly:

Začněte se učit programovací jazyk Smal Basic. Uveďte koncept OOP (Object Oriented Programming)

Naučit se pracovat v tomto programovacím prostředí. NS seznámit se s „textovým objektem“ prostředí Smal Basic.

Poskytnout první představu o vytváření programů v programovacím prostředí.

Hlavní vzdělávací úkoly projektu:

Výchova k osobnostním kvalitám: obětavost, pozornost, přesnost, objektivita v sebeúctě, zodpovědnost, kognitivní zájem.

Hlavní rozvojové úkoly projektu:

Formovat u studentů klíčové kompetence, které přispívají k úspěšné sociální adaptaci;

Rozvíjet touhu po seberozvoji a osobním růstu prostřednictvím kognitivní činnosti.

Vědět: Základní pojmy: objekt, proměnné, přiřazení, datové typy, vstup-výstup.Znát základní prvky programovacího prostředí Small Basic.

Být schopný: Načtěte program Smal Basic. Vytvářejte ty nejjednodušší projekty v daném programovacím prostředí. Umět zadávat matematické funkce a psát matematické výrazy v jazyce Smal Basic. Vytvářejte jednoduché lineární programy.

Vybavení a materiál: podpůrné poznámky k přednáškám (viz.Příloha 1 ), karty úkolů, PC, aplikace Small Basic, tabule, multimediální projektor, plátno.

Během lekcí:

Organizace času

1. Příprava lekce

   Aktualizace znalostí

Vysvětlení nového materiálu

Konsolidace studovaného materiálu

1. Otázky k tématu

Shrnutí

1. Klasifikace

   Domácí práce

Organizace času

1. Příprava na hodinu (zkontrolovat připravenost na hodinu, označit nepřítomné)

   Aktualizace znalostí

K čemu je programování?

Chcete napsat abstrakt z biologie. S největší pravděpodobností to napíšete na počítači v nějakém textovém editoru. Odkud se to vzalo textový editor? Samozřejmě to napsali programátoři. Informace na internetu budete hledat pomocí prohlížeče, který také napsali programátoři. Po napsání abstraktu si budete chtít odpočinout a zahrát si počítačovou hru, kterou opět napsali programátoři. Obecně je práce na počítači nemožná bez použití programů napsaných programátory. To znamená, že kdyby nebylo programování, nebyly by žádné programy a počítač by byl hromada drahého hardwaru, protože s počítačem bez programů nelze něco dělat.

Etapy řešení problémů.

Základní pojmy

Programování - psaní programů.

Program - algoritmus napsaný v programovacím jazyce srozumitelném pro počítač.

Algoritmus - jasný sled akcí zaměřených na dosažení cíle.

V objektově orientovaném programování byl zaveden koncept objektu, byly implementovány výpočetní mechanismy, které umožňují:

Popište strukturu objektu

Popište akce s předměty

Použijte speciální pravidla pro dědění objektů (Dědičnost znamená vytváření nových objektů z existujících)

Nastavte stupeň ochrany součástí objektu

Teorie

První setkání

Microsoft Small Basic - programovací jazyk vyvinutý společností. Určeno pro začínající vývojáře, kteří chtějí pochopit základy vývoje softwaru.

Hlavní výhody:

Velmi jednoduché vývojové prostředí - textový editor s multifunkčním tooltipem a jen pár tlačítky pro úpravu textu a spouštění programů.

Jednoduchý jazyk s pouze 20 klíčovými slovy

Kontextová dokumentace pro všechny jazykové prvky zabudovaná do vývojového prostředí

Možnost rozšířit komponenty Small Basic o další funkce. (Například dodávka již zahrnuje příležitosti pro práci se službami)

Za zvláštní výhodu BASICu je třeba považovat schopnost pracovat v interpretačním režimu, což značně zjednodušuje proces ladění programů: provedení téměř každého příkazu lze zkontrolovat ihned po zápisu.

Inferenční prohlášení

Zobrazí řádek (text nebo číslo )

Ahoj!

Chcete-li získat výsledek, zadejte text "Ahoj!" na obrazovku - musíte napsat program:

TextWindow.WriteLine ("Ahoj!")

Program se zadá do oknaMalýZákladnía spouští se tlačítkemBěh nebo pomocí klíče F 5

Výsledkem programu je výstup textu: "Dobrý den!" protiTextové pole programy.

Řádek znamená „Pokračujte stisknutím libovolné klávesy...“.

TextWindow je objekt textového okna, ve kterém lze zobrazit text.

Objekt má vlastnosti a metody.

Objektová metoda něco, co je objekt schopen udělat, tj. jeoperace (operátory )

Parametr operace je uzavřena v závorkách WriteLine()

Stejný objekt Textové pole má vlastnosti (toto jsou vlastnosti objektu) , například

Vlastnost BackgroundColor - nastavuje barvu pozadí pro text,Barva popředí- barva textu

Barvy:

žlutá

zelená

modrý

Černá

bílý

Červené

žlutá

zelená

modrý

Černá

Bílý

Variabilní

Proměnné se často používají k vytváření programů.

Proměnná mánázev - latinské písmeno (A)

Proměnné lze přiřadit hodnotu, například číselnou hodnotu

A= 5, kde znak „ = " - tohle je operátor přiřazení

a = a + 5

Vezměte hodnotu proměnné a

Přidejte k tomu 5

Vložte novou hodnotu proměnné a a vymažte z ní předchozí

Existují dva typy proměnných: číslo a čára

10, -5, 3,14 "informatika"

Násobit *

Rozdělit /

Matematické akce:

Sinus, logaritmus, kořen

Lepidlo

Rozdělit na části

Hledat symboly

Nahraďte znaky

PŘÍKLAD s operátor "+"

výraz

výsledek

výraz

výsledek

"Ivan" + "ova"

"Ivanová"

"Třída" + 10

"Třída 10"

Programování

Příklad 1: Výsledek programu

Příklad 2: Výsledek programu

Příklad 3: Program vypočítá a zobrazí součet dvou proměnnýchA a b

modul

Math.Cos ( jméno)

kosinus

Math.Ceiling (namber)

zaokrouhluje na celé číslo

Math.GetDegrees ( jméno)

převod čísla z radiánů na stupně

Math.GetRandomNumber ( maxnamber)

Náhodné číslo v rozsahu od 1 domaxnamber

NaturalLog (jméno)

Přirozený logaritmus

Math.Pi

Pí

Math.Power ( baseNamber, exponent)

PROTI Óvynásobení baseNamber exponentem

Matematika. Max (jméno1, jméno2)

Maximálně dvě čísla

Matematika. Zbytek (dividenda, dělitel)

Zbytek divize

Matematika .Sin (namber)

Sinus

Matematika. Opálení(jméno)

Kosinus

Matematika .ScuareRoot (jméno)

Vykořenit

Matematika. Kolo(jméno)

Normální zaoblení

Matematika .ArcSin (namber)

Arcsine

Matematika. Podlaha(jméno)

Zaokrouhlí na nejbližší nejmenší celé číslo

x = TextWindow.ReadNumber ()

y = Math.Abs ​​​​(x)

TextWindow.WriteLine ("y rovná se "+ y)

Zajištění materiálu

1. Samostatná praktická práce na PC

Úkoly pro samostatná práce

Cvičení 1:

Určete konečné výsledky operátorů přiřazení

Y = 2

X = X + 2

Y = X * 2

X = Y

A = 15

B = A

A = B / 5 + 2

B = A * 3

A = 0

Zadání 2 : Vytvořte program pro výpočet součinu 3 proměnných:A , b a C .

Úkol 3 : Vytvořte program pro výpočet výrazu:z=5* X+ y/ 2 (za předpokladu x = 10,y=100)

Úkol 4: Vytvořte program pro výstup hodnot X aY, podle úkolu 1.

Úkol 5: Vytvořte program pro hledání diskriminantu

Úkol 6 : vyhodnotit výrazy

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

Cos 2 (Pí/4)+ Hřích 2 (Pí/2) (1 )

( 1)

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

X 1,2 = (pro a = 2, b=6, C=4 , X 1=-1, X 2=-2)

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

С = (pro A=4, b=9, C=13)

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

Otázky

co je to program?

K čemu jsou programovací jazyky?

Jaké jsou základní prvky objektově orientovaného programování?

Jaké operace lze provádět v „textovém poli“?

Co znamená operátor přiřazení:

Jaké typy dat se používají Malý základní?

Jak se píší I/O prohlášení?

Shrnutí

1. Klasifikace

   Domácí práce

Práce s podpůrnými poznámkami

připravit zprávu na téma: "Různé programovací jazyky"

Vytvořte program výpočet plochy trojúhelníku pomocí Heronova vzorce

aplikace

OK 1: Základy programování v jazyce Malý Základní .

Programování - psaní programů.

ALGORITMUS + PROGRAMOVACÍ JAZYK= PROGRAM

Variabilní

Proměnná mánázev - latinské písmeno (např.A , PROTI , x1 , C9 )

Proměnné lze přiřadit hodnotu

Příklad: A = 5 , kde je znak " = " - tohle je operátor přiřazení

Existují dva typy proměnných: číslo a čára (sekvence znaků)

10, -5, 3,14 "informatika"

Násobit *

Rozdělit /

Matematické akce:

Sinus, logaritmus, kořen

Lepidlo

Rozdělit na části

Hledat symboly

Nahraďte znaky

Programování

TextWindow- tohle je objekt textového okna kde můžete zobrazit text.

Operační parametr v závorkách - WriteLine()

Objekt Textové pole má vlastnosti , například

Vlastnictví Barva pozadí - nastaví barvu pozadí pro text,Barva popředí - barva textu

Použité barvy:

žlutá

zelená

modrý

Černá

bílý

Červené

žlutá

zelená

modrý

Černá

Bílý

Malí základní operátoři

operátor "+"

Použití matematických funkcí ve výrazu

x = TextWindow.ReadNumber ()

y = Math.Abs ​​​​(x)

TextWindow.WriteLine ("y rovná se "+ y)

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

Program pro výpočet součtu dvou proměnnýchA a b

TextWindow.WriteLine ("zadejte hodnotu proměnné a")

a = TextWindow.ReadNumber ()

TextWindow.WriteLine ("zadejte hodnotu pro b")

b = TextWindow.ReadNumber ()

s = a + b

TextWindow.WriteLine (" součet čísel je "+ s)

Program se zadá do oknaMalýZákladnía spouští se tlačítkemBěh nebo pomocí klíče F 5.

Čára lis žádný klíč pokračovat ... znamená " pokračujte stiskem libovolné klávesy

Eclipse je rozšiřitelná vývojová platforma s běhovými prostředími a aplikačními platformami pro vytváření, používání a správu softwaru po celou dobu jeho životního cyklu. Mnoho lidí zná Eclipse jako Java IDE, ale Eclipse se ve skutečnosti skládá z více než 60 různých open source projektů, viz.

Zdarma Open Source Mac Windows Linux