Группа VB. Заходите в гости. Здесь вы приобретете практические навыки по программированию на Visual Basic. Как вы этого сможете достигнуть? Путем написания собственной серьезной программы. Чем обычно занимается рядовой чайник-программист? Ну, пишет там всякие приколы на VB... Ну, ма-а-ленькую полезную программку наваляет. А как получить навыки в создании серьезных программ? Правильно, путем создания серьезных программ. ;) Но в одиночку вам с этим не справиться. Вот для этого в проекте СообЧа существует группа программистов-чайников, которые занимаются разработкой серьезного софта на VB. Суть состоит в том, что вам совсем необязательно знать все в Visual Basicе. Вам достаточно быть рядовым чайником и немного знать операторы VB. Остальному научимся вместе. На данный момент в группе разрабатывается почтовая программа под рабочим названием "Сообчайлер". Она будет уметь все, что умеет популярная программа The Bat и даже намного больше. Есть сборник оригинальных идей, выдвинутых членами нашей группы, которые мы постараемся реализовать все вместе. Проект разбивается на отдельные простые задачи. Такие как: проверка орфографии, форма для написания нового письма, главное окно... и т.п. Каждую часть делает отдельный человек. Затем он высылает сделанный модуль в группу, и остальные просто присоединяют его к базовому проекту. Вам совсем не обязательно четко представлять, как это сделать. Достаточно просто начать и столкнуться с какой-нибудь проблемой. Пусть это будет даже проблема типа "А как добавить новый модуль к проекту?". Все. Наткнулись... ;) Дальше действуем по одной схеме - пишем письмо с описанием проблемы в группу и мы все вместе разбираемся в проблеме. Таким образом, все остальные получат ЗНАНИЯ и некоторые навыки в решении создавшихся проблем. Не забывайте - все мы чайники. Не стоит бояться задать вопрос. Задавайте - а мы вместе попытаемся найти ответ.

Подписаться в группу (пустое письмо)

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

Вещь первая - кнопка печати содержимого гипертекстовой страницы. Это может быть очень удобно, если ваш сайт содержит много необходимой пользователю информации на одной странице. Также большинство информационных сайтов имеют отдельную версию "стриницы для печати", которая не содержит графических элементов. Этот механизм программной печати реализован во всех версиях Internet Explorer и в Netscape Navigator не ниже 4-й.

В примере ниже проверяется версия броузера и если проблем не возникает скрипт автоматически создаёт кнопку печати документа.

<script language="JavaScript">
var NS = (navigator.appName == "Netscape");
var v = parseInt(navigator.appVersion);
if (v>3) {
document.write('<input type=button value="Печать" name="Print" OnClick=
="window.print()">');}
</script>

Вещь вторая - всплывающая подсказка при наведении на ссылку. Введено в обиход довольно недавно, поэтому поддерживается IE4+ и NN6.0. Всплывающую подсказку вы часто могли лицезреть при наведении мышки на картинку. Осуществляется это с помощью атрибута <ALT>. В случае с гиперссылкой следует использовать атрибут <TITLE>. Вот пример:

<a href="vbhtml.dax.ru" title="САЙТ РАССЫЛКИ!">vbhtml.dax.ru</a>

Проверено. Мин нет! :)

* Юзабилити - совокупность всех факторов, создающих для пользователя масимальное удобство и простоту использования веб-страницы (да, вообще, чего угодно :))

Существует множество различных способов выгрузить форму: щелкнуть кнопку Exit или соответствующую команду меню, щелкнуть кнопку со знаком X в верхнем правом углу формы, выбрать команду Close из всплывающего меню окна формы в верхнем левом углу. Можно даже произвести отмену выполнения программы из менеджера задач или перезагрузить компьютер. Так или иначе, было бы полезно показать пользователям возможность отмены операции выгрузки формы, проводимой одним из вышеперечисленных способов. Для этого следует поместить код, осуществляющий проверку выгрузки формы, в событие QueryUnload для этой формы. Данное событие инициируется независимо от метода, используемого для выгрузки формы:

Private Sub Form_QueryUnload(Cancel As Integer, _
UnloadMode As Integer)
' универсальная проверка выгрузки формы
Dim strQuestion As String
Dim intAnswer As Integer
Dim aryMode As Variant
'
aryMode = Array(vbFormControlMenu, vbFormCode, _
vbAppWindows, vbAppTaskManager, vbFormMDIForm)
strQuestion = “Вы готовы выгрузить эту форму?”
intAnswer = MsgBox(strQuestion, vbQuestion + vbYesNo, _
aryMode(UnloadMode))
If intAnswer = vbNo Then Cancel = -1
End Sub

С помощью приведенной здесь программы вы можете создать поле текста (TextBox), аналогичное тем, которые реализованы в последних версиях Microsoft Excel или Internet Explorer. Иными словами, каждый раз, когда вы будете вводить какой-либо текст в это поле, первые буквы строки будут сравниваться с элементами невидимого списка, а затем программа сама определит, как следует дописать данную строку, и сделает это за вас. Для реализации такого поля текста вначале добавьте окно списка к своей форме и установите его свойство Visible как False. В событии Form_Load заполним это окно списка некоторыми элементами. В реальном приложении добавление новых элементов списка следует осуществлять каждый раз, когда пользователь закончит ввод строки. Поместите на форму элемент управления TextBox и введите следующий код:

Option Explicit
If Win32 Then '32-разрядная версия VB
Private Const LB_FINDSTRING = &H18F
Private Declare Function SendMessage Lib “User32” _
Alias “SendMessageA” (ByVal hWnd As Long, ByVal _
wMsg As Long, ByVal wParam As Long, lParam As _
Any) As Long
Else ' 16-разрядная версия VB
Private Const WM_USER = &H400
Private Const LB_FINDSTRING = (WM_USER + 16)
Private Declare Function SendMessage Lib _
“User” (ByVal hWnd As Integer, ByVal wMsg As Integer, _
ByVal wParam As Integer, lParam As Any) As Long
End If
Private Sub Form_Load()
List1.AddItem “Апельсин”
List1.AddItem “Банан”
List1.AddItem “Яблоко”
List1.AddItem “Персик”
List1.AddItem “Ананас”
List1.AddItem “Авокадо”
End Sub
Private Sub Text1_Change()
Dim pos As Long
List1.ListIndex = SendMessage(List1.hWnd, _
LB_FINDSTRING, -1, ByVal CStr(Text1.Text))
If List1.ListIndex = -1 Then
pos = Text1.SelStart
Else
pos = Text1.SelStart
Text1.Text = List1
Text1.SelStart = pos
Text1.SelLength = Len(Text1.Text) — pos
End If
End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, _
Shift As Integer)
'
On Error Resume Next
If KeyCode = 8 Then ' Backspace
If Text1.SelLength <> 0 Then
Text1.Text = Mid$(Text1, 1, Text1.SelStart — 1)
KeyCode = 0
End If
ElseIf KeyCode = 46 Then ' Del
If Text1.SelLength <> 0 And _
Text1.SelStart <> 0 Then
KeyCode = 0
End If
End If
End Sub

Теперь запустите созданный вами проект (F5) и попробуйте ввести какой-либо текст.

Здравствуйте!
Я надеюсь, все скачали Perllive и Perl? :)) Ну ладно, перейдем к работе. Отрезки кода выделены таким же цветом, каким их выделяет PerlLive! Исключения составляют комментарии.

Интерфейс Perllive 2001

Запускаем Perllive, он нам выводит окно, где спрашивает о расширении файла. Выбираем Perl file(.pl). Внизу ничего не изменяйте, поскольку это путь к Perl компилятору.
Перед нами возник сам редактор. В нем уже есть начальная надпись:

usr/bin/perl

Это путь к перл компилятору.
В проге есть очень полезная функция - проверка синтаксиса. Она находится в "View"==> "Check Syntax". При нажатии выводится DOS - окно, в котором расписываются ошибки в синтаксисе кода.
Может возникнуть ошибки с компиляцией и проверкой синтаксиса. Если таковые возникнут, берите PERL дистрибутив и кидайте его на C:/usr. Больше ничего не надо делать. Теперь заходите в PerlLive ==> View ==> Perl interpretator options и там прописываете путь такого вида:
C:/usr/bin/perl.exe. Обязательно снимите флажок с "This computer have Web-server", если не хотите мучаться с настройкой CGI и WEB-сервера.

Первая программа - "Hello, World!"

Откройте новый документ. Напишите после путя к PERL строчку:
print "Hello,World!\n" ;
Теперь нажмите на разноцветный круг в меню. Появится DOS окно, в котором вы увидите результаты. Теперь закроем окно и будем разбираться с лексемами кода.
PRINT
Один из главнейших элементов в PERL. С помощью его можно написать в окне любой текст.

\n
Символ новой строки. Нужен, если у вас большой текст, и его надо разбить на отдельные строки.

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

Вторая программа - программа, называющая по имени.

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

Итак, открываем новый документ. Вводим строку:
print "What is your name?\n"; # все, что за решеткой, считается комментарием. На прогу не влияет.
$name = <stdin> # <stdin> - лексема, с помощью которой можно написать вопрос и внести в переменную ответ. В данном случае ответ будет помещаться в $name.
print "Hello, $name!\n"; # Здесь идет "вытаскивание" помещенного в $name значения.

На сегодня все. В следующем выпуске - операторы сравнения if-then-else-eq
Все вопросы, замечания, советы направляйте на magistr@nptus.ru

Искренне ваш,
Алекс aka Magistr

Борьба с пиратством

Это борьба за деньги. Пираты, несмотря на многие отрицательные факторы их деятельности, имеют одну положительную - расширяют рынок потенциального спроса. Поэтому если Вы создали программу и она стала появляться на пиратском рынке - это признак популярности. Сие лучше воспринимать как очень положительный фактор - раскрутка имени разработчика и названия программы. Большинство софтверных корпораций не отчаиваются. У многих есть очень красивое решение - "системы под ключ" или системы с расширенным спектром предоставляемой информации. Это очень красивое решение, так как идет перпендикулярно маркетинговой линии пиратов. Пират не может себе позволить выпуск диска или сайт, на котором бы содержались большие объемы информации.
Поэтому и разрабатывается Video Tutorial, шаблоны и примеры, которые могут занимать и больше одного CD. Приобретая лицензионный продукт, пользователь получает мощную взаимосвязанную систему услуг и возможностей, которые ему недоступны из пиратской продукции. Явный пример - Sonic Foundry ACID, в стандартном пакете которого идут примеры композиций, банки сэмплов, бесплатные и условно-бесплатные программы. Помимо этого осуществлена поддержка через Интернет, сервис по обновлению, техническая поддержка и т.п.
Так что разработчику всегда стоит задуматься, в чем он, кроме того, что новые версии программы будут выпускаться с небольшим опережением пиратов, может улучшить комфортность использования продукта для зарегистрированных пользователей. Здесь можно применять и нестандартные решения.