Альтернативи для заміни Microsoft Small Basic. Урок з інформатики та ІКТ на тему: "Знайомство з середовищем програмування Small Basic" Приміщення програми в автозавантаження

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

Безкоштовна Відкритий код Mac Windows Linux

NetBeans

Безкоштовна інтегроване середовище розробки з відкритим вихідним кодом для розробників програмного забезпечення. Ви отримуєте всі інструменти, необхідні для створення професійних додатків для робочого столу, корпоративних, веб-додатків і мобільних додатків на мові Java, C / C ++ і навіть на динамічних мовах, таких як PHP, JavaScript, Groovy і Ruby

Безкоштовна Відкритий код Mac Windows Linux BSD

Aptana Studio

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

Безкоштовна Відкритий код Mac Windows Linux

Komodo Edit

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 Studio

Lazarus

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. Це середовище з відкритим вихідним кодом. Ви можете завантажити як вихідний код, так і виконувані файли.

Основи програмування.

Мова програмування Small Basic

УРОК 1: Знайомство з середовищем програмування Small Basic .

мета:ознайомити з мовою програмування Small Basic.

завдання:

Почати вивчення мови програмування Smal Basic. Дати поняття про ООП (об'єктно-орієнтованому програмуванні)

Навчити роботі в даному середовищі програмування. П ознайомити з «текстовим об'єктом» середовища Smal Basic.

Дати перше уявлення про створення програм в середовищі програмування.

Основні виховні завдання проекту:

Виховання особистісних якостей: цілеспрямованість, уважність, акуратність, об'єктивність в самооцінці, відповідальність, пізнавальний інтерес.

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

Формувати в учнів ключові компетентності, що сприяють успішній соціальній адаптації;

Розвивати прагнення до саморозвитку та особистісного росту через пізнавальну діяльність.

знати: Основні поняття: об'єкт, змінні, присвоювання, типи даних, введення-виведення.Знати складові елементи середовища програмування Small Basic.

вміти: Завантажувати програму Smal Basic. Створювати найпростіші проекти в даному середовищі програмування. Вміти вводити математичні функції і проводити запис математичних виразів на мові Smal Basic. Складати прості лінійні програми.

Устаткування та матеріали: опорний конспект лекції (див.Додаток 1 ), Картки-завдання, ПК, додаток Small Basic, дошка, мультимедійний проектор, екран.

Хід уроку:

організаційний момент

Підготовка до уроку
актуалізація знань

Пояснення нового матеріалу

Закріплення вивченого матеріалу

Питання по темі

Підведення підсумків

виставляння оцінок
Домашнє завдання

організаційний момент

Підготовка до уроку (перевірити готовність до уроку, відзначити відсутніх)
актуалізація знань

Для чого потрібно програмування?

Ви хочете написати реферат з біології. Швидше за все, писати його ви будете на комп'ютері в будь-якому текстовому редакторі. А звідки взявся текстовий редактор? Звичайно, його написали програмісти. Ви будете шукати інформацію в інтернеті використовуючи браузер, який теж написали програмісти. Після того, як напишете реферат, ви захочете відпочити і пограти в комп'ютерну гру, яку знову-таки написали програмісти. Взагалі, робота на комп'ютері неможлива без використання програм, які пишуть програмісти. А значить, якщо б не було програмування - не було б і програм, а комп'ютер представляв би собою купу дорогого заліза, адже зробити щось за допомогою комп'ютера без програм неможливо.

Етапи вирішення завдань.

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

програмування - написання програм.

програма - алгоритм, написаний на мові програмування, зрозумілому комп'ютера.

алгоритм - чітка послідовність дій, спрямована на досягнення мети.

В об'єктно-орієнтованому програмуванні введено поняття об'єкта, реалізовані механізми обчислення, що дозволяють:

Описувати структуру об'єкта

Описувати дії з об'єктами

Використовувати спеціальні правила успадкування об'єктів (Спадкування означає створення нових об'єктів з уже існуючих)

Встановити ступінь захисту компонентів об'єкта

теорія

Перше знайомство

Microsoft Small Basic - мова програмування, розроблений компанією. Призначений для початківців розробників, бажаючих осягнути основи створення програм.

Основні переваги:

Дуже проста середовище розробки - текстовий редактор з багатофункціональною підказкою і лише кілька кнопок для редагування тексту і запуску програм.

Простий мову, що включає всього 20 ключових слів

Вбудована в середу розробки контекстна документація по всіх елементах мови

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

Особливим гідністю BASIC слід вважати можливість роботи в режимі інтерпретації, який різко спрощує процес налагодження програм: виконання майже кожної команди можна перевірити одразу після написання.

оператор виводу

WriteLine ( "Привіт!")

Виводить на екран рядок (текстабо число )

Вітання!

Для отримання результату - виведення тексту «Привіт!» на екран - необхідно написати програму:

TextWindow.WriteLine ( "Привіт!")

Програма вводиться у вікноSmallBasicі запускається кнопкоюзапускабо клавішею F 5

Результат програми - висновок текса: "Привіт!" втекстовому вікні програми.

Рядок означає «Натисніть будь-яку клавішу для продовження ....»

TextWindow - це об'єкт «вікно з текстом», в якому можна відображати текст.

об'єкт має властивостямиі методами.

метод об'єкта -то, що об'єкт вміє робити, т. е. цеоперації (оператори )

параметр операції полягає в дужки WriteLine()

Так само об'єкт текстового вікна володіє властивостями (Це характеристики об'єкта) , наприклад

Властивість BackgroundColor- встановлює колір фону для тексту,ForegroundColor- колір тексту

Кольору:

red

yellow

green

blue

black

white

червоний

жовтий

зелений

синій

чорний

білий

Мінлива

Для створення програм часто використовують змінні.

Мінлива маєім'я - латинська буква (a)

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

a= 5, де знак « = »- це оператор присвоєння

значення рядка

а = а + 5

Взяти значення змінної а

Додати до нього 5

Покласти нове значення змінної а, стерши з неї попереднє

Мінлива буває двох типів: числоі рядок

10, -5, 3.14 «інформатика»

складати +

множити *

ділити /

Математичні дії:

Синус, логарифм, корінь

склеювати

Ділити на частини

шукати символи

замінювати символи

ПРИКЛАД з оператором «+»

вираз

результат

вираз

результат

«Іван» + «ова»

«Іванова»

«Клас» + 10

«Класс10»

складання програм

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

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

Приклад 3: програма обчислює і виводить на екран суму двох зміннихa і b

Math.Abs (namber)

модуль

Math.Cos ( namber)

косинус

Math.Ceiling (namber)

округлює до цілого числа

Math.GetDegrees ( namber)

переклад числа з радіан в градуси

Math.GetRandomNumber ( maxnamber)

Випадкове число в інтервалі від 1 доmaxnamber

NaturalLog (namber)

натуральний логарифм

Math.Pi

Число Пі

Math.Power ( baseNamber, exponent)

В oЗведення числа baseNamber в ступінь exponent

Math. Max (namber1, namber2)

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

Math. Remainder (dividend, divisor)

Остача від ділення

Math .Sin (namber)

синус

Math. Tan(namber)

косинус

Math .ScuareRoot (namber)

корінь

Math. Round(namber)

звичайне округлення

Math .ArcSin (namber)

арксинус

Math. Floor(namber)

Округлює до найближчого найменшого цілого

x = TextWindow.ReadNumber ()

y = Math.Abs (x)

TextWindow.WriteLine ( "yодно "+ Y)

Math.Pi

закріплення матеріалу

Завдання для самостійної роботи

Завдання 1:

Визначити кінцеві результати операторів присвоєння

Х = 3

Y = 2

X = X + 2

Y = X * 2

X = Y

А = 15

B = A

A = B / 5 + 2

B = A * 3

A = 0

завдання 2 : Скласти програму обчислення добутку 3-х змінних:a , b і c .

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

Завдання 4: Скласти програму виведення значень Х іY, Відповідно до завдання 1.

Завдання 5: Скласти програму знаходження дискримінанту

завдання 6 : Обчисліть вирази

(5+5) 3 (1000 )

2+|3-25| (24 )

4 2 – (10)

Cos 2 (Pi/4)+ Sin 2 (Pi/2) (1 )

( 1)

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

X 1,2 = (при а = 2, b=6, c=4 , x 1=-1, x 2=-2)

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

С = (при a=4, b=9, c=13)

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

питання

Що таке програма?

Для чого потрібні мови програмування?

Назвіть базові елементи об'єктно-орієнтованого програмування?

Які операції можна проводити в «текстовому вікні»?

Що означає оператор присвоєння:

Які типи даних використовуються в Smal Basic?

Як записуються оператори введення-виведення?

Підведення підсумків

виставляння оцінок
Домашнє завдання

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

підготувати повідомлення на тему: «Різновид мов програмування»

скласти програму обчислення площі трикутника за формулою Герона

додаток

ОК 1: Основи програмування на мові Small Basic .

програмування - написання програм.

АЛГОРИТМ + МОВА ПРОГРАМУВАННЯ= ПРОГРАМА

Мінлива

Мінлива маєім'я - латинська буква (Наприклад,a , В , х1 , С9 )

Змінної можна привласнити значення

приклад: a = 5 , Де знак « = »- це оператор присвоєння

Мінлива буває двох типів: число і рядок (Послідовність символів)

10, -5, 3.14 «інформатика»

складати +

множити *

ділити /

Математичні дії:

Синус, логарифм, корінь

склеювати

Ділити на частини

шукати символи

замінювати символи

складання програм

TextWindow- це об'єкт «вікно з текстом» , В якому можна відображати текст.

параметр операції полягає в дужки - WriteLine()

об'єкт текстового вікна володіє властивостями , наприклад

властивість BackgroundColor - встановлює колір фону для тексту,ForegroundColor - колір тексту

Використовувані кольори:

red

yellow

green

blue

black

white

червоний

жовтий

зелений

синій

чорний

білий

Оператори мови Small Basic

оператор «+»

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

Використання в вираженні математичних функцій

Складання складних математичних виразів Math.Pi TextWindow.WriteLine ( "введіть значення змінної х")

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)

Програма вводиться у вікноSmallBasicі запускається кнопкоюзапускабо клавішею F 5.

рядок Press any key continue ... означає « Натисніть будь-яку клавішу для продовження

Всім привіт, в цій статті я хочу показати Вам корисні коди невеликих програм. Які Ви можете використовувати для написання вже своїх більш серйозних програм, ну або Ви шукали саме ці функції, які тут описані.

Всі коди використовувалися в середовищі програмування Microsoft Visual Basic v6.0.

Вихід з підтвердженням

Перша свого роду програма, ну або функція, це вихід з повідомленням про підтвердження виходу. Загалом, відкрийте середу програмування Visual Basic, створіть стандартний проект, потім помістіть на форму одну кнопку, клацніть на кнопці і у Вас відкриється вікно редагування коду, і туди Вам необхідно вставити наступний код:

Beep Dim message As String Dim buttonsandicons As Integer Dim title As String Dim response As String message = "Хочете вийти?" title = "(! LANG: Вихід" buttonasicons = vbYesNo + vbQuestion response = MsgBox(message, buttonasicons, title) If response = vbYes Then End End If !}

Пароль на запуск програми

Dim Password, Pword PassWord = "12345" Pword = InputBox ( "Введіть пароль") If Pword<>PassWord Then MsgBox "Пароль невірний" End End If

Де, 12345 це пароль на запуск програми. Але цей код можна використовувати, де тільки захочете.

висновок повідомлення

Якщо хочете просто виводити повідомлення, для чого-небудь, то вставте це:

Beep Dim message As String Dim buttonsandicons As Integer Dim title As String message = "Повідомлення" title = "(! LANG: Повідомлення" buttonasicons = vbOKOnly + vbexciamation MsgBox message, buttonsandicons, 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 As String strComputer = "." Set objWMIService = GetObject ( "winmgmts:" & "(impersonationLevel = impersonate, (Shutdown))! \\" _ & strComputer & "\ root \ cimv2") Set colOperatingSystems = objWMIService.ExecQuery ( "Select * from Win32_OperatingSystem") For Each ObjOperatingSystem In colOperatingSystems ObjOperatingSystem.Reboot "Для перезавантаження Next

Запуск програми в єдиному екземплярі

Наступний приклад допоможе Вам зробити так, щоб програма запускалася тільки один раз, тобто в разі повторного запуску вона видасть відповідне повідомлення. У код форми вставте:

Private Sub Form_Load () If App.PrevInstance = True Then MsgBox "Проект уже запущений!" End End If

вимкнення комп'ютера

Для того щоб вимкнути комп'ютер можна використовувати наступний код:

Завершення будь-якого процесу

Для того щоб завершити процес можете використовувати наступний код:

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_days * 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" Alias "RemoveDirectoryA" (ByVal lpPathName As String) "Видалення каталогу (порожнього!) PathName $ =" D: \ t "code & = RemoveDirectory (PathName) If code & = 0 Then" Помилка видалення каталогу 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)<>":" And Dir $ (path, vbDirectory) = "" Then MkDir path End If Loop Until i> = Len (dirname) End Sub Private Sub Command1_Click () Call MakeDir ( "C: \ Soft \ 1 \ 2 \ 3 \ ") End Sub

Список всіх папок з під папками

На форму додаємо 2 текстових поля і кнопку, ім'я першого текстового поля: StartText, ім'я другого текстового поля OutText. Властивість Multiline = true, ім'я кнопки = CmdStart

Static running 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 <>"" If UCase $ (sub_dir)<>"PAGEFILE.SYS" And sub_dir<>"." And sub_dir<>".." Then 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 FILETIME nFileSizeHigh As Long nFileSizeLow As Long dwReserved0 As Long dwReserved1 As Long cFileName As String * MAX_PATH cAlternate As String * 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 FindNextFile Lib _ "kernel32" Alias "FindNextFileA" (ByVal hFindFile As Long, lpFindFileData 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: Exit Function If (x And vbDirectory) = vbDirectory Then dblSize = 0 Err.Clear sName = Dir $ (EndSlash (DirPath) & "*. *", VbSystem Or vbHidden Or vbDirectory) If Err.Number = 0 Then hFind = FindFirstFile (EndSlash (DirPath) & "*. *", fdata) If hFind = 0 Then Exit Function Do If (fdata.dwFileAttributes And vbDirectory) = vbDirectory Then sName = Left $ (fdata.cFileName, InStr (fdata.cFileName, vbNullChar) - 1) If sName<>"." And sName<>".." Then 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) = "\" Then 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 \ для цього пишемо наступний код:

Filecopy "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) If retval = 0 Then "Якщо помилка MsgBox" Не можу скопіювати "Else" Якщо все нормально MsgBox "Файл скопійований." End If End Sub

видалення

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

Kill ( "C: \ 1.txt")

спосіб API

Private Declare Function DeleteFile Lib _ "kernel32.dll" Alias "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

переміщення

Можна, наприклад, перемістить і так:

Filecopy "C: \ 1.txt", "C: \ 2 \ 1.txt" Kill ( "C: \ 1.txt")

Але краще так (через API):

Private Declare Function MoveFile Lib _ "kernel32.dll" Alias "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 \ 1.txt ") If retval = 1 Then MsgBox" Успішно перемістився "Else MsgBox" Помилка "End If End Sub

перейменування

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

Filecopy "C: \ 1.txt", "C: \ 2.txt" Kill ( "C: \ 1.txt")

спосіб API

Private Declare Function MoveFile Lib _ "kernel32.dll" Alias "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" Успішно "Else MsgBox" Помилка "End If End Sub

Визначити розмір файлу

Розмір файлу можна визначити двома шляхами:

Якщо файл можна відкрити функцією OPEN, то можна скористатися функцією LOF

Dim FileFree As Integer Dim FileSize As Long FileFree = FreeFile Open "C: \ WIN \ GENERAL.TXT" For Input As FileFree FileSize = LOF (FileFree) Close FileFree

Або використовувати функцію FileLen

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

Приховати годинник програмно

Додайте 2 кнопки і вставляйте код:

Option Explicit Private Declare Function FindWindow Lib _ "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib _ "user32" Alias "FindWindowExA" _ (ByVal hWnd1 As 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 Type 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 As Long, tip As String) As Long Dim nidTemp As NOTIFYICONDATA nidTemp.cbSize = Len (nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0 & nidTemp.uFlags = NIF_ICON Or NIF_TIP nidTemp.uCallbackMessage = 0 & nidTemp.hIcon = Icon nidTemp.szTip = tip & Chr $ (0) SetTrayIcon = Shell_NotifyIconA (Mode, nidTemp) End Function

Щоб використовувати вставте в код форми:

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

Блокуємо кнопку пуск

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Private Declare Function FindWindowEx Lib "user32" Alias "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 (Optional Enabled As Boolean = True) Dim lHwnd As Long " знайти hWnd lHwnd & = FindWindowEx (FindWindow ( "Shell_TrayWnd", ""), 0 &, "Button", vbNullString) Call EnableWindow (lHwnd &, CLng (Enabled)) End Sub Private Sub Command1_Click () EnableStartButton False "Кнопка ПУСК заблокована End Sub Private Sub Command2_Click () EnableStartButton True "Кнопка ПУСК чи не заблокована End Sub

Прочитуємо параметри з INI файлу

Програма підключається до FTP, а в іні файлі прописані параметри - сервер, логін, порт, пароль.

З початок створюємо INI файл:

Servname = сервер usern = Логін pwd = пароль port = порт

Його необхідно помістіть в папку з програмою. Далі, вставляємо в модуль:

Private Declare Function WritePrivateProfileString Lib _ "kernel32" Alias "WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal lpKeyName As String, _ ByVal lpString As String, ByVal lpFileName As String) As Long Private Declare Function GetPrivateProfileString Lib _ "kernel32" 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 String) As Long Public Function ReadIni (Razdel As String, Param) As String ReadIni = GetValue (Razdel, Param, App.Path & "\ test.ini", "0") End Function Private Function GetValue (ByVal Section As String, _ ByVal Key As String, ByVal fFileName As String, Optional ByVal DefaultValue As String = vbNullString) As String Dim Data As String Data = String $ (1000, Chr $ (0)) If GetPrivateProfileString (Section, Key, DefaultValue, Data, 1000, fFileName)> 0 Then GetValue = Left $ (Data, InStr (Data $, Chr $ (0)) - 1 ) Else GetValue = DefaultValue End If Exit Function End Function

Потім вставляємо в код форми:

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, ByVal nFlags As Long) As Long Private Declare Function InternetConnect Lib _ "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, _ ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal nService As Long, _ ByVal dwFlags As Long, ByVal dwContext As Long) As Long Private Declare Function FtpPutFile Lib _ "wininet.dll" Alias "FtpPutFileA" (ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _ ByVal lpszRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean Private Declare Function FtpGetFile Lib _ "wininet.dll" Alias "FtpGetFileA" (ByVal hFtpSession As Long, ByVal lpszRemoteFile As String, _ ByVal lpszNewFile As String, ByVal fFailIfExists As Boolean, ByVal dwFlagsAndAttributes As Long, _ ByVal dwFlags As Long, ByVal dwContext 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 ( "General", "servname"), "0", _ ReadIni ( "General", "usern"), ReadIni ( "General", "pwd"), 1, 0, 0) If FtpGetFile (rs &, "Ваш файл.txt", "шлях куди", False, 0, 1, 0) = False Then End Call InternetCloseHandle (rs &) Call InternetCloseHandle (rc &)

Список запущених процесів

Додаємо Listbox і 1 кнопку, вставляємо наступний код:

Option Explicit 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 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 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 Long dwFlags As Long szExeFile As String * MAX_PATH End Type Dim hSnapShot As Long Dim uProcess As PROCESSENTRY32 Dim r As Long Private Sub Command1_Click () List1.Clear hSnapShot = Cre ateToolhelpSnapshot (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 \ Ім'я твоєї проги ", _" Шлях до твоєї проге "End Sub Private Sub Command2_Click () "Видалення з реєстру Set Reg = CreateObject (" WScript.Shell ") Reg.RegDelete" HKLM \ Software \ Microsoft \ Windows \ CurrentVersion \ Run \ Ім'я твоєї проги "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 Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const SWP_HIDEWINDOW = & H80 Const SWP_SHOWWINDOW = & H40 "Приховує Private Sub Command1_Click () hwnd1 = FindWindow (" Shell_traywnd "," ") Call SetWindowPos (hwnd1, 0, 0, 0, 0, 0, SWP_HIDEWINDOW) End Sub "Показує Private Sub Command2_Click () hwnd1 = FindWindow (" Shell_traywnd "," ") Call 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)

Скільки оперативної пам'яті в комп'ютері

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

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 dwAvailPageFile As Long dwTotalVirtual As Long dwAvailVirtual As Long End Type Dim ms As TMemoryStatus Private Sub Command1_Click ( ) ms.dwLength = Len (ms) Call GlobalMemoryStatus (ms) MsgBox "Всього:" & ms.dwTotalPhys & vbCr & "Вільно:" _ & ms.dwAvailPhys & vbCr & "Використовується в%:" & ms.dwMemoryLoad End Sub

Сховати позначки робочого столу

Це робиться в такий спосіб. Додасте 2 кнопки і вставляйте наступний код:

Private Declare Function ShowWindow & Lib "user32" (ByVal hwnd &, ByVal nCmdShow &) Private Declare Function FindWindow Lib _ "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long Const SW_HIDE = 0 Const SW_NORMAL = 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 - з'являються.

На цьому у мене все, сподіваюся, перераховані вище приклади будуть Вам корисні, поки!