Visual Basic - Visual Basic для начинающих (Урок 1) | NubClub
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
Visual Basic выгодно отличается от других языков программирования своей простотой и наглядностью.
Visual Basic динамично развивающийся язык.
Visual Basic встроен в такие программы как Word, Excel и др. С его помощью можно управлять этими программами из других программ.
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.
панель элементов управления.
окно проводника проекта.
окно свойств текущего элемента управления или формы.
окно размещения формы на экране монитора.
окно для ввода команд. Команды выполняются сразу после ввода.
окна, содержащие формы, модули и другие элементы проекта.
Если какие-либо из перечисленных элементов не видны, то их можно вывести на экран (или скрыть) с помощью меню Вид.
Вид → Панель инструментов.
Вид → Проводник проекта.
Вид → Окно свойств.
Вид → Окно Размещения Формы.
Вид → Окно Неотложного.
Окно формы можно вывести на экран дважды щелкнув в окне проводника проекта по значку или имени формы.
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Здесь можно скачать электронные книги по Basic и Visual Basic бесплатноНиже приведены учебники, пособия и различные справочные материалы по языкам программирования Basic и Visual Basic, которые можно скачать бесплатно.
|
НавигацияГлавная .NET Framework Ajax API ASP Assembler Basic C(Си) C# CMS CSS Delphi DHTML DOS Flash Frameworks Go Haskell HTML Java JavaScript Linux Mac OS Mobile devices Office Oracle Perl PHP Python R Ruby Silverlight SQL UML Unix Verilog Visual Studio Windows WPF XML Базы данных Безопасность Блоги Виртуализация Графика Дизайн Интернет Компьютер Маркетинг Моделирование Новичкам Оптимизация Программирование Программы Протоколы Работа Раскрутка Сайтостроение Сеть Системы управления Схемотехника Телевидение Файлообмен |
|||
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