Alla grundläggande kommandon i Microsoft smail. Alternativ att ersätta Microsoft Small Basic

Eclipse är en utbyggbar utvecklingsplattform med körtider och applikationsplattformar för att skapa, använda och hantera programvara under hela sin livscykel. Många känner till Eclipse som Java IDE, men Eclipse består faktiskt av över 60 olika projekt med öppen källkod, se

Gratis öppen källkod Mac Windows Linux

NetBeans

Gratis open source IDE för utvecklare programvara... Du får alla verktyg du behöver för att skapa professionella applikationer för stationära, företags-, webbapplikationer och mobila applikationer i Java, C / C ++ och till och med dynamiska språk som PHP, JavaScript, Groovy och Ruby

Gratis öppen källkod Mac Windows Linux BSD

Aptana studio

Aptana Studio är en komplett webbutvecklingsmiljö som kombinerar kraftfulla utvecklingsverktyg med en serie webbhotell och samarbetstjänster för att hjälpa dig och ditt team att få mer gjort. Inkluderar PHP -stöd, CSS, FTP och mer.

Gratis öppen källkod Mac Windows Linux

Komodo Edit

Komodo Edit är snabb, smart och gratis redaktöröppen källa. Prova att använda Komodo Edit (eller dess äldre bror Komodo IDE) - det är värt det.

Gratis öppen källkod Mac Windows Linux

Xcode

Apples Xcode är den främsta utvecklingsmiljön för Mac OS X. Förutom att den finns på skiva med varje köpt Mac OS X, är den den mest en ny versionär också alltid tillgänglig för gratis nedladdning för ADC -medlemmar ( socialt nätverk för apputvecklare på alla Apple -plattformar) och innehåller alla verktyg du behöver för att skapa, justera och optimera de appar du skapar

Gratis Mac

MonoDevelop

MonoDevelop är en plattformsoberoende IDE som främst är utformad för C # och andra .NET-språk. MonoDevelop tillåter utvecklare att snabbt bygga stationära och ASP.NET webbapplikationer för Linux, Windows och Mac OSX. MonoDevelop tillåter utvecklare att enkelt porta. NET -applikationer inbyggda i Visual Studio till Linux och Mac OSX, med en enda kodbas på alla plattformar

Gratis öppen källkod Mac Windows Linux. NET Framework Xamarin Studio

Lazarus

Free Pascal är en GPL -kompilator som fungerar på Linux, Win32, OS / 2, 68K och mer. Gratis Pascal är utformad för att förstå och sammanställa Delphis syntax. Lazarus är en del av ett saknat pussel som låter dig utveckla Delphi-liknande program för alla ovanstående plattformar. Eftersom samma kompilator är tillgänglig på alla ovanstående plattformar betyder det att du inte behöver koda om för att skapa identiska produkter för olika plattformar.

Gratis öppen källkod Mac Windows Linux BSD OpenSolaris

WebStorm

JetBrains WebStorm är ett kommersiellt JavaScript, CSS och HTML IDE byggt på JetBrains IntelliJ IDEA -ramverk.
WebStorm tillhandahåller kodfyllnad, on-the-fly-kodanalys, refactoring-stöd och VCS-integration.

Betald Mac Windows Linux

SharpDevelop

#develop (kort för SharpDevelop) är en gratis utvecklingsmiljö för C #, VB.NET och Boo -projekt på Microsoft -plattformen. Det är en öppen källkodsmiljö. Du kan ladda ner som källa och körbara filer.

Grunderna i programmering.

Programmeringsspråk Små Grundläggande

LEKTION 1: Kännedom om programmeringsmiljön Små Grundläggande .

Mål: Att bekanta med programmeringsspråk Liten Basic.

Uppgifter:

Börja lära dig ett programmeringsspråk Smal Basic. Ge ett begrepp om OOP (Object Oriented Programming)

Att lära sig att arbeta i denna programmeringsmiljö. NS bekanta dig med miljöns "textobjekt" Smal Basic.

För att ge den första idén om att skapa program i en programmeringsmiljö.

Projektets huvudsakliga utbildningsuppgifter:

Utbildning av personliga egenskaper: målmedvetenhet, uppmärksamhet, noggrannhet, objektivitet i självkänsla, ansvar, kognitivt intresse.

Projektets huvudsakliga utvecklingsuppgifter:

Forma elevernas nyckelkompetenser som bidrar till framgångsrik social anpassning;

Att utveckla önskan om självutveckling och personlig tillväxt genom kognitiv aktivitet.

Känna till: Grundläggande begrepp: objekt, variabler, tilldelning, datatyper, input-output.Känn till de element som ingår i programmeringsmiljön Small Basic.

Kunna: Ladda ner Smal Basic -programmet. Skapa de enklaste projekten i en given programmeringsmiljö. Kunna mata in matematiska funktioner och skriva matematiska uttryck på Smal Basic -språket. Skapa enkla linjära program.

Utrustning och material: stödjande föreläsningsanteckningar (se.Bilaga 1 ), uppgiftskort, PC, Small Basic -applikation, whiteboard, multimediaprojektor, skärm.

Under lektionerna:

Organisera tid

1. Lektionens förberedelse

   Kunskapsuppdatering

Förklaring av det nya materialet

Konsolidering av det studerade materialet

1. Frågor om ämnet

Sammanfattande

1. Betygsättning

   Läxa

Organisera tid

1. Förberedelse inför lektionen (kontrollera beredskapen för lektionen, markera den frånvarande)

   Kunskapsuppdatering

Vad är programmering för?

Du vill skriva en abstrakt i biologi. Mest troligt kommer du att skriva det på din dator i någon textredigerare. Var kom det ifrån textredigerare? Naturligtvis skrev programmerare det. Du kommer att söka efter information på Internet med en webbläsare som också skrevs av programmerare. När du har skrivit din abstrakt, kommer du att vilja koppla av och spela datorspel, som igen skrevs av programmerarna. I allmänhet är det omöjligt att arbeta på en dator utan att använda program skrivna av programmerare. Det betyder att om det inte fanns någon programmering, skulle det inte finnas några program, och en dator skulle vara en massa dyr hårdvara, eftersom det är omöjligt att göra något med en dator utan program.

Etapper för problemlösning.

Grundläggande koncept

Programmering - skriva program.

Program - en algoritm skriven på ett programmeringsspråk som en dator kan förstå.

Algoritm - en tydlig sekvens av åtgärder som syftar till att uppnå målet.

I objektorienterad programmering begreppet objekt har införts, beräkningsmekanismer har implementerats som tillåter:

Beskriv strukturen för ett objekt

Beskriv handlingar med objekt

Använd särskilda regler för objektarv (Arv innebär att skapa nya objekt från befintliga)

Ställ in graden av skydd för objektets komponenter

Teori

Första mötet

Microsoft Small Basic - ett programmeringsspråk som utvecklats av företaget. Designad för nybörjare som vill förstå grunderna i mjukvaruutveckling.

Huvudsakliga fördelar:

En mycket enkel utvecklingsmiljö - en textredigerare med ett multifunktionellt verktygstips och bara några knappar för att redigera text och starta program.

Enkelt språk med bara 20 sökord

Kontextdokumentation för alla språkelement inbyggda i utvecklingsmiljön

Möjligheten att utöka Small Basic -komponenter till ytterligare funktioner. (Till exempel innehåller leveransen redan möjligheter att arbeta med tjänster)

En särskild fördel med BASIC bör betraktas som förmågan att arbeta i tolkningsläget, vilket förenklar processen med felsökning av program: utförandet av nästan alla kommandon kan kontrolleras omedelbart efter skrivning.

Utmatningsoperatör

WriteLine ("Hej!")

Visar raden (text eller siffra )

Hallå!

För att få resultatet - skriv ut texten "Hej!" till skärmen - du måste skriva ett program:

TextWindow.WriteLine ("Hej!")

Programmet kommer in i fönstretSmåGrundläggandeoch startas med knappenLansera eller med nyckel F 5

Resultatet av programmet är utmatningen av texten: "Hej!" vTextruta program.

Raden betyder "Tryck på valfri knapp för att fortsätta ...."

Ett TextWindow är ett textfönsterobjekt där text kan visas.

Objektet har egenskaper och metoder.

Objektmetod något som objektet kan göra, det vill säga det äroperationer (operatörer )

Parameter operationen är innesluten inom parentes WriteLine()

Samma objekt textruta besitter egenskaper (det här är objektets egenskaper) , till exempel

Egenskapen BackgroundColor - anger bakgrundsfärgen för texten,Förgrundsfärg- text färg

Färger:

röd

gul

grön

blå

svart

vit

Röd

gul

grön

blå

svart

Vit

Variabel

Variabler används ofta för att skapa program.

Variabeln harnamn - latinsk bokstav (a)

En variabel kan tilldelas ett värde, till exempel ett numeriskt värde

a= 5, där skylten ” = " - detta är uppdragsoperatör

Strängvärde

a = a + 5

Ta värdet av variabeln a

Lägg till 5 till den

Sätt det nya värdet på variabeln a, radera det föregående från det

Det finns två typer av variabler: siffra och linje

10, -5, 3.14 "informatik"

Vik +

Multiplicera *

Dela upp /

Matematiska handlingar:

Sinus, logaritm, rot

Lim

Dela i delar

Sök symboler

Ersätt tecken

EXEMPEL med operatör "+"

uttryck

resultat

uttryck

resultat

"Ivan" + "ägg"

"Ivanova"

"Klass" + 10

"Klass 10"

Programmering

Exempel 1: programresultat

Exempel 2: programresultat

Exempel 3: Programmet beräknar och visar summan av två variablera och b

Math.Abs ​​(namber)

modul

Math.Cos ( nammer)

cosinus

Math. Ceiling (namber)

rundar till ett heltal

Math.GetDegrees ( nammer)

konvertera ett tal från radianer till grader

Math.GetRandomNumber ( maxnamber)

Ett slumpmässigt tal i intervallet från 1 tillmaxnamber

NaturalLog (namber)

Naturlig logaritm

Math.Pi

Pi

Matematik. Makt ( basNamber, exponent)

V omultiplicera basNamber till exponent

Matematik. Max (namber1, namber2)

Max två nummer

Matematik. Återstoden (utdelning, avdelare)

Resten av divisionen

Matematik .Sin (namber)

Sinus

Matematik. Solbränna(nammer)

Cosinus

Matematik .ScuareRoot (namber)

Rot

Matematik. Runda(nammer)

Normal avrundning

Matematik .ArcSin (namber)

Arcsine

Matematik. Golv(nammer)

Avrundar till närmaste minsta heltal

x = TextWindow.ReadNumber ()

y = Math.Abs ​​(x)

TextWindow.WriteLine ("y lika med "+ y)

Math.Pi

Säkra materialet

1. Själv praktiskt arbete för PC

Uppdrag för självständigt arbete

Övning 1:

Bestäm slutresultat för uppdragsoperatörer

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

Uppgift 2 : Skapa ett program för att beräkna produkten av tre variabler:a , b och c .

Uppgift 3 : Gör ett program för att beräkna uttrycket:z=5* x+ y/ 2 (förutsatt att x = 10,y=100)

Uppgift 4: Skapa ett program för att mata ut värdena för X ochY, enligt uppgift 1.

Uppgift 5: Skapa ett program för att hitta den diskriminerande

Uppgift 6 : utvärdera uttryck

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

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

( 1)

Y = 2x 2 ( på x = 5, y = 50)

X 1,2 = (för a = 2, b=6, c=4 , x 1=-1, x 2=-2)

Z= I (y)-3 ( på y = 3, z = -1.901 ...)

С = (för a=4, b=9, c=13)

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

Frågor

Vad är ett program?

Vad är programmeringsspråk för?

Vilka är de grundläggande elementen i objektorienterad programmering?

Vilka operationer kan utföras i "textrutan"?

Vad betyder uppdragsoperatören:

Vilka typer av data används i Smal Basic?

Hur skrivs I / O -uttalanden?

Sammanfattande

1. Betygsättning

   Läxa

Arbete med stödnoter

förbereda ett meddelande om ämnet: "En mängd olika programmeringsspråk"

Gör ett program beräkna arean av en triangel med hjälp av Herons formel

Ansökan

OK 1: Grunderna för programmering på språket Små Grundläggande .

Programmering - skriva program.

ALGORITM + PROGRAMMERINGSSPRÅK= PROGRAM

Variabel

Variabeln harnamn - latinsk bokstav (till exempela , V , x1 , C9 )

En variabel kan tilldelas ett värde

Exempel: a = 5 , där skylten " = " - detta är uppdragsoperatör

Det finns två typer av variabler: siffra och linje (teckensekvens)

10, -5, 3.14 "informatik"

Vik +

Multiplicera *

Dela upp /

Matematiska handlingar:

Sinus, logaritm, rot

Lim

Dela i delar

Sök symboler

Ersätt tecken

Programmering

TextWindow- detta är textfönsterobjekt där du kan visa text.

Operation parameter innesluten inom parentes - WriteLine()

Ett objekt textruta besitter egenskaper , till exempel

Fast egendom Bakgrundsfärg - anger bakgrundsfärgen för texten,Förgrundsfärg - text färg

Använda färger:

röd

gul

grön

blå

svart

vit

Röd

gul

grön

blå

svart

Vit

Små grundläggande operatörer

operatör "+"

Grundläggande operatörer

Använda matematiska funktioner i uttryck

Skriva komplexa matematiska uttryck Math.Pi TextWindow.WriteLine ("ange ett värde för variabel x")

x = TextWindow.ReadNumber ()

y = Math.Abs ​​(x)

TextWindow.WriteLine ("y lika med "+ y)

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

Program för att beräkna summan av två variablera och b

TextWindow.WriteLine ("ange värdet på variabeln a")

a = TextWindow.ReadNumber ()

TextWindow.WriteLine ("ange ett värde för b")

b = TextWindow.ReadNumber ()

s = a + b

TextWindow.WriteLine (" summan av siffrorna är "+ s)

Programmet kommer in i fönstretSmåGrundläggandeoch startas med knappenLansera eller med nyckel F 5.

Linje Tryck några nyckel- Fortsätta ... innebär att " tryck på valfri tangent för att fortsätta

Hej alla, i den här artikeln vill jag visa er användbara koder små program. Som du kan använda för att skriva dina egna mer seriösa program, ja, eller så letade du efter exakt dessa funktioner, som beskrivs här.

Alla koder användes i Microsoft Visual Basic v6.0 -programmeringsmiljön.

Avsluta med bekräftelse

Den första typen av program, eller funktion, är en avslutning med ett bekräftelsemeddelande för utgång. I allmänhet öppet onsdag Visuell programmering Grundläggande, skapa ett standardprojekt, placera sedan en knapp på formuläret, klicka på knappen och du kommer att se kodredigeringsfönstret och där måste du infoga följande kod:

Pip Dim meddelande som sträng Dim knappar och ikoner Som heltal Dim titel Som sträng Dim svar Som sträng meddelande = "Vill du avsluta?" title = "(! LANG: Avsluta" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

Lösenord för att starta programmet

Dim lösenord, Pword PassWord = "12345" Pword = InputBox If Pword<>PassWord Då MsgBox "Lösenordet är inte korrekt" Avsluta Sluta om

Var, 12345 är lösenordet för att starta programmet. Men den här koden kan användas var du vill.

Visar ett meddelande

Om du bara vill visa ett meddelande, för något, sätter du in detta:

Pip Dim meddelande som sträng Dim knappar och ikoner Som heltal Dim titel Som sträng meddelande = "Meddelande" titel = "(! LANG: Meddelande" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

Rita på en blankett

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

Du kan ändra färg med parametern QBColor (0), dvs. ersätt 0 med en annan siffra.

Starta om din dator

För att starta om datorn: placera knappen och klistra in följande kod:

Dim strComputer As String strComputer = "." Ställ in objWMIService = GetObject ("winmgmts:" & "(impersonationLevel = imitera, (Shutdown))! \\" _ & strComputer & "\ root \ cimv2") Ange colOperatingSystems = objWMIService.ExeperacQuery ("Välj * från för Win32_O Varje ObjOperating I colOperatingSystems ObjOperatingSystem.Reboot "För att starta om Nästa

Kör programmet i en enda kopia

Följande exempel hjälper dig att få programmet att köras bara en gång, d.v.s. vid omstart kommer det att visa ett motsvarande meddelande. Infoga i formulärkoden:

Private Sub Form_Load () If App.PrevInstance = True Då MsgBox "Projektet körs redan!" Slut Slut Om

Stänger av datorn

För att stänga av datorn kan du använda följande kod:

Dim strComputer As String strComputer = "." Ställ in objWMIService = GetObject ("winmgmts:" & "(impersonationLevel = imitera, (Shutdown))! \\" _ & strComputer & "\ root \ cimv2") Ange colOperatingSystems = objWMIService.ExeperacQuery ("Välj * från Win32_O Varje ObjOperating I colOperatingSystems ObjOperatingSystem.ShutDown "För att stänga av Nästa

Slutförande av någon process

För att slutföra processen kan du använda följande kod:

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

Där, i stället för ICQlite.exe, kan det finnas vilken process som helst.

Hur länge fungerar datorn

Nedan följer ett exempel på hur du kan bestämma datorns drifttid. Den här metodenär baserat på att använda kernel32 -biblioteket, så inkludera denna DLL i början av formulärkoden.

Privat deklarera funktion GetTickCount Lib "kernel32" () As Long "Och i knappkoden: Dim a_hour, a_minute, a_second a = Format (GetTickCount () / 1000," 0 ")" bara sekunder 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 "Din dator körs" & Str (a_days) & "" & Str (a_hour) _ & "hours" & Str (a_minute) & "minutes" & Str (a_second) & "seconds"

Vi har täckt enkla funktioner som kan användas nästan var som helst. Låt oss nu titta på mer seriösa exempel, och de kan i hög grad hjälpa dig att skriva dina stora projekt.

Exempel på arbete med mappar

Ta bort katalog

Privat deklarera funktion RemoveDirectory & Lib _ "kernel32" Alias ​​"RemoveDirectoryA" (ByVal lpPathName As String) "Ta bort katalog (tom!) PathName $ =" D: \ t "kod & = RemoveDirectory (PathName) Om kod & = 0 Sedan "Fel vid borttagning av katalog Else" Katalog raderad End If

Skapa katalog

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)<>":" Och Dir $ (sökväg, vbDirectory) = "" Sedan avslutar MkDir -sökvägen Om Loop Till i> = Len (dirname) Avsluta Sub Private Sub Command1_Click () Call MakeDir ("C: \ Soft \ 1 \ 2 \ 3 \ ") Avsluta Sub

Lista över alla mappar med undermappar

Lägg till 2 textfält och en knapp i formuläret, namnet på det första textfältet: StartText, namnet på det andra textfältet OutText. Multiline -egenskap = true, knappnamn = CmdStart

Statisk körning Som Boolean Dim AllDirs Som ny samling 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 <>"" Om UCase $ (sub_dir)<>"PAGEFILE.SYS" Och sub_dir<>"." Och sub_dir<>".." Sedan sub_dir = dir_name & "\" & sub_dir Vid fel Återuppta nästa om GetAttr (sub_dir) och vbDirectory Sedan AllDirs.Add sub_dir End Om sub_dir = Dir $ (, vbDirectory) Loop DoEvents Om inte körs Avsluta Do Loop txt = "" För i = 1 Till AllDirs.Count txt = txt & AllDirs (i) & vbCrLf Nästa i OutText.Text = txt MousePointer = vbDefault unning = False End If

Nu kör vi programmet, skriv text: C: \ windows i textrutan StartText och klicka på knappen.

Katalogstorlek

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 FILETHIME FILETHIME FILETTIME FILETHIME FILETTIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME FILETHIME ASIL "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindNextFile Lib _ "kernel32" Alias ​​"FindNextFileA" (By AsFile Long hFind WIN32_FIND_DATA) As Long Private Declare function (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 Då SizeOf = 0: Avsluta funktion Om (x Och vbDirectory) = vbDirectory Då dblSize = 0 Err.Clear sName = Dir $ (EndSlash (DirPath) & " *. *", VbSystem Eller vbHidden Eller vbDirectory) Om Err.Number = 0 Sedan hFind = FindFirstFile (EndSlash (DirPath) & " *. *", Fdata) Om hFind = 0 Avsluta sedan funktionen If (fdata.dwFileAttributes And vbDirectory) = vbDirectory Then sName = Left $ (fdata.cFileName, InStr (fdata.cFileName, vbNullChar) - 1) Om sName<>"." Och sName<>".." Sedan 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) Sluta om annat vid fel Återuppta nästa dblSize = FileLen (DirPath) Sluta om SizeOf = dblSize Slutfunktion Privat funktion EndSlash (ByVal PathIn som sträng) Som sträng om höger $ (PathIn, 1) = "\" Sedan EndSlash = PathIn Else EndSlash = PathIn & "\" End If End Function Private Sub Form_Load () "Ersätt" D: \ soft "med den katalog du vill veta storleken på MsgBox SizeOf (" D: \ soft ") / 1000000 Slut Sub

Exempel på arbete med filer

Kopiera

Låt oss säga att vi har en fil med namnet 1.txt i mappen C: \ 1 \ och vi måste kopiera den till C: \ 2 \ för detta skriver vi följande kod:

Filkopia "C: \ 1 \ 1.txt", "C: \ 2 \ 1.txt"

Notera! Om det redan finns en fil med namnet 1.txt i katalog 2, kommer den att ersättas med 1.txt från katalog 1.

Privat deklarera funktion CopyFile Lib _ "kernel32.dll" Alias ​​"CopyFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Private Sub Command1_Click () "Kopiera fil C: \ 1.txt till D: \ 1.txt. Dim retval As Long "returvärde" Kopiera fil retval = CopyFile ("C: \ 1.txt", "D: \ 1.txt", 1) If retval = 0 Sedan "If MsgBox fel "Kan inte kopiera" Annat "Om allt är ok MsgBox" Fil kopieras. "Avsluta Om Avsluta Sub

Tar bort

Till exempel vill vi ta bort filen 1.txt från roten på C: \ -enheten

Döda ("C: \ 1.txt")

API -sätt

Privat deklarera funktion DeleteFile Lib _ "kernel32.dll" Alias ​​"DeleteFileA" (ByVal lpFileName As String) As Long Private Sub Command1_Click () "Ta bort fil C: \ Samples \ anyfile.txt Dim retval så länge" Returvärde retval = DeleteFile ("C: \ 1.txt") If retval = 1 Då har MsgBox "Filen tagits bort." Avsluta Sub

Rör på sig

Du kan till exempel flytta det så här:

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

Men det är bättre så här (via API):

Privat deklarera funktion MoveFile Lib _ "kernel32.dll" Alias ​​"MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click () Dim retval As Long "Return value retval = MoveFile (" C: \ 1 .txt "," C: \ 2 \ 1.txt ") If retval = 1 Då MsgBox" Flyttade framgångsrikt "Annat MsgBox" Fel "Avsluta om slutet Sub

Byta namn

För att byta namn på filen 1.txt som finns i C: \ till 2.txt kan du använda följande kod:

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

API -sätt

Privat deklarera funktion MoveFile Lib _ "kernel32.dll" Alias ​​"MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click () Dim retval As Long "return value retval = MoveFile (" C: \ 1 .txt "," C: \ 2.txt ") If retval = 1 Då MsgBox" Success "Else MsgBox" Error "End If End Sub

Bestäm filstorlek

Filstorlek kan bestämmas på två sätt:

Om filen kan öppnas med OPEN -funktionen kan du använda LOF -funktionen

Dim FileFree As Integer Dim FileSize As Long FileFree = FreeFile Open "C: \ WIN \ GENERAL.TXT" For Input As FileFree FileSize = LOF (FileFree) Close FileFree

Eller använd FileLen -funktionen

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

Dölj klockan programmatiskt

Lägg till 2 knappar och klistra in koden:

Alternativ Explicit Private Declare Function 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 () 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", vbNullString) hndEndWindWindow hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Dölj klocka" Command2.Caption = "Visa klocka" Avsluta sub

Lägg till ikon i facket

Lägg till en modul, klistra in koden i den:

Deklarera funktion Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Integer Public Const NIM_ADD = 0 Public Const NIM_MODIFY = 1 Public Const NIM_DELETE = 2 Public Const NIF_MESSAGE = 1 Public Const NIF_ICONTY 2 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 Eller NIF_TIP nidTemp.uCallbackMessemp = 0 & nidTraycon = Shell_NotifyIconA (Mode, nidTemp) Slutfunktion

För att använda, klistra in i formulärkoden:

Private Sub Form_Load () SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "För att ta bort Private Sub Command1_Click () SetTrayIcon NIM_DELETE, Me.hWnd, 0 &," "End Sub

Blockerar startknappen

Privat deklarera funktion 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 EnableWindow Lib "user32" _ (ByVal hwnd As Long, ByVal fEnable As Long) As Long Public Sub EnableStartButton (Valfritt aktiverat som Boolean = True) Dim lHwnd As Long "find hWnd lHwnd & = FindWindowEx (FindWindow (" Shell_TrayWnd "," "), 0 &," Button ", vbNullString) Call EnableWindow (lHwnd &, CLng (Enabled)) End Sub Private Sub Command1_Click () EnableStartButton False "START -knappen är låst End Sub Private Sub Command2_Click () EnableStartButton True" START -knappen är inte låst Avsluta Sub

Läser parametrar från INI -fil

Programmet ansluter till FTP, och parametrarna skrivs i ini -filen - server, inloggning, port, lösenord.

Från början skapar vi en INI -fil:

Servname = server usern = Logga in pwd = lösenord port = port

Placera den i programmappen. Därefter sätter vi in ​​i modulen:

Privat deklarera funktion WritePrivateProfileString Lib _ "kernel32" Alias ​​"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpString As String, ByVal lpFileName As String) As Long kernel Private Declare Function (GetPrivateProfileProfileProfileProfileProfileProfileProfileProfileProfileStringA) 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 RazdelI, Param, App.Path & "\ test.ini", "0") Slutfunktion Privat funktion GetValue (ByVal -sektion som sträng, _ ByVal -nyckel som sträng, ByVal fFileName som sträng, Valfri ByVal DefaultValue som sträng = vbNullString) Som sträng 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

Sedan klistrar vi in ​​formulärkoden:

Privat deklarera funktion 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 dwVFlags As , ByVal dwVFlags As Long, ByVal dwVFlags As Long, ByVal Long) As Long Private Declare Function FtpPutFile Lib _ "wininet.dll" Alias ​​"FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _ ByVal lpszRem, ByVal dwFlags As Long, ByVal dw) AsContext Asole Long Function FtpGetFile Lib _ "wininet.dll" Alias ​​"FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal , LongAttributes _ 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 &

Och i knappkoden:

rc & = InternetOpen ("", 0, vbNullString, vbNullString, 0) rs & = InternetConnect (rc &, ReadIni ("General", "servname"), "0", _ ReadIni ("General", "usern") , ReadIni ("Allmänt", "pwd"), 1, 0, 0) If FtpGetFile (rs &, "Your file.txt", "path where", False, 0, 1, 0) = False Sedan avsluta samtal InternetCloseHandle (rs &) Ring InternetCloseHandle (rc &)

Lista över löpande processer

Lägg till listbox och en knapp, sätt in följande kod:

Alternativ 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 hSnS Så länge som PROCESSENTRY32) Så länge privat deklarera funktion 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_SNAPPRO = 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 cntThreads As Long th32ParentProcessID As Long AsPPPROPP r As Long Private Sub Command1_Click () List1.Clear hSnapShot = Cre ateToolhelpSnapshot (TH32CS_SNAPPROCESS, 0 &) If hSnapShot = 0 Avsluta sedan Sub End If uProcess.dwSize = Len (uProcess) r = ProcessFirst (hSnapShot, uProcess) Do While r List1.AddItem uProcess.szEXFile) Sub

Att sätta ett program vid start

För att programmet ska kunna laddas tillsammans med Windows, liksom vissa andra program, kan du använda registret:

Lägg till 2 knappar och följande kod:

Private Sub Command1_Click () "Registry entry Set Reg = CreateObject (" WScript.Shell ") Reg.RegWrite" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ Ditt programnamn ", _" Sökvägen till ditt program "Avsluta sub Private Sub Command2_Click () "Ta bort från registret Set Reg = CreateObject (" WScript.Shell ") Reg.RegDelete" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ Ditt programnamn "End Sub

Och för att programmet ska kunna laddas tillsammans med Windows, även i säkert läge, sedan en kod som denna:

Först ett allvarligare sätt (för säkerhets skull säkerhetskopiering register).

Privat underkommando1_Click () Ange Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Shell", _ "Sökväg till ditt program" Avsluta sub privat underkommando2_Klicka () " Detta är för att återställa Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Shell", _ "Explorer.exe," End Sub

Tja, och ett enkelt sätt.

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 , Sökvägen till ditt program "End Sub Private Sub Command2_Click ()" För att återställa Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Userinit", _ "C : \\ WINDOWS \\ system32 \\ userinit.exe, "Avsluta sub

Dölj aktivitetsfältet

Lägg till 2 knappar och klistra in koden:

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) As Long Private Declare Funktion FindWindow Lib "user32" Alias ​​"FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const SWP_HIDEWINDOW = & H80 Const SWP_SHOWWINDOW = & H40 "Hides Private Sub Command1_Click () hwnd1 =" Shell_trawindow ("" Shell_traw) Call SetWindowPos (hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Show Private Sub Command2_Click () hwnd1 = FindWindow (" Shell_traywnd "," ") Call SetWindowPos (hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) Avsluta sub

Packa upp RAR -arkivet

För att packa upp ett RAR -arkiv kan du använda följande kod:

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

Hur mycket RAM finns i datorn

Lägg till en knapp och klistra in följande 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 dwAvailwatPage As TMemoryStatus) ms.MwStory) Totalt: "& ms.dwTotalPhys & vbCr &" Free: "_ & ms.dwAvailPhys & vbCr &" Used in%: "& ms.dwMemoryLoad End Sub

Dölj skrivbordsikoner

Detta görs på följande sätt. Lägg till 2 knappar och klistra in följande kod:

Private Declare Function ShowWindow & Lib "user32" (ByVal hwnd &, ByVal nCmdShow &) Private Declare Function FindWindow Lib _ "user32" Alias ​​"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const SW_HIDE = 0 Const SW_NORMAL = 1 Private Sub Command1_Click () Dim hHandle As Long hHandle = FindWindow ("progman", vbNullString) Ring ShowWindow (hHandle, SW_HIDE) Avsluta Sub Private Sub Command2_Click () Dim hHandle As Long hHandle = FindWindow ("progmanString", vb ) Ring ShowWindow, SW_NORMAL) Avsluta sub

Knappen Command1 döljer ikonerna, Command2 får ikonerna att visas.

Det är allt för mig, jag hoppas att ovanstående exempel kommer att vara användbara för dig, för tillfället!