Osnove programiranja.

Programski jezik Mali Osnovno

LEKCIJA 1: Uvod u programsko okruženje Mali Osnovno .

Cilj: Predstaviti s programskim jezikom Small Basic.

Zadaci:

Počnite učiti programski jezik Mali Bašić. Dajte koncept OOP-a (objektno orijentirano programiranje)

Naučite raditi u ovom programskom okruženju. P uvesti “tekstualni objekt” okoline Mali Bašić.

Dati prvu ideju o izradi programa u programskom okruženju.

Glavni obrazovni ciljevi projekta:

Njegovanje osobnih kvaliteta: odlučnost, pažljivost, točnost, objektivnost u samopoštovanju, odgovornost, kognitivni interes.

Glavni razvojni zadaci projekta:

Razviti kod učenika ključne kompetencije koje doprinose uspješnoj socijalnoj prilagodbi;

Razviti želju za samorazvojem i osobnim rastom kroz kognitivnu aktivnost.

Znati: Osnovni pojmovi: objekt, varijable, dodjela, tipovi podataka, ulaz-izlaz.Poznavati sastavne elemente Small Basic programskog okruženja.

Biti u mogućnosti: Preuzmite program Smal Basic. Izradite jednostavne projekte u ovom programskom okruženju. Biti u stanju unijeti matematičke funkcije i pisati matematičke izraze u jeziku Smal Basic. Napišite jednostavne linearne programe.

Oprema i materijal: potporne bilješke s predavanja (vidiDodatak 1 ), kartice sa zadacima, računalo, Mala osnovna aplikacija, ploča, multimedijski projektor, platno.

Napredak lekcije:

Organizacijski trenutak

1. Priprema za lekciju

   Obnavljanje znanja

Objašnjenje novog gradiva

Učvršćivanje naučenog gradiva

1. Pitanja na temu

Sažimajući

1. Ocjenjivanje

   domaća zadaća

Organizacijski trenutak

1. Priprema za nastavu (provjeriti spremnost za nastavu, označiti odsutne)

   Obnavljanje znanja

Zašto je potrebno programiranje?

Želite napisati esej o biologiji. Najvjerojatnije ćete ga napisati na računalu u nekom uređivaču teksta. Odakle je došao uređivač teksta? Naravno, napisali su ga programeri. Na internetu ćete tražiti informacije pomoću preglednika koji su također napisali programeri. Nakon što napišete svoj esej, poželjet ćete se opustiti i zaigrati računalnu igru ​​koju su, opet, napisali programeri. Općenito, rad na računalu je nemoguć bez korištenja programa koje pišu programeri. To znači da nije bilo programiranja, ne bi bilo ni programa, a računalo bi bilo hrpa skupog hardvera, jer je nemoguće nešto napraviti na računalu bez programa.

Faze rješavanja problema.

Osnovni pojmovi

Programiranje - pisanje programa.

Program – algoritam napisan u programskom jeziku koji računalo može razumjeti.

Algoritam – jasan slijed radnji usmjerenih na postizanje cilja.

U objektno orijentiranom programiranju uveden je koncept objekta, implementirani su mehanizmi izračuna koji omogućuju:

Opišite strukturu objekta

Opišite radnje s predmetima

Koristite posebna pravila nasljeđivanja objekata (Nasljeđivanje znači stvaranje novih objekata iz postojećih)

Postavite stupanj zaštite komponenti objekta

Teorija

Prvo poznanstvo

Microsoft Small Basic - programski jezik koji je razvio . Dizajniran za programere početnike koji žele naučiti osnove stvaranja programa.

Glavne prednosti:

Vrlo jednostavno razvojno okruženje - uređivač teksta s višenamjenskim opisom i samo nekoliko gumba za uređivanje teksta i pokretanje programa.

Jednostavan jezik sa samo 20 ključnih riječi

Kontekstualna dokumentacija za sve jezične elemente ugrađene u razvojno okruženje

Mogućnost proširenja Small Basic komponenti za uključivanje dodatnih funkcija. (Na primjer, isporuka već uključuje mogućnosti za rad s uslugama)

Posebna prednost BASIC-a je mogućnost rada u načinu tumačenja, što uvelike pojednostavljuje proces otklanjanja pogrešaka programa: izvršenje gotovo svake naredbe može se provjeriti odmah nakon pisanja.

Operator zaključivanja

WriteLine("Zdravo!")

Prikazuje niz (tekst ili broj )

Zdravo!

Da biste dobili rezultat - prikazivanje teksta "Zdravo!" na ekran - trebate napisati program:

TextWindow.WriteLine("Zdravo!")

Program se unosi u prozorMaliOsnovnoi počinje s gumbomPokreni ili ključ F 5

Rezultat programa je ispis teksta: "Zdravo!" VTekstni okvir programa.

Redak znači "Pritisnite bilo koju tipku za nastavak..."

TextWindow je objekt "prozor teksta" u kojem se može prikazati tekst.

Objekt ima svojstva I metode.

Objektna metoda -što objekt može, tjoperacije (operateri )

Parametar Operacija je zatvorena u zagradama WriteLine()

Također objekt tekstualni okvir ima svojstva (ovo su karakteristike objekta) , Na primjer

Svojstvo BackgroundColor – postavlja boju pozadine za tekst,ForegroundColor- boja teksta

Boje:

crvena

žuta boja

zelena

plava

crna

bijela

crvena

žuta boja

zelena

plava

crna

bijela

Varijabilna

Varijable se često koriste za izradu programa.

Varijabla imaIme - latinično slovo (a)

Varijabli se može dodijeliti vrijednost, kao što je numerička vrijednost

a= 5, gdje je znak " = “ – Ovo operator dodjele

Vrijednost niza

a = a + 5

Uzmite vrijednost varijable a

Dodajte mu 5

Stavite novu vrijednost u varijablu a, brišući iz nje prethodnu

Postoje dvije vrste varijable: broj I linija

10, -5, 3.14 “informatika”

Presavijte +

Pomnoži *

Podijeli /

Matematičke operacije:

Sinus, logaritam, korijen

Ljepilo

Podijeliti na dijelove

Simboli pretraživanja

Zamijenite znakove

PRIMJER sa operator "+"

izraz

proizlaziti

izraz

proizlaziti

"Ivan" + "jaja"

"Ivanova"

"razred"+ 10

"razred10"

Programiranje

Primjer 1: rezultat programa

Primjer 2: rezultat programa

Primjer 3: Program izračunava i prikazuje zbroj dviju varijablia I b

Math.Abs(broj)

modul

Math.Cos( broj)

kosinus

Math.Ceiling(broj)

zaokružuje na cijeli broj

Math.GetDegrees( broj)

pretvaranje brojeva iz radijana u stupnjeve

Math.GetRandomNumber( najveći broj)

Nasumični broj u rasponu od 1 donajveći broj

NaturalLog(broj)

Prirodni logaritam

Matematika Pi

broj Pi

Math.Power( osnovniBroj, eksponent)

U opretvaranje osnovnog broja u eksponent

matematika Max (broj1, broj2)

Najviše dva broja

matematika Ostatak (dividenda, djelitelj)

Ostatak dijeljenja

matematika .Sin(broj)

Sinus

matematika Tan(broj)

Kosinus

matematika .SquareRoot(broj)

Korijen

matematika Krug(broj)

Normalno zaokruživanje

matematika .ArcSin(broj)

arcsinus

matematika Kat(broj)

Zaokružuje na najbliži najmanji cijeli broj

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("y jednaki "+y)

Matematika Pi

Učvršćivanje materijala

1. Samostalni praktični rad na računalu

Zadaci za samostalan rad

Zadatak 1:

Odredite krajnje rezultate iskaza dodjele

X=3

Y=2

X=X+2

Y=X*2

X=Y

A= 15

B=A

A=B/5+2

B=A*3

A=0

Zadatak 2 : Napravite program za izračun umnoška 3 varijable:a , b I c .

Zadatak 3 : Napravite program za izračunavanje izraza:z=5* x+ g/2 (uz pretpostavku x=10,g=100)

Zadatak 4: Napravite program za prikaz vrijednosti X iY, prema zadatku 1.

Zadatak 5: Napravite program za pronalaženje diskriminante

Zadatak 6 : procijeniti izraze

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

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

( 1)

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

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

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

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

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

Pitanja

Što je program?

Čemu služe programski jezici?

Koji su osnovni elementi objektno orijentiranog programiranja?

Koje se operacije mogu izvoditi u “tekstualnom prozoru”?

Što znači operator dodjele:

U kojim se vrstama podataka koriste Mali Basic?

Kako se pišu I/O izjave?

Sažimajući

1. Ocjenjivanje

   domaća zadaća

Posao s pratećim bilješkama

pripremiti poruku na temu: “Različiti programski jezici”

Napravite program izračunavanje površine trokuta pomoću Heronove formule

Primjena

OK 1: Osnove programiranja u jeziku Mali Osnovno .

Programiranje - pisanje programa.

ALGORITAM + PROGRAMSKI JEZIK= PROGRAM

Varijabilna

Varijabla imaIme - latinično slovo (npr.a , U , x1 , C9 )

Varijabli se može dodijeliti vrijednost

Primjer: a = 5 , gdje je znak " = “ – Ovo operator dodjele

Postoje dvije vrste varijable: broj I linija (redoslijed znakova)

10, -5, 3.14 “informatika”

Presavijte +

Pomnoži *

Podijeli /

Matematičke operacije:

Sinus, logaritam, korijen

Ljepilo

Podijeliti na dijelove

Simboli pretraživanja

Zamijenite znakove

Programiranje

TextWindow- Ovo objekt tekstualnog prozora , u kojem možete prikazati tekst.

Parametar rada u zagradama - WriteLine()

Objekt tekstualni okvir ima svojstva , Na primjer

Vlasništvo Boja pozadine – postavlja boju pozadine za tekst,ForegroundColor - boja teksta

Korištene boje:

crvena

žuta boja

zelena

plava

crna

bijela

crvena

žuta boja

zelena

plava

crna

bijela

Operatori malih osnovnih jezika

operator "+".

Osnovni operatori

Korištenje matematičkih funkcija u izrazu

Sastavljanje složenih matematičkih izraza Matematika Pi TextWindow.WriteLine("unesite vrijednost varijable x")

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("y jednaki "+y)

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

Program za izračunavanje zbroja dviju varijabliA I b

TextWindow.WriteLine("unesite vrijednost varijable a")

a=TextWindow.ReadNumber()

TextWindow.WriteLine("unesite vrijednost varijable b")

b=TextWindow.ReadNumber()

s=a+b

TextWindow.WriteLine(" zbroj brojeva je "+s)

Program se unosi u prozorMaliOsnovnoi počinje s gumbomPokreni ili ključ F 5.

Linija Pritisnite bilo koji ključ nastaviti ... znači " Pritisnite bilo koju tipku za nastavak

Eclipse je proširiva razvojna platforma s runtimeima i aplikacijskim platformama za stvaranje, pokretanje i upravljanje softverom tijekom njegovog životnog ciklusa. Mnogi ljudi poznaju Eclipse kao Java IDE, ali Eclipse se zapravo sastoji od više od 60 različitih projekata otvorenog koda, odjeljak

Besplatno otvorenog koda Mac Windows Linux

NetBeans

Besplatno integrirano razvojno okruženje otvorenog koda za programere softvera. Dobivate sve alate koji su vam potrebni za izradu profesionalnih desktop, poslovnih, web i mobilnih aplikacija u Javi, C/C++, pa čak i dinamičkim jezicima kao što su PHP, JavaScript, Groovy i Ruby

Besplatno otvorenog koda Mac Windows Linux BSD

Studio Aptana

Aptana Studio cjelovito je okruženje za web razvoj koje kombinira moćne razvojne alate s paketom online hostinga i usluga suradnje kako bi vama i vašem timu pomoglo da učinite više. Uključuje podršku za PHP, CSS, FTP i više.

Besplatno otvorenog koda Mac Windows Linux

Komodo Edit

Komodo Edit je brz, pametan i besplatan uređivač otvorenog koda. Pokušajte koristiti Komodo Edit (ili njegov veliki brat Komodo IDE) - isplati se.

Besplatno otvorenog koda Mac Windows Linux

Xcode

Appleov Xcode vodeće je razvojno okruženje za Mac OS X. Osim što je uključeno na disk uz svaku kupnju Mac OS X-a, najnovija verzija je uvijek dostupna za besplatno preuzimanje za članove ADC-a (društvene mreže za programere aplikacija posvuda) . Apple platforme) i uključuje sve alate koji su vam potrebni za izradu, prilagodbu i optimizaciju aplikacija koje stvarate

Besplatno Mac

MonoDevelop

MonoDevelop je međuplatformski IDE prvenstveno dizajniran za C# i druge .NET jezike. MonoDevelop omogućuje programerima da brzo kreiraju desktop i ASP.NET web aplikacije za Linux, Windows i Mac OSX. MonoDevelop programerima omogućuje jednostavno prenošenje .NET aplikacija ugrađenih u Visual Studio na Linux i Mac OSX održavanjem jedinstvene baze koda za sve platforme

Besplatno otvorenog koda Mac Windows Linux .NET Framework Xamarin Studio

Lazara

Free Pascal je GPL kompajler koji radi na Linuxu, Win32, OS/2, 68K i više. Free Pascal je dizajniran za razumijevanje i kompajliranje sintakse Delphija. Lazarus je dio slagalice koji nedostaje i koji će vam omogućiti da razvijete programe slične Delphiju za sve gore navedene platforme. Budući da je isti kompajler dostupan na svim gore navedenim platformama, to znači da ne morate ponovno kodirati kako biste stvorili identične proizvode za različite platforme

Besplatno otvorenog koda Mac Windows Linux BSD OpenSolaris

WebStorm

JetBrains WebStorm je komercijalno razvojno okruženje za JavaScript, CSS i HTML izgrađeno na platformi JetBrains IntelliJ IDEA.
WebStorm pruža automatsko dovršavanje koda, on-the-fly analizu koda, podršku za refaktoriranje i VCS integraciju.

Plaćeno Mac Windows Linux

SharpDevelop

#develop (skraćeno od SharpDevelop) je besplatno razvojno okruženje za C#, VB.NET i Boo projekte na Microsoft platformi. To je okruženje otvorenog koda. Možete preuzeti i izvorni kod i izvršne datoteke.

Pozdrav svima, u ovom članku želim vam pokazati korisne kodove za male programe. Koje možete koristiti za pisanje svojih ozbiljnijih programa ili ste tražili upravo ove funkcije koje su ovdje opisane.

Svi kodovi korišteni su u programskom okruženju Microsoft Visual Basic v6.0.

Izlaz s potvrdom

Prva vrsta programa ili funkcije je izlaz s porukom koja potvrđuje izlaz. Općenito, otvorite Visual Basic programsko okruženje, napravite standardni projekt, zatim postavite jedan gumb na formu, kliknite na gumb i otvorit će vam se prozor za uređivanje koda, a tamo trebate ubaciti sljedeći kod:

Beep Dim message As String Dim buttonsandiconi As Integer Dim title As String Dim response As String message = "Želiš li izaći?"" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

naslov = "Izlaz

Lozinka za pokretanje programa<>Dim Password, Pword PassWord = "12345" Pword = InputBox("Unesite lozinku") Ako je Pword

PassWord Then MsgBox "Password is not correct" End End If

Gdje je 12345 lozinka za pokretanje programa. Ali ovaj kod možete koristiti gdje god želite.

Izlaz poruke

Ako samo želite prikazati poruku za nešto, zalijepite ovo:" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

Beep Dim message As String Dim buttonsandicones As Integer Dim title As String message = "Message" title = "Message

Crtanje na obrascu

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

Boju možete promijeniti pomoću QBColor(0) parametra, tj. Umjesto 0, stavite drugi broj.

Ponovno pokretanje računala

Za ponovno pokretanje računala: postavite gumb i zalijepite sljedeći kod:

Dim strComputer As String strComputer = "."

Postavite objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate, (Shutdown))!\\" _ & strComputer & "\root\cimv2") Postavite colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") za Svaki ObjOperatingSystem u colOperatingSystems ObjOperatingSystem.Reboot " Za ponovno pokretanje Dalje

Private Sub Form_Load() If App.PrevInstance = True Then MsgBox "Projekt je već započeo!"

Kraj Kraj Ako

Isključivanje računala

Za isključivanje računala možete koristiti sljedeći kod:

Dim strComputer As String strComputer = "."

Postavite objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate,(Shutdown))!\\" _ & strComputer & "\root\cimv2") Postavite colOperatingSystems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") za Svaki ObjOperatingSystem In colOperatingSystems ObjOperatingSystem.ShutDown "Za isključivanje Sljedeće

Završetak bilo kojeg procesa

Za prekid procesa možete koristiti sljedeći kod:

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

Gdje umjesto ICQlite.exe može biti bilo koji proces.

Koliko traje računalo?

Ispod je primjer kako možete odrediti vrijeme rada računala. Ova se metoda temelji na korištenju biblioteke kernel32, pa na samom početku koda forme spojite ovaj DLL.

Funkcija privatne deklaracije GetTickCount Lib "kernel32" () As Long "I u kodu gumba: Dim a_hour, a_minute, a_second a = Format(GetTickCount() / 1000, "0") "ukupno sekundi a_days = Int(a / 86400) a = a - a_dana * 86400 a_hour = Int(a / 3600) a = a - a_hour * 3600 a_minute = Int(a / 60) a_second = a - a_minute * 60 MsgBox "Vaše računalo radi " & Str(a_days) & " dani " & Str(a_hour) _ & " sati " & Str(a_minute) & " minute" & Str(a_second) & " sekunde"

Pogledali smo jednostavne funkcije koje se mogu koristiti gotovo posvuda. Sada pogledajmo ozbiljnije primjere, a oni vam mogu uvelike pomoći u pisanju velikih projekata.

Primjeri rada s mapama

Izbriši imenik

Funkcija privatne deklaracije RemoveDirectory& Lib _ "kernel32" Alias ​​​​"RemoveDirectoryA" (ByVal lpPathName As String) "Uklanjanje direktorija (prazno!) PathName$ = "D:\t" code& = RemoveDirectory(PathName) If code& = 0 Then "Error uklanjanje direktorija Else "Imenik izbrisan End If<>Stvorite imenik

Sub MakeDir(dirname As String) Dim i As Long, path As String Do i = InStr(i + 1, dirname & "\", "\") path = Left$(dirname, i - 1) If Right$(path , 1)

":" And Dir$(path, vbDirectory) = "" Then MkDir path End If Loop Until i >= Len(dirname) End Sub Private Sub Command1_Click() Call MakeDir("C:\Soft\1\2\3\ ") End Sub

Statično pokretanje As 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 <>"" Ako UCase$(sub_dir)<>"PAGEFILE.SYS" I sub_dir<>"." I pod_dir<>".." Then sub_dir = dir_name & "\" & sub_dir On Error Resume Next If GetAttr(sub_dir) And vbDirectory Then AllDirs.Add sub_dir End If sub_dir = Dir$(, vbDirectory) Loop DoEvents If Not running Then Exit Do Loop txt = "" For i = 1 To AllDirs.Count txt = txt & AllDirs(i) & vbCrLf Next i OutText.Text = txt MousePointer = vbDefault unning = False End If

Sada pokrećemo program, u tekstualno polje StartText upisujemo: C:\windows i kliknemo na gumb.

Veličina imenika

Const MAX_PATH = 260 Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As Long nFileSizeLow As Long d wReserved0 Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 14 End Type Private Declare Function FindFirstFile Lib _ "kernel32" Alias ​​​​"FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindNextFile Lib _ "kernel32" Alias ​​​​"FindNextFileA" (ByVal h FindFile As Long , ileData As WIN32_FIND_DATA) As Long Private Declare Function FindClose Lib _ "kernel32" (ByVal hFindFile As Long) As Long Public Function SizeOf(ByVal DirPath As String) As Double Dim hFind As Long Dim fdata As WIN32_FIND_DATA Dim dblSize As Double Dim sName As String Dim x As Long On Error Resume Next x = GetAttr(DirPath) If Err Then SizeOf = 0: Izlaz iz funkcije If (x And vbDirectory) = vbDirectory Then dblSize = 0 Err.Clear sName = Dir$(EndSlash(DirPath) & " *.* ", vbSystem Ili vbHidden Ili vbDirectory) Ako je Err.Number = 0 Then hFind = FindFirstFile(EndSlash(DirPath) & "*.*", fdata) If hFind = 0 Then Exit Function Do If (fdata.dwFileAttributes And vbDirectory ) = vbDirectory Then sName = Left$(fdata.cFileName, InStr(fdata.cFileName, vbNullChar) - 1) If sName<>"." I ime<>".." Zatim dblSize = dblSize + SizeOf(EndSlash(DirPath) & sName) End If Else dblSize = dblSize + fdata.nFileSizeHigh * 65536 + fdata.nFileSizeLow End If DoEvents Loop While FindNextFile(hFind, fdata)<>0 hFind = FindClose(hFind) End If Else On Error Resume Next dblSize = FileLen(DirPath) End If SizeOf = dblSize End Function Private Function EndSlash(ByVal PathIn As String) As String If Right$(PathIn, 1) = "\" Zatim EndSlash = PathIn Else EndSlash = PathIn & "\" End If End Function Private Sub Form_Load() "Zamijenite "D:\soft" direktorijem čiju veličinu želite znati MsgBox SizeOf("D:\soft") / 1000000 End Sub

Primjeri rada s datotekama

Kopirati

Recimo da imamo datoteku pod nazivom 1.txt u mapi C:\1\ i trebamo je kopirati u C:\2\ da bismo to učinili, napišemo sljedeći kod:

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

Bilješka! Ako direktorij 2 već sadrži datoteku pod nazivom 1.txt, ona će biti zamijenjena s 1.txt iz direktorija 1.

Private Declare Function CopyFile Lib _ "kernel32.dll" Alias ​​​​"CopyFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Private Sub Command1_Click() " Kopiraj datoteku C:\1.txt u D :\1.txt. Dim retval As Long " povratna vrijednost "Kopiraj datoteku retval = CopyFile("C:\1.txt", "D:\1.txt", 1) If retval = 0 Then "If greška MsgBox " Ne mogu kopirati" Else "Ako je sve u redu MsgBox "Datoteka kopirana." End If End Sub

Uklanjanje

Na primjer, želimo izbrisati datoteku 1.txt iz korijena pogona C:\

Kill("C:\1.txt")

API metoda

Private Declare Function DeleteFile Lib _ "kernel32.dll" Alias ​​​​"DeleteFileA" (ByVal lpFileName As String) As Long Private Sub Command1_Click() "Delete file C:\Samples\anyfile.txt Dim retval As Long "Povratna vrijednost retval = DeleteFile( "C:\1.txt") If retval = 1 Then MsgBox "Datoteka je uspješno izbrisana."

End Sub

Kretanje

Možete ga, na primjer, premjestiti ovako:

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

Ali bolje je ovako (preko API-ja):

Private Declare Function MoveFile Lib _ "kernel32.dll" Alias ​​​​"MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() Dim retval As Long "Povratna vrijednost retval = MoveFile("C: \1 .txt", "C:\2\1.txt") If retval = 1 Then MsgBox "Moved successfully" Else MsgBox "Error" End If End Sub

Preimenovanje

Da biste preimenovali datoteku 1.txt koja se nalazi u C:\ u 2.txt možete koristiti sljedeći kod:

API metoda

Private Declare Function MoveFile Lib _ "kernel32.dll" Alias ​​​​"MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() Dim retval As Long " povratna vrijednost retval = MoveFile("C: \1 .txt", "C:\2.txt") If retval = 1 Then MsgBox "Success" Else MsgBox "Error" End If End Sub

Odredite veličinu datoteke

Veličina datoteke može se odrediti na dva načina:

Ako se datoteka može otvoriti funkcijom OPEN, tada možete koristiti funkciju LOF

Dim FileFree As Integer Dim FileSize As Long FileFree = FreeFile Otvori "C:\WIN\GENERAL.TXT" za unos kao FileFree FileSize = LOF(FileFree) Zatvori FileFree

Ili upotrijebite funkciju FileLen

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

Sakrij sat programski

Dodajte 2 gumba i zalijepite kod:

Opcija Eksplicitna funkcija privatne deklaracije FindWindow Lib _ "user32" Alias ​​​​"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib _ "user32" Alias ​​​​"FindWindowExA" _ (ByVal hWnd1 As 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() ShowWindow hnd, 0 End Sub Private Sub Command2_Click() ShowWindow hnd, 1 End Sub Private Sub Form_Load() hnd = FindWindow("Shell_TrayWnd", vbNullString) hnd = FindWindowEx(hnd, 0, "TrayNotifyWnd", vbNullString) hnd = FindWindowEx( hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Sakrij sat" Command2.Caption = "Prikaži sat" End Sub

Dodaj ikonu na traci

Dodajte modul i zalijepite kod u njega:

Deklariraj funkciju shell_notifyicona lib _ "shell32" (byval dwMessage kao dugačak, lpdata kao notifyicondata) kao cijela javna javna const nim_add = 0 javna const nim_modify = 1 javno const nim_delete = 2 javno const nif_message = 1 Type 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 Kao NOTIFYICONDATA nidTemp.cbSize = Len(nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0& nidTemp.uFlags = NIF_ICON Ili NIF_TIP nidTemp.uCallbackMessage = 0& nidTemp.hIcon = Ikona nidTemp.szTip = tip & Chr$( 0) SetTray Ikona = Shell_NotifyIconA(Mode, nidTemp) Završna funkcija

Za korištenje umetnite kod obrasca:

Private Sub Form_Load() SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "Za brisanje privatne podnaredbe Command1_Click() SetTrayIcon NIM_DELETE, Me.hWnd, 0&, "" End Sub

Blokiranje gumba za pokretanje

Funkcija privatne deklaracije FindWindow Lib "user32" Alias ​​​​"FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Funkcija privatne deklaracije FindWindowEx Lib "user32" Alias ​​​​"FindWindowExA" _ (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function EnableWindow Lib "user32" _ (ByVal hwnd As Long, ByVal fEnable As Long) As Long Public Sub EnableStartButton(Optional Enabled As Boolean = True) Dim lHwnd As Long " find hWnd lHwnd& = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString) Poziv EnableWindow(lHwnd&, CLng(Enabled)) End Sub Private Sub Command1_Click() EnableStartButton False "gumb START je onemogućen End Sub Private Sub Command2_Click() EnableStartButton True "Gumb START nije onemogućen End Sub

Čitanje parametara iz INI datoteke

Program se spaja na FTP, a ini datoteka sadrži parametre - server, login, port, password.

Najprije izradite INI datoteku:

Servname=poslužitelj usern=Prijava pwd=lozinka port=port

Mora se staviti u programsku mapu. Zatim umetnite u modul:

Private Declare Function WritePrivateProfileString Lib _ "kernel32" Alias ​​​​"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpFileName As String) Kao Long Private Declare Function GetPrivateProfileString Lib _ "kernel 32" alias ​​"GetP rivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpDefault As String, ByVal lpReturnedString As String, _ ByVal nSize As Long, ByVal lpFileName As String) As Long Public Function ReadIni(Razdel As String, Param) As String ReadIni = GetValue (Razdel, Param, App.Path & "\test.ini", "0") End Function Private Function GetValue(ByVal odjeljak kao niz, _ ByVal ključ kao niz, ByVal fFileName kao niz, izborno ByVal DefaultValue As String = vbNullString) As 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

Zatim zalijepite u kôd obrasca:

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 Long Private Declare Function InternetConnect Lib _ "wininet.dll" Alias ​​​​"InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, _ ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal nService As Long, _ ByVal dwFlags As Long , ByVal dwContext As Long) As Long Private Declare Function FtpPutFile Lib _ "wininet.dll" Alias ​​​​"FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _ ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean Private Declare Function FtpGetFile Lib _ "wininet.dll" Alias ​​​​"FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttribut es Kao dugo, _ ByVal dwFlags As Long, ByVal d wContext As Long ) As Boolean Private Declare Function InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Long) As Integer Dim rc& Dim rs&

I u kodu gumba:

rc& = InternetOpen("", 0, vbNullString, vbNullString, 0) rs& = InternetConnect(rc&, ReadIni("Općenito", "servname"), "0", _ ReadIni("Općenito", "usern"), ReadIni( "Općenito", "pwd"), 1, 0, 0) If FtpGetFile(rs&, "Vaša datoteka.txt", "path where", False, 0, 1, 0) = False Then End Call InternetCloseHandle(rs&) Call Internet CloseHandle(rc&)

Popis pokrenutih procesa

Dodajte okvir s popisom i 1 gumb, umetnite sljedeći kod:

Opcija Explicit Private Declare Function CreateToolhelpSnapshot Lib _ "Kernel32" Alias ​​​​"CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function ProcessFirst Lib _ "Kernel32" Alias ​​​​"Process32First" _ (ByVal h Snimak As Long, 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 Lib "Kernel32" (ByVal hPass As Long ) 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 th32ParentProcessID As Long pcPriClassBase As Duge dwFlags kao duge szExeFile kao niz * MAX_PATH End Type Di m hSnapShot As Long Dim uProcess As PROCESSENTRY32 Dim r As Long Private Sub Command1_Click() List1.Clear hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) If hSnapShot = 0 Then Exit Sub End If uProcess.dwSize = Len(uProcess) r = ProcessFirst(hSnapShot, uProcess) Do While r List1.AddItem uProcess.szExeFile r = ProcessNext(hSnapShot, uProcess) Loop Call CloseHandle(hSnapShot) End Sub

Stavljanje programa u pokretanje

Da bi se program mogao učitati sa sustavom Windows, kao i neki drugi programi, možete koristiti registar:

Dodajte 2 gumba i sljedeći kod:

Private Sub Command1_Click() "Unos u registar Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name of your program", _ "Path to 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

A kako bi se program učitao zajedno sa sustavom Windows, čak iu sigurnom načinu rada, tada slijedi sljedeći kod:

Prvo, ozbiljnija metoda (napravite sigurnosnu kopiju registra za svaki slučaj).

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Put do vašeg programa" End Sub Private Sub Command2_Click()" Ovo je za oporavak Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Explorer.exe," End Sub

Pa, jednostavan 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\\userinit.exe ,Put do vašeg programa" End Sub Private Sub Command2_Click()"Za vraćanje Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C : \\WINDOWS\\system32\\userinit.exe," End Sub

Skrivanje programske trake

Dodajte 2 gumba i zalijepite kod:

Funkcija privatne deklaracije 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 Privatna deklaracija Function FindWindow Lib "user32" Alias ​​​​"FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOW = &H40 "Hide Private Sub Command1_Click() hwnd1 = FindWindow("Shell_tray vjetar", " ") Pozovite SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Prikazuje Private Sub Command2_Click() hwnd1 = FindWindow("Shell_traywnd", "") Pozovite SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) End Sub

Raspakirajte RAR arhivu

Kako biste raspakirali RAR arhivu, možete koristiti sljedeći kod:

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

Koliko RAM-a ima u računalu

Dodajte jedan gumb i zalijepite sljedeći kod:

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 dwTotalVirtual As Long dwAvailVirtual As Long End Type Dim s As TMemoryStatus Privat e Podnaredba1_klik( ) ms.dwLength = Len(ms) Call GlobalMemoryStatus(ms) MsgBox "Total:" & ms.dwTotalPhys & vbCr & "Free:" _ & ms.dwAvailPhys & vbCr & "Used in %:" & ms.dwMemoryLoad End Sub

Sakrij ikone na radnoj površini

To se radi na sljedeći način. Dodajte 2 gumba i zalijepite sljedeći kod:

Funkcija privatne deklaracije ShowWindow& Lib "user32" (ByVal hwnd&, ByVal nCmdShow&) Funkcija privatne deklaracije FindWindow Lib _ "user32" Alias ​​​​"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const SW_HIDE = 0 Const SW_ NORMALNO = 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 hHandle = FindWindow("progman", vbNullString) Call ShowWindow (hHandle , SW_NORMAL) End Sub

Pomoću gumba Command1 ikone su skrivene, Command2 - pojavljuju se.

To je sve za mene, nadam se da će vam gornji primjeri biti korisni, bok!