Alternativ för att ersätta Microsoft Small Basic. Informatik- och IKT-lektion på ämnet: "Introduktion till Small Basic-programmeringsmiljön" Exempel på att arbeta med mappar

Grunderna i programmering.

Programmeringsspråk Små Grundläggande

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

Mål: Att bekanta med programmeringsspråket Small Basic.

Uppgifter:

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

Att lära ut hur man arbetar i denna programmeringsmiljö. NS bekanta dig med omgivningens "textobjekt". Smal Basic.

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

Projektets huvudsakliga pedagogiska uppgifter:

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

De viktigaste utvecklingsuppgifterna för projektet:

Att hos elever forma nyckelkompetenser som bidrar till framgångsrik social anpassning;

Att utveckla viljan till självutveckling och personlig tillväxt genom kognitiv aktivitet.

Känna till: Grundläggande begrepp: objekt, variabler, tilldelning, datatyper, input-output.Känna till beståndsdelarna i Small Basic-programmeringsmiljön.

Kunna: Ladda Smal Basic-programmet. Skapa de enklaste projekten i en given programmeringsmiljö. Kunna lägga 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. Lektionsfö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örberedelser inför lektionen (kontrollera beredskapen för lektionen, markera frånvarande)

   Kunskapsuppdatering

Vad är programmering till för?

Du vill skriva ett abstrakt i biologi. Troligtvis kommer du att skriva det på din dator i någon textredigerare. Var kom textredigeraren ifrån? Naturligtvis skrev programmerare det. Du kommer att söka information på Internet med hjälp av en webbläsare som också är skriven av programmerare. När du har skrivit ditt abstrakt kommer du att vilja vila och leka datorspel, som återigen 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.

Stadier av problemlösning.

Grundläggande koncept

Programmering - skriva program.

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

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

I objektorienterad programmering konceptet med ett objekt har introducerats, beräkningsmekanismer har implementerats som tillåter:

Beskriv ett objekts struktur

Beskriv handlingar med objekt

Använd speciella regler för objektsarv (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 Grundläggande - ett programmeringsspråk utvecklat av företaget. Designad för nybörjare som vill förstå grunderna i mjukvaruutveckling.

Huvudfö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 endast 20 nyckelord

Kontextuell dokumentation för alla språkelement inbyggd i utvecklingsmiljön

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

En speciell fördel med BASIC bör betraktas som förmågan att arbeta i tolkningsläget, vilket avsevärt förenklar processen för felsökning av program: exekveringen av nästan varje kommando kan kontrolleras omedelbart efter skrivning.

Slutsats uttalande

WriteLine ("Hej!")

Visar raden (text eller siffra )

Hallå!

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

TextWindow.WriteLine ("Hej!")

Programmet matas in i fönstretSmåGrundläggandeoch startas av knappenLöpning eller med nyckel F 5

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

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

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

Objektet besitter egenskaper och metoder.

Objektmetod något som föremålet kan göra, dvs det är detoperationer (operatörer )

Parameter operationen omges av parentes WriteLine()

Samma objekt textruta besitter egenskaper (detta är egenskaperna hos objektet) , till exempel

Egenskapen BackgroundColor - ställer in 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 tecknet " = " - detta är uppdragsoperatör

Strängvärde

a = a + 5

Ta värdet av variabel a

Lägg till 5 till det

Sätt in 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 åtgärder:

Sinus, logaritm, rot

Lim

Dela upp i delar

Sök symboler

Byt ut tecken

EXEMPEL med operatorn "+"

uttryck

resultat

uttryck

resultat

"Ivan" + "ova"

"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 ​​(namn)

modul

Math.Cos ( namn)

cosinus

Math.Ceiling (namn)

avrundas till ett heltal

Math.GetDegrees ( namn)

konvertera ett tal från radianer till grader

Math.GetRandomNumber ( maxnamber)

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

NaturalLog (namn)

Naturlig logaritm

Math.Pi

Pi

Math.Power ( basnamn, exponent)

V omultiplicera basnamn till exponent

Matematik. Max (namn1, namn2)

Max två nummer

Matematik. Resterande (utdelning, divisor)

Resten av divisionen

Matematik .Sin (namn)

Sinus

Matematik. Solbränna(namn)

Cosinus

Matematik .ScuareRoot (namn)

Rot

Matematik. Runda(namn)

Normal avrundning

Matematik .ArcSin (namn)

Arcsine

Matematik. Golv(namn)

Avrundar till närmaste minsta heltal

x = TextWindow.ReadNumber ()

y = Math.Abs ​​(x)

TextWindow.WriteLine ("y lika "+ y)

Math.Pi

Säkra materialet

1. Själv praktiskt arbete för PC

Uppdrag för självständigt arbete

Övning 1:

Fastställ 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 3 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 diskriminanten

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= ln (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 till för?

Vilka är de grundläggande delarna av 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ödjande anteckningar

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

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

Ansökan

OK 1: Grunderna i 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 åtgärder:

Sinus, logaritm, rot

Lim

Dela upp i delar

Sök symboler

Byt ut tecken

Programmering

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

Driftsparameter inom parentes - WriteLine()

Ett objekt textruta besitter egenskaper , till exempel

Fast egendom Bakgrundsfärg - ställer in bakgrundsfärgen för text,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

operatorn "+"

Grundläggande operatörer

Använda matematiska funktioner i uttryck

Att 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 "+ y)

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

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

TextWindow.WriteLine ("ange värdet för variabel 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 matas in i fönstretSmåGrundläggandeoch startas av knappenLöpning 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 just 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 utgång med ett utgångsbekräftelsemeddelande. I allmänhet öppet onsdag Visuell programmering Grundläggande, skapa ett standardprojekt, placera sedan en knapp på formuläret, klicka på knappen så kommer du att se kodredigeringsfönstret, och där måste du infoga följande kod:

Beep Dim meddelande Som String Dim buttonsandicons As Heltal Dim title As String Dim svar Som String 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 Lösenord = "12345" Pword = InputBox If Pword<>Lösenord Sedan MsgBox "Lösenordet är inte korrekt" End End If

Där, 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, infogar du det här:

Pip Dim meddelande Som String Dim knapparandikoner Som heltal Dim title As String meddelande = "Meddelande" title = "(! LANG: Meddelande" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

Rita på en blankett

Privat Sub Form_MouseDown (Knapp Som heltal, Skift Som heltal, X Som Heltal, Y Som Singel) Form1.CurrentX = X Form1.CurrentY = Y Slut Sub Privat Sub Form_MouseMove (Knapp Som Heltal, Skift Som Heltal, X Som Singel, Y Som Single) If Button = 1 Then Line (Form1.CurrentX, Form1.CurrentY) - (X, Y), QBColor (0) End If End Sub

Du kan ändra färgen 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, (avstängning))! \\" _ & strComputer & "\ root \ cimv2") Ställ in colOperatingSystems = objWMIService.ExeperacQuery ("Välj * från för Win32_O varje objoperativsystem 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 endast en gång, dvs. vid omstart visas ett motsvarande meddelande. Infoga i formulärkoden:

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

Datoravstängning

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, (avstängning))! \\" _ & strComputer & "\ root \ cimv2") Ställ in colOperatingSystems = objWMIService.ExeperacQuery ("Välj * från för Win32_O varje objoperativsystem 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:

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

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

Hur länge fungerar datorn

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

Privat deklarationsfunktion GetTickCount Lib "kernel32" () Så lång "Och in 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) _ &" timmar "& Str (a_minute) &" minuter "& Str (a_second) &" sekunder "

Vi har tagit upp 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å att arbeta med mappar

Ta bort katalog

Private Declare Funktion RemoveDirectory & Lib _ "kernel32" Alias ​​"RemoveDirectoryA" (ByVal lpPathName As String) "Ta bort katalog (tom!) PathName $ =" D: \ t "kod & = RemoveDirectory (PathName) Om kod & = 0 Då" Fel vid borttagning av katalog Annars "Katalog raderad End If

Skapa katalog

Sub MakeDir (dirname As String) Dim i As Long, path As String Do i = InStr (i + 1, dirname & "\", "\") sökväg = Left $ (dirname, i - 1) If Right $ (sökväg , 1)<>":" Och Dir $ (sökväg, vbDirectory) = "" Sedan MkDir sökväg End If Loop Till i> = Len (dirname) End Sub Private Sub Command1_Click () Ring MakeDir ("C: \ Soft \ 1 \ 2 \ 3 \ ") End 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, knappens namn = CmdStart

Statisk körs som 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 = "Stoppar" Else running = True MousePointer = vbHourglass CmdStart.Caption = "Stoppa" 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 If GetAttr (sub_dir) And vbDirectory Then AllDirs.Add sub_dir End If sub_dir = Dir $ (, vbDirectory) Loop DoEvents If Not running Then 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 = Falskt Slut Om

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

Katalogstorlek

Const MAX_PATH = 260 Privat Typ FILETIME dwLowDateTime As Long dwHighDateTime As Long End Typ Privata Typ WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime Som FILETIME ftLastAccessTime Som FILETIME ftLastWriteTime Som FILETHIME Som FILETIME ftLastWriteTime Som FILETIME Som FILETIME ftLastWriteTime Som FILETHIME Som nFile * 14 End Typ Privata Declare Funktion Findfirstfile Lib _ "kernel32" Alias ​​​​"FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindNextFile Lib _ "kernel32" Alias ​​"FindNextFileA" (Long_Find_FileA) (ByFind_File Declare Long_Find AsFile) 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: 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 Då hFind = FindFirstFile (EndSlash (DirPath) & "*. *", Fdata) Om hFind = 0 Avsluta funktionen Gör If (fdata.dwFileAttributes And vbDirectory) = vbDirectory Then sName = Left $ (fdata.cFileName, InStr (fdata.cFileName, vbNullChar) - 1) If sName<>"." Och sName<>".." Då dblSize = dblSize + SizeOf (EndSlash (DirPath) & sName) End If Else dblSize = dblSize + fdata.nFileSizeHigh * 65536 + fdata.nFileSizeLow End If DoEvents Loop While FindNextFile (hFind)<>0 hFind = FindClose (hFind) End If Else On Error Resume Next dblSize = FileLen (DirPath) End If SizeOf = dblSize Slutfunktion Privat funktion EndSlash (ByVal PathIn As String) As String If Right $ (PathIn, 1) = "\" Sedan EndSlash = PathIn Else EndSlash = PathIn & "\" End If End Funktion Privat Sub Form_Load () "Ersätt" D: \ soft "med den katalog du vill veta storleken på MsgBox SizeOf (" D: \ soft ") / 1000000 End Sub

Exempel på arbete med filer

Kopiera

Låt oss säga att vi har en fil som heter 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 () "Copy file C: \ 1.txt till D : \ 1.txt Dim retval As Long "returvärde" Kopiera fil retval = CopyFile ("C: \ 1.txt", "D: \ 1.txt", 1) Om retval = 0 Då "If MsgBox error" Kan inte kopiera "Else" Om allt är ok MsgBox "File copied." End If End 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

Private Declare 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 As Long" Returvärde retval = DeleteFile ( "C: \ 1.txt") Om retval = 1 Då MsgBox "Filen raderades framgångsrikt." 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 ") Om retval = 1 Då MsgBox" Flyttade framgångsrikt "Else MsgBox" Fel "End If End Sub

Byter 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 ") Om retval = 1 Då MsgBox" Framgång "Else MsgBox" Fel "End If End Sub

Bestäm filstorleken

Filstorleken 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 Öppna "C: \ WIN \ GENERAL.TXT" för inmatning som FileFree FileSize = LOF (FileFree) Stäng 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 privat deklarationsfunktion FindWindow Lib _ "user32" Alias ​​"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declaration Function FindWindowEx Lib _ "user32" Alias ​​"FindWindowy As" _ Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Privat Deklarera Funktion 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) hnd ( = FindWind hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Dölj klocka" Command2.Caption = "Visa klocka" End 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) Som heltal Public Const NIM_ADD = 0 Public Const NIM_MODIFY = 1 Public Const NIM_DELETE = 2 Public Const NIF_IC_MESSONT 2 = Public Const NIF_IC_MESSONT 2 = Public Const NIF_IC_MESSONT2 = Public Const NIF_IC_MESSONT2 Typ NOTIFYICONDATA cbSize As Long hWnd As Long uID As Long uFlaggar Så 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.uCallbackMessage = 0 & nidTraycon = 0 & nidTraycon, Fund_NotifyI End

För att använda, klistra in i koden för formuläret:

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

Private Declaration Function FindWindow Lib "user32" Alias ​​"FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declaration Function FindWindowEx Lib "user32" Alias ​​​​"FindWindowExA" _ (ByVal As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Privat Deklarera Funktion EnableWindow Lib "user32" _ (ByVal hwnd As Long, ByVal fEnable As Long) As Long Public Sub EnableStartButton (valfritt Enabled As Boolean = True) lHwnd As Long " find hWnd lHwnd & = FindWindowEx (FindWindow ("Shell_TrayWnd", ""), 0 &, "Button", vbNullString) Anrop 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 inte låst End 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 = login pwd = lösenordsport = port

Placera den i programmappen. Därefter infogar vi i modulen:

Private Declare Funktion WritePrivateProfileString Lib _ "kernel32" Alias ​​​​"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpString As String, ByVal lpFileName As String) As Long FunelPro kärnaB As Long FunelPro kärnaB (Lirivas) 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,In Param (Razdel Read, In Param) , App.Path & "\ test.ini", "0") Slutfunktion Privat funktion GetValue (ByVal Section As String, _ ByVal Key As String, ByVal fFileName As String, Optional ByVal DefaultValue As String = vbNullString) As String Dim Data As String Data = String $ (1000, Chr $ (0)) Om GetPrivateProfileString (Section, Key, DefaultValue, Data, 1000, fFileName)> 0 Då GetValue = Left $ (Data, InStr (Data $, Chr $ (0)) ) - 1 ) Else GetValue = DefaultValue End If Exit Function End Function

Sedan klistrar vi in ​​i formulärkoden:

Private Declare 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) Fun PrivateConnect As Long 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 nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal nService As Long, VF , ByVal dwVFlags As Long, ByVal dwVFlags As Long, ByVal Long) As Long Privat Deklarera Funktion FtpPutFile Lib _ "wininet.dll" Alias ​​​​"FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, As String, As String, As String 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 lpszFilEx, ByVal lpszNewFile,ByValExf As String, ByValEx. , LongAndAttributes _ ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean Privat Deklarera Funktion 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 ("Allmänt", "servname"), "0", _ ReadIni ("Allmänt", "användare") , ReadIni ( "General", "pwd"), 1, 0, 0) Om FtpGetFile (rs &, "Din fil.txt", "sökväg där", False, 0, 1, 0) = Falskt Avsluta sedan samtal InternetCloseHandle (rs &) Ring InternetCloseHandle (rc &)

Lista över pågående processer

Lägg till Listbox och 1 knapp, infoga följande kod:

Alternativ Explicit privat deklareringsfunktion CreateToolhelpSnapshot Lib _ "Kernel32" Alias ​​"CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) Så länge som PROCESSENTRY32) Så länge Privat deklarera Funktion ProcessNästa Lib _ "Kernel32" Alias ​​"Process32Next" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Privat Deklarera Sub CloseHandle Lib "Kernel32" (ByVal As Long) Const TH32CS_SNAPPRO = 2 & Privat Const MAX_PATH Som heltal = 260 Privat typ PROCESSENTRY32 dwSize Så lång cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long As Long thlassFcessPrcProssProssLong As Long thlassFProssPrcn r Så länge Privat Sub Kommando1_Klicka () List1.Clear hSnapShot = Cre ateToolhelpSnapshot (TH32CS_SNAPPROCESS, 0 &) Om hSnapShot = 0 Avsluta Sub End If uProcess.dwSize = Len (uProcess) r = ProcessFirst (hSnapShot, uProcess) Gör medan ringer r List1.AddItem uProcess.szExHandle) (Stäng = ProcessNexle.szExHandle) Avsluta Sub

Sätta ett program på start

För att programmet ska laddas tillsammans med Windows, som 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 "End Sub" Private Sub Command2_Click () "Ta bort från registret Set Reg = CreateObject (" WScript.Shell ") Reg.RegDelete" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Kör \ Ditt programnamn "End Sub

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

Till att börja med, ett mer seriöst sätt (för säkerhets skull, gör en säkerhetskopia av registret).

Private Sub Command1_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 Private Sub Command2_Click () " 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

Nåväl, 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, "End Sub

Göm aktivitetsfältet

Lägg till 2 knappar och klistra in koden:

Privat deklarera Funktion 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 Privat deklarera Funktion FindWindow Lib "user32" Alias ​​"FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const SWP_HIDEWINDOW = & H80 Const SWP_SHOWWINDOW = & H40 "Döljer privat sub Command1_Window" Shell_trawindow ("" Shell_trawindow) Anrop SetWindowPos (hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Visar privat underkommando2_Click () hwnd1 = FindWindow (" Shell_traywnd "," ") Anrop SetWindowPos (h,wnd 0, 0, 0, 0, SWP_SHOWWINDOW) End Sub

Packa upp RAR-arkiv

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-minne finns i datorn

Lägg till en knapp och klistra in följande kod:

Private Declaration Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As TMemoryStatus) Privat typ TMemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwAvailwatPageTotalPageTotalSidox:B)CallPageFiledms GlobalStats:B) (L) " & ms.dwTotalPhys & vbCr & "Gratis:" _ & ms.dwAvailPhys & vbCr & "Används i %:" & 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 = Long AsHIDE As String) Const SW_NORMAL = 1 Privat 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 ShowWindow , SW_NORMAL) End Sub

Kommando1-knappen döljer ikonerna, Kommando2 gör att ikonerna visas.

Det var allt för mig, jag hoppas att exemplen ovan kommer att vara användbara för dig, för nu!

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

Gratis öppen källkod Mac Windows Linux

NetBeans

Gratis öppen källkod IDE för utvecklare programvara... Du får alla verktyg du behöver för att skapa professionella skrivbord, företag, webb och mobilapplikationer 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 svit av 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 en snabb, smart och gratis redigerare med öppen källkod. Testa 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 paketeras på skiva med varje köpt Mac OS X, är den den mest en ny versionäven 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 apparna du skapar

Gratis Mac

MonoDevelop

MonoDevelop är en plattformsöverskridande IDE som främst är designad för C # och andra .NET-språk. MonoDevelop tillåter utvecklare att snabbt bygga skrivbords- 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 samtidigt som de behåller en enda kodbas för alla plattformar

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

Lasarus

Free Pascal är en GPL-kompilator som fungerar på Linux, Win32, OS / 2, 68K och mer. Free Pascal är designad för att förstå och kompilera Delphi-syntax. Lazarus är en del av ett saknat pussel som gör att du kan 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 kodkomplettering, kodanalys i farten, stöd för refactoring och VCS-integration.

Betalt Mac Windows Linux

SharpDevelop

#develop (förkortning av SharpDevelop) är en gratis utvecklingsmiljö för C #, VB.NET och Boo-projekt på Microsoft-plattformen. Det är en miljö med öppen källkod. Du kan ladda ner både källkod och körbara filer.