Alternatív megoldások a Microsoft Small Basic helyettesítésére. Informatika és IKT óra témában: "Bevezetés a Small Basic programozási környezetbe" Példák mappákkal való munkavégzésre

A programozás alapjai.

Programozási nyelv Kicsi Alapvető

1. LECKE: A programozási környezet ismerete Kicsi Alapvető .

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

Feladatok:

Kezdje el a programozási nyelv tanulását Smal Basic. Adja meg az OOP (objektumorientált programozás) fogalmát!

Megtanítani, hogyan kell dolgozni ebben a programozási környezetben. NS ismerkedjen meg a környezet "szövegobjektumával". Smal Basic.

Az első ötlet megadása a programok programozási környezetben történő létrehozásához.

A projekt főbb oktatási feladatai:

Személyes tulajdonságok nevelése: elhivatottság, figyelmesség, pontosság, tárgyilagosság az önértékelé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 iránti vágy fejlesztése kognitív tevékenységen keresztül.

Tudni: 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 be a Smal Basic programot. Készítse el a legegyszerűbb projekteket egy adott programozási környezetben. Tudjon matematikai függvényeket beírni és matematikai kifejezéseket írni a Smal Basic nyelven. Készítsen egyszerű lineáris programokat.

Felszerelés és anyag: alátámasztó előadási jegyzetek (lásd.melléklet 1. sz ), feladatkártyák, PC, Small Basic alkalmazás, tábla, multimédiás projektor, képernyő.

Az órák alatt:

Idő szervezése

1. Óra előkészítése

   Tudásfrissítés

Az új anyag magyarázata

A tanult anyag konszolidációja

1. Kérdések a témában

Ö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 megírja a számítógépén valamilyen szövegszerkesztőben. Honnan jött a szövegszerkesztő? Természetesen programozók írták. Az interneten olyan böngészővel fog keresni, amelyet szintén programozók írtak. Az absztrakt megírása után pihenni és játszani akar majd számítógépes játék, amit ismét a programozók írtak. Általában a számítógépen végzett munka lehetetlen programozók által írt programok használata nélkül. Ez azt jelenti, hogy ha nem lenne programozás, nem lennének programok, és a számítógép egy rakás drága hardver lenne, mert számítógéppel programok nélkül lehetetlen valamit csinálni.

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 bevezették az objektum fogalmát, olyan számítási mechanizmusokat vezettek be, amelyek lehetővé teszik:

Ismertesse egy objektum szerkezetét!

Mutassa be az objektumokkal végzett műveleteket

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

Állítsa be az objektum összetevőinek védelmi fokát

Elmélet

Első találkozás

Microsoft Small Alapvető - a cég által fejlesztett programozási nyelv. Kezdő fejlesztőknek készült, akik szeretnék megragadni a szoftverfejlesztés 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 épített összes nyelvi elem kontextus szerinti dokumentációja

A Small Basic összetevők bővítésének lehetősége további funkciókkal. (Például a szállítás már tartalmaz lehetőségeket a szolgáltatásokkal való együttműködésre)

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.

Következtetési állítás

WriteLine ("Helló!")

Megjeleníti a sort (szöveg vagy szám )

Hé!

Az eredmény eléréséhez írja ki a "Hello!" a képernyőre - programot kell írnia:

TextWindow.WriteLine ("Helló!")

A program bekerül az ablakbaKicsiAlapvetőés a gomb elindítjaFutás vagy kulccsal F 5

A program eredménye a szöveg kimenete: "Hello!" vSzövegdoboz programokat.

A sor 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 valami, amire a tárgy képes, vagyis aztevékenységek (operátorok )

Paraméter a művelet zárójelben van WriteLine()

Ugyanaz az objektum szövegdoboz rendelkezik 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.

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

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

a= 5, ahol a „ = " - ez 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

Adja meg az a változó új értékét, törölve belőle az előzőt

Kétféle változó létezik: számés vonal

10, -5, 3.14 "informatika"

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. 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 ​​(név)

modult

Math.Cos ( namber)

koszinusz

Math.Ceiling (név)

egész számra kerekíti

Math.GetDegrees ( namber)

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

Math.GetRandomNumber ( maxnamber)

Véletlenszerű szám 1-tőlmaxnamber

NaturalLog (név)

Természetes logaritmus

Math.Pi

Pi

Math.Power ( baseNamber, kitevő)

V oa baseNamber szorzata kitevővel

Math. Max (namber1, namber2)

Maximum két szám

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

A hadosztály maradéka

Math .Sin (név)

Sinus

Math. Cser(namber)

Koszinusz

Math .ScuareRoot (név)

Gyökér

Math. Kerek(namber)

Normál kerekítés

Math .ArcSin (név)

Arcsine

Math. Padló(namber)

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

x = TextWindow.ReadNumber ()

y = Math.Abs ​​(x)

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

Math.Pi

Az anyag rögzítése

1. Maga praktikus munka PC-hez

Feladatok ehhez önálló munkavégzés

1. Feladat:

Határozza meg a hozzárendelési operátorok 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 : Hozzon létre egy programot 3 változó szorzatának kiszámításához:a , b és c .

3. feladat : Készítsen programot a kifejezés kiszámításához:z=5* x+ y/ 2 (feltéve, hogy x = 10,y=100)

4. feladat: Hozzon létre egy programot az X és az értékek kiadásáraY, az 1. feladat szerint.

5. feladat: Készítsen programot a diszkrimináns megtalálására

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)

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

x 1,2 = (a = 2 esetén, b=6, c=4 , x 1=-1, x 2=-2)

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

С = (for 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övegdobozban"?

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

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

Hogyan íródnak az I/O nyilatkozatok?

Összegzés

1. Osztályozás

   Házi feladat

Munka alátámasztó megjegyzésekkel

ü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ó

A változó rendelkeziknév - latin betű (pl.a , V , x1 , C9 )

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

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

Kétféle változó létezik: szám és vonal (karaktersorozat)

10, -5, 3.14 "informatika"

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- ez szöveg ablak objektum ahol szöveget jeleníthet meg.

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

Egy tárgy szövegdoboz rendelkezik 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

Felhaszná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

Alapkezelők

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

Összetett matematikai kifejezések írása Math.Pi TextWindow.WriteLine ("adjon meg egy értéket az x változóhoz")

x = TextWindow.ReadNumber ()

y = Math.Abs ​​(x)

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

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

Program két változó összegének kiszámításáraaés b

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

a = TextWindow.ReadNumber ()

TextWindow.WriteLine ("adja meg a b értékét")

b = TextWindow.ReadNumber ()

s = a + b

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

A program bekerül az ablakbaKicsiAlapvetőés a gomb elindítjaFutás vagy kulccsal F 5.

Vonal nyomja meg Bármi kulcs folytatni ... jelentése " nyomjon meg egy gombot a folytatáshoz

Hello mindenkinek, ebben a cikkben szeretném megmutatni hasznos kódok kis programok. Amivel saját, komolyabb programokat írhatsz, nos, 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 vagy függvény egy kilépés egy kilépést megerősítő üzenettel. Általában szerdán nyitva Vizuális programozás Alapvetően hozzon létre egy szabványos projektet, majd helyezzen egy gombot az űrlapra, kattintson a gombra és megjelenik a 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 = "Szeretnél kilépni?" title = "(! LANG: 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, ha Pword<>PassWord Then MsgBox "A jelszó nem helyes" End End If

Ahol az 12345 a jelszó a program indításához. De ez a kód bárhol használható.

Üzenet megjelenítése

Ha valamiért csak üzenetet szeretne megjeleníteni, akkor írja be ezt:

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

Rajz egy űrlapra

Privát Sub Form_MouseDown (gomb egész számként, Shift egész számként, X egyetlenként, Y egyetlenként) Form1.CurrentX = X Form1.CurrentY = Y End Sub Private Sub Form_MouseMove (gomb egész számként, Shift egész számként, X Y 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 módosíthatja, pl. cserélje ki a 0-t egy másik számjegyre.

Indítsa újra a számítógépet

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") Állítsa be a colOperatingSystems = objWMIService.ExeperacQuery * Minden egyes objektumból ("S3SelOper2") A colOperatingSystems-ben ObjOperatingSystem.Reboot "A Next

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 egy megfelelő üzenetet jelenít meg. Írja be az űrlap kódját:

Private Sub Form_Load () Ha App.PrevInstance = True, akkor MsgBox "A projekt már fut!" Vége Vége Ha

Számítógép leállítás

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 = megszemélyesítés, (leállítás))! \\" _ & strComputer & "\ root \ cimv2") Állítsa be a colOperatingSystems = objWMIService.ExeperacQuery * Minden egyes objektumból ("S3SelOper2") A colOperatingSystems ObjOperatingSystem.ShutDown "Következő kikapcsolása

Bármilyen folyamat befejezése

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

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

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

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

Az alábbiakban egy példa látható arra, hogyan határozhatja meg számítógépe működési idejét. Ez a módszer a kernel32 könyvtár használatán alapul, ezért szerepeltesse ezt a DLL-t az űrlapkód legelején.

Függvény privát deklarálása GetTickCount Lib "kernel32" () As Long "És a gombkódba: Dim a_hour, a_minute, a_second a = Formátum (GetTickCount () / 1000," 0 ")" csak 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ép fut" & Str (a_days) & " "& Str (a_óra) _ &" óra "& Str (a_perc) &" perc "& Str (a_second) &" másodperc "

Olyan egyszerű funkciókat ismertettünk, amelyek szinte bárhol használhatók. Lássunk most komolyabb példákat, és ezek nagyban segíthetnek a nagy projektek megírásában.

Példák a mappákkal való munkára

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 törlése (üres!) PathName $ =" D: \ t "code & = RemoveDirectory (PathName) Ha kód & =0 Akkor" Hiba a könyvtár törlésekor 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 = Bal $ (dirname, i - 1) Ha jobb $ (elérési út , 1)<>":" És Dir $ (útvonal, vbDirectory) = "" Majd MkDir elérési út vége If Loop Until i> = Len (dirname) End Sub Private Sub Command1_Click () Hívja a MakeDir-t ("C: \ Soft \ 1 \ 2 \ 3 \" ") End Sub

Az összes almappát tartalmazó mappa listája

Adjon hozzá 2 szövegmezőt és egy gombot az űrlaphoz, az első szövegmező neve: StartText, a második szövegmező neve OutText. 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" = "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, majd AllDirs.Add sub_dir End If sub_dir = Dir $ (, vbDirectory) Loop DoEvents Ha nem fut, majd 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 be: C: \ windows, majd kattintsunk a gombra.

Katalógus mérete

Const MAX_PATH = 260 Privát típus FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime Ahogy FILETIME ftLastAccessTime Ahogy FILETIME ftLastWriteTime Ahogy FILETHIME Ahogy FILETIME ftLastWriteTime Ahogy FILETIME Ahogy FILETIME ftLastWriteTime Ahogy FILETHIME Ahogy nLefuzés * 14 End Type Egyéni állapítsa Funkció FindFirstFile Lib _ "kernel32" Alias ​​"FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) Mint Long Private Declare Function FindNextFile Lib _ "kernel32" Funkció A W Private Clare_A_LongFINndle_AFindle2INdle_AFindle2 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 x Double Dim sName As Re Long On Dimor = 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 (DirPath) & "*. *", VbSystem Or vbHidden Vagy vbDirectory) Ha Err.Number = 0 = FindFirstFile (EndSlash (DirPath) & "*. *", Fdata) Ha hFind = 0, akkor kilépés a függvényből Do If (fdata.dwFileAttributes And vbDirectory) = vbDirectory Then sName = Left $ (fdata.cFileName, InStr (fdata.cFileName, fdata. vbNullChar) - 1) Ha a név<>"." És a Név<>".." Ekkor dblSize = dblSize + SizeOf (EndSlash (DirPath) & sName) End If Else dblSize = dblSize + fdata.nFileSizeHigh * 65536 + fdata.nFileSizeLow End If DoEvents Loop While FindNextFind, fda (DirPath)File<>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) = "\" Akkor EndSlash = PathIn Else EndSlash = PathIn & "\" End If End Function Private Sub Form_Load () "Cserélje ki" D: \ soft "az MsgBox SizeOf méretét (" 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, és á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 már van egy 1.txt nevű fájl a 2. könyvtárban, akkor az 1.txt fájlra cserélődik az 1. könyvtárból.

Privát deklarációs 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_Click. Cxt. to D : \ 1.txt. Dim retval As Long "visszatérési érték" Fájl másolása retval = CopyFile ("C: \ 1.txt", "D: \ 1.txt", 1) Ha retval = 0 Akkor "Ha MsgBox hiba" Nem lehet másolni "Egyéb" Ha minden rendben MsgBox "Fájl másolva." End If End Sub

Törlé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 fájl törlése: \ Minták \ anyfile.txt Dim retval As Long =" Visszatérési érték retval DeleteFile ( "C: \ 1.txt") Ha retval = 1 Akkor MsgBox "A fájl sikeresen törölve." Vége Sub

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 (Val = MoveFile ret \ 1 .txt "," C: \ 2 \ 1.txt ") If retval = 1 Akkor MsgBox" Sikeresen áthelyezve "Else MsgBox" Hiba "End If End Sub

Átnevezés

A C: \ fájlban 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 (val = MoveFile ret \ 1 .txt "," C: \ 2.txt ") If 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 "C: \ WIN \ GENERAL.TXT" megnyitása FileFree formátumú bevitelhez 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"AFindWias (Valdows"AFindWias 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 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", vbllString) hnd 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 Public Const NIM_DELETE = 1 Public Const NIM_DELETE = 1 Public Const A NIM_DELETE = 2 Public Const A NIM_DELETE = 2 Public Const NIM_DELETE = 2 Nyilvános Const NIM_DELETE = 2 Nyilvános Const NIFI11 Const. hWnd As Long uID As Long uFlags As Long uCallbackMessage As Long hIcon As Long szTip As String * 64 End Type Public Function SetTrayIcon (Mode As Long, hWnd As Long, Icon As Long, tip As String) As Long Dim nidIFniYdTemp As. cbSize = Len (nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0 & nidTemp.uFlags = NIF_ICON Vagy NIF_TIP nidTemp.uCallbackMessage = 0 & nidTraycon = Shell_NotifyIconA (Mód, FundTemp)

Használatához illessze be az űrlap kódjába:

Private Sub Form_Load () SetTrayIcon NIM_ADD, Me.hWnd, Me.Icon, "Test" End Sub "A Private Sub Command1 eltávolításához_Click () SetTrayIcon NIM_DELETE, Me.hWnd, 0 &," "End Sub

A start gomb blokkolása

Függvény privát deklarálása FindWindow Lib "user32" Alias ​​"FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) Mint Long Private Declare Function FindWindowEx Lib "user32" Alias ​​h, ByValD 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 Engedélyezve A True Boolean) lHwnd As Long " find hWnd lHwnd & = FindWindowEx (FindWindow ("Shell_TrayWnd", ""), 0 &, "Button", vbNullString) EnableWindow hívása (lHwnd &, CLng (Engedélyezve)) End Sub Private Sub Command1_CtB () "START gomb le van zárva End Sub Private Sub Command2_Click () EnableStartButton True "START gomb nincs zárva End Sub

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

A program csatlakozik az FTP-hez, és az ini fájlba írják a paramétereket - szerver, bejelentkezés, port, jelszó.

Kezdettől fogva létrehozunk egy INI fájlt:

Szervnév = szerver felhasználón = bejelentkezés pwd = jelszó port = port

Helyezze a program mappájába. Ezután beillesztjük a modulba:

Privát deklarációs függvény WritePrivateProfileString Lib _ "kernel32" Alias ​​"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpString As String, ByVal lpFileName As Function "Privateas String)ABLiyVal lpFileName As Funkció 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, ReadmIni) , App.Path & "\ test.ini", "0") Függvény vége Privát függvény GetValue (ByVal szakasz karakterláncként, _ ByVal kulcs karakterláncként, ByVal fFileName karakterláncként, opcionális ByVal Alapérték mint karakterlánc = vbNullString) karakterlánc Dim Data As String Data = String $ (1000, Chr $ (0)) Ha GetPrivateProfileString (szakasz, kulcs, alapértelmezett érték, adat, 1000, fFileName)> 0, akkor GetValue = bal $ (Adat, InStr (Data $, Chr $ (0)) ) - 1 ) Else GetValue = DefaultValue vége, ha kilép a függvényből, befejeződik a függvény

Ezután beillesztjük az űrlap kódjába:

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 PrivateConnect) Lib _ "wininet.dll" Alias> "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, _ ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sValsword As LongnSw, ByVal sValsword As LongnSw, ByVal sPassword As LongnSw , ByVal dwVFlags As Long, ByVal dwVFlags As Long, ByVal Long) As Long Private Declare Function FtpPutFile Lib _ "wininet.dll" Alias> "FtpPutFileA" (ByVal hFtpSession As Long, ByVal, ByVal, Str.Val AlpszLocallpszRemo 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 lpszRemoteFile As String, _ ByVallagf,BolagwdFileValsszsIan , LongAndAttributes _ ByVal dwFlags As Long, ByVal dwContext As Long) Logikai Private Declare Funkcióként InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Long) Egész számként 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", "elérési út, ahol", False, 0, 1, 0) = False, majd befejezi a hívást InternetCloseHandle (rs &) Az InternetCloseHandle hívása (rc &)

A futó folyamatok listája

Listadoboz és 1 gomb hozzáadása, írja be a következő kódot:

Opció Explicit privát deklarálási függvény CreateToolhelpSnapshot Lib _ "Kernel32" Alias ​​"CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function Process h Amíg PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib _ "Kernel32" Alias ​​"Process32Next" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare hh3b"Subclose (AValnel) const TH32CS_SNAPPRO = 2 & Private const MAX_PATH As Integer = 260 Privát típus PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Long dwFlags As Long sz * EndShot Dim uProcess Ahogy PROCESSENTRY32 Dim r As Long Private Sub Command1_Click () List1.Clear hSnapShot = Cre ateToolhelpSnapshot (TH32CS_SNAPPROCESS, 0 &) Ha hSnapShot = 0, akkor kilép az alvégből If uProcess.dwSize = Len (uProcess) r = ProcessFirst (hSnapShot, uProcess) Do While Call r List1.AddItem uSzExeShoexlext) Vége Sub

Program indítása

Annak érdekében, hogy a program a Windows rendszerrel együtt töltődjön be, 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 bejegyzés Set Reg = CreateObject (" WScript.Shell ") Reg.RegWrite" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ A program neve ", _" 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 a Windows-al együtt töltsön be, még akkor is biztonságos mód, akkor egy ehhez hasonló kódot:

Kezdetnek komolyabb módszer (csak abban az esetben készíts biztonsági másolatot a rendszerleíró adatbázisról).

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 (2) "_C Ezzel visszaállíthatja a Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Shell", _ "Explorer.exe," End Sub fájlt.

Nos, egy 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 \\ user systeminit2.exe , A program elérési útja "End Sub Private Sub Command2_Click ()" Visszaállításhoz Set Reg = CreateObject ("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE \ SOFTWARE \ Microsoft \ WindowsNT \ CurrentVersion \ Winlogon \ Userinit", _ " : \\ 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_inndk ("Sublick1" Shell_trawindow ("" Shell_trawindow) SetWindowPos hívása (hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Shows Private Sub Command2_Click () hwnd1 = FindWindow (" Shell_traywnd "," ") Call 0, 0, 0, 0, SWP_SHOWWINDOW) Befejezési al

Csomagolja ki a RAR archívumot

A RAR archívum kicsomagolásához 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 Long dwTotalPageFile As Long Memory (Memória Lend.Memória Lengés HívásMmória Leng " & 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 AlpsWindowName AlpsWinstName =ConVal AlpsWinst0) privát deklarálása Const SW_NORMAL = 1 Privát Sub Command1_Click () Dim hHandle As Long hHandle = FindWindow ("progman", vbNullString) ShowWindow hívása (hHandle, SW_HIDE) End Sub Private Sub Command2_Click () Dim hHandle (Negély hHandle Apro Find hgllnandle) ShowWindow , SW_NORMAL) End Sub

A Command1 gomb elrejti az ikonokat, a Command2 pedig megjeleníti az ikonokat.

Számomra ennyi, remélem, a fenti példák hasznodra lesznek, egyelőre!

Az Eclipse egy bővíthető fejlesztői platform futtatókörnyezetekkel és alkalmazásplatformokkal a szoftverek teljes életciklusa során történő létrehozásához, használatához és kezeléséhez. 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, lásd

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

NetBeans

Ingyenes 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, C / C ++ és még dinamikus nyelveken is, például 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árhelyszolgáltatással és együttműködési szolgáltatásokkal, hogy Ön és csapata 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 egy gyors, intelligens és ingyenes nyílt forráskódú szerkesztő. 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 Mac OS X első számú fejlesztőkörnyezete. Amellett, hogy minden megvásárolt Mac OS X-hez lemezen mellékeljük, ez a legjobb 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

Díjmentes 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 készítsenek asztali és ASP.NET webalkalmazásokat Linuxra, Windowsra és Mac OSX-re. A MonoDevelop lehetővé teszi a fejlesztők számára, hogy a Visual Studio-ba épített .NET-alkalmazásokat egyszerűen portolják Linuxra és Mac OSX-re, miközben egyetlen kódbázist tartanak fenn az összes platformon.

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

Lázár

A Free Pascal egy GPL-fordító, amely Linuxon, Win32-n, OS / 2-n, 68K-n és még sok máson működik. A Free Pascal a Delphi szintaxis megértésére és fordítására szolgál. A Lazarus egy hiányzó rejtvény része, 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, hogy azonos termékeket hozzon létre a különböző platformokon.

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

WebStorm

A JetBrains WebStorm egy kereskedelmi jellegű JavaScript, CSS és HTML IDE, amely a JetBrains IntelliJ IDEA keretrendszerre é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 a forráskódot és a végrehajtható fájlokat is.