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

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

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

Цел:въвеждам с езика за програмиране Small Basic.

Задачи:

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

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

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

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

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

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

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

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

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

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

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

По време на часовете:

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

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

   Актуализация на знанията

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

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

1. Свързани въпроси

Обобщаване

1. Класиране

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

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

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

   Актуализация на знанията

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

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

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

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

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

програма Алгоритъм, написан на език за програмиране, разбираем за компютър.

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

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

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

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

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

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

Теория

Първа среща

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

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

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

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

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

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

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

Изходен оператор

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

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

Здравейте!

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

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

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

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

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

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

Обектът има Имотии методи.

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

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

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

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

Цветове:

червен

жълто

зелено

син

черен

бяло

червен

жълто

зелено

син

черните

бяло

Променлива

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

променлива имаиме - латинска буква (а)

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

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

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

а = а + 5

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

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

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

Променливата е от два вида: номери линия

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

Сгънете +

Умножете *

Разделям /

Математически действия:

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

лепило

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

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

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

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

изразяване

резултат

изразяване

резултат

"иван" + "ова"

"иванова"

"клас" + 10

"клас 10"

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

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

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

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

Math.Abs(число)

модул

Math.Cos( номер)

косинус

Математически таван (число)

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

Math.GetDegrees( номер)

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

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

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

NaturalLog(число)

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

Математика Пи

Пи

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

AT оповдигане на базов номер на степен на експонента

математика макс.(число1,число2)

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

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

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

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

синусите

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

Косинус

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

корен

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

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

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

Арксинус

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

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

x=TextWindow.ReadNumber()

y=Math.Abs(x)

TextWindow.WriteLine("yсе равнява "+y)

Математика Пи

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

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 и ° С .

Задача 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)

х 1,2 \u003d (когато \u003d 2, b=6, ° С=4 , х 1=-1, х 2=-2)

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

С= (когато а=4, b=9, ° С=13)

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

Въпроси

Какво е програма?

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

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

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

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

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

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

Обобщаване

1. Класиране

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

работа с резюме

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

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

Приложение

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

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

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

Променлива

променлива имаиме - латиница (Напр.а , AT , x1 , C9 )

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

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

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

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

Сгънете +

Умножете *

Разделям /

Математически действия:

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

лепило

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

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

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

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

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

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

Предмет текстово поле има Имоти , например

Имот Цвят на фона - задава цвета на фона на текста,ForegroundColor - цвят на текста

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

червен

жълто

зелено

син

черен

бяло

червен

жълто

зелено

син

черните

бяло

Малки основни оператори

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

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

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

Писане на сложни математически изрази Математика Пи 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.

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

Първият вид програма, добре или функция, е изход със съобщение, потвърждаващо изхода. Като цяло отворете средата за програмиране на 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("Въведете парола") Ако Pword<>PassWord Then MsgBox "Password not correct" End End If

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

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

Ако просто искате да покажете съобщение за нещо, поставете това в:

Beep Dim message As String Dim buttonsandicones 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 като низ strComputer = "." Задайте objWMIService = GetObject("winmgmts:" & "(impersonationLevel=impersonate, (Shutdown))!\\" _ & strComputer & "\root\cimv2") Задайте colOperatingSystems = objWMIService.ExecQuery("Изберете * от Win32_OperatingSystem") За Всеки ObjOperatingSystem в colOperatingSystems ObjOperatingSystem.Reboot " За рестартиране Следващ

Изпълнение на програмата в едно копие

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

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_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" Псевдоним "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 , един)<>":" И Dir$(path, vbDirectory) = "" Тогава MkDir път 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. Многоредово свойство = 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<>".." 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 Краен тип Private Declare Function FindFirstFile Lib _ "kernel32" Псевдоним "FindFirstFileA" (ByVal lpFileName като низ, lpFindFileData като WIN32_FIND_DATA) Като дълга частна декларираща функция FindNextFile Lib _ "kernel32" Псевдоним "FindNextFileA" (ByVal като hFind Long, lpFindFileData As WIN32_FIND_DATA) As Long Private Declare Function FindClose Lib _ "kernel32" (ByVal hFindFile As Long) As Long Публична функция 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 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) Ако 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 Краен суб

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

копие

Да кажем, че имаме файл с име 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" Псевдоним "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 неуспешно" Не може да се копира" Друго "Ако OK 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 "Файлът е изтрит успешно." край подп

движещ се

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

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

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

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 "Return Value retval = MoveFile("C: \1 .txt", "C:\2\1.txt") If retval = 1 Then MsgBox "Moved successfully" Else MsgBox "Error" End If End Sub

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

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

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

API начин

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")

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

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

Опция Изрична частна декларираща функция 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

Добавяне на икона към трея

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

Декларирайте функцията Shell_NotifyIconA Lib _ "SHELL32" (ByVal dwMessage As Long, lpData като NOTIFYICONDATA) Като цяло число Публична константа NIM_ADD = 0 Публична константа NIM_MODIFY = 1 Публична константа NIM_DELETE = 2 Публична константа NIF_MESSAGE = 1 Публична константа NIF_ICON = 2 Публична константа NIF_TIP = 4 Тип NOTIFYICONDATA cbSize As Long hWnd Колкото uID Колкото uFlags Колкото дълго uCallbackMessage Колкото дълго hIcon Колкото дълго szTip Като String * 64 Краен тип Публична функция SetTrayIcon(Mode As Long, hWnd Колкото дълго, Icon As Long, tip As String) Колкото дълго Dim nidTemp Като NOTIFYICONDATA nidTemp.cbSize = Len(nidTemp) nidTemp.hWnd = hWnd nidTemp.uID = 0& nidTemp.uFlags = NIF_ICON Или NIF_TIP nidTemp.uCallbackMessage = 0& nidTemp.hIcon = Икона nidTemp.szTip = съвет & Chray$(0) = 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 "Бутон за стартиране деактивиран End Sub Private Sub Command2_Click() EnableStartButton True "Бутонът Старт не е деактивиран End Sub

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

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

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

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

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

Частна функция за деклариране WritePrivateProfileString Lib _ "kernel32" Псевдоним "WritePrivateProfileStringA" (ByVal lpApplicationName като низ, ByVal lpKeyName като низ, _ ByVal lpString като низ, ByVal lpFileName като низ) Като дълга частна декларирана функция GetPrivateProfileString Lib _ "aliaskernel32" ​„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 Публична функция ReadIni(Razdel Като String, Param) Като String ReadIni = GetValue (Razdel, Param, App.Path & "\test.ini", "0") Крайна функция Частна функция GetValue(ByVal раздел като низ, _ ByVal ключ като низ, ByVal fFileName като низ, по избор ByVal DefaultValue като 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( Данни$, Chr $(0)) - 1 ) Else GetValue = DefaultValue 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 dwFlagsAndAttributes As Long, _ ByVal dwFlags As Long, ByVal dwContext As Long) Като Boolean Private Declare Function InternetCloseHandle Lib _ "wininet.dll" (ByVal hInet As Long) Като 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 бутон, поставете следния код:

Опция Изрична частна декларирана функция CreateToolhelpSnapshot Lib _ "Kernel32" Псевдоним "CreateToolhelp32Snapshot" _ (ByVal lFlags As Long, ByVal lProcessID As Long) As Long Private Declare Function ProcessFirst Lib _ "Kernel32" Псевдоним "Process32First" _ (ByValhot hSnap 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 * pcPriClassExlas As Long As Long dwPA String End TypeSnaphot DimSnaphot 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() "Registry Write 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 като низ, ByVal lpWindowName като низ) As Long Const SWP_HIDEWINDOW = &H80 Const SWP_SHOWWINDOW = &H40 "Скрива частна подкоманда1_Click() hwnd1 = FindWindow("Shell_traywnd", ") Извикване на 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 dwAvailPageFile As Long dwTotalVirtual As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailPageFile As Long dwTotalVirtual As Long dwAvailPageFile Като дълъг край TMemoryStatus( ) ms.dwLength = Len(ms) Извикване на GlobalMemoryStatus(ms) MsgBox "Общо:" & ms.dwTotalPhys & vbCr & "Безплатно:" _ & ms.dwAvailPhys & vbCr & "Използвано в %:" & ms.dwMemoryLoad End Sub

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

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

Функция за частно деклариране ShowWindow& Lib "user32" (ByVal hwnd&, ByVal nCmdShow&) Функция за частно деклариране FindWindow Lib _ "user32" Псевдоним "FindWindowA" (ByVal lpClassName като низ, ByVal lpWindowName като низ) 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 - се появяват.

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

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 приложения визуално студио, на Linux и Mac OSX, поддържайки единна кодова база за всички платформи

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

Лазаров ден

Безплатен Паскале 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. Това е среда с отворен код. Можете да изтеглите като източники изпълними файлове.