Программирование - это просто
Advertisement
Главная arrow Компьютер для блондинок arrow Программирование для блондинок arrow Программирование для блондинок: А вот сейчас мы пишем программу (Selection, count, Extend, Sub).
20.04.2024 г.
Главное меню
Главная
Интернет магазин
Программные продукты
Биржевые роботы
Искусственный интеллект
Математика и информатика
1С:Предприятие
Уроки C#
Уроки Delphi
Уроки программирования
Web-программирование
Дизайн и графика
Компьютер для блондинок
Исходники
Статьи
Платный раздел
Рассказы про компьютеры
Хитрости и секреты
Системный подход
Размышления
Наука для чайников
Друзья сайта
Excel-это не сложно
Все о финансах
.
Программирование для блондинок: А вот сейчас мы пишем программу (Selection, count, Extend, Sub). Печать E-mail
Автор megabax   
03.12.2009 г.
Привет

А вот сейчас мы пишем программу (Selection, count, Extend, Sub).

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

 

Sub ВыделениеСлова()
'
' ВыделениеСлова Макрос
' Макрос записан 27.09.2009 admin
'

      Selection.MoveLeft Unit:=wdWord, Count:=1
      Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
      Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
      Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
      Selection.Font.Bold = wdToggle
End Sub

- Вот видите, - продолжал он, - слово "Sub".

- Да, - кивнули мы.

- Оно означает начало программы. Точнее, подпрограммы.

- А чем отличается программа от подпрограммы? - задала вопрос Юлька.

- Подпрограмма - это программа внутри программы, - объяснил Коля, - она может быть написана один раз, а потом использоваться многократно с разными параметрами.

- А теперь тоже самое, но по русский, - попросила я.

- Ладно, пока не заморачивайтесь, дойдем до подпрограмм поймете, - сказал программист, - в общем, пока запомните, что есть слово Sub. Оно обозначает начало блока программы. Так понятнее?

- Да, понятно. Sub - это начала там блока какого то.

- А его конец - два слова, пишутся раздельно "End Sub".

- А все, что между "Sub" и "End Sub" - это программа? - догадалась Юлька.

- Да, молодец, так и есть, - похвалил Коля, - все что между это программа. Сразу после Sub идет ее название, затем, собственно говоря, сами команды программы.

- Хорошо, - сказала я, - а что значить команда "' ВыделениеСлова Макрос"?

- А это не команда. Это комментарий. В языке Visual Basic все, что идет от символа "'" (апостоф) до конца строки игнорируется и не исполняется компьюетром.

- А зачем? - последовал резонный вопрос.

- А это не для компьютера, а для пользователя. Мало ли, может программу будет дописывать другой программист. вот для него и нужны комментарии, что бы ему было легче разобраться. Правда, в нашем примере эти комментарии были вставлены автоматически, когда программа Word создавала макрос.  Но ладно, мы пойдем дальше. Рассмотрим команду "Selection.MoveLeft Unit:=wdWord, Count:=1". Она заставляет компьютер переместиться на одно слово назад. Если мы после Count напишем 2, то команда переместит курсор на два слова назад.

- А давай проверим, - предложила Юлька.

- Давай, проверим. В прошлый раз у нас эта программа выделяла жирным текущее слово, а если исправим на 2, то будет предыдущее.

Мы попробовали сперва первый вариант программы (курсор стоял на последнем слове):

пишем программу (Selection, count, Extend, Sub)

Исправили первую команду программы, после слова Count поставили 2:

Sub ВыделениеСлова()
'
' ВыделениеСлова Макрос
' Макрос записан 27.09.2009 admin
'

      Selection.MoveLeft Unit:=wdWord, Count:=2
      Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
      Selection.MoveLeft Unit:=wdCharacter, Count:=1, Extend:=wdExtend
      Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
      Selection.Font.Bold = wdToggle
End Sub

И вот как она у нас отработала (курсор так же стоял на последнем слове):

пишем программу (Selection, count, Extend, Sub)

- Ладно, - говорю я, - первую команду программы мы поняли. А что означает вторая?

- Вообще то она лишняя, ее можно удалить. Но так то она означает перемещение курсора вправо на один символ с выделением текста.

- Вправо, это потому что после слова Selection стоит MoveRight? -  предположила Юлька.

- Совершенно верно, - согласился программист, - а то, что на один символ обозначается словом "Unit:=wdCharacter".  У этой команды появилось еще одно слово: "Extend:=wdExtend" - вот оно то и означает, что текст нужно выделять.

- А почему в нашей программе лишние слова? - спросила я.

- А потому что она была создана автоматически путем записи всех моих действий. Я сделал лишние действия, они и записались в макрос. Сейчас мы их удалим, и ничего не измениться, программы будет работать точно так же:

Sub ВыделениеСлова()
'
' ВыделениеСлова Макрос
' Макрос записан 27.09.2009 admin
'

      Selection.MoveLeft Unit:=wdWord, Count:=1
      Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
      Selection.Font.Bold = wdToggle
End Sub

- Ну, и последняя команда программы, - продолжал Коля, - "Selection.Font.Bold = wdToggle" - обозначает сменить флаг жирности текста. У нас текст был не жирный, стал жирным. Эта команда применятся к выделенному тексту, а его мы выделяем командой "Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend", которая идет перед ней.

- Ладно, это все нам понятно, а когда же программу будем писать?

- А вот сейчас и напишем. Давайте переключаемся в редактор Visual Basic:

пишем программу (Selection, count, Extend, Sub)

- Перейдем в конец и напишем туда вот такой текст:

Sub HelloWord()
       MsgBox "Привет. Мы написали программу"
End Sub

- Это и есть программа? - спросила я.

- Да, она выводит на экран сообщение. Давайте запустим ее:

пишем программу (Selection, count, Extend, Sub)

После того, как мы нажали на указанную кнопку (на скриншоте обведена красным кружком), на экране выскочило сообщение "Привет. Мы написали программу":

пишем программу (Selection, count, Extend, Sub)

- Ладно, на сегодня, наверное, хватит, - сказала Юлька, - а то голова вспухнет от обилия информации.


Скриншоты, приведенные в данной статье , являются цитатами и иллюстрациями   программного продукта "Microsoft Word", авторское право на который принадлежит "Microsoft"


 

Последнее обновление ( 18.06.2013 г. )
 
« След.   Пред. »
 
© 2024 Программирование - это просто
Joomla! - свободное программное обеспечение, распространяемое по лицензии GNU/GPL.
Русская локализация © 2005-2008 Joom.Ru - Русский Дом Joomla!
Design by Mamboteam.com | Powered by Mambobanner.de
Я принимаю Яндекс.Деньги