„Eclipse“ yra išplečiama kūrimo platforma, turinti vykdymo laikus ir taikomųjų programų platformas, skirtas kurti, paleisti ir valdyti programinę įrangą per visą jos gyvavimo ciklą. Daugelis žmonių žino „Eclipse“ kaip „Java IDE“, tačiau iš tikrųjų „Eclipse“ sudaro daugiau nei 60 skirtingų atvirojo kodo projektų.
Nemokamas atviras šaltinis Mac Windows Linux
NetBeans
Nemokama ir atviro kodo IDE kūrėjams programinė įranga. Jūs gaunate visus įrankius, reikalingus profesionaliems darbalaukiams, įmonės, žiniatinklio ir mobiliosios programos Java, C/C++ ir net dinamiškomis kalbomis, tokiomis kaip PHP, JavaScript, Groovy ir Ruby
Nemokamas atviras šaltinis Mac Windows Linux BSD
Aptana studija
„Aptana Studio“ yra visapusiška žiniatinklio kūrimo aplinka, sujungianti galingus kūrimo įrankius su internetinių prieglobos ir bendradarbiavimo paslaugų rinkiniu, kad padėtų jums ir jūsų komandai nuveikti daugiau. Apima PHP, CSS, FTP ir kitų palaikymą.
Nemokamas atviras šaltinis Mac Windows Linux
Komodo Redaguoti
Komodo Edit yra greitas, protingas ir nemokamas atvirojo kodo redaktorius. Pabandykite naudoti Komodo Edit (arba jo didįjį brolį Komodo IDE) – verta.
Nemokamas atviras šaltinis Mac Windows Linux
Xcode
„Apple Xcode“ yra pirmaujanti „Mac OS X“ kūrimo aplinka. Be to, kad ji įtraukiama į diską kiekvieną kartą perkant „Mac OS X“, ji yra pati geriausia nauja versija taip pat visada galima nemokamai atsisiųsti ADC nariams ( Socialinis tinklas programų kūrėjams visose Apple platformose) ir apima visus įrankius, reikalingus kuriant, koreguoti ir optimizuoti kuriamas programas.
Laisvas Mac
MonoDevelop
MonoDevelop yra kelių platformų IDE, pirmiausia sukurta C# ir kitoms .NET kalboms. „MonoDevelop“ leidžia kūrėjams greitai sukurti darbalaukio ir ASP.NET žiniatinklio programas, skirtas „Linux“, „Windows“ ir „Mac OSX“. „MonoDevelop“ leidžia kūrėjams lengvai perkelti „Visual Studio“ sukurtas .NET programas į „Linux“ ir „Mac OSX“ viena bazė kodas visoms platformoms
Nemokamas atviras šaltinis Mac Windows Linux. NET Framework Xamarin studija
Lozorius
Free Pascal yra GPL kompiliatorius, veikiantis Linux, Win32, OS/2, 68K ir kt. „Free Pascal“ skirta suprasti ir sudaryti „Delphi“ sintaksę. „Lazarus“ yra trūkstamos dėlionės dalis, kuri leis jums sukurti „Delphi“ tipo programas visoms aukščiau nurodytoms platformoms. Kadangi tas pats kompiliatorius yra prieinamas visose aukščiau nurodytose platformose, tai reiškia, kad jums nereikia iš naujo koduoti, kad sukurtumėte identiškus produktus skirtingoms platformoms
Nemokamas atviras šaltinis Mac Windows Linux BSD OpenSolaris
WebStorm
JetBrains WebStorm yra komercinė JavaScript, CSS ir HTML kūrimo aplinka, sukurta JetBrains IntelliJ IDEA platformoje.
„WebStorm“ teikia automatinį kodo užbaigimą, greitą kodo analizę, keitimo palaikymą ir VCS integravimą.
Mokama Mac Windows Linux
SharpDevelop
#develop (sharpDevelop trumpinys) yra nemokama C#, VB.NET ir Boo projektų kūrimo aplinka Microsoft platforma. Tai atvirojo kodo aplinka. Galite atsisiųsti kaip šaltinis, ir vykdomuosius failus.
Programavimo pagrindai.
Programavimo kalba Mažas Pagrindinis
1-OJI PAMOKA: Supažindinimas su programavimo aplinka Mažas Pagrindinis .
Tikslas: Pristatykite su Small Basic programavimo kalba.
Užduotys:
Pradėkite mokytis programavimo kalbos Small Basic. Pateikite OOP (objektinio programavimo) sąvoką.
Išmokite dirbti šioje programavimo aplinkoje. P pristatyti aplinkos „tekstinį objektą“. Small Basic.
Suteikite pirmąją idėją apie programų kūrimą programavimo aplinkoje.
Pagrindiniai projekto edukaciniai tikslai:
Asmeninių savybių ugdymas: atsidavimas, dėmesingumas, tikslumas, objektyvumas savigarboje, atsakingumas, pažintinis susidomėjimas.
Pagrindinės projekto plėtros užduotys:
Ugdyti mokiniuose pagrindines kompetencijas, prisidedančias prie sėkmingos socialinės adaptacijos;
Ugdykite savęs tobulėjimo ir asmeninio augimo troškimą per pažintinę veiklą.
Žinoti: Pagrindinės sąvokos: objektas, kintamieji, priskyrimas, duomenų tipai, įvestis-išvestis.Žinoti „Small Basic“ programavimo aplinkos sudedamąsias dalis.
Galėti: Atsisiųskite „Smal Basic“ programą. Kurkite paprastus projektus šioje programavimo aplinkoje. Mokėti įvesti matematines funkcijas ir rašyti matematines išraiškas Smal Basic kalba. Parašykite paprastas linijines programas.
Įranga ir medžiaga: pagalbiniai paskaitų užrašai (žr1 priedas ), užduočių kortelės, kompiuteris, „Small Basic“ programa, lenta, daugialypės terpės projektorius, ekranas.
Užsiėmimų metu:
Pasiruošimas pamokai
Žinių atnaujinimas
Klausimai tema
Įvertinimas
Namų darbai
Laiko organizavimas
Naujos medžiagos paaiškinimas
Sustiprinti išmoktą medžiagą
Apibendrinant
Pasiruošimas pamokai (patikrinkite pasirengimą pamokai, pažymėkite neatvykusius)
Žinių atnaujinimas
Laiko organizavimas
Kodėl reikalingas programavimas?
Norite parašyti esė apie biologiją. Greičiausiai tai parašysite savo kompiuteryje kokiame nors teksto redaktoriuje. Iš kur atsirado teksto rengyklė? Žinoma, tai parašė programuotojai. Informacijos ieškosite internete naudodami naršyklę, kurią taip pat parašė programuotojai. Kai parašysite esė, norėsite atsipalaiduoti ir žaisti kompiuterinis žaidimas, kurį vėl parašė programuotojai. Apskritai darbas kompiuteriu neįmanomas nenaudojant programuotojų rašomų programų. Tai reiškia, kad jei nebūtų programavimo, nebūtų ir programų, o kompiuteris būtų krūva brangios techninės įrangos, nes naudojant kompiuterį be programų nieko padaryti neįmanoma.
Problemų sprendimo etapai.
Pagrindinės sąvokos
Programavimas - rašyti programas.
Programa – algoritmas, parašytas kompiuteriui suprantama programavimo kalba.
Algoritmas – aiški veiksmų seka, nukreipta į tikslą.
Objektiniame programavime buvo pristatyta objekto koncepcija, įdiegti skaičiavimo mechanizmai, leidžiantys:
Apibūdinkite objekto struktūrą
Apibūdinkite veiksmus su objektais
Naudokite specialias objekto paveldėjimo taisykles (Paveldėjimas reiškia naujų objektų kūrimą iš esamų)
Nustatykite objekto komponentų apsaugos laipsnį
teorija
Pirmas susitikimas
Microsoft Small Basic - programavimo kalba, kurią sukūrė . Sukurta pradedantiesiems kūrėjams, norintiems išmokti programų kūrimo pagrindus.
Pagrindiniai privalumai:
Labai paprasta kūrimo aplinka – teksto rengyklė su daugiafunkciu patarimu ir vos keliais mygtukais tekstui redaguoti bei programoms paleisti.
Paprasta kalba tik 20 raktinių žodžių
Visų kalbos elementų, integruotų į kūrimo aplinką, kontekstinė dokumentacija
Galimybė išplėsti „Small Basic“ komponentus, kad būtų įtraukta papildomų funkcijų. (Pavyzdžiui, pristatyme jau yra galimybių dirbti su paslaugomis)
Ypatingas BASIC privalumas yra galimybė dirbti interpretavimo režimu, kuris labai supaprastina programų derinimo procesą: beveik kiekvienos komandos vykdymą galima patikrinti iškart po parašymo.
Išvados operatorius
WriteLine („Sveiki!“)Rodo eilutę (tekstą arba numerį )
Sveiki!
Norėdami gauti rezultatą - rodomas tekstas „Labas! į ekraną - reikia parašyti programą:
TextWindow.WriteLine("Sveiki!")
Programa įvedama į langąMažasPagrindinisir prasideda mygtukuPaleisti arba raktas F 5
Programos rezultatas yra teksto išvestis: "Labas!" VTeksto laukelis programas.
Linija reiškia „Paspauskite bet kurį klavišą, kad tęstumėte...“
„TextWindow“ yra „teksto lango“ objektas, kuriame gali būti rodomas tekstas.
Objektas turi savybių Ir metodus.
Objektinis metodas -ką gali padaryti objektas, t.yoperacijos (operatoriai )
Parametras Operacija yra WriteLine skliausteliuose()
Taip pat objektas teksto laukelis turi savybių (tai yra objekto savybės) , Pavyzdžiui
BackgroundColor ypatybė – nustato teksto fono spalvą,Priekinio plano spalva- teksto spalva
Spalvos:
raudonageltona
žalias
mėlyna
juodas
baltas
raudona
geltona
žalias
mėlyna
juodas
baltas
Kintamasis
Kintamieji dažnai naudojami kuriant programas.
Kintamasis turivardas - lotyniška raidė (a)
Kintamajam gali būti priskirta reikšmė, pvz., skaitinė reikšmė
a= 5, kur ženklas " = “ – tai priskyrimo operatorius
Eilutės reikšmėa = a + 5
Paimkite kintamojo a reikšmę
Pridėkite prie jo 5
Į kintamąjį a įdėkite naują reikšmę, ištrindami iš jo ankstesnę
Yra dviejų tipų kintamieji: numeris Ir linija
10, -5, 3.14 „kompiuterija“
Sulenkite +padauginti*
Padalinti /
Matematinės operacijos:
Sinusas, logaritmas, šaknis
Klijai
Padalinkite į dalis
Ieškokite simbolių
Pakeiskite simbolius
PAVYZDYS su operatorius "+"
išraiška
rezultatas
išraiška
rezultatas
"Ivanas" + "ova"
"Ivanova"
"klasė" + 10
"10 klasė"
Programavimas
1 pavyzdys: programos rezultatas
2 pavyzdys: programos rezultatas
3 pavyzdys: programa apskaičiuoja ir parodo dviejų kintamųjų sumąa Ir b
Math.Abs(skaičius)
modulis
Math.Cos( numerį)
kosinusas
Math.Ceiling(skaičius)
apvalina iki sveiko skaičiaus
Math.GetDegrees( numerį)
paverčiant skaičius iš radianų į laipsnius
Math.GetRandomNumber( maksimalus skaičius)
Atsitiktinis skaičius diapazone nuo 1 ikimaksimalus skaičius
NaturalLog(skaičius)
Natūralus logaritmas
Matematika.Pi
Pi
Math.Power ( baseNumber, eksponentas)
IN okonvertuojant baseNamber į eksponentą
Matematika. Maks. (1, 2)
Daugiausia du skaičiai
Matematika. Likutis (dividendas, daliklis)
Likęs skyrius
Matematika .Sin(skaičius)
Sinusas
Matematika. Tan(numerį)
Kosinusas
Matematika .Kvadratinė šaknis(skaičius)
Šaknis
Matematika. Apvalus(numerį)
Įprastas apvalinimas
Matematika .ArcSin(skaičius)
arcsine
Matematika. Grindys(numerį)
Suapvalinama iki artimiausio mažiausio sveikojo skaičiaus
x=TextWindow.ReadNumber()
y=Math.Abs(x)
TextWindow.WriteLine("y lygus "+y)
Matematika.PiMedžiagos tvirtinimas
Nepriklausomas praktinis darbas PC
Užduotys skirtos savarankiškas darbas
1 pratimas:
Nustatykite galutinius priskyrimo teiginių rezultatus
X=3Y=2
X=X+2
Y=X*2
X=Y
A= 15
B=A
A=B/5+2
B=A*3
A=0
2 užduotis : Sukurkite programą, skirtą 3 kintamųjų sandaugai apskaičiuoti:a , b Ir c .
3 užduotis : Sukurkite programą išraiškai apskaičiuoti:z=5* x+ y/2 (darant prielaidą, kad x = 10,y=100)
4 užduotis: Sukurkite programą, kad būtų rodomos X reikšmės irY, pagal 1 užduotį.
5 užduotis: Sukurkite programą diskriminantui surasti
6 užduotis : įvertinkite išraiškas
(5+5) 3 (1000 )
2+|3-25| (24 )
4 2 – (10)
Cos 2 (Pi/4)+ Nuodėmė 2 (Pi/2) (1 )
( 1)
Y = 2x 2 ( adresu x = 5, y = 50)
X 1,2 = (kai a = 2, b=6, c=4 , x 1=-1, x 2=-2)
Z= ln(y)-3 ( adresu y = 3, z = -1,901…)
C= (at a=4, b=9, c=13)
Y=cos(x)+sin(x) (x=180 0 , y=-1)
Klausimai
Kas yra programa?
Kam skirtos programavimo kalbos?
Kokie yra pagrindiniai objektinio programavimo elementai?
Kokias operacijas galima atlikti „teksto lange“?
Ką reiškia priskyrimo operatorius:
Kokie duomenų tipai naudojami Mažas pagrindinis?
Kaip rašomi I/O pareiškimai?
Įvertinimas
Namų darbai
Apibendrinant
Darbas su patvirtinamomis pastabomis
paruošti žinutę tema: „Programavimo kalbų įvairovė“
Sukurk programą apskaičiuojant trikampio plotą pagal Herono formulę
Taikymas
Gerai 1: programavimo pagrindai kalba Mažas Pagrindinis .
Programavimas - rašyti programas.
ALGORITMAS + PROGRAMAVIMO KALBA= PROGRAMA
Kintamasis
Kintamasis turivardas - lotyniška raidė (pvz.,a , IN , x1 , C9 )
Kintamajam gali būti priskirta reikšmė
Pavyzdys: a = 5 , kur ženklas " = “ – tai priskyrimo operatorius
Yra dviejų tipų kintamieji: numerį Ir linija (simbolių seka)
10, -5, 3.14 „kompiuterija“
Sulenkite +padauginti*
Padalinti /
Matematinės operacijos:
Sinusas, logaritmas, šaknis
Klijai
Padalinkite į dalis
Ieškokite simbolių
Pakeiskite simbolius
Programavimas
Teksto langas- Tai teksto lango objektas , kuriame galite rodyti tekstą.
Veikimo parametras skliausteliuose – WriteLine()
Objektas teksto laukelis turi savybių , Pavyzdžiui
Nuosavybė Fono spalva – nustato teksto fono spalvą,Priekinio plano spalva - teksto spalva
Naudotos spalvos:
raudonageltona
žalias
mėlyna
juodas
baltas
raudona
geltona
žalias
mėlyna
juodas
baltas
Maži pagrindinių kalbų operatoriai
„+“ operatorius
Pagrindiniai operatoriaiMatematinių funkcijų naudojimas išraiškoje
Sudėtingų matematinių išraiškų sudarymas Matematika.Pi TextWindow.WriteLine("įveskite kintamojo x reikšmę")x=TextWindow.ReadNumber()
y=Math.Abs(x)
TextWindow.WriteLine("y lygus "+y)
TextWindow.WriteLine(Math.Abs(-10))
Programa dviejų kintamųjų sumai apskaičiuotiA Ir b
TextWindow.WriteLine("įveskite kintamojo a reikšmę")
a=TextWindow.ReadNumber()
TextWindow.WriteLine("įveskite kintamojo b reikšmę")
b=TextWindow.ReadNumber()
s=a+b
TextWindow.WriteLine(" skaičių suma lygi "+s)
Programa įvedama į langąMažasPagrindinisir prasideda mygtukuPaleisti arba raktas F 5.
Linija Paspauskite bet koks Raktas Tęsti ... reiškia " Paspauskite bet kurį klavišą norėdami tęsti
Sveiki visi, šiame straipsnyje noriu parodyti naudingus kodus mažoms programoms. Kurias galite naudoti kurdami savo rimtesnes programas, arba ieškojote būtent šių čia aprašytų funkcijų.
Visi kodai buvo naudojami programavimo aplinkoje Microsoft Visual Basic v6.0.
Išeikite su patvirtinimu
Pirmojo tipo programa arba funkcija yra išėjimas su pranešimu, patvirtinančiu išėjimą. Apskritai atverkite aplinką Vaizdinis programavimas Pagrindinis, sukurkite standartinį projektą, tada uždėkite vieną mygtuką ant formos, spustelėkite mygtuką ir atsidarys kodo redagavimo langas, kuriame reikia įterpti šį kodą:
Pyptelėjimas Pritemdomas pranešimas As String Pritemdymo mygtukaisandikonai As Integer Dim title As String Pritemdytas atsakymas As String pranešimas = "Ar norite išeiti?" title = "Išeiti" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}
Slaptažodis paleisti programą
Pritemdykite slaptažodį, Pword PassWord = "12345" Pword = InputBox ("Įveskite slaptažodį"), jei Pword<>PassWord Tada MsgBox "Slaptažodis neteisingas" Pabaiga Pabaiga Jei
Kur 12345 yra programos paleidimo slaptažodis. Tačiau šį kodą galite naudoti kur tik norite.
Pranešimo išvestis
Jei norite tiesiog parodyti kažkokį pranešimą, įklijuokite tai:
Pyptelėjimas Pritemdomas pranešimas Kaip eilutė Pritemdyti mygtukaisandikonai Kaip sveikasis skaičius Pritemdyti pavadinimas Kaip eilutė pranešimas = "Pranešimas" title = "Message" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}
Piešimas ant formos
Private Sub Form_MouseDown(mygtukas kaip sveikasis skaičius, Shift kaip sveikasis skaičius, X kaip vienas, Y kaip vienas) Form1.CurrentX = X Form1.CurrentY = Y Pabaiga antrinė forma_Pelės judėjimas(mygtukas kaip sveikasis skaičius, Shift kaip sveikasis skaičius, X Y kaip Single Vienas) Jei mygtukas = 1, tada eilutė (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(0) End If End Sub
Spalvą galite keisti naudodami QBColor(0) parametrą, t.y. Vietoj 0 įdėkite kitą skaičių.
Kompiuterio paleidimas iš naujo
Norėdami iš naujo paleisti kompiuterį: uždėkite mygtuką ir įklijuokite šį kodą:
Dim strComputer As String strComputer = "." Set objWMIService = GetObject("winmgmts:" & "(impersonationLevel=apsimetinėti, (Išjungti))!\\" _ & strComputer & "\root\cimv2") Nustatyti colOperatingSystems = objWMIService.ExecQuery("SelectOperating") iš Win3Stem_perating Kiekviena ObjOperatingSystem colOperatingSystems ObjOperatingSystem.Reboot " Norėdami paleisti iš naujo KitasProgramos paleidimas vienoje kopijoje
Toliau pateiktas pavyzdys padės padaryti, kad programa būtų paleista tik vieną kartą, t.y. jei jis bus paleistas iš naujo, bus rodomas atitinkamas pranešimas. Į formos kodą įveskite:
Private Sub Form_Load() If App.PrevInstance = True Tada MsgBox "Projektas jau prasidėjo!" Pabaiga Pabaiga Jei
Kompiuterio išjungimas
Norėdami išjungti kompiuterį, galite naudoti šį kodą:
Dim strComputer As String strComputer = "." Set objWMIService = GetObject("winmgmts:" & "(impersonationLevel=apsimesti,(Išjungti))!\\" _ & strComputer & "\root\cimv2") Nustatyti colOperatingSystems = objWMIService.ExecQuery("SelectOperating") iš Win3Stem_perating Kiekviena ObjOperatingSystem colOperatingSystems ObjOperatingSystem.ShutDown "Norėdami išjungti Kitas
Bet kokio proceso pabaiga
Norėdami užbaigti procesą, galite naudoti šį kodą:
Shell "Cmd /x/c taskkill /f /im ICQlite.exe", vbvhite
Kur vietoj ICQlite.exe gali būti bet koks procesas.
Kiek laiko tarnauja kompiuteris?
Žemiau pateikiamas pavyzdys, kaip galite nustatyti kompiuterio veikimo laiką. Šis metodas yra pagrįstas kernel32 bibliotekos naudojimu, todėl pačioje formos kodo pradžioje prijunkite šį DLL.
Privatus deklaruoti funkciją GetTickCount Lib "kernel32" () As Long "Ir mygtuko kode: Dim a_hour, a_minute, a_second a = Format(GetTickCount() / 1000, "0") "viso sekundžių a_dienos = 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 "Jūsų kompiuteris veikia " & Str(a_days) & " dienos " & Str(a_valanda) _ & " valandos " & Str(a_minute) & " minutes" & Str(a_second) & " seconds"
Mes peržiūrėjome paprastos funkcijos, kurį galima naudoti beveik visur. Dabar pažvelkime į rimtesnius pavyzdžius, ir jie gali labai padėti jums parašyti didelius projektus.
Darbo su aplankais pavyzdžiai
Ištrinti katalogą
Privatus deklaruoti funkciją RemoveDirectory& Lib _ "kernel32" Pseudonimas "RemoveDirectoryA" (ByVal lpPathName As String) "Pašalinamas katalogas (tuščias!) PathName$ = "D:\t" kodas& = PašalintiKatalogas(PathName) Tada "Er&=arba 0 šalinant katalogą Else "Katalogas ištrintas Pabaiga JeiSukurti katalogą
Sub MakeDir(dirname As String) Dim i As Long, kelias As String Do i = InStr(i + 1, dirname & "\", "\") kelias = Left$(dirname, i - 1) If Right$(kelias , 1)<>":" Ir Dir$(kelias, vbDirectory) = "" Tada MkDir kelias Pabaiga If Ciklas Iki i >= Len(dirname) End Sub Private Sub Command1_Click() Skambinti MakeDir("C:\Soft\1\2\3\" “) Pabaigos dalisIšvardykite visus aplankus su poaplankiais
Į formą pridedame 2 teksto laukus ir mygtuką, pirmojo teksto lauko pavadinimas StartText, antrojo teksto lauko pavadinimas OutText. Kelių eilučių nuosavybė = tiesa, mygtuko pavadinimas = CmdStart
Statiškai veikia Kaip Būlio Dim AllDirs kaip nauja kolekcija Dim next_dir Kaip sveikasis skaičius Dim dir_name Kaip eilutė Dim sub_dir Kaip eilutė Dim i kaip sveikasis skaičius Dim txt kaip eilutė Jei veikia Tada veikia = False CmdStart.Enabled = False CmdStart.Caption Else =Stopping 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 <>"" Jei UCase$(sub_dir)<>"PAGEFILE.SYS" Ir sub_dir<>"." Ir sub_vad<>".." Tada sub_dir = dir_name & "\" & sub_dir Įvykus klaidai Tęsti Next If GetAttr(sub_dir) And vbDirectory Tada AllDirs.Add sub_dir End If sub_dir = Dir$(, vbDirectory) Ciklas DoEvents Jei neveikia, Tada išeikite iš Do Loop = "" Jei i = 1 Į AllDirs.Count txt = txt & AllDirs(i) & vbCrLf Kitas i OutText.Text = txt Pelės žymeklis = vbNumatytasis atšaukimas = klaidinga pabaiga, jei
Dabar paleidžiame programą, į StartText teksto lauką įrašome: C:\windows ir spustelėkite mygtuką.
Katalogo dydis
Const MAX_PATH = 260 privatus tipas FILETIME dwLowDateTime kaip ilgas dwHighDateTime kaip ilgalaikis tipas Privatus tipas WIN32_FIND_DATA dwFileAtributes kaip ilgas ftCreationTime kaip FILETIME ftLastAccessTime As LongleSTIMESFILETTIMEsFig leSizeLow, kaip ilgai * 14 pabaigos tipo privataus deklaravimo funkcija FindFirstFile Lib _ "kernel32" pseudonimas "FindFirstFileA" (ByVal lpFileName kaip eilutė, lpFindFileData kaip WIN32_FIND_DATA) Kaip ilga privati deklaravimo funkcija (AlNkerexiFileas3A"nd" FindFile As Ilgi, lpFindFile duomenys kaip WIN32_FIND_DATA) Kaip Long Private Declare Function FindClose Lib _ "kernel32" (ByVal hFindFile As Long) Kaip Ilga Viešoji funkcija SizeOf(ByVal DirPath As String) Kaip Double Dim hFind As Long Dim Dim f3ddATA db_FIND Dim_ AsDizem sName As String Dim x Kaip Ilgas Klaida Tęsti Kitas x = GetAttr(DirPath) If Err Then SizeOf = 0: Išeiti iš funkcijos If (x Ir vbDirectory) = vbKatalogas Tada dblSize = 0 Err.Clear sName = DirD(Pabaiga) & "*.* ", vbSystem Ar vbHidden arba vbDirectory) Jei Err.Number = 0 Tada hFind = FindFirstFile(EndSlash(DirPath) & "*.*", fdata) If hFind = 0 Tada išeikite iš funkcijos Do If (fdata.dwFileAttributes Ir vbDirectory) = vbDirectory Tada sName = Left$(fdata.cFileName, InStr(fdata.cFileName, vbNullChar) - 1) Jei sName<>"." Ir Vardas<>".." Tada dblSize = dblSize + SizeOf(EndSlash(DirPath) & sName) End If Else dblSize = dblSize + fdata.nFileSizeHigh * 65536 + fdata.nFileSizeLow End If DoEvents Loop While FindNextFind, fdatahFind<>0 hFind = FindClose(hFind) Pabaiga, jei kitaip yra klaida Tęsti kitą dblSize = FileLen(DirPath) Pabaiga, jei SizeOf = dblSize Pabaigos funkcija Privati funkcija EndSlash(ByVal PathIn As String) As String If Right$(PathIn, 1) = "\" Tada EndSlash = PathIn Else EndSlash = PathIn & "\" End If End Function Private Sub Form_Load() "Pakeiskite "D:\soft" į katalogą, kurio dydį norite sužinoti MsgBox SizeOf("D:\soft") / 1000000 Pabaigos subDarbo su failais pavyzdžiai
Kopijuoti
Tarkime, kad aplanke C:\1\ turime failą pavadinimu 1.txt ir turime nukopijuoti jį į C:\2\, kad tai padarytume, parašome šį kodą:
Failo kopija „C:\1\1.txt“, „C:\2\1.txt“
Pastaba! Jei 2 kataloge jau yra failas pavadinimu 1.txt, jis bus pakeistas 1.txt iš 1 katalogo.
Privatus deklaruoti funkciją CopyFile Lib _ "kernel32.dll" pseudonimas "CopyFileA" _ (ByVal lpExistingFileName kaip eilutė, ByVal lpNewFileName kaip eilutė, ByVal bFailIfExists As Long) Kaip ilga privati antrinė komanda C: "1_Cpytxt. į D :\1.txt. Dim retval As Long " grąžina reikšmę "Kopijuoti failą retval = CopyFile("C:\1.txt", "D:\1.txt", 1) Jei retval = 0 Tada "Jeigu klaida MsgBox " Negalima nukopijuoti" Else "Jei viskas gerai MsgBox "Failas nukopijuotas." End If End Sub
Pašalinimas
Pavyzdžiui, norime ištrinti failą 1.txt iš C:\ disko šaknies
Kill ("C:\1.txt")
API metodas
Privatus deklaruoti funkciją DeleteFile Lib _ "kernel32.dll" Pseudonimas "DeleteFileA" (ByVal lpFileName As String) Kaip Long Private Sub Command1_Click() "Ištrinti failą C:\Samples\anyfile.txt Dim retval As Long "Grąžinimo vertė retval = DeleteFile("C:\1.txt") Jei retval = 1 Tada MsgBox "Failas sėkmingai ištrintas." Pabaigos sub
Judėjimas
Pavyzdžiui, galite jį perkelti taip:
Failo kopija „C:\1.txt“, „C:\2\1.txt“ nužudyti („C:\1.txt“)
Bet geriau taip (per API):
Privatus deklaruoti funkciją MoveFile Lib _ "kernel32.dll" slapyvardis "MoveFileA" _ (ByVal lpExistingFileName kaip eilutė, ByVal lpNewFileName kaip eilutė) kaip ilga privati antrinė komanda1_Click() Dim retval Kaip Long "C:Return Value ret \1 .txt", "C:\2\1.txt") Jei retval = 1 Tada MsgBox "Perkelta sėkmingai" Else MsgBox "Klaida" End If End Sub
Pervadinimas
Norėdami pervardyti failą 1.txt, esantį C:\ į 2.txt, galite naudoti šį kodą:
Failo kopija „C:\1.txt“, „C:\2.txt“ nužudyti („C:\1.txt“)
API metodas
Privatus deklaruoti funkciją MoveFile Lib _ "kernel32.dll" pseudonimas "MoveFileA" _ (ByVal lpExistingFileName kaip eilutė, ByVal lpNewFileName kaip eilutė) Kaip ilga privati antrinė komanda1_Click() Dim retval As Long" = MoveFi grąžinimo reikšmė retval \1 .txt", "C:\2.txt") Jei retval = 1 Tada MsgBox "Sėkmė" Else MsgBox "Klaida" End If End Sub
Nustatykite failo dydį
Failo dydį galima nustatyti dviem būdais:
Jei failą galima atidaryti naudojant OPEN funkciją, tuomet galite naudoti LOF funkciją
Dim FileFree As Integer Pritemd FileSize As Long FileFree = Nemokamas failas Atidaryti "C:\WIN\GENERAL.TXT", kad būtų įvestas kaip nemokamas failas Failo dydis = LOF(Failo nemokama) Uždaryti FileFree
Arba naudokite funkciją FileLen
Dim lFileSize As Long FileSize = FileLen("C:\WIN\GENERAL.TXT")
Slėpti laikrodį programiškai
Pridėkite 2 mygtukus ir įklijuokite kodą:
Parinktis Aiškios privataus deklaravimo funkcija FindWindow Lib _ "user32" pseudonimas "FindWindowA" (ByVal lpClassName kaip eilutė, ByVal lpWindowName kaip eilutė) Kaip ilga privati deklaravimo funkcija FindWindowEx Lib _ "user32"AFindWinndWias Ilgas, ByVal hWnd2 As Long, ByVal lpsz1 kaip eilutė, ByVal lpsz2 kaip eilutė) kaip ilgas privatus deklaruoti funkciją ShowWindow Lib _ "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) Kaip Long Dim hnd As Long Private Comman(d1_C) ShowWindow hnd, 0 Pabaigos antrinė privati antrinė komanda2_Click() ShowWindow hnd, 1 End Sub Private Sub Form_Load() hnd = FindWindow("Shell_TrayWnd", vbNullString) hnd = FindWindowEx(hnd, 0, "TrayNotifyWnd", vbdowNuNotifyWnd", vb) hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Slėpti laikrodį" Command2.Caption = "Rodyti laikrodį" Pabaiga
Pridėti dėklo piktogramą
Pridėkite modulį ir įklijuokite į jį kodą:
Paskelbti funkciją Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage As Long, lpData kaip NOTIFYICONDATA) kaip sveikasis skaičius Viešasis Const NIM_ADD = 0 Viešasis Const NIM_MODIFY = 1 Viešasis Const NIM_DELETE = 1 Viešasis Const = NIM_DELETE = 2 Viešasis Const NIFTI_M. 4 Tipas NOTIFYICONDATA cbSize As Long hWnd As Long uID as Long uFlags As Long uCallbackMessage kaip Long hIcon As Long szTip Kaip eilutė * 64 Pabaigos tipas Viešoji funkcija SetTrayIcon (Režimas As Long, hWnd As Long, Icon String As Long, Tips Dim) nidTemp As NOTIFYICONDATA nidTemp.cbSize = Len(nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0& nidTemp.uVėliavos = NIF_ICON arba NIF_TIP nidTemp.uCallbackMessage = Icon.sz. ) SetTrayIcon = Shell_NotifyIconA(Mode, nidTemp) Pabaigos funkcija
Norėdami naudoti, įveskite formos kodą:
Private Sub Form_Load() SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "Norėdami ištrinti privačią antrinę komandą1_Click() SetTrayIcon NIM_DELETE, Me.hWnd, 0&, "" End Sub
Paleidimo mygtuko blokavimas
Privatus deklaruoti funkciją FindWindow Lib "user32" Pseudonimas "FindWindowA" _ (ByVal lpClassName kaip eilutę, ByVal lpWindowName kaip eilutę) Kaip ilgą privatų deklaruoti funkciją FindWindowEx Lib "user32" Alias h "Long_Window AVald" hWnd2 As Long, ByVal lpsz1 kaip eilutė, ByVal lpsz2 kaip eilutė) kaip ilgai privačiai deklaruoti funkciją EnableWindow Lib "user32" _ (ByVal hwnd As Long, ByVal fEnable As Long) Kaip Long Public Sub EnableStartButton(Pasirenkama įgalinta True As Boolem) lHwnd As Long " find hWnd lHwnd& = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString) Call EnableWindow(lHwnd&, CLng(Enabled)) Mygtukas Baigti antrinę privačią subkomandą Falut1_CStarlic yra išjungtas Baigti antrinį privatų antrinį elementą Command2_Click() EnableStartButton True "Mygtukas START neišjungtas Baigti antrinį
Parametrų skaitymas iš INI failo
Programa prisijungia prie FTP, o ini faile yra parametrai – serveris, prisijungimas, prievadas, slaptažodis.
Pirmiausia sukurkite INI failą:
Servname=serveris usern=Prisijungti pwd=slaptažodis prievadas=prievadas
Jis turi būti įdėtas į programos aplanką. Tada į modulį įdėkite:
Privataus deklaravimo funkcija WritePrivateProfileString Lib _ "kernel32" slapyvardis "WritePrivateProfileStringA" (ByVal lpApplicationName kaip eilutė, ByVal lpKeyName kaip eilutė, _ ByVal lpString kaip eilutė, ByVal lpFileName Functions_Privatekernel2"AProfileString"AProfileString Pseudonimas „GetPriv“ ateProfileStringA“ (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpDefault As String, ByVal lpReturnedString As String, _ ByVal nSize As Long, ByVal lpFileName As Longing Function, ByVal lpFileName ) Kaip eilutę ReadIni = GetValue (Razdel, Param, App.Path & "\test.ini", "0") Pabaigos funkcija Privati funkcija GetValue (ByVal sekcija kaip eilutė, _ ByVal raktas kaip eilutė, ByVal fFileName kaip eilutė, pasirinktinai ByVal Numatytoji vertė kaip eilutė = vbNullString) Kaip eilutė Pritemdyti duomenys kaip eilutė Data = String$(1000, Chr$(0)) Jei GetPrivateProfileString(Section, Key, DefaultValue, Data, 1000, fFileName) > 0 Tada GetValue = Kairė $(duomenys, InStr(duomenys$, Chr $(0)) - 1) Else GetValue = Numatytoji vertė Pabaiga, jei išėjimo funkcija Pabaigos funkcija
Tada įklijuokite į formos kodą:
Privataus deklaravimo funkcija „InternetOpen Lib“ _ „wininet.dll“ pseudonimas „InternetOpenA“ (ByVal sAgent kaip eilutę, ByVal nAccessType As Long, ByVal sProxyName kaip eilutę, _ ByVal sProxyBypass kaip eilutę, Functions AVal nFlags AVal PrivateConclare) Lib _ "wininet.dll" Pseudonimas "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName kaip eilutė, _ ByVal nServerPort kaip sveikasis skaičius, ByVal naudotojo vardas kaip eilutė, ByVal sPassword As Longswsd, ByVal sServerAs Long_ String , ByVal dwContext As Long) Privatus deklaruoti funkciją FtpPutFile Lib _ "wininet.dll" Pseudonimas "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile kaip eilutė A, _ ByVal lpszRemoteF, ByValsdwsd As Ilgas) Kaip loginis privatus deklaruoti funkciją FtpGetFile Lib _ "wininet.dll" pseudonimas "FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile kaip eilutę, _ ByVal lpszNewFile kaip eilutę, ByVal lpszNewFile kaip eilutę, ByVal lpszNewFile, AValIoleandwF, AValIoleandW, AValIfAtExists AFail _ ByVal dwFlags As Long, ByVal dw Context As Long ) Kaip Būlio privatus deklaruoti funkciją InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Long) Kaip sveikasis skaičius Dim rc& Dim rs&
O mygtuko kode:
rc& = InternetOpen("", 0, vbNullString, vbNullString, 0) rs& = InternetConnect(rc&, ReadIni("Bendra", "servo pavadinimas"), "0", _ ReadIni("Bendra", "naudotojas"), ReadIni( "Bendra", "pwd"), 1, 0, 0) Jei FtpGetFile(rs&, "Jūsų failas.txt", "kelias kur", False, 0, 1, 0) = False Tada baigti skambutį InternetCloseHandle(rs&) InternetCloseHandle(rc&)Vykdomų procesų sąrašas
Pridėkite sąrašo laukelį ir 1 mygtuką, įveskite šį kodą:
Parinktis Aiškios privataus deklaravimo funkcija CreateToolhelpSnapshot Lib _ "Kernel32" slapyvardis "CreateToolhelp32 Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) Kaip Ilga Privatus Deklaruoti Funkcijos ProcessPirmasis Lib3B"s" hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib _ "Kernel32" slapyvardis "Process32Next" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private "AValbbels"AValbbPalers" Ilgas ) Privatus Const TH32CS_SNAPPROCESS As Long = 2& Privatus Const MAX_PATH Kaip sveikasis skaičius = 260 Privatus tipas PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long threcessID As Long pcPriClassBase As Long dwFlags As Long szExeFile kaip eilutė * MAX_PATH Pabaigos tipas Pritemdyti hSnapShot As Long Dim uProcess As PROCESSENTRY32 Dim r As Long Private Sub Command1_Click() List1.Clear hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) If hSnapShot = Procesas = Pabaiga.wduProcesas s Pirma (hSnapShot, uProcess) Do While r List1.AddItem uProcess.szExeFile r = ProcessNext(hSnapShot, uProcess) Ciklo iškvietimas CloseHandle(hSnapShot) End Sub
Programos įdėjimas į paleidimą
Kad programa būtų įkelta naudojant „Windows“, kaip ir kai kurios kitos programos, galite naudoti registrą:
Pridėkite 2 mygtukus ir šį kodą:
Private Sub Command1_Click() "Registro įrašas Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name of your program", _ "Kelias į jūsų programą" End Sub Private Sub Command2_Click() "Ištrinti iš registro Nustatyti Reg = CreateObject("WScript.Shell") Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Jūsų programos pavadinimas" Pabaiga
Ir tam, kad programa būtų įkelta kartu su „Windows“, net ir saugus režimas, tada šis kodas:
Pirma, rimtesnis metodas (padarykite tai tik tuo atveju atsarginė kopija registras).
Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegParašykite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Kelias į jūsų programą" Baigti antrinę privačią antrinę komandą()"_Click Tai skirta atkūrimui Nustatyti Reg = CreateObject("WScript.Shell") Reg.RegRašyti "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Explorer.exe", End Sub
Na, paprastas būdas.
Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegParašykite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C:\\WINDOWS\\system32\\userinit. ,Kelias į jūsų programą" End Sub Private Sub Command2_Click()"Norėdami atkurti Set Reg = CreateObject("WScript.Shell") Reg.RegParašykite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C: \\WINDOWS\\system32\\userinit.exe", Pabaiga
Užduočių juostos slėpimas
Pridėkite 2 mygtukus ir įklijuokite kodą:
Privataus deklaravimo funkcija SetWindowPos Lib "user32" (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) Funkcija FindWindow Lib "user32" Pseudonimas "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) Kaip Long Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOW = &H40 Command = h40 Commandl_inc(khellicas) traywnd", " ") Iškvieskite SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) Pabaigos poskyrį "Rodo privačią sub komandą2_Click() hwnd1 = FindWindow("Shell_traywnd", "") Skambinkite SetWindowPos(hwnd1,0,0,hwnd1,0 0, 0, SWP_SHOWWINDOW) Pabaigos sub
Išpakuokite RAR archyvą
Norėdami išpakuoti RAR archyvą, galite naudoti šį kodą:
WinRarApp = "C:\Program Files\WinRAR\WinRAR.exe x -o+" iPath = "C:\" iArhivName = "Failo pavadinimas.rar" adr = WinRarApp & " """ & iPath & iArhivName & """ " "" & iPath & """ " RetVal = Shell(adr, vbHide)
Kiek RAM yra kompiuteryje
Pridėkite vieną mygtuką ir įklijuokite šį kodą:
Privatus Deklaruoti Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer kaip TMemoryStatus) Privatus tipas TMemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long PageFile As LongdvaFital rtual As Long End Type Dim ms As TMemoryStatus Privati antrinė komanda1_Click( ) ms.dwLength = Len(ms) Call GlobalMemoryStatus(ms) MsgBox "Total:" & ms.dwTotalPhys & vbCr & "Free:" _ & ms.dwAvailPhys & vbCr & "Naudojama %:" & ms.dwMemoryLoad End Sub
Slėpti darbalaukio piktogramas
Tai daroma taip. Pridėkite 2 mygtukus ir įklijuokite šį kodą:
Privatus deklaruoti funkciją Showwindow & Lib "User32" (Byval Hwnd &, Byval NCMDSHOW &) Privati atmetimo funkcija Lib _ "Vartotojas" "ALIAS" Findwindowa (BYVAL LPCL LPCL "BYVAL LPCL Assname kaip eilutė, Byval Lpwindowname kaip eilutė AwHide Long Const) = 0 conste SW_normal = 1 Privati antrinė komanda1_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) Call ShowWindow(hHandle, SW_HIDE) Pabaigos antrinė privati antrinė komanda2_Click() Dim hWinHandle A" , vbNullString) Call ShowWindow(hHandle , SW_NORMAL) End Sub
Naudojant Command1 mygtuką, piktogramos yra paslėptos, Command2 - jos atsiranda.
Tai viskas, tikiuosi, kad aukščiau pateikti pavyzdžiai jums bus naudingi, iki!
