A programozás alapjai.

Programozási nyelv kicsi Alapvető

1. LECKE: Bevezetés a programozási környezetbe kicsi Alapvető .

Cél: bemutatni a Small Basic programozási nyelvvel.

Feladatok:

Kezdjen el tanulni egy programozási nyelvet Small Basic. Adja meg az OOP (objektum-orientált programozás) fogalmát!

Tanuljon meg dolgozni ebben a programozási környezetben. P ismerkedjen meg a környezet "szövegobjektumával". Small Basic.

Első ötletet adni a programok létrehozásáról programozási környezetben.

A projekt főbb oktatási feladatai:

Nevelés személyes tulajdonságok: céltudatosság, figyelmesség, pontosság, tárgyilagosság az önbecsülésben, felelősségvállalás, kognitív érdeklődés.

A projekt fő fejlesztési feladatai:

Olyan kulcskompetenciák kialakítása a tanulókban, amelyek hozzájárulnak a sikeres szociális alkalmazkodáshoz;

Az önfejlesztés és a személyes növekedés vágyának fejlesztése kognitív tevékenységen keresztül.

Tud: Alapfogalmak: objektum, változók, hozzárendelés, adattípusok, input-output.Ismerje a Small Basic programozási környezet alkotóelemeit.

Képesnek lenni: Töltse le a Smal Basic programot. Hozzon létre egyszerű projekteket ebben a programozási környezetben. Tudjon matematikai függvényeket beírni és matematikai kifejezéseket írni a Smal Basic nyelven. Írjon egyszerű lineáris programokat.

Felszerelés és anyag: alapvető előadási jegyzetek (vö.1. számú melléklet ), feladatkártyák, PC, Small Basic alkalmazás, tábla, multimédiás projektor, képernyő.

Az órák alatt:

Idő szervezése

1. Felkészülés a leckére

   Tudásfrissítés

Új anyag magyarázata

A tanult anyag konszolidációja

1. Kapcsolódó kérdések

Összegzés

1. Osztályozás

   Házi feladat

Idő szervezése

1. Felkészülés az órára (ellenőrizze az órára való felkészültséget, jelölje meg a hiányzót)

   Tudásfrissítés

Mire való a programozás?

Biológiából szeretne absztraktot írni. Valószínűleg számítógépen fogja megírni valamilyen szövegszerkesztőben. És honnan jött szöveg szerkesztő? Természetesen programozók írták. Információkat kereshet az interneten egy olyan böngészővel, amelyet a programozók is írtak. Miután megírta az esszét, szeretne pihenni és játszani számítógépes játék, amit ismét programozók írtak. Általában a számítógépen végzett munka lehetetlen a programozók által írt programok használata nélkül. Tehát ha nem lenne programozás, nem lennének programok, és a számítógép egy rakás drága hardver lenne, mert egy számítógép segítségével nem lehet programok nélkül csinálni valamit.

A problémamegoldás szakaszai.

Alapfogalmak

Programozás - programok írása.

Program Számítógép által érthető programozási nyelven írt algoritmus.

Algoritmus - a cél elérését célzó cselekvések világos sorozata.

Objektumorientált programozásban bevezetik az objektum fogalmát, olyan számítási mechanizmusokat valósítanak meg, amelyek lehetővé teszik:

Ismertesse egy objektum szerkezetét!

Mutassa be az objektumokkal végzett műveleteket

Használjon speciális objektum öröklődési szabályokat (Az öröklődés új objektumok létrehozását jelenti a meglévőkből)

Állítsa be az objektumkomponensek védelmi fokát

Elmélet

Első találkozás

Microsoft Small Basic - által kifejlesztett programozási nyelv. Kezdő fejlesztőknek készült, akik szeretnék megtanulni a programok létrehozásának alapjait.

Fő előnyei:

Nagyon egyszerű fejlesztői környezet - szövegszerkesztő többfunkciós eszköztippel és csak néhány gombbal a szövegszerkesztéshez és a programok indításához.

Egyszerű nyelv, mindössze 20 kulcsszóval

A fejlesztői környezetbe beépített kontextuális dokumentáció a nyelv minden eleméhez

Lehetőség a Small Basic összetevők bővítésére további funkciókkal. (Például a szállítás már tartalmaz funkciókat a szolgáltatásokkal való együttműködéshez)

A BASIC külön előnyének kell tekinteni az interpretációs módban való munkavégzés lehetőségét, ami nagyban leegyszerűsíti a programok hibakeresési folyamatát: szinte minden parancs végrehajtása azonnal ellenőrizhető írás után.

Kimeneti operátor

WriteLine ("Szia!")

Megjelenít egy karakterláncot (szöveg vagy szám )

Helló!

Az eredmény eléréséhez - a "Hello!" a képernyőn - meg kell írnia egy programot:

TextWindow.WriteLine("Szia!")

A program bekerül az ablakbakicsiAlapvetőés indítsa el egy gombbaldob vagy kulcs F 5

A program eredménye a következő szöveg kimenete: "Hello!" Vszövegdoboz programokat.

A karakterlánc azt jelenti, hogy "Nyomjon meg egy gombot a folytatáshoz…".

A TextWindow egy "szövegablak" objektum, amelyben szöveg jeleníthető meg.

A tárgy rendelkezik tulajdonságaitÉs mód.

Objektum módszer -mire képes a tárgy, azaz azttevékenységek (operátorok )

Paraméter a műveletek WriteLine zárójelek közé vannak zárva()

Ugyanaz az objektum szövegdoboz van tulajdonságait (ezek az objektum jellemzői) , Például

BackgroundColor tulajdonság – beállítja a szöveg háttérszínét,Az előtér színe- szöveg szín

Színek:

piros

sárga

zöld

kék

fekete

fehér

piros

sárga

zöld

kék

fekete

fehér

Változó

A változókat gyakran használják programok létrehozására.

változó rendelkezikNév - latin betű (a)

Egy változóhoz értéket, például számot lehet rendelni

a= 5, ahol a " jel = "- Ezt hozzárendelés operátor

karakterlánc értéke

a = a + 5

Vegyük az a változó értékét

Adj hozzá 5-öt

Állítson be új értéket az a változónak, törölje belőle az előzőt

A változó kétféle: számÉs vonal

10, -5, 3.14 "számítástechnika"

Hajtsa +

szorzás*

Feloszt /

Matematikai műveletek:

Szinusz, logaritmus, gyök

ragasztó

Oszd fel részekre

Keresés szimbólumok

Karakterek cseréje

PÉLDA -val "+" operátor

kifejezés

eredmény

kifejezés

eredmény

"ivan" + "ova"

"Ivanova"

"osztály" + 10

"10-es osztály"

Programozás

1. példa: program eredménye

2. példa: program eredménye

3. példa: A program kiszámítja és megjeleníti két változó összegéta És b

Math.Abs(szám)

modult

Math.Cos( szám)

koszinusz

Matematikai plafon (szám)

egész számra kerekít

Math.GetDegrees( szám)

szám radiánból fokokká konvertálása

Math.GetRandomNumber( max szám)

Véletlen szám 1 és 1 közöttmax szám

NaturalLog(szám)

természetes logaritmus

Math Pi

Pi

Math.Power( baseNumber, kitevő)

BAN BEN oa baseNamber emelése kitevő hatványára

Math. max(szám1;szám2)

Maximum két szám

Math. Maradék (osztalék, osztó)

A hadosztály maradéka

Math .Sin(szám)

Sinus

Math. Cser(szám)

Koszinusz

Math .ScuareRoot(szám)

Gyökér

Math. Kerek(szám)

Normál kerekítés

Math .ArcSin(szám)

Arcsine

Math. padló(szám)

Lefelé kerekít a legközelebbi legkisebb egész számra

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("y egyenlő "+y)

Math Pi

Az anyag rögzítése

1. Független praktikus munka PC-hez

Önálló munkához szükséges feladatok

1. Feladat:

Határozza meg a hozzárendelési utasítások végeredményét

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

2. feladat : Írjon programot 3 változó szorzatának kiszámítására:a , b És c .

3. feladat : Írjon programot a kifejezés kiszámítására:z=5* x+ y/2 (feltételezve, hogy x=10,y=100)

4. feladat: Írjon programot, amely kiadja az X és az értékeketY, az 1. feladat szerint.

5. feladat: Írjon programot a diszkrimináns megkeresésére

6. feladat : kifejezések kiértékelése

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

Kötözősaláta 2 (Pi/4)+ Bűn 2 (Pi/2) (1 )

( 1)

I = 2x 2 ( nál nél x=5, y=50)

x 1,2 \u003d (ha a \u003d 2, b=6, c=4 , x 1=-1, x 2=-2)

Z= ln(y)-3 ( nál nél y=3, z=-1,901…)

С= (mikor a=4, b=9, c=13)

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

Kérdések

Mi az a program?

Mire valók a programozási nyelvek?

Melyek az objektumorientált programozás alapelemei?

Milyen műveleteket lehet végrehajtani a "szöveges ablakban"?

Mit jelent a hozzárendelési operátor:

Milyen típusú adatokat használnak fel Small Basic?

Hogyan íródnak az I/O utasítások?

Összegzés

1. Osztályozás

   Házi feladat

Munka összefoglalóval

üzenetet készíteni a témában: "Sokféle programozási nyelv"

Készítsen programot egy háromszög területének kiszámítása Heron képletével

Alkalmazás

OK 1: A programozás alapjai a nyelven kicsi Alapvető .

Programozás - programok írása.

ALGORITMUS + PROGRAMOZÁSI NYELV= PROGRAM

Változó

változó rendelkezikNév - latin betű (pl.a , BAN BEN , x1 , C9 )

Egy változóhoz értéket lehet rendelni

Példa: a = 5 , ahol a " = "- Ezt hozzárendelés operátor

A változó kétféle: szám És vonal (karaktersorozat)

10, -5, 3.14 "számítástechnika"

Hajtsa +

szorzás*

Feloszt /

Matematikai műveletek:

Szinusz, logaritmus, gyök

ragasztó

Oszd fel részekre

Keresés szimbólumok

Karakterek cseréje

Programozás

TextWindow- Ezt objektum "ablak szöveggel" , amelyben szöveg jeleníthető meg.

Működési paraméter zárójelben - WriteLine()

Egy tárgy szövegdoboz van tulajdonságait , Például

Ingatlan háttérszín - beállítja a szöveg háttérszínét,Az előtér színe - szöveg szín

Használt színek:

piros

sárga

zöld

kék

fekete

fehér

piros

sárga

zöld

kék

fekete

fehér

Kis alapkezelők

"+" operátor

Fő üzemeltetők

Matematikai függvények használata kifejezésben

Összetett matematikai kifejezések írása Math Pi TextWindow.WriteLine("Adja meg az x változó értékét")

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("y egyenlő "+y)

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

Két változó összegének kiszámítására szolgáló programAÉs b

TextWindow.WriteLine("Adja meg az a változó értékét")

a=TextWindow.ReadNumber()

TextWindow.WriteLine("Adja meg a b változó értékét")

b=TextWindow.ReadNumber()

s=a+b

TextWindow.WriteLine(" a számok összege az "+s)

A program bekerül az ablakbakicsiAlapvetőés indítsa el egy gombbaldob vagy kulcs F 5.

Vonal nyomja meg Bármi kulcs folytatni ... azt jelenti, hogy " nyomjon meg egy gombot a folytatáshoz

Hello mindenkinek, ebben a cikkben szeretném megmutatni hasznos kódokat kis programok. Amivel saját, komolyabb programokat írhatsz, vagy pont ezeket a funkciókat kerested, amiket itt leírtak.

Az összes kódot a Microsoft Visual Basic v6.0 programozási környezetben használták.

Kilépés megerősítéssel

Az első típusú program, a kút vagy függvény, egy kilépés a kilépést megerősítő üzenettel. Általában nyissa meg a Visual Basic programozási környezetet, hozzon létre egy szabványos projektet, majd helyezzen egy gombot az űrlapra, kattintson a gombra és megnyílik egy kódszerkesztő ablak, és oda kell beillesztenie a következő kódot:

Beep Dim message As String Dim buttonsandicons As Integer Dim title As String Dim response As String message = "Szeretne kilépni?" title = "Kilépés" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

Jelszó a program indításához

Dim jelszó, Pword PassWord = "12345" Pword = InputBox ("Adja meg a jelszót") Ha a Pword<>PassWord Then MsgBox "A jelszó nem helyes" End End If

Ahol az 12345 a program futtatásához szükséges jelszó. De ez a kód bárhol használható.

Üzenet kimenet

Ha csak üzenetet szeretne megjeleníteni valamiről, akkor ezt írja be:

Beep Dim message As String Dim buttonsandicons As Integer Dim title As String message = "Üzenet" title = "Message" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

Rajz az űrlapra

Privát 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 Asing Egyetlen) Ha gomb = 1, akkor sor (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBCColor(0) End If End Sub

A színt a QBColor(0) paraméter segítségével változtathatja meg, pl. cserélje ki a 0-t egy másik számmal.

A számítógép újraindítása

A számítógép újraindítása: helyezze be a gombot, és illessze be a következő kódot:

Dim strComputer As String strComputer = "." Set objWMIService = GetObject("winmgmts:" & "(impersonationLevel=megszemélyesítés, (Leállítás))!\\" _ & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("SelectOperating" -ból Win332_perating Minden ObjOperatingSystem in colOperatingSystems ObjOperatingSystem.Reboot " Újraindítás Következő

A program futtatása egyetlen példányban

A következő példa segít abban, hogy a program csak egyszer fusson, pl. újraindítás esetén megfelelő üzenetet ad ki. Illessze be az űrlap kódját:

Private Sub Form_Load() If App.PrevInstance = True then MsgBox "A projekt már elindult!" Vége Vége Ha

A számítógép kikapcsolása

A számítógép kikapcsolásához a következő kódot használhatja:

Dim strComputer As String strComputer = "." Set objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate,(Shutdown))!\\" _ & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery("SelectOperating" a Win332_peratingból Minden ObjOperatingSystem a colOperatingSystemsben ObjOperatingSystem.ShutDown "Leállításhoz Következő

Állítson le minden folyamatot

A folyamat befejezéséhez a következő kódot használhatja:

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

Ahol az ICQlite.exe helyett bármilyen folyamat lehet.

Mennyi ideig működik egy számítógép

A következő példa arra mutat, hogyan határozhatja meg a számítógép üzemidejét. Ez a módszer a kernel32 függvénytár használatán alapul, ezért az űrlapkód legelején adja meg ezt a DLL-t.

Függvény privát deklarálása GetTickCount Lib "kernel32" () As Long "És a gombkódban: Dim a_hour, a_minute, a_second a = Format(GetTickCount() / 1000, "0") "összes másodperc a_nap = 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 "A számítógépe futott" & Str(a_days) & " napok " & Str(a_óra) _ & " óra " & Str(a_perc) & " perc" & Str(a_second) & " másodperc"

Áttekintettük egyszerű funkciók amely szinte mindenhol használható. Most nézzünk komolyabb példákat, és ezek nagyban segíthetnek a nagy projektek megírásában.

Példák mappákra

Könyvtár törlése

Függvény privát deklarálása RemoveDirectory& Lib _ "kernel32" Alias ​​"RemoveDirectoryA" (ByVal lpPathName As String) "Könyvtár eltávolítása (üres!) PathName$ = "D:\t" code& = RemoveDirectory(PathName) If "Er&=vagy 0 könyvtár eltávolítása Else "A könyvtár törölve End If

Könyvtár létrehozása

Sub MakeDir(dirname As String) Dim i As Long, elérési út As String Do i = InStr(i + 1, dirname & "\", "\") elérési út = Left$(dirname, i - 1) If Right$(elérési út , 1)<>":" És Dir$(útvonal, vbDirectory) = "" Majd MkDir elérési út vége If Loop i-ig >= Len(dirname) End Sub Private Sub Command1_Click() Call MakeDir("C:\Soft\1\2\3\" ") End Sub

Sorolja fel az összes almappát tartalmazó mappát

Az űrlaphoz 2 szövegmezőt és egy gombot adunk, az első neve szövegmező: StartText, a második OutText szövegmező neve. Többsoros tulajdonság = igaz, gomb neve = CmdStart

Statikus futás Boolean Dim AllDirs mint új gyűjtemény Dim next_dir As Integer Dim dir_name As String Dim sub_dir As String Dim i As Integer Dim txt As String Ha fut Akkor futás = 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 <>"" Ha UCase$(alkönyvtár)<>"PAGEFILE.SYS" És alkönyvtár<>"." És sub_dir<>".." Akkor sub_dir = könyvtárnév & "\" & al_könyvtár Hiba esetén Folytatás Next If GetAttr(alkönyvtár) És vbDirectory Akkor AllDirs.Add sub_dir End If sub_dir = Dir$(, vbDirectory) Loop DoEvents Ha nem fut, akkor Lépjen ki a Do Loopból = "" For i = 1 To AllDirs.Count txt = txt & AllDirs(i) & vbCrLf Next i OutText.Text = txt MousePointer = vbDefault unning = False End If

Most futtatjuk a programot, a StartText szövegmezőbe írjuk: C:\windows, majd kattintsunk a gombra.

Könyvtár mérete

Állandó MAX_PATH = 260 Privát típus FILETIME dwLowDateTime As Long dwHighDateTime As Long End típus Privát típus WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As LongleSLETTIMEhAstleSTIMEsFiLETTIMEh nFileSizeLow As Long Fenntartva * 14 End Type Private Declare Function FindFirstFile Lib _ "kernel32" Alias ​​"FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function (AlNexiFile3A"ndFile3A"ndFile"nd Val hFindFile As Long, lpFind FileData mint WIN32_FIND_DATA) As Long Private Declare Function FindClose Lib _ "kernel32" (ByVal hFindFile As Long) As Long Public Function SizeOf(ByVal DirPath As String) As Double Dim hFind As Long As Long Dim f3m3mddATA db_FIND Dim_ AsDizem sName As String Dim x As Long Error Resume Next x = GetAttr(DirPath) If Err Then SizeOf = 0: Kilépés a függvényből If (x és vbDirectory) = vbDirectory Then dblSize = 0 Err.Clear sName = Dir$(EndSlash) & "*.* ", vbSystem Vagy vbHidden Or vbDirectory) Ha Err.Number = 0 Akkor hFind = FindFirstFile(EndSlash(DirPath) & "*.*", fdata) If hFind = 0 Akkor kilépés a függvényből Do If (fdata.dwFileAttributes És vbDirectory) = vbDirectory Akkor sName = Left$(fdata.cFileName, InStr(fdata.cFileName, vbNullChar) - 1) Ha sName<>"." És a Név<>".." Akkor dblSize = dblSize + SizeOf(EndSlash(DirPath) & sName) End If Else dblSize = dblSize + fdata.nFileSizeHigh * 65536 + fdata.nFileSizeLow End If DoEvents Loop While FindNextFind, fdatah)Find<>0 hFind = FindClose(hFind) End If Else On Error Folytatás Következő dblSize = FileLen(DirPath) End If SizeOf = dblSize End Function Private Function EndSlash(ByVal PathIn As String) As String If Right$(PathIn, 1) = "\" Then EndSlash = PathIn Else EndSlash = PathIn & "\" End If End Function Private Sub Form_Load() "Cserélje ki a "D:\soft"-t arra a könyvtárra, amelyikben meg szeretné tudni az MsgBox SizeOf("D:\soft") / 1000000 End Sub

Példák a fájlokkal való munkára

Másolat

Tegyük fel, hogy van egy 1.txt nevű fájlunk a C:\1\ mappában, amit át kell másolnunk a C:\2\ mappába, ehhez a következő kódot írjuk:

Fájlmásolat "C:\1\1.txt", "C:\2\1.txt"

Jegyzet! Ha a 2. könyvtár már tartalmaz egy 1.txt nevű fájlt, akkor azt az 1. könyvtár 1.txt fájlja váltja fel.

Privát deklarálási függvény CopyFile Lib _ "kernel32.dll" Alias ​​"CopyFileA" _ (ByVal lpExistingFileName karakterláncként, ByVal lpNewFileName karakterláncként, ByVal bFailIfExists As Long) As Long Private Sub Command1_Clickxt()\1_Clictxt. to D :\1.txt. Dim retval As Long " return value "Fájl másolása retval = CopyFile("C:\1.txt", "D:\1.txt", 1) If retval = 0 then "If MsgBox sikertelen" Nem lehet másolni" Else "Ha OK MsgBox "A fájl másolva." End If End Sub

Eltávolítás

Például törölni szeretnénk az 1.txt fájlt a C:\ meghajtó gyökeréből.

Kill("C:\1.txt")

API módon

Függvény privát deklarálása DeleteFile Lib _ "kernel32.dll" Alias ​​"DeleteFileA" (ByVal lpFileName As String) As Long Private Sub Command1_Click() "C:\Samples\anyfile.txt fájl törlése Dim retval As Long "Return Value retval = DeleteFile( "C:\1.txt") Ha retval = 1 Akkor MsgBox "A fájl sikeresen törölve." vége al

mozgó

Például áthelyezheti a következőképpen:

Fájlmásolat "C:\1.txt", "C:\2\1.txt" Kill ("C:\1.txt")

De jobb így (API-n keresztül):

Függvény privát deklarálása MoveFile Lib _ "kernel32.dll" Alias ​​"MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() Dim retval As Long "C: Return Value ret" \1 .txt", "C:\2\1.txt") Ha retval = 1 Akkor MsgBox "Sikeresen áthelyezve" Else MsgBox "Hiba" End If End Sub

Átnevezés

A C:\ könyvtárban található 1.txt fájl átnevezéséhez 2.txt-re, használja a következő kódot:

Fájlmásolat "C:\1.txt", "C:\2.txt" Kill ("C:\1.txt")

API módon

Függvény privát deklarálása MoveFile Lib _ "kernel32.dll" Alias ​​"MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() Dim retval As Long" = MoveFi visszatérési érték retval \1 .txt", "C:\2.txt") Ha retval = 1 Akkor MsgBox "Siker" Else MsgBox "Hiba" End If End Sub

Határozza meg a fájl méretét

A fájl mérete kétféleképpen határozható meg:

Ha a fájl megnyitható az OPEN funkcióval, akkor használhatja a LOF funkciót

Dim FileFree As Integer Dim FileSize As Long FileFree = FreeFile Nyissa meg a "C:\WIN\GENERAL.TXT" fájlt bevitelhez FileFreeként FileSize = LOF(FileFree) FájlFree bezárása

Vagy használja a FileLen funkciót

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

Óra programozott elrejtése

Adjon hozzá 2 gombot, és illessze be a kódot:

Opció Explicit privát deklarálási függvény FindWindow Lib _ "user32" Alias ​​"FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) Mint Long Private Declare Function FindWindowEx Lib _ "user32"AFindWinndy 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 Comman ShowWindow hnd, 0 End Sub Private Sub Command2_Click() ShowWindow hnd, 1 End Sub Private Sub Form_Load() hnd = FindWindow("Shell_TrayWnd", vbNullString) hnd = FindWindowEx(hnd, 0, "TrayNotifyWnd", vbdowNutifyWnd, vbdow hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Óra elrejtése" Command2.Caption = "Óra megjelenítése" End Sub

Ikon hozzáadása a tálcához

Adjon hozzá egy modult, illessze be a kódot:

Funkció deklarálása Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) Egész számként Public Const NIM_ADD = 0 Public Const NIM_MODIFY = 1 Nyilvános állapot NIM_DELETE = 1 Public Const NIM_DELETE = 2 Nyilvános Const NIFTI_Const2 NIF11. P = 4 Típus NOTIFYICONDATA cbSize As Long hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 End Type Public Function SetTrayIcon (Mode As Long, hWnd As Long, Icon String As Long, tip As) nidTemp As NOTIFYICONDATA nidTemp.cbSize = Len(nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0& nidTemp.uFlags = NIF_ICON Vagy NIF_TIP nidTemp.uCallbackMessage = Icon. ( 0) SetTrayIcon = Shell_NotifyIconA(Mode, nidTemp) Végfüggvény

A beillesztés használatához az űrlapkódban:

Private Sub Form_Load() SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "Private Sub Command1_Click() SetTrayIcon NIM_DELETE, Me.hWnd, 0&, "" End Sub törléséhez

A start gomb blokkolása

Függvény privát deklarálása FindWindow Lib "user32" Alias>FindWindowA 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(Opcionális Enabled As Boolean) lHwnd As Long " find hWnd lHwnd& = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString) Hívás EnableWindow(lHwnd&, CLng(Enabled)) End Sub Private Sub Command() letiltva End Sub Private Sub Command2_Click() EnableStartButton True "A Start gomb nincs letiltva End Sub

Paraméterek beolvasása INI fájlból

A program csatlakozik az FTP-hez, és a paraméterek az ini fájlba vannak írva - szerver, bejelentkezés, port, jelszó.

Először hozzon létre egy INI fájlt:

Szervnév=szerver usern=Bejelentkezés pwd=jelszó port=port

A programmal együtt lévő mappába kell helyezni. Ezután illessze be a modulba:

Privát deklarációs függvény WritePrivateProfileString Lib _ "kernel32" Alias ​​"WritePrivateProfileStringA" (ByVal lpApplicationName karakterláncként, ByVal lpKeyName karakterláncként, _ ByVal lpString karakterláncként, ByVal lpFileName Function_Privatekernel As ProbfiString) 2" Alias ​"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpDefault As String, ByVal lpReturnedString As String, _ ByVal nSize As Long, ByVal lpFileName As Public String AmIni String ReadIni = GetValue (Razdel, Param, App.Path & "\test.ini", "0") Függvény vége Privát függvény GetValue(ByVal szakasz mint karakterlánc, _ ByVal kulcs mint karakterlánc, ByVal fFileName mint karakterlánc, opcionális ByVal alapértelmezett érték mint String = vbNullString) As String Dim Data As String Data = String$(1000, Chr$(0)) If GetPrivateProfileString(Section, Key, DefaultValue, Data, 1000, fFileName) > 0 Akkor GetValue = Left$(Data, InStr( Data$, Chr $(0)) - 1) Else GetValue = Alapértelmezett érték vége, ha kilépési függvény vége

Ezután illessze be az űrlap kódját:

Private Declare Function InternetOpen Lib _ "wininet.dll" Alias ​​"InternetOpenA" (ByVal sAgent As String, ByVal nAccessType As Long, ByVal sProxyName As String, _ ByVal sProxyBypass As String, Functions Longclare By AVal nFlags AVal PrivateConnects) Lib _ "wininet.dll" Alias ​​​​"InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, _ ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As LongnSd, ByVal sPassword As LongnSd, ByVal sServer , Byval dwconText mindaddig), mint a hosszú privát deklarációs funkció ftpputfile lib _ "wininet.dll" álnév "ftpputfilea" (byval hftpsession oly hosszú, byval lpslocalfile, mint a karakterlánc, _ byval lpsremotefile, mint karakterlánc, byval dwflags, byval dwconText as Long) Mint logikai privát deklarálási függvény FtpGetFile Lib _ "wininet.dll" Alias ​​"FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ ByVal lpszNewFile As String, ByVal lpszNewFile As BooleandwF, AValIoleandwF, AValIoleandwF, AValIoleandwF, AValIleandwFa. Hosszú, _ ByVal dwFlags As Long, ByV al dwContext As Long ) Logikai Private Declare Funkcióként InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Long) As Integer Dim rc& Dim rs&

A gomb kódjában pedig:

rc& = InternetOpen("", 0, vbNullString, vbNullString, 0) rs& = InternetConnect(rc&, ReadIni("Általános", "kiszolgálónév"), "0", _ ReadIni("Általános", "felhasználó"), ReadIni( "Általános", "pwd"), 1, 0, 0) Ha FtpGetFile(rs&, "Saját fájl.txt", "útvonal", False, 0, 1, 0) = False, majd fejezze be a hívást InternetCloseHandle(rs&) Hívja az InternetCloseHandle-t (rc&)

A futó folyamatok listája

Adjon hozzá egy Listbox és 1 gombot, illessze be a következő kódot:

Opció Explicit Private Declare Function CreateToolhelpSnapshot Lib _ "Kernel32" Alias ​​"CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Functions ProcessFirst Lib3B"st" yVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib _ "Kernel32" Alias ​​"Process32Next" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long LiblBHclare (Sub C2llBHclary) Mint Hosszú ) Privát Const TH32CS_SNAPPROCESS As Long = 2& Private Const MAX_PATH As Integer = 260 Privát típusa PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As LongPath thres3Mont As LongPath thres3 sID As Long pcPriClassBase As Long dwFlags As Long szExeFile As String * MAX_PA TH End Type Dim hSnapShot As Long Dim uProcess As PROCESSENTRY32 Dim r As Long Private Sub Command1_Click() List1.Clear hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) If hSnapuProcess = End0SnapuProcess. ) r = ProcessFirst(hSnapShot, uProcess) Do While r Lista1.AddItem uProcess.szExeFile r = ProcessNext(hSnapShot, uProcess) Loop Call CloseHandle(hSnapShot) End Sub

Program indítása indításkor

A program betöltéséhez a Windows rendszerrel, mint néhány más program, használhatja a rendszerleíró adatbázist:

Adjon hozzá 2 gombot és a következő kódot:

Private Sub Command1_Click() "Registry Write Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name of your program", _ "A program elérési útja" End Sub Private Sub Command2_Click() "Törlés a beállításjegyzékből Set Reg = CreateObject("WScript.Shell") Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\A program neve" End Sub

És annak érdekében, hogy a program betöltse a Windows-t, még akkor is biztonságos mód, akkor ez a kód:

Kezdésként egy komolyabb módszer (minden esetre tegye meg biztonsági mentés Iktató hivatal).

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "A program elérési útja" End Sub Private Sub Command()"_Click Ez a helyreállításhoz szükséges Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Explorer.exe," End Sub

Nos, az egyszerű módszer.

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C:\\WINDOWS\\system32\\userinit. ,A program elérési útja" End Sub Private Sub Command2_Click()"A visszaállításhoz Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C: \\WINDOWS\\system32\\userinit.exe", End Sub

A tálca elrejtése

Adjon hozzá 2 gombot, és illessze be a kódot:

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) Funkció FindWindow Lib "user32" Alias ​​"FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOW = &H40 Command1 Find_innd(kW) l_traywnd", " ") Hívja a SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) Sub "Show Private Sub Command2_Click() hwnd1 = FindWindow("Shell_traywnd", "") Hívja a SetWindowPos(0,hwnd1,0,0,hwnd1, ) 0, 0, SWP_SHOWWINDOW) Befejezési al

Csomagolja ki a RAR archívumot

A kicsomagolás érdekében RAR archívum a következő kódot használhatja:

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

Mennyi RAM van a számítógépben

Adjon hozzá egy gombot, és illessze be a következő kódot:

Privát deklarálása Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer mint TMemoryStatus) Privát típusa TMemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As LongPageFile As LongPageATovail As LongPage AsWATovail ilVirtual As Long End Type Dim ms As TMemoryStatus Private Sub Command1_Click( ) ms.dwLength = Len(ms) Call GlobalMemoryStatus(ms) MsgBox "Total:" & ms.dwTotalPhys & vbCr & "Free:" _ & ms.dwAvailPhys & vbCr & "Használt: % :" & ms.dwMemoryLoad End Sub

Az asztali ikonok elrejtése

Ez a következő módon történik. Adjon hozzá 2 gombot, és illessze be a következő kódot:

ShowWindow& Lib "user32" függvény privát deklarálása (ByVal hwnd&, ByVal nCmdShow&) FindWindow Lib _ "user32" Alias ​​"FindWindowA" (ByVal lpClassName As String, ByVal Alp_WindowName =ConVal Alp_WindowName AlpsWinstName) privát deklarálása RMAL = 1 Privát 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)("N CalluWllindow)" (hHandle , SW_NORMAL) End Sub

A Command1 gombbal az ikonok el vannak rejtve, a Command2 - megjelenik.

Ennyi van, remélem a fenti példák hasznosak lesznek számodra, szia!

Az Eclipse egy bővíthető fejlesztői platform futtatókörnyezetekkel és alkalmazásplatformokkal a szoftverek létrehozásához, használatához és kezeléséhez az élettartama során. életciklus. Sokan az Eclipse-t Java IDE-ként ismerik, de az Eclipse valójában több mint 60 különböző nyílt forráskódú projektből áll.

Ingyenes nyílt forráskódú Mac Windows Linux

NetBeans

Ingyenes és nyílt forráskódú IDE fejlesztőknek szoftver. Minden eszközt megkap a professzionális asztali, vállalati, webes és mobil alkalmazások Java nyelven, C/C++ és még dinamikus nyelveken is, mint a PHP, JavaScript, Groovy és Ruby

Ingyenes nyílt forráskódú Mac Windows Linux BSD

Aptana Stúdió

Az Aptana Studio egy teljes körű webfejlesztő környezet, amely hatékony fejlesztői eszközöket ötvöz egy sor online tárhely- és együttműködési szolgáltatással, hogy Ön és csapata még több munkát végezzen. Magába foglalja PHP támogatás, CSS, FTP és még sok más.

Ingyenes nyílt forráskódú Mac Windows Linux

Komodo Edit

A Komodo Edit gyors, okos és ingyenes szerkesztő nyílt forráskód. Próbáld ki a Komodo Editet (vagy annak idősebb testvérét, a Komodo IDE-t) – megéri.

Ingyenes nyílt forráskódú Mac Windows Linux

xcode

Az Apple Xcode a vezető fejlesztőkörnyezet a Mac OS X rendszerhez. Amellett, hogy minden Mac OS X vásárláskor lemezen is megtalálható, a legtöbb egy új verzió mindig ingyenesen letölthető az ADC tagok számára ( közösségi háló alkalmazásfejlesztőknek az összes Apple platformon), és tartalmazza az összes szükséges eszközt a létrehozott alkalmazások létrehozásához, módosításához és optimalizálásához

Ingyenes Mac

MonoDevelop

A MonoDevelop egy többplatformos IDE, amelyet elsősorban C# és más .NET nyelvekhez terveztek. A MonoDevelop lehetővé teszi a fejlesztők számára, hogy gyorsan hozzanak létre asztali és ASP.NET webalkalmazásokat Linux, Windows és Mac OSX rendszerekhez. A MonoDevelop lehetővé teszi a fejlesztők számára a beépített .NET-alkalmazások egyszerű portolását vizuális Stúdió, Linux és Mac OSX rendszeren, egyetlen kódalapot tartva fenn minden platformon

Ingyenes nyílt forráskódú Mac Windows Linux. NET Framework Xamarin Stúdió

Lázár

Ingyenes Pascal egy GPL-fordító, amely Linuxon, Win32-n, OS/2-n, 68K-n és még sok máson fut. A Free Pascal a Delphi szintaxis megértésére és fordítására készült. A Lazarus a hiányzó rejtvény darabja, amely lehetővé teszi Delphi-szerű programok fejlesztését a fenti platformok mindegyikére. Mivel ugyanaz a fordító elérhető az összes fenti platformon, ez azt jelenti, hogy nem kell újrakódolnia azonos termékek létrehozásához különböző platformokon

Ingyenes nyílt forráskódú Mac Windows Linux BSD OpenSolaris

webvihar

A JetBrains WebStorm egy kereskedelmi JavaScript, CSS és HTML fejlesztőkörnyezet, amely a JetBrains IntelliJ IDEA platformra épül.
A WebStorm kódkiegészítést, menet közbeni kódelemzést, refaktorálási támogatást és VCS-integrációt biztosít.

Fizetett Mac Windows Linux

SharpDevelop

A #develop (a SharpDevelop rövidítése) egy ingyenes fejlesztői környezet C#, VB.NET és Boo projektekhez a Microsoft platformon. Ez egy nyílt forráskódú környezet. Letöltheti mint forrásés futtatható fájlok.