Visual Basic — Visual Basic для начинающих (Урок 1) | NubClub

Начало работы с VB.NET

Visual Basic для начинающих — это курс программирования рассчитанный для начинающих программистов.
Начиная изучать курс, мы предполагаем, что у тебя нет опыта в программировании, ты начинаешь изучение с самого начала и являешься начинающим программистом.
В ходе изучения, для закрепления знаний тебе будут даваться домашние задания. Рекомендуется выполнять их и сдавать на проверку.

Поскольку у всех начинающих программистов возникает множество вопросов, ты можешь задавать их в комментариях, тебе помогут разобраться.

Что может Visual Basic и для каких целей предназначен?
Visual Basic — это полноценный язык программирования на котором можно написать практически всё, что угодно, начиная от программ, заканчивая играми.
Например, всё это написано на Visual Basic.

Чтобы изучать материал и практиковаться в написании программ на VB.NET, тебе не придется покупать какое-либо программное обеспечение, всё изучение проходит бесплатно.
Для практической части тебе понадобится среда разработки. Можешь использовать бесплатную Visual Basic 2010 Express от Microsoft.
Где ее взять? Подробная инструкция находится этом уроке.
После скачивания и установки среды разработки, запусти ее. Чтобы запустить, нажми «Пуск» и в строке поиска начни вводить Visual Basic (см. изображение):

Запустилось? Отлично!
На главной странице(см. изображение ниже), можно осуществлять создание нового проекта или открытие существующего проекта.
Чтобы создать новый проект и приступить к разработке новой программы для Windows, нажми на кнопку «Создать проект»:

После нажатия на «Создать проект» появится диалоговое окно, которое выглядит следующим образом:

Нажми всё в той последовательности, как показано на изображении выше.
Что мы делаем выполняя эти действия?
Поскольку мы хотим программировать для компьютеров(и ноутбуков), мы выбрали «Приложение Windows Forms». Это означает, что мы собираемся создать программу, которая работает на компьютере под управлением Windows.

Если посмотреть на текстовое поле в нижней части окна (пункт номер 2 на изображении), то можно увидеть название «WindowsApplication1». Это имя «по умолчанию» для твоего проекта. Называть проекты именами по умолчанию, это не очень хорошая затея. Рекомендуется указать осмысленное имя для проекта, чтобы потом не запутаться, когда проектов станет много. Например, можно написать MyFirstApp (что переводится как «моя первая программа»).

По умолчанию, все проекты сохраняются в папке «Мои документы» в ней хранится папка с проектами, которые созданы в Visual Studio.

И так, в этом уроке мы научились создавать проекты. Чтобы не перегружать тебя информацией, на этом первый урок окончен.

Пока никаких сложностей, верно? Это пока, ведь, если подходить к этому делу серьезно, то программирование это довольно сложное искусство, но не волнуйся. Мы будем проходит изучение шаг за шагом, последовательно. Постепенно, с приходом понимания, многие вещи покажутся тебе очень простыми, по сравнению с тем, какими они показались тебе в самом начале.
Главное, не пропускай уроки и изучай всё по порядку.

В следующем уроке мы запустим нашу программу, посмотрим как она работает и выглядит.
Понравилось? Ставь лайк

Остались вопросы?
Давай обсудим!

nub-club.com

Простой язык программирования для начинающих Basic

Язык для начинающих программистов BASIС расшифровывается как Beginner, All-purpose Symbolic Instruction Code и переводится: универсальный код (язык) символических инструкций для начинающих.

Язык Basic будет очень полезен в изучении начинающим пользователям так как имеет очень простое написание и относительно небольшое количество операторов (слов в языке) которые пишутся довольно понятным образом. Хотя данному языку уже несколько десятилетий изучение его не является бесполезным так как на данное время есть большое количество программ поддерживающих язык программирования Basic, например Microsoft Office. Блягодаря скриптам написанным на Basic можно автоматизировать формирования офисных документов, создавать небольшие базы данных, автоматизировать процессы происходящие на компьютере, а заодно и понять что же такое программирование и как пишутся программы.

Изучение простого языка Basic, которое не займет много усилий, может стать отправной точкой в карьере программиста.

Basic был создан как раз для обычения студентов азам программирования и поначалу его возможности были не вилики, сейчас же данный язык программирования довольно сильно оброс функиционалом и благодаря нему можно писать полноценные программы, но он по прежнему прост для понимания.

История простого языка программирования Basic

Двое сотрудников Дармудского колледжа Куртц и Кемени начали разрабатывать Basic в конце 50-х годов. Прежде всего они поняли, что необходим такой компьютер, который был бы легок в изучении и использовании и не требовал особых умственных усилий со стороны студентов. Причем было ясно, что студенты не захотят работать с перфокартами (раньше для вывода информации вместо мониторов использовались перфокарты), поэтому для общения с компьютером необходим  диалоговый режим работы с ЭВМ.

Решению указанной проблемы содействовала необходимость разработки принципиально нового языка программирования существенно отличающийся своей концепцией от существующих на тот момент, который легко можно изучать и которым легко было бы пользоваться. Применение такого языка как ассемблер или ФОРТРАН или АЛГОЛ , было недопустимо из-за их сложности, новых специалистов под такие языки программирования было очень долго подготавливать и не каждый студент мог понять принципы программирования.

В 1963 г. началась работа над черновым вариантом языка программирования для студентов Basic. К этому времени группа под руководством  Куртца и Кемениполучила получила на решение проблемы две субсидии от фирмы General Electric. Реализация разработок языка  осуществлялась с конца 1963 г. на компьютерах разработаных фирмой General Electriс: DATANET — 30, GE-225, GE-235. Первая программа на Basic с использованием системы разделения времени заработала уже в мае 1964 г..

Конечно, BASIC cоздавался не на пустом месте, а на основе существовавших к тому времени алгоритмических языков. Взаимосвязь Basic, ФОРТРАН и АЛГОЛ очевидна. Из ФОРТРАНа взята указание параметров цикла: начало, конец и шаг. Из АЛГОЛа пришли слова FOR и STEP и более естественная проверка завершения выполнения цикла. Некоторые заимствования пришли из языков LOSS и CORC.

Первая программа на БЕЙСИКЕ, опубликованная Кемени состояла всего из трех строк и демонстрировала возможность работы Basic.

С 1965 по 1971 г. появилось 6 различных редакций языка Basic по мере его усовершенствования. А извесность данный язык программирования получил после того как он был реализован на машине GE-400. Но настоящему развитию языка способствовала на то время еще не сильно известная компания Microsoft.

Развитие языка программирования Basic в компании Microsoft

В 1979 г. в «Microsoft» разработали свою версию под названием  MBASIC или BASIC80, которая получила известность также благодаря созданию интерпретатора и операционной системы MS-DOS, эта операционная система предназначалась для компании IBM, первая модель которой была выпущена летом 1981г. Сразу же после выхода первых моделей компания Microsoft выпустила новую версию простого языка программирования для начинающих программистов под названием Basic-Advansed, данная версия уже поддерживала текстовый и графический режимы работы. Работа над языком программирования не прерывалась и в 1984 г. Бейсик-Адвансед (сокращенное название:BasicA) добавились еще несколько дополнительных возможностей, такие как работы с окном экрана, выполнение команд операционной системы, обработка перерываний от таймера и пр. Парралельно «Microsoft» разработала интерпретатор языка Macintosh BASIC для ПЭВМ Macintosh фирмы Apple, но по сути они мало чем отличались от BasicA.

Развитием языка BASIC-A стала версия Quick BASIC или QBasic (его еще досих пор изучают в некоторых Российских институтах), включающая подпрограммы и функции с локальными и глобальными переменными, средства поддержки графики и звука, алфавитно цифровые метки и т.д. Т.е. это уже была основа современных языков программирования. В 1985г была выпущена первая версия языка программирования для персональных компьютеров с названием True BASIC.

Существенный вклад фирма «Microsoft» внесла также и в разработку программных средств для бытовых компьютеров. В 1983 — 1985 гг. токийский филиал фирмы разработал стандарт на 8-разрядные бытовые компьютеры MSX и MSX-2, выпускаемые рядом японских фирм, дисковую операционную систему MSX DOS и интерпретатор языка MSX BASIC.

Развитие Basic в России

В СССР Basic впервые был реализован в 1970 г. на вычислительной машине М-20 сотрудниками Горьковского университета где руководитель группы был Ю. Кетков. В этом же университете была напечатана первая книга на русском языке по языку программирования Basic. C этого момента Basic стал совершенствоваться и разделяться на различные версии уже и в нашей стране, сначала на машине ЭВМ М-222, потом на производительной ЭВМ второго поколения БЭСМ-6. и т.д. Дальнейшее развитие языка Basic в СССР была связана с мини-ЭВМ, микро-ЭВМ и ПЭВМ. В мини-ЭВМ М 6000, М 7000, СМ1 и СМ2 реализована версия БЕЙСИКа, соответствующая первым авторским редакциям конца 60-х годов, а в мини-ЭВМ СМ3, СМ4, имеющих в составе операционные системы ОС РВ и РАФОС. Версия языка под названием БЕЙСИК-ПЛЮС, разработанная в 1975 г. для мини-ЭВМ PDP-11, широко применялась в вычислительных машинах СМ-3 и СМ-4.

Для того чтобы хоть както упорядочить различные версии которые все сильнее отличались друг от друга в июле 1989 г. в СССР введен стандарт на язык программирования Basic (ГОСТ 27787-88).

Basic в современности

Сейчас его изучают студенты, на нем пишуться несложные программы, современный интерпритатор выпускает компания Microsoft под название MS Visual Basic, большое количество программного обеспечения поддерживают его для автоматизации своих функций. Поэтому изучая Basic Вы не потратите напрасно время, так будет легче понять как писать программы, ну а если Вы не собираетесь быть программистом, то хотябы научитесь быстро и надежно автоматизировать работу своего компьютера. Он просто будет большинство рутинной работы за Вас!

Союз ИТ | Разработка ПО | Ремонт компьютеров | Разработка сайтов | Наши услуги | Обучение

37it.ru

Язык программирования visual basic

Система
программирования
– это
пакет программных средств, включающий
кроме транслятора еще и редактор для
ввода кода, средства автоматизации
создания и отладки программ, библиотеки
с готовыми блоками кода, удобный
справочник и другие специальные средства.

Для
языка программирования Бейсик существует
система программирования Microsoft Visual
Basic – коротко VB. Для языка программирования
Паскаль – Borland Delphi. Для языка программирования
СИ++ — это Microsoft Visual C++ и Borland C++ Builder. Из
любого приложения Microsoft Office в операционной
среде Windows можно запустить систему
программирования Visual Basic for Applications –
коротко (VBA).

Перечисленные
системы программирования являются
визуальными системами программирования,
то есть, объекты в этой системе создаются
при помощи мыши.

В
ОС Windows очень много стандартных элементов:
окон, меню, кнопок и т.д. Для них в системе
заготовлены стандартные блоки машинного
кода – они хранятся в динамических
библиотеках – файлах с расширением
.DLL. Поэтому программа для Windows выглядит
уже не как набор последовательных
команд, а как бесчисленные вызовы
процедур, хранящихся в Windows. Учитывая
изложенное выше, для программирования
в среде операционной системы Windows,
необходимо приобретать программы
системы программирования.

Visual
Basic — это универсальный язык программирования
для начинающих. Microsoft Visual Basic — средство
разработки программного обеспечения,
разрабатываемое корпорацией Microsoft и
включающее язык программирования и
среду разработки.

Программа,
в которой создаются новые программы,
называется среда программирования
Visual Basic. Поскольку эта среда выполняется
на компьютере вместе с операционной
средой Windows, то и создавать вы будете
программы, называемые Windows-приложения
или просто: приложения. Для создания
приложения необходимо составить проект.
Этим Вы и будете заниматься в среде
программирования Visual Basic.

Достоинства
Visual Basic

1. Visual
   Basic выгодно отличается от других языков
   программирования своей простотой и
   наглядностью.

2. Visual
   Basic динамично развивающийся язык.

3. Visual
   Basic встроен в такие программы как Word,
   Excel и др. С его помощью можно управлять
   этими программами из других программ.
   

4. Visual
   Basic — это объектно-ориентированный язык.
   Основой языка являются объекты. Например:
   окно, кнопка, поле со списком, с которыми
   работает программа.

Основы программирования в visual basic

При
запуске системы визуального программирования
(в этой системе объекты создаются при
помощи мыши), вам станет доступным: окно
стандартных классов объектов; окно
свойств этих объектов; окно программного
кода.

СТАНДАРТНЫЕ
КЛАССЫ ОБЪЕКТОВ, например такие, как
ОКНА (окно называют ФОРМА) и УПРАВЛЯЮЩИЕ
ЭЛЕМЕНТЫ (кнопки, списки, поля,
переключатели, флажки, командные кнопки
и другие), представлены в системе
визуального программирования в виде
значков на инструментальной панели.

При
помощи мышки программист перетаскивает
управляющие элементы из панели
инструментов ToolBox на ФОРМУ.

Далее
программист мышкой вызывает окно СВОЙСТВ
ОБЪЕКТА и настраивает свойства каждого
объекта (выбирает мышкой из окна СВОЙСТВА
ОБЪЕКТА), например такие как: имя, размер,
цветовые характеристики, положение на
форме и на экране, шрифт, надписи на
объектах и так далее.

Теперь
этим объектам, с заданными нами свойствами,
нужно присвоить определенную СОБЫТИЙНУЮ
ПРОЦЕДУРУ (или говорят – необходимо
выполнить настройку методов объекта).

Присвоить
объектам СОБЫТИЙНУЮ ПРОЦЕДУРУ означает
написать программу, которая начинает
выполняться после наступления
определенного события. Например, после
щелчка по командной кнопке в текстовом
поле появляется текст или, например,
при открытии окна раздается звук, а
перед закрытием возникает запрос на
подтверждение закрытия окна.

Чтобы
присвоить объекту событийную процедуру
программист, обычно делает двойной
левый щелчок по объекту, и в появившемся
окне ПРОГРАММНОГО КОДА записывает
программу на языке программирования
(это может быть язык Basic, Pascal или С++, в
зависимости от системы программирования).

В
системах программирования написание
программы максимально облегчено, так
как после двойного щелчка по объекту
появляется окно программного кода с
уже готовой пустой заготовкой событийной
процедуры, остается при помощи мышки
или клавиатуры произвести некоторые
изменения в заготовке (если необходимо)
и дописать программу, в процессе
составления программы большую помощь
может оказать система авто подсказки
– редактор автоматически предлагает
программисту по мере необходимости
список операторов, функций, свойств
объекта — остается лишь выбрать из списка
и щелкнуть мышкой.

После
размещения всех необходимых элементов
управления на форме, настройке их свойств
и составления событийных процедур
программа готова. Остается дать команду
на её трансляцию ( для VB нажать Start в
панели инструментов, или меню RUN – Start,
или нажать F5): системы Delphi и СИ++ Builder
выполняют компиляцию, а система Visual
Basic – интерпретацию.

Запуск
среды программирования Visual Basic

Запуск
среды программирования Visual Basic:

Пуск
→ Программы
→ Microsoft Visual Basic 6.0. →
Microsoft Visual Basic 6.0.

Появляется
окно с тремя вкладками: Новое, Прошлое,
Существующее.

Рис.
1. Окно добавления объекта.

С
помощью окна можно создать новый проект
или открыть существующий.

Создание
нового проекта:
Новое
→ Стандартный EXE → Открыть.

Создается
проект будущего приложения, который
может содержать формы, модули и другие
компоненты.

Открыть
существующий проект:
Существующее
→ Открыть нужную папку → Выбрать нужный
проект → Открыть.

Открыть
объект, который ранее открывали на
данном компьютере:
Прошлое
→ Выбрать нужный проект → Открыть.

Окно
среды программирования Visual Basic

Рис.
2. Окно среды программирования Visual Basic.

1. панель
   элементов управления.

2. окно
   проводника проекта.

3. окно
   свойств текущего элемента управления
   или формы.

4. окно
   размещения формы на экране монитора.

5. окно
   для ввода команд. Команды выполняются
   сразу после ввода.

6. окна,
   содержащие формы, модули и другие
   элементы проекта.

Если
какие-либо из перечисленных элементов
не видны, то их можно вывести на экран
(или скрыть) с помощью меню Вид.

Вид
→ Панель инструментов.

Вид
→ Проводник проекта.

Вид
→ Окно свойств.

Вид
→ Окно Размещения Формы.

Вид
→ Окно Неотложного.

Окно
формы можно вывести на экран дважды
щелкнув в окне проводника проекта по
значку или имени формы.

studfiles.net

Основы среды программирования Microsoft Visual Basic 6.0 | Info-Comp.ru

В данном материале рассмотрены основы программирования на языке Visual Basic, а конкретней в среде программирования Microsoft Visual Basic 6.0. Данная среда программирования и язык Visual Basic является одним из самых легких языков для начинающих программистов. А почему? В этой статье мы с Вами и попробуем разобраться.

Теория по Visual Basic

Вообще цель программирования — это написание команд для компьютера, которые смогут показать ему, что нужно сделать, например, напечатать отчет, подсчитать что-нибудь или просто развеселить Вас.

С самого начало заведено, что программирование в основном служит для написания команд двух типов. Команды первого типа используются для отображения пользовательского интерфейса, а команды второго типа — для самих действий, например для перемножения или открытия файла.

Для большинства людей изучение программирования доставляет определенные трудности. Первая и основная трудность связана с тем, что языки программирования, например C++ или Assembler, слишком сложны для понимания. Попытка изучить язык Assembler часто сравнима с  попыткой человека, владеющего русским или немецким, научиться разговаривать и писать на арабском или японском. Вторая трудность состоит в том, что пока Вы пишите команды для создания пользовательского интерфейса, в конце концов, у Вас не останется сил и времени на написание команд, которые и выполняют конкретные действия.

Чтобы решить обе проблемы, компания Microsoft разработала язык Visual Basic, а точнее среду программирования Microsoft Visual Basic, которая объединила в себе язык программирования BASIC и возможности быстрого создания пользовательского интерфейса простыми способами. В отличие от многих других языков программирования, BASIC был специально разработан для обучения основам программирования начинающих пользователей.

Что касается визуальных возможностей среды Visual Basic, то здесь Вы можете создавать свой пользовательский интерфейс без написания отдельных команд. Иными словами, Вы создаете интерфейс, как будто Вы рисуете себе картинку, без всяких проблем.

Начиная писать любую программу, первым делом необходимо решить, что эта программа должна делать. Когда Вы будете точно знать, что Вы хотите от программы и компьютера, Вы без труда сможете определить, какие команды нужно дать компьютеру, чтобы он в точности выполнил Ваши указания.

Не существует уникального способа написания программы. Теоретически существуют возможность с помощью тысячи способов написать одну и ту же программу. Два программиста могут написать программы, которые будут работать абсолютно одинаково, но при этом они будут состоять из совершенно разных кодов и команд.  Поэтому не важно, как написана программа и на каком языке. Важно лишь то, что она работает так, как Вы это запланировали. Visual Basic помогает реализовать идею быстрого создания пользовательского интерфейса простым способом. Пользовательский интерфейс служит двум целям: отображает информацию на экране и принимает от пользователя конкретные команды к действию.

Основы среды программирования

В Visual Basic все элементы интерфейса делятся на две группы: формы и объекты.

Форма — это всего лишь прямоугольное окно, отображаемое на экране. Объекты — представляют собой элементы, которые содержатся в форме и служат для отображения или получения информации от пользователя. Объектом может быть текст, кнопка, флажок, опции и т.д.

После того как Вы создали форму и разместили в ней нужные объекты, эту форму и ее объекты нужно подогнать под конкретную программу. С точки зрения Visual Basic, каждый элемент интерфейса имеет набор собственных свойств, который определяет, как этот объект выглядит и что делает. В частности, свойствами определяются такие атрибуты объекта, как размер, размещение на экране, цвет и т.д.

Разные элементы имеют разные свойства. Каждый раз, когда Вы рисуете форму или объект, Visual Basic назначает им свойства, установленные по умолчанию.

В отличие от таких языков программирования как C++, Visual Basic избавляет Вас от необходимости использовать коды для создания пользовательского интерфейса, но эти команды все же необходимы для того, чтобы Ваша программа заработала. В мире Visual Basic команды (коды) служат двум целям: делают пользовательский интерфейс рабочим, а также обрабатывают различные данные, с тем, чтобы вернуть пользователю полезный результат.

Даже если Вы с помощью Visual Basic создали какой-то интерфейс, он не будет работать до тех пор, пока программист не напишет ему действия, которые объяснят компьютеру, что нужно делать, если пользователь, скажем, щелкнул на кнопке. Каждый раз, когда пользователь двигает курсором, нажимает кнопку или щелкает кнопкой мыши, т.е. выполняет действие, таковое рассматривается компьютером как команда к действию. Когда такое событие происходит, компьютер обращается к командам BASIC, с тем чтобы они объяснили, как на это нужно реагировать.

Слово Basic, в названии Microsoft Visual Basic 6.0., указывает лишь на то, что синтаксис программ и операторы ссылаются на язык высокого уровня Basic (Beginners Atlpurpose Symbolic Instruction Code). Но если Вы знаете обычный Basic, то очень скоро убедитесь, что Visual Basic заметно от него отличается.

Если Вас интересует вопрос что такое Visual Basic — компилятор или интерпретатор, можно смело сказать: «И тем, и другим». Его нельзя на сто процентов отнести ни к компиляторам, ни к интерпретаторам.

Основным признаком интерпретатора Visual Basic является то, что созданные с помощью него программы выполняются только в среде разработки. Программу можно запустить непосредственно из среды и если в ней есть ошибки, они сразу же распознаются. Все это наблюдается и в Visual Basic, где можно запустить приложение непосредственно в среде программирования. При этом Visual Basic использует технологию Threaded-p-Code, при которой каждая написанная строка кода преобразуется в промежуточный код — Threaded-p-Code. Не путайте это не машинный код, но такой код выполняется быстрее, чем при работе с обычным интерпретатором. Во-первых, Visual Basic сразу же проверяет синтаксис программы и выдает сообщение, если присутствует ошибка. Также можно самим искать эти ошибки.

При этом Visual Basic — не просто интерпретатор, так как это означало бы, что приложения выполняются только в среде Visual Basic. Эта среда программирования предоставляет возможность создавать и исполняемые ЕХЕ-файлы, поэтому она относится и к компиляторам.

Visual Basic нельзя назвать чистым компилятором, так как в отличие, например, от Visual C++, Visual Basic не создает исполняемый файл сразу же при запуске из среды разработки. Для создания такого файла необходимо сделать это явно (команда File\Make ***.EXE). Начиная с пятой версии, Visual Basic обладает так называемым «Native Compiler», т.е. компилятором, который может создавать машинный код. Таким образом, Visual Basic объединяет в себе возможности, как интерпретатора, так и компилятора. И это имеет больше преимуществ, чем недостатков.

Теперь давайте поближе познакомимся со средой программирования Microsoft Visual Basic. При открытие самой среды программирования у Вас появляется окно «Новый проект», в котором и нужно выбрать какой проект мы будим создавать, для начала мы создадим простой проект, а точнее стандартный, «Standard EXE» это — стандартное выполняемое приложение. В дальнейшем, когда Вы уже научитесь работать в этой среде можете пробовать создавать и другие проекты, например ActiveX DLL — динамическая библиотека ActiveX.

После того как Вы нажали создать (открыть) новый проект, у Вас появится  сама среда программирования Visual Basic, а точнее форма, но пока в ней ничего нет, и она ничего делать не умеет. Для любопытства можете нажать команду меню run->start (запустить) или просто выбрать в быстром меню кнопку «старт», у Вас запустится программа, но как я уже сказал, она ничего не делает, это просто пустая форма. Закройте это окошко и давайте наполним нашу программу пользовательским интерфейсом и программным кодом.

Пример программы на VB

Для начала мы с Вами сделаем простенькую программу.

Поместите на форму следующие объекты: 2 кнопки CommandButton (Кнопка управления) и одно текстовое поле TextBox (Текстовое поле). Они расположены слева и называются «Кнопки панели элементов управления». Теперь когда у Вас они расположены на форме, можете, как угодно их поместить, растянуть, и даже задать какие-нибудь свойства, которые расположены справа. Мы с Вами зададим всего лишь их название, для этого выделите кнопку Command1 (просто нажав на нее) и с права в окне свойств найдите поле Caption и задайте название этой кнопки (измените  Command1 например на «Выполнить»). Теперь выделим Command2 и зададим ей название «Выход».
Теперь, когда у нас есть объекты на форме, давайте зададим им действия, которые они должны выполнять. Щелкните 2 раза по кнопки Command1 (или как у нас уже «Выполнить») и у Вас откроется окно кода где написано:

Private Sub Command1_Click()

End Sub

Вы напишите между этими строками вот что, и должно получиться вот так:

Private Sub Command1_Click()
  Text1.Text = "Привет! Программа работает"
  End Sub

Здесь мы задали, что при нажатие этой кнопки в текстовом поле будет появляться эта надпись.
Можете закрыть по крестику окно кода, и щелкнуть 2 раза по кнопке Command2 (у нас «Выход»), появляется то же самое окно, но уже готовое, для того чтобы задать действие для второй кнопки пишем вот что:

Private Sub Command2_Click()
  End
  End Sub

Мы здесь написали команду END, которая обозначает, что программа заканчивает свою работу.

Все можете запустить Вашу первую программу и попробовать, как она работает, но это конечно все только начало т.к. на Visual Basic можно написать такие серьезные программы которые не уступят таким программам, которые написаны, например, на языке C++.

Надеюсь, Вы теперь понимаете, почему этот язык является одним из самых легких (если не самым легкий) языков программирования. А начинать с него или не с него, то это только Ваш выбор.

Все, удачи в освоение Visual Basic, начинающим рекомендую начать свой путь программиста именно с этого языка.

Похожие статьи:

info-comp.ru

Язык Visual Basic — примеры написания кода | Info-Comp.ru

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

Все коды использовались в среде программирования 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 = "Выход"
 buttonasicons = vbYesNo + vbQuestion
 response = MsgBox(message, buttonasicons, title)
 If response = vbYes Then
	End
 End If

Итак, Beep это просто звуковой сигнал, дальше идет выделение памяти (Dim), потом уже выполняется действие, т.е. сообщение «Хотите выйти?», да или нет и конец программы. Вот такая бесполезная функция можете использовать в своих программах.

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

Далее идет очень полезный код, это пароль на запуск программы, ну или для чего-нибудь другого. Открывайте стандартный проект щелкните в пустом месте (загрузка формы программы) и вставляйте следующее:

 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 = "Сообщение"
 buttonasicons = vbOKOnly + vbexciamation
 MsgBox message, buttonsandicons, title

Рисование на форме

Дальше идет такая мелкая программа как мини Paint, т.е. рисование, причем на самой форме. Откройте стандартный проект, щелкните в пустом месте и вставьте следующий код:

 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

Выключение компьютера

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

 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.ShutDown 'Для выключения
 Next

Завершение любого процесса

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

 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.

Можно использовать и функции API:

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

Блокируем кнопку пуск

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

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 файл:

[General]
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 Th42CS_SNAPPROCESS As Long = 2&
Private Const MAX_PATH As Integer = 260

Private Type PROCESSENTRY32
	dwSize As Long
	cntUsage As Long
	th42ProcessID As Long
	th42DefaultHeapID As Long
	th42ModuleID As Long
	cntThreads As Long
	th42ParentProcessID 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 = CreateToolhelpSnapshot(Th42CS_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 = &h50

'Скрывает
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 — появляются.

На этом у меня все, надеюсь, вышеперечисленные примеры будут Вам полезны, пока!

Похожие статьи:

info-comp.ru

Учебники по Basic и Visual Basic

www.bookwebmaster.narod.ru

Программирование на Visual Basic

ИНФОРМАТИКА

Программирование на Visual Basic

(пособие для начинающих)

Сизоненко С.В.

Visual Basic : Пособие для начинающих. — Д.: 2006.

Данное учебное пособие посвящено работе в среде Visual Basic . Пособие содержит теоретическую часть, практические задания для выполнения на компьютере,а также контрольные вопросы, которые могут быть использованы учашимися для самоконтроля, а преподавателями – для текущего контроля знаний и навыков практической работы в течении семестра.

Пособие рассчитано на пользователей, которые имеют минимальный опыт работы в среде Visual Basic.

__________________________________________________________________

__________________________________________________________________

__________________________________________________________________

__________________________________________________________________

__________________________________________________________________

Содержание

1. Введение

2. Основы алгоритмизации

3. Visual Basic?

4. Практические работы

5. Вопросы по Visual Basic

6. Тесты по Visual Basic

7. Составь программу на VB

8. Задания к самостоятельной работе

Введение

Данное методическое пособие рассчитано, главным образом, на начинающих программистов, желающих освоить ставшую весьма популярной в последние годы среду разработки приложений Visиal Ваsic, которая, являясь мощным программным средством, позволяет реализовывать широкий спектр практических задач.

К основным возможностям языка Visиal Ваsic можно отнести реализацию максимально гибкого и удобного интерфейса для приложения, создание самых разнообразных многоуровневых и всплывающих меню, обработку событий мыши и клавиатуры, работу с графикой. Разработчик может использовать в программе как стандартные, так и встроенные диалоги, применяющиеся для организации обратной связи с пользователем.

В Visиal Ваsic имеется возможность внедрения в приложение различных объектов, которые поддерживаются другими программами.

Предлагаемая вниманию читателей методическое пособие будет полезно не только, для пользователей, желающих освоить язык программирования. Разработчики, имеющие опыт создания приложений при помощи Visиal Ваsic, также смогут найти в нем немало интересного.

В вместе с методическим пособием прилагается дискета 3,5” с примерами программ.

Для закрепления теоретических знаний и получения практических навыков необходимо в соответствии с методическими указаниями выполнить все практичепские работы, а также провести тестовый контроль.

О С Н О В Ы А Л Г О Р И Т М И З А Ц И И

1.1 ПОНЯТИЕ АЛГОРИТМА. СВОЙСТВА АЛГОРИТМОВ.

АЛГОРИТМИЗАЦИЯ — это важнейший раздел информатики, изучающий прием и методы построений алгоритмов для решения конкретных задач.

АЛГОРИТМИЗАЦИЯ ЗАДАЧИ — процесс решения задачи, состоящий в нахождении по формулировке задачи алгоритма ее решения.

АЛГОРИТМ — понятное и точное предписание исполнителю совершить в определенной последовательности действия над заданными объектами, приводящие исполнителя после конечного числа шагов к достижению указанной цели.

Алгоритмы в зависимости от целей, начальных условий задачи подразделяются на:

М е х а н и ч е с к и й — задает определенные действия, обеспечивая тем самым однозначный результат.

В е р о я т н о с т н ы й — дает программу решения задачи нескольких путями.

Э в р и с т и ч е с к и й — достижение конечного результата программы действий однозначно не предопределено, используются универсальные логические способы принятия решений.

ИСПОЛНИТЕЛЬ АЛГОРИТМА — способ правильно понять и точно выполнить все действия алгоритма.

СВОЙСТВА АЛГОРИТМА:

ПОНЯТНОСТЬ — алгоритм должен быть задан с помощью таких указаний, которые входят в систему команд исполнителя.

ДИСКРЕТНОСТЬ — последовательность команд, каждая из которых приводит к выполнению одного шага исполнителем.

ОПРЕДЕЛЕННОСТЬ — точные сведения о том, какую следующую команду выполнять исполнителю после завершения текущей команды.

РЕЗУЛЬТАТИВНОСТЬ — достижение исполнителем результата после прохождения конечного числа шагов.

МАССОВОСТЬ — возможность решения класса однотипных задач.

==========================================================

1.2 СПОСОБЫ ЗАПИСИ АЛГОРИТМОВ

Существуют различные формы представления алгоритмов:

СЛОВЕСНО-ФОРМУЛЬНАЯ — предназначена для исполнения алгоритма человеком

ГРАФИЧЕСКАЯ — позволяет наглядно проследить и осмыслить процесс

выполнения алгоритма.

АЛГОРИТМИЧЕСКИЙ ЯЗЫК — алгоритм может выполнить как человек так и компьютер.

===========================================================

1.3 ОСНОВНЫЕ СТРУКТУРЫ АЛГОРИТМОВ

а). Структура с л е д о в а н и я:

Алгоритм, в которых используется только структура следования, называют л и н е й н ы м и

б). Структура в е т в л е н и я

Алгоритм, в основе которых лежит структура ветвления, называют р а з в е т в л я ю щ и м и с я

Если

ТО серия 1

ИНАЧЕ серия 2

ВСЕ

в). Структура п о в т о р е н и я

Алгоритм, в основе которых лежит структура повторения, называют ц и к л и ч е с к и м и.

ДЛЯ i ОТ нач.зн. ДО кон.зн. ШАГ h

нц

тело цикла

кц

КОМАНДА — записанное в алгоритме предписание исполнителю выполнить некоторое законченное действие.

===========================================================

1.4 ФОРМАЛЬНОЕ ИСПОЛНЕНИЕ АЛГОРИТМА

При исполнении алгоритма воспользуемся словесно-формульным способом записи алгоритма.

Пример 1

————————————————————

Шаг | Алгоритм | При х=2 | При х=0

————————————————————

1 Умножить Х на Х обозначим Р1 4 0

2 Умножить Р1 на Р1 обозн. Р2 16 0

3 Умножить 4 на Х обозначить Р3 8 0

4 Сложить Р2 с Р3 обозначить Р4 24 0

5 Сложить Р4 с 5 обозначить У 29 5

————————————————————

Данный алгоритм будет понятен исполнителю, который знаком с командами «сложение» и «умножение» (понятность). Команды необходимо выполнить последовательно, одну за другой, не нарушая порядок. Невозможно выполнить 4-ю команду, не выполнив 1-ю, 2-ю,3-ю команды (дискретность, определенность).

Достижение результата после конечного числа шагов (результативность).

Данный алгоритм гарантирует решение для любого значения Х (массовость): при Х=29, У=29, при Х=0, У=5 и т.д.

По шагам алгоритма можно восстановить формулу вычисления У

шаг5 шаг4 шаг3 шаг2 шаг1

У = 5+Р4 = 5+Р2+Р3 = 5+Р2+4*Х = 5+Р1*Р1+4*Х = 5+Х*Х*Х*Х+4*Х

тогда

У = Х*Х*Х*Х + 4*Х + 5

Построение алгоритма для решения какой-либо задачи занятие очень интересное — это творческая работа, связанная с процессом моделирования объектов, свойств и отношений реального мира.

===========================================================

Visual Basic

1. Почему Windows и почему Visual Basic?

    Графические интерфейсы пользователя, революционизировали микрокомпьютерную индустрию.    Вероятно, при длительном использовании Windows то, как выглядят приложения, менее важно, чем-то, как они созданы. В Windows, как правило, программы имеют стандартный интерфейс пользователя. Это означает, что пользователи потратят больше времени на работу с приложением и меньше на изучение меню, диалоговых панелей и комбинации клавиш  . Поэтому, если необходимо разработать программу для любой из версий Windows, программисту понадобится эффективное средство для разработки приложений с графическим интерфейсом пользователя.
    За все это долгое время существовало лишь несколько таких средств разработки. До появления Visual Basic в 1991 году разработка приложений Windows была намного тяжелее процесса создания приложений для DOS. Программисты должны были позаботиться буквально обо всем, например, о работе с мышью, обработке событий меню, и даже отслеживать, щелкнул пользователь один либо два раза в конкретном месте экрана. Разработка приложений Windows требовала экспертных знаний по программированию на языке С и сотен строк кода для выполнения простейшие задач. Проблемы были даже у профессионалов.
    Вот почему, когда появился Visual Basic 1. 0, Билл Гейтс, глава и владелец компании Microsoft, назвал ею «внушительным». Последняя версия Visual Basic продолжает данную традицию: сложные приложения Windows 95 и Windows NT разрабатываются теперь за гораздо меньший период времени. Ошибки в программах (bugs) возникают не так часто, и их локализация происходит быстрее и легче. С Visual Basic программирование в Windows не становится более эффективным, но оно становится более простым (в большинстве случаев).     В частности. Visual Basic позволяет добавлять к окнам поля ввода (text boxes), меню, командные кнопки (command buttons), переключатели (option buttons), флажки (check boxes), списки (list boxes), линейки прокрутки (scroll bars), a также диалоговые окна для выбора файла или каталога. Программист может использовать сетку (grid) для обработки табличных данных, организовать взаимодействие с другими приложениями Windows и доступ к базам данных.   На экране одновременно может находиться несколько окон. Они должны иметь полный доступ к буферу обмена (clipboard) и к информации большинства приложений Windows, работающих в то же время. Можно использовать Visual Basic для взаимодействия с другими приложениями, работающими под управлением Windows, используя наиболее современную версию технологии OLE фирмы Microsoft.
    Однако все более ранние версии Visual Basic могли в той или иной степени выполнять вышеописанные задачи. Что же особенного добавлено к последней версии Visual Basic? В двух словах ответ состоит в том, что Visual Basic теперь поддерживает элементы ActiveX.

    Приведем пример того, как пользователь может загрузить компоненты ActiveX для добавления полезных функций к странице Web. Предположим, что на ней размещена движущаяся картинка и он хочет загрузить ее к себе на компьютер и просмотреть. У Microsoft есть компонент ActiveX Movie, загрузить его можно из ActiveX Gallery Более того, добавив его один раз к своей системе, пользователю не придется загружать его еще раз. Каждый раз, когда страница Web будет содержать объект «active movie», броузер Internet Explorer сможет использовать один и тот же элемент Active Movie уже из операционной системы пользователя для просмотра видеоматериала.

2. Знакомство с Visual Basic С помощью VB можно много и быстро создавать приложения для Windows. VB содержит графическую среду, в которой можно наглядно конструировать экранные формы и управляющие элементы, используемые в приложениях.

VB – используется как среда разработки, созданная по образцу Проводника Windows. Почти всеми объектами и инструментами на экране можно управлять, щелкая на них правой кнопкой мыши. Эта простейшая операция позволяет задавать свойства, добавлять новые элементы и даже просматривать контекстную справку.

При первом запуске VB, запускается мастер Project Wizard на экране появляется диалоговое окно New Project. Здесь выбирается один из нескольких типов шаблонов проектов.

Окно состоит из 3-х вкладок:

infourok.ru