Алтернативи за замяна на Microsoft Small Basic. Урок по информатика и ИКТ на тема: "Въведение в средата за програмиране Small Basic" Поставяне на програма при стартиране

Eclipse е разширяема платформа за разработка с времена за изпълнение и платформи за приложения за създаване, изпълнение и управление на софтуер през целия му жизнен цикъл. Много хора познават Eclipse като Java IDE, но Eclipse всъщност се състои от над 60 различни проекта с отворен код.

Безплатен отворен код Mac Windows Linux

NetBeans

Безплатна IDE с отворен код за разработчици софтуер. Получавате всички инструменти, от които се нуждаете, за да създадете професионален настолен компютър, предприятие, уеб и мобилни приложенияв Java, C/C++ и дори динамични езици като PHP, JavaScript, Groovy и Ruby

Безплатен отворен код Mac Windows Linux BSD

Студио Аптана

Aptana Studio е цялостна среда за уеб разработка, която комбинира мощни инструменти за разработка с пакет от онлайн хостинг и услуги за сътрудничество, за да помогне на вас и вашия екип да свършите повече. Включва поддръжка за PHP, CSS, FTP и др.

Безплатен отворен код Mac Windows Linux

Комодо Редактиране

Komodo Edit е бърз, интелигентен и безплатен редактор с отворен код. Опитайте да използвате Komodo Edit (или неговия по-голям брат Komodo IDE) - струва си.

Безплатен отворен код Mac Windows Linux

Xcode

Xcode на Apple е водещата среда за разработка за Mac OS X. Освен че се включва на диска при всяка покупка на Mac OS X, тя е най- нова версиявинаги е на разположение за безплатно изтегляне за членове на ADC ( социална мрежаза разработчици на приложения на всички платформи на Apple) и включва всички инструменти, от които се нуждаете, за да създавате, настройвате и оптимизирате приложенията, които създавате

безплатно Mac

MonoDevelop

MonoDevelop е междуплатформена IDE, предназначена предимно за C# и други .NET езици. MonoDevelop позволява на разработчиците бързо да създават десктоп и ASP.NET уеб приложения за Linux, Windows и Mac OSX. MonoDevelop позволява на разработчиците лесно да пренасят .NET приложения, изградени в Visual Studio, към Linux и Mac OSX, поддържайки единична базакод за всички платформи

Безплатен отворен код Mac Windows Linux. NET FrameworkСтудио Xamarin

Лазар

Free Pascal е GPL компилатор, който работи на Linux, Win32, OS/2, 68K и други. Free Pascal е проектиран да разбира и компилира синтаксиса на Delphi. Lazarus е парчето от липсващия пъзел, което ще ви позволи да разработите подобни на Delphi програми за всички горепосочени платформи. Тъй като един и същ компилатор е наличен на всички горепосочени платформи, това означава, че не е необходимо да кодирате отново, за да създадете идентични продукти за различни платформи

Безплатен отворен код Mac Windows Linux BSD OpenSolaris

WebStorm

JetBrains WebStorm е търговска среда за разработка на JavaScript, CSS и HTML, изградена върху платформата JetBrains IntelliJ IDEA.
WebStorm осигурява автоматично попълване на код, анализ на кода в движение, поддръжка за рефакторинг и VCS интеграция.

Платено Mac Windows Linux

SharpDevelop

#develop (съкратено от SharpDevelop) е безплатна среда за разработка на C#, VB.NET и Boo проекти в Microsoft платформа. Това е среда с отворен код. Можете да изтеглите като изходен код, и изпълними файлове.

Основи на програмирането.

Език за програмиране малък Основен

УРОК 1: Въведение в средата за програмиране малък Основен .

цел:Представяне с езика за програмиране Small Basic.

Задачи:

Започнете да изучавате език за програмиранеМалък основен. Дайте концепцията за ООП (обектно-ориентирано програмиране)

Научете се да работите в тази среда за програмиране. П въведете „текстовия обект“ на средатаМалък основен.

Дайте първа представа за създаване на програми в среда за програмиране.

Основните образователни цели на проекта:

Възпитаване на личностни качества: решителност, внимателност, точност, обективност в самооценката, отговорност, познавателен интерес.

Основни задачи за развитие на проекта:

Да развие у учениците ключови компетентности, които допринасят за успешна социална адаптация;

Развийте желание за саморазвитие и личностно израстване чрез когнитивна дейност.

знайте: Основни понятия: обект, променливи, присвояване, типове данни, вход-изход.Познаване на съставните елементи на средата за програмиране Small Basic.

Да може да: Изтеглете програмата Smal Basic. Създавайте прости проекти в тази среда за програмиране. Да може да въвежда математически функции и да пише математически изрази на езика Smal Basic. Пишете прости линейни програми.

Оборудване и материали: поддържащи бележки за лекции (вжПриложение 1 ), карти със задачи, компютър, Малко основно приложение, дъска, мултимедиен проектор, екран.

Напредък на урока:

Организационен момент

1. Подготовка за урока

   Актуализиране на знанията

Обяснение на нов материал

Затвърждаване на научения материал

1. Въпроси по темата

Обобщавайки

1. Класиране

   домашна работа

Организационен момент

1. Подготовка за урока (проверете готовността за урока, маркирайте отсъстващите)

   Актуализиране на знанията

Защо е необходимо програмиране?

Искате да напишете есе по биология. Най-вероятно ще го напишете на компютъра си в някакъв текстов редактор. Откъде дойде текстовият редактор? Разбира се, написано е от програмисти. Ще търсите информация в интернет с помощта на браузър, който също е написан от програмисти. След като напишете есето си, ще искате да се отпуснете и да играете компютърна игра, който отново е написан от програмисти. Като цяло работата на компютър е невъзможна без използване на програми, които програмистите пишат. Това означава, че ако нямаше програмиране, нямаше да има програми и компютърът щеше да бъде куп скъп хардуер, защото е невъзможно да се направи нещо с помощта на компютър без програми.

Етапи на решаване на проблема.

Основни понятия

Програмиране - писане на програми.

програма – алгоритъм, написан на език за програмиране, който компютърът може да разбере.

Алгоритъм – ясна последователност от действия, насочени към постигане на целта.

В обектно-ориентираното програмиране въведена е концепцията за обект, въведени са изчислителни механизми, позволяващи:

Опишете структурата на обект

Опишете действия с предмети

Използвайте специални правила за наследяване на обекти (Наследяването означава създаване на нови обекти от съществуващи)

Задайте степента на защита на компонентите на обекта

Теория

Първо запознанство

Microsoft Small Basic - език за програмиране, разработен от . Предназначен за начинаещи разработчици, които искат да научат основите на създаването на програми.

Основни предимства:

Много проста среда за разработка - текстов редактор с многофункционална подсказка и само няколко бутона за редактиране на текст и стартиране на програми.

Прост език само с 20 ключови думи

Контекстна документация за всички езикови елементи, вградени в средата за разработка

Възможността за разширяване на Small Basic компонентите, за да включват допълнителна функционалност. (Например, доставката вече включва възможности за работа с услуги)

Специално предимство на BASIC е възможността за работа в режим на интерпретация, което значително опростява процеса на отстраняване на грешки в програмите: изпълнението на почти всяка команда може да бъде проверено веднага след писане.

Оператор за извод

WriteLine("Здравей!")

Показва низа (текстили номер )

здравей

За да получите резултата - показване на текста "Здравей!" към екрана - трябва да напишете програма:

TextWindow.WriteLine("Здравей!")

Програмата се въвежда в прозорецамалъкОсновени започва с бутонСтартирайтеили ключ Е 5

Резултатът от работата на програмата е текстовият изход: "Здравей!" VТекстово поле програми.

Редът означава „Натиснете произволен клавиш, за да продължите...“

TextWindow е обект „текстов прозорец“, в който може да се показва текст.

Обектът има свойстваи методи.

Обектен метод -какво може да направи един обект, т.еоперации (оператори )

Параметър Операцията е оградена в скобите WriteLine()

Също обект текстово поле има свойства (това са характеристиките на обекта) , Например

Свойство BackgroundColor – задава цвета на фона на текста,ForegroundColor- цвят на текста

Цветове:

червено

жълто

зелено

синьо

черен

бяло

червено

жълто

зелено

синьо

черен

бяло

Променлива

Променливите често се използват за създаване на програми.

Променливата имаИме - латиница (а)

На променлива може да бъде присвоена стойност, като например числова стойност

а= 5, където знакът " = “ – Това оператор за присвояване

Низова стойност

а = а + 5

Вземете стойността на променлива a

Добавете 5 към него

Поставете нова стойност в променлива a, като изтриете предишната от нея

Има два вида променлива: номери линия

10, -5, 3.14 „информатика“

Сгънете +

Умножете *

Разделяне /

Математически операции:

Синус, логаритъм, корен

лепило

Разделете на части

Символи за търсене

Замяна на символи

ПРИМЕР с оператор "+"

изразяване

резултат

изразяване

резултат

"Иван" + "ова"

"Иванова"

"клас"+ 10

"клас 10"

Програмиране

Пример 1: резултат от програмата

Пример 2: резултат от програмата

Пример 3: Програмата изчислява и показва сумата на две променливиа и b

Math.Abs(число)

модул

Math.Cos( номер)

косинус

Math.Ceiling(число)

закръглява до цяло число

Math.GetDegrees( номер)

преобразуване на числа от радиани в градуси

Math.GetRandomNumber( максимален брой)

Случайно числов диапазона от 1 домаксимален брой

NaturalLog(число)

Натурален логаритъм

Math.Pi

Число Пи

Math.Power( основно число, експонент)

IN опреобразуване на основно число в степен

математика Макс (номер1, номер2)

Максимум две числа

математика Остатък (дивидент, делител)

Остатък от делението

математика .Sin(число)

синусите

математика тен(номер)

Косинус

математика .SquareRoot(число)

корен

математика Кръгъл(номер)

Нормално закръгляване

математика .ArcSin(число)

арксинус

математика Етаж(номер)

Закръглява до най-близкото най-малко цяло число

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("yравни "+y)

Math.Pi

Фиксиране на материала

1. Независим практическа работаза компютър

Задачи за самостоятелна работа

Задача 1:

Определете крайните резултати от операторите за присвояване

X=3

Y=2

X=X+2

Y=X*2

X=Y

А= 15

B=A

A=B/5+2

B=A*3

А=0

Задача 2 : Създайте програма за изчисляване на произведението на 3 променливи:а , b и c .

Задача 3 : Създайте програма за изчисляване на израза:z=5* х+ г/2 (приемайки x=10,г=100)

Задача 4: Създайте програма за показване на стойностите на X иY, съгласно задача 1.

Задача 5: Създайте програма за намиране на дискриминанта

Задача 6 : оценявайте изрази

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

Cos 2 (Пи/4)+ грях 2 (Пи/2) (1 )

( 1)

Y=2x 2 ( при x=5, y=50)

X 1.2 = (при a=2, b=6, c=4 , х 1=-1, х 2=-2)

З= ln(y)-3 ( при y=3, z=-1,901...)

C= (при а=4, b=9, c=13)

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

Въпроси

каква е програмата

За какво са езиците за програмиране?

Кои са основните елементи на обектно-ориентираното програмиране?

Какви операции могат да се извършват в „текстовия прозорец“?

Какво означава операторът за присвояване:

Какви типове данни се използват вМалък основен?

Как се пишат I/O оператори?

Обобщавайки

1. Класиране

   домашна работа

работа с поддържащи бележки

подготви съобщение на тема: „Разновидности на езиците за програмиране“

Направете програма изчисляване на площта на триъгълник по формулата на Heron

Приложение

OK 1: Основи на програмирането на езика малък Основен .

Програмиране - писане на програми.

АЛГОРИТЪМ + ЕЗИК ЗА ПРОГРАМИРАНЕ= ПРОГРАМА

Променлива

Променливата имаИме - латинска буква (Напр.а , IN , x1 , C9 )

На променлива може да се присвои стойност

Пример: а = 5 , където знакът " = “ – Това оператор за присвояване

Има два вида променлива: номер и линия (последователност от знаци)

10, -5, 3.14 „информатика“

Сгънете +

Умножете *

Разделяне /

Математически операции:

Синус, логаритъм, корен

лепило

Разделете на части

Символи за търсене

Замяна на символи

Програмиране

TextWindow- Това текстов прозорец обект , в който можете да показвате текст.

Операционен параметър оградено в скоби - WriteLine()

Обект текстово поле има свойства , Например

Собственост BackgroundColor – задава цвета на фона на текста,ForegroundColor - цвят на текста

Използвани цветове:

червено

жълто

зелено

синьо

черен

бяло

червено

жълто

зелено

синьо

черен

бяло

Малки базови езикови оператори

оператор "+".

Основни оператори

Използване на математически функции в израз

Съставяне на сложни математически изрази Math.Pi TextWindow.WriteLine("въведете стойността на променлива x")

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("yравни "+y)

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

Програма за изчисляване на сумата от две променливиАи b

TextWindow.WriteLine("въведете стойността на променлива a")

a=TextWindow.ReadNumber()

TextWindow.WriteLine("въведете стойността на променлива b")

b=TextWindow.ReadNumber()

s=a+b

TextWindow.WriteLine("сборът на числата е равен "+s)

Програмата се въвежда в прозорецамалъкОсновени започва с бутонСтартирайтеили ключ Е 5.

Линия Натиснете всякакви ключ продължи ... означава " Натиснете произволен клавиш, за да продължите

Здравейте на всички, в тази статия искам да ви покажа полезни кодове за малки програми. Които можете да използвате за писане на ваши по-сериозни програми или сте търсили точно тези функции, които са описани тук.

Всички кодове са използвани в програмната среда Microsoft Visual Basic v6.0.

Излезте с потвърждение

Първият вид програма или функция е изход със съобщение, потвърждаващо изхода. Като цяло отворете средата Визуално програмиране Basic, създайте стандартен проект, след това поставете един бутон върху формата, щракнете върху бутона и ще се отвори прозорец за редактиране на код, в който трябва да вмъкнете следния код:

Beep Dim message As String Dim buttonsandicones As Integer Dim title As String Dim response As String message = "Искаш ли да излезем?"" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

title = "Изход

Парола за стартиране на програмата<>Dim Password, Pword PassWord = "12345" Pword = InputBox("Въведете парола") Ако Pword

PassWord Then MsgBox "Паролата не е правилна" End End If

Където 12345 е паролата за стартиране на програмата. Но този код може да се използва където пожелаете.

Изход на съобщение

Ако просто искате да покажете съобщение за нещо, поставете това:" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, title !}

Beep Dim message As String Dim buttonsandicones As Integer Dim title As String message = "Съобщение" title = "Съобщение

Рисуване върху формуляра

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Form1.CurrentX = X Form1.CurrentY = Y End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = 1 Then Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(0) End If End Sub

Можете да промените цвета с помощта на параметъра QBColor(0), т.е. Вместо 0 поставете друго число.

Рестартиране на компютъра

За да рестартирате компютъра си: поставете бутона и поставете следния код:

Dim strComputer като низ strComputer = "."

Следващият пример ще ви помогне да накарате програмата да се изпълнява само веднъж, т.е. ако се рестартира, ще покаже съответно съобщение. Вмъкнете следното в кода на формуляра:

Private Sub Form_Load() If App.PrevInstance = True Then MsgBox "Проектът вече е стартиран!"

Край Край Ако

Изключване на компютъра

За да изключите компютъра си, можете да използвате следния код:

Dim strComputer като низ strComputer = "."

Задайте objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate,(Shutdown))!\\" _ & strComputer & "\root\cimv2") Задайте colOperatingSystems = objWMIService.ExecQuery("Изберете * от Win32_OperatingSystem") за Всеки ObjOperatingSystem в colOperatingSystems ObjOperatingSystem.ShutDown "За изключване След

Прекратяване на всеки процес

За да прекратите процеса, можете да използвате следния код:

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

Където вместо ICQlite.exe може да има произволен процес. Колко време издържа компютъра?По-долу е даден пример как можете да определите времето за работа на компютъра.

Този метод

се основава на използването на библиотеката kernel32, така че в самото начало на кода на формуляра свържете този DLL. Private Declare Function GetTickCount Lib "kernel32" () As Long "И в кода на бутона: Dim a_hour, a_minute, a_second a = Format(GetTickCount() / 1000, "0") "общо секунди a_days = Int(a / 86400) a = a - a_дни * 86400 a_hour = Int(a / 3600) a = a - a_hour * 3600 a_minute = Int(a / 60) a_second = a - a_minute * 60 MsgBox "Компютърът ви работи " & Str(a_days) & " дни " & Str(a_hour) _ & " часове " & Str(a_minute) & " минути" & Str(a_second) & " секунди"Прегледахме

прости функции

, който може да се използва почти навсякъде. Сега нека разгледаме по-сериозни примери и те могат значително да ви помогнат да напишете вашите големи проекти.

Примери за работа с папки

Изтриване на директория

Private Declare Function RemoveDirectory& Lib _ "kernel32" Псевдоним "RemoveDirectoryA" (ByVal lpPathName като низ) "Премахване на директория (празна!) PathName$ = "D:\t" код& = RemoveDirectory(PathName) Ако код& = 0 След това "Грешка премахване на директория Else "Директорията е изтрита End If<>Създайте директория

Sub MakeDir(dirname As String) Dim i As Long, path As String Do i = InStr(i + 1, dirname & "\", "\") path = Left$(dirname, i - 1) If Right$(path , 1)

Добавяме 2 текстови полета и бутон към формата, името на първото текстово поле е StartText, името на второто текстово поле е OutText. Многоредово свойство = true, име на бутон = CmdStart

Статично изпълняване As Boolean Dim AllDirs As New Collection Dim next_dir As Integer Dim dir_name As String Dim sub_dir As String Dim i As Integer Dim txt As String If running Then running = False CmdStart.Enabled = False CmdStart.Caption = "Stopping" Else running = True MousePointer = vbHourglass CmdStart.Caption = "Stop" OutText.Text = "" DoEvents next_dir = 1 AllDirs.Add StartText.Text Do While next_dir<= AllDirs.Count dir_name = AllDirs(next_dir) next_dir = next_dir + 1 sub_dir = Dir$(dir_name & "\*", vbDirectory) Do While sub_dir <>"" Ако UCase$(sub_dir)<>"PAGEFILE.SYS" И sub_dir<>"." И sub_dir<>".." Тогава sub_dir = dir_name & "\" & sub_dir On Error Resume Next If GetAttr(sub_dir) And vbDirectory Then AllDirs.Add sub_dir End If sub_dir = Dir$(, vbDirectory) Loop DoEvents If Not running Then Exit Do Loop txt = "" For i = 1 To AllDirs.Count txt = txt & AllDirs(i) & vbCrLf Next i OutText.Text = txt MousePointer = vbDefault unning = False End If

Сега стартираме програмата, пишем в текстовото поле StartText: C:\windows и щракваме върху бутона.

Размер на директорията

Const MAX_PATH = 260 Private Type FILETIME dwLowDateTime As Long dwHighDateTime As Long End Type Private Type WIN32_FIND_DATA dwFileAttributes As Long ftCreationTime As FILETIME ftLastAccessTime As FILETIME ftLastWriteTime As Long nFileSizeHigh As Long nFileSizeLow As Long d wReserved0 Long dwReserved1 Колкото cFileName като низ * MAX_PATH cAlternate като низ * 14 End Type Private Declare Function FindFirstFile Lib _ "kernel32" Псевдоним "FindFirstFileA" (ByVal lpFileName As String, lpFindFileData As WIN32_FIND_DATA) Като Long Private Declare Function FindNextFile Lib _ "kernel32" Псевдоним "FindNextFileA" (ByVal h FindFile As Long , ileData As 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 Dim fdata As WIN32_FIND_DATA Dim dblSize As Double Dim sName As String Dim x As Long On Error Resume Next x = GetAttr(DirPath) If Err Then SizeOf = 0: Изход от функцията If (x And vbDirectory) = vbDirectory Then dblSize = 0 Err.Clear sName = Dir$(EndSlash(DirPath) & " *.* ", vbSystem Или vbHidden Или vbDirectory) Ако Err.Number = 0 Тогава hFind = FindFirstFile(EndSlash(DirPath) & "*.*", fdata) Ако hFind = 0 Тогава Излезте от функцията Направете Ако (fdata.dwFileAttributes И vbDirectory ) = vbDirectory Тогава sName = Left$(fdata.cFileName, InStr(fdata.cFileName, vbNullChar) - 1) Ако sName<>"." И sName<>".." След това dblSize = dblSize + SizeOf(EndSlash(DirPath) & sName) End If Else dblSize = dblSize + fdata.nFileSizeHigh * 65536 + fdata.nFileSizeLow End If DoEvents Loop While FindNextFile(hFind, fdata)<>0 hFind = FindClose(hFind) End If Else On Error Resume Next dblSize = FileLen(DirPath) End If SizeOf = dblSize End Function Private Function EndSlash(ByVal PathIn As String) As String If Right$(PathIn, 1) = "\" След това EndSlash = PathIn Else EndSlash = PathIn & "\" End If End Function Private Sub Form_Load() "Заменете "D:\soft" с директорията, чийто размер искате да знаете MsgBox SizeOf("D:\soft") / 1000000 End Sub

Примери за работа с файлове

копие

Да приемем, че имаме файл с име 1.txt в папката C:\1\ и трябва да го копираме в C:\2\, за да направим това, пишем следния код:

Файлово копие "C:\1\1.txt", "C:\2\1.txt"

Забележка! Ако директория 2 вече съдържа файл с име 1.txt, той ще бъде заменен с 1.txt от директория 1.

Private Declare Function CopyFile Lib _ "kernel32.dll" Alias ​​​​"CopyFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long Private Sub Command1_Click() " Копиране на файл C:\1.txt към D :\1.txt. Dim retval As Long " върната стойност "Копирайте файла retval = CopyFile("C:\1.txt", "D:\1.txt", 1) Ако retval = 0 Тогава "Ако грешка MsgBox "Не мога да копирам" Else "Ако всичко е наред MsgBox "Файлът е копиран." End If End Sub

Премахване

Например искаме да изтрием файл 1.txt от корена на устройството C:\

Kill("C:\1.txt")

API метод

Private Declare Function DeleteFile Lib _ "kernel32.dll" Псевдоним "DeleteFileA" (ByVal lpFileName As String) As Long Private Sub Command1_Click() "Изтриване на файл C:\Samples\anyfile.txt Dim retval As Long "Върната стойност retval = DeleteFile( "C:\1.txt") If retval = 1 Then MsgBox "Файлът беше успешно изтрит."

End Sub

Преместване

Можете например да го преместите така:

Файлово копие "C:\1.txt", "C:\2\1.txt" Унищожаване ("C:\1.txt")

Но е по-добре така (чрез API):

Private Declare Function MoveFile Lib _ "kernel32.dll" Псевдоним "MoveFileA" _ (ByVal lpExistingFileName като низ, ByVal lpNewFileName като низ) As Long Private Sub Command1_Click() Dim retval As Long "Върната стойност retval = MoveFile("C: \1 .txt", "C:\2\1.txt") Ако retval = 1 Тогава MsgBox "Преместено успешно" Else MsgBox "Грешка" End If End Sub

Преименуване

За да преименувате файла 1.txt, намиращ се в C:\ на 2.txt, можете да използвате следния код:

API метод

Файлово копие "C:\1.txt", "C:\2.txt" Унищожаване ("C:\1.txt")

Private Declare Function MoveFile Lib _ "kernel32.dll" Псевдоним "MoveFileA" _ (ByVal lpExistingFileName As String, ByVal lpNewFileName As String) As Long Private Sub Command1_Click() Dim retval As Long " върната стойност retval = MoveFile("C: \1 .txt", "C:\2.txt") If retval = 1 Then MsgBox "Success" Else MsgBox "Error" End If End Sub

Определете размера на файла

Размерът на файла може да се определи по два начина:

Ако файлът може да се отвори с функцията OPEN, тогава можете да използвате функцията LOF

Dim FileFree As Integer Dim FileSize As Long FileFree = FreeFile Отворете "C:\WIN\GENERAL.TXT" за въвеждане като FileFree FileSize = LOF(FileFree) Затваряне на FileFree

Или използвайте функцията FileLen

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

Скриване на часовника програмно

Опция Изрична функция за частно деклариране FindWindow Lib _ "user32" Псевдоним "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib _ "user32" Псевдоним ​​"FindWindowExA" _ (ByVal hWnd1 Като Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function ShowWindow Lib _ "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Dim hnd As Long Private Sub Command1_Click() 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", vbNullString) hnd = FindWindowEx( hnd, 0, "TrayClockWClass", vbNullString) Command1.Caption = "Скриване на часовника" Command2.Caption = "Показване на часовника" End Sub

Добавяне на икона в областта

Добавете модул и поставете кода в него:

Declare Function Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage As Long, lpData As NOTIFYICONDATA) As Integer Public Const NIM_ADD = 0 Public Const NIM_MODIFY = 1 Public Const NIM_DELETE = 2 Public Const NIF_MESSAGE = 1 Public Const NIF_ICON = 2 Public Const NIF_TIP = 4 Тип NOTIFYICONDATA cbSize As Long hWnd Колкото uID Колкото uFlags Колкото дълго uCallbackMessage Колкото дълго hIcon Колкото дълго szTip Като String * 64 Краен тип Публична функция SetTrayIcon(Mode As Long, hWnd Колкото дълго, Икона толкова дълго, tip As String) Колкото дълго Dim nidTemp As NOTIFYICONDATA nidTemp.cbSize = Len(nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0& nidTemp.uFlags = NIF_ICON Или NIF_TIP nidTemp.uCallbackMessage = 0& nidTemp.hIcon = Икона nidTemp.szTip = tip & Chr$( 0) SetTray Икона = Shell_NotifyIconA(Mode, nidTemp) Крайна функция

За да използвате, поставете във формуляра код:

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

Блокиране на бутона за стартиране

Функция за частна декларация FindWindow Lib "user32" Псевдоним "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName като низ) As Long Функция за частна декларация FindWindowEx Lib "user32" Псевдоним ​​"FindWindowExA" _ (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long Private Declare Function EnableWindow Lib "user32" _ (ByVal hwnd As Long, ByVal fEnable As Long) As Long Public Sub EnableStartButton(По избор Активирано като Boolean = True) Dim lHwnd As Long " find hWnd lHwnd& = FindWindowEx(FindWindow("Shell_TrayWnd", ""), 0&, "Button", vbNullString) Извикване на EnableWindow(lHwnd&, CLng(Enabled)) End Sub Private Sub Command1_Click() EnableStartButton False "бутон START е деактивиран End Sub Private Sub Command2_Click() EnableStartButton True "Бутонът START не е деактивиран End Sub

Четене на параметри от INI файла

Програмата се свързва с FTP, а ini файла съдържа параметрите - сървър, логин, порт, парола.

Първо създайте INI файл:

Servname=сървър usern=Вход pwd=парола port=порт

Трябва да се постави в папката на програмата. След това вмъкнете в модула:

Private Declare Function WritePrivateProfileString Lib _ "kernel32" Псевдоним "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, ByVal lpFileName As String) Като Long Private Declare Function GetPrivateProfileString Lib _ "kernel 32" псевдоним ​„GetP rivateProfileStringA“ (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpDefault As String, ByVal lpReturnedString As String, _ ByVal nSize As Long, ByVal lpFileName As String) As Long Public Function ReadIni(Razdel As String, Param) Като низ ReadIni = GetValue (Razdel, Param, App.Path & "\test.ini", "0") Крайна функция Частна функция GetValue(ByVal раздел като низ, _ ByVal ключ като низ, ByVal fFileName като низ, по избор ByVal DefaultValue As String = vbNullString) As String Dim Data As String Data = String$(1000, Chr$(0)) If GetPrivateProfileString(Section, Key, DefaultValue, Data, 1000, fFileName) > 0 Then GetValue = Left$(Data, InStr (Data$, Chr $(0)) - 1) Else GetValue = Стойност по подразбиране End If Exit Function End Function

След това поставете в кода на формуляра:

Private Declare Function InternetOpen Lib _ "wininet.dll" Псевдоним "InternetOpenA" (ByVal sAgent As String, ByVal nAccessType As Long, ByVal sProxyName As String, _ ByVal sProxyBypass As String, ByVal nFlags As Long) As Long Private Declare Function InternetConnect Lib _ "wininet.dll" Псевдоним "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, _ ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal nService As Long, _ ByVal dwFlags As Long , ByVal dwContext As Long) As Long Private Declare Function FtpPutFile Lib _ "wininet.dll" Псевдоним "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _ ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) Като Boolean Private Declare Function FtpGetFile Lib _ "wininet.dll" Псевдоним "FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttribut es As Long, _ ByVal dwFlags As Long, ByVal d wContext As Long ) As Boolean Private Declare Function InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Long) As Integer Dim rc& Dim rs&

И в кода на бутона:

rc& = InternetOpen("", 0, vbNullString, vbNullString, 0) rs& = InternetConnect(rc&, ReadIni("Общи", "servname"), "0", _ ReadIni("Общи", "потребител"), ReadIni( "Общи", "pwd"), 1, 0, 0) Ако FtpGetFile(rs&, "Вашият файл.txt", "път където", False, 0, 1, 0) = False Тогава Край на повикването InternetCloseHandle(rs&) Повикване InternetCloseHandle(rc&)

Списък на изпълняваните процеси

Добавете Listbox и 1 бутон, вмъкнете следния код:

Опция Изрично Private Declare Function CreateToolhelpSnapshot Lib _ "Kernel32" Alias ​​​​"CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function ProcessFirst Lib _ "Kernel32" Alias ​​​​"Process32First" _ (ByVal h Моментна снимка As Long, uProcess As PROCESSENTRY32) As Long Private Declare Function ProcessNext Lib _ "Kernel32" Псевдоним "Process32Next" _ (ByVal hSnapShot As Long, uProcess As PROCESSENTRY32) As Long Private Declare Sub CloseHandle Lib "Kernel32" (ByVal hPass As Long ) Private Const TH32CS_SNAPPROCESS As Long = 2& Private Const MAX_PATH As Integer = 260 Private Type PROCESSENTRY32 dwSize As Long cntUsage As Long th32ProcessID As Long th32DefaultHeapID As Long th32ModuleID As Long cntThreads As Long th32ParentProcessID As Long pcPriClassBase As Дълги dwFlags като дълги szExeFile като низ * MAX_PATH End Type Di m hSnapShot As Long Dim uProcess As PROCESSENTRY32 Dim r As Long Private Sub Command1_Click() List1.Clear hSnapShot = CreateToolhelpSnapshot(TH32CS_SNAPPROCESS, 0&) If hSnapShot = 0 Then Exit Sub End If uProcess.dwSize = Len(uProcess) r = ProcessFirst(hSnapShot, uProcess) Do While r List1.AddItem uProcess.szExeFile r = ProcessNext(hSnapShot, uProcess) Loop Call CloseHandle(hSnapShot) End Sub

Поставяне на програма при стартиране

За да може програмата да се зареди с Windows, както някои други програми, можете да използвате системния регистър:

Добавете 2 бутона и следния код:

Private Sub Command1_Click() "Запис в системния регистър Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name на вашата програма", _ "Път до вашата програма" End Sub Private Sub Command2_Click() "Изтриване от системния регистър Set Reg = CreateObject("WScript.Shell") Reg.RegDelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\Name на вашата програма" End Sub

И за да може програмата да се зареди заедно с Windows, дори и в безопасен режим, след това този код:

Първо, по-сериозен метод (направете го за всеки случай резервно копиерегистър).

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Път до вашата програма" End Sub Private Sub Command2_Click()" Това е за възстановяване Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Shell", _ "Explorer.exe," End Sub

Е, прост начин.

Private Sub Command1_Click() Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C:\\WINDOWS\\system32\\userinit.exe ,Пътят до вашата програма" End Sub Private Sub Command2_Click()"За възстановяване Set Reg = CreateObject("WScript.Shell") Reg.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\WindowsNT\CurrentVersion\Winlogon\Userinit", _ "C : \\WINDOWS\\system32\\userinit.exe," End Sub

Скриване на лентата на задачите

Добавете 2 бутона и поставете кода:

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, _ ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, _ ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long Private Declare Функция FindWindow Lib "user32" Псевдоним "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOW = &H40 "Hide Private Sub Command1_Click() hwnd1 = FindWindow("Shell_tray вятър", " ") Извикване на SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Показва Private Sub Command2_Click() hwnd1 = FindWindow("Shell_traywnd", "") Извикване на SetWindowPos(hwnd1, 0, 0, 0, 0, 0, SWP_SHOWWINDOW) End Sub

Разархивирайте RAR архива

За да разархивирате RAR архива, можете да използвате следния код:

WinRarApp = "C:\Program Files\WinRAR\WinRAR.exe x -o+" iPath = "C:\" iArhivName = "Име на файл.rar" adr = WinRarApp & " """ & iPath & iArhivName & """ " "" & iPath & """ " RetVal = Shell(adr, vbHide)

Колко RAM има в компютъра

Добавете един бутон и поставете следния код:

Private Declare Sub GlobalMemoryStatus Lib "kernel32" (lpBuffer As TMemoryStatus) Private Type TMemoryStatus dwLength As Long dwMemoryLoad As Long dwTotalPhys As Long dwAvailPhys As Long dwTotalPageFile As Long dwTotalVirtual As Long dwAvailVirtual As Long End Type Dim s As TMemoryStatus Privat e Подкоманда1_Щракване( ) ms.dwLength = Len(ms) Call GlobalMemoryStatus(ms) MsgBox "Total:" & ms.dwTotalPhys & vbCr & "Free:" _ & ms.dwAvailPhys & vbCr & "Used in %:" & ms.dwMemoryLoad End Sub

Скриване на иконите на работния плот

Това става по следния начин. Добавете 2 бутона и поставете следния код:

Private Declare Function ShowWindow& Lib "user32" (ByVal hwnd&, ByVal nCmdShow&) Private Declare Function FindWindow Lib _ "user32" Псевдоним "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) Като Long Const SW_HIDE = 0 Const SW_ НОРМАЛНО = 1 Private Sub Command1_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) Call ShowWindow(hHandle, SW_HIDE) End Sub Private Sub Command2_Click() Dim hHandle As Long hHandle = FindWindow("progman", vbNullString) Call ShowWindow (hHandle, SW_NORMAL) End Sub

Чрез бутона Command1 иконите са скрити, Command2 - те се показват.

Това е всичко за мен, надявам се горните примери да са ви полезни, чао!