Отправляет email-рассылки с помощью сервиса Sendsay

Русский_Проект: Изучение Visual Basic

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 3.885 RSS
←   Август 2001   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusproject.narod.ru/
Открыта: 06-01-2001

Автор
Русский_Проект

Статистика

3.885 подписчиков
0 за неделю
←   Все выпуски   →

Русский_Проект: Изучение Visual Basic


Служба Рассылок Subscribe.Ru проекта Citycat.Ru
Русский_Проект: Рассылка Содержание
Справочник по встроенным функциям Задачи по VB
Справочник по сетевым функциям
Форум
Ваши письма
Функции API
Юмор
Здравствуйте!
 Число подписчиков неумолимо приближается к отметке 3000.
 Это заставляет делать выпуски чаше, чем один раз в
 месяц, чтобы не томить ожиданием выпуска новых
 подписчиков.


Справочник по встроенным функциям

 Обновил справочник по встроенным функциям. Исправлены
 некоторые опечатки и добавлена расшифровка некоторых
 функций. Например, функция Abs от слова
 Absolute. Кому-то это может помочь в запоминании
 смысла функций.


Задачи по VB

Хочу предложить вашему вниманию новую рубрику для сайта
 - Задачник, в котором будут предлагаться различные
 задачи, требующие решения. Я пробовал найти в интернете
 такие задачи для программирования, но практически
 ничего не нашел. Как правило, для решения таких задач
 используются либо Си, либо Паскаль. Если среди вас есть
 люди, знающие эти языки, то буду рад вашей помощи по
 переводу кодов этих задач на Visual Basic. Также прошу
 поделиться линками на страницы, где размещаются задачи
 для различных олимпиад. Вы можете присылать свои
 решения либо на мой email:wwwind@aport.ru либо
 выкладывать на форуме.
 Задачи будут простыми и сложными. Например, как
 поменять значения двух переменных, не используя третью
 переменную? Подписчики со стажем уже знают ответ.
 Новичкам советую порыться в предыдущих выпусках для
 ответа (существует два варианта).
 А пока первое задание.
 Определить, является ли введенная фраза палиндромом
 (т. е., читающейся задом наперед точно так же,
 например: "А роза упала на лапу Азора").
 На форме разместите текстовое поле Text1 и кнопку
 Command1. В текстовое поле будет вводиться фраза,
 а кнопка должна выводить сообщение - является ли фраза
 палиндромом. Присылать ответы в виде архивов, проектов
 не надо. Достачно прислать в письме код для кнопки.
 В поле Тема напишите Задачник.

 Небольшое отступление. Если вы решились написать
 письмо, то не забывайте в начале набить строчку
 Здравствуйте, Привет и в том же духе. Много сил у вас
 это не займет. Для тех, кто напишет типа "Хай, чувырла"
 дам совет. Зайдите к учительнице русского языка и
 попросите ее написать за вас письмо :-)



Справочник по сетевым функциям

 Продолжается работа на справочником. Готово 15 функций.
 Пока освещаются две категории: WinSock и WinInet. Скоро
 добавятся еще две категории - RAS и WNet. Используя
 мощь этих функций можно писать различные приложения для
 интернета - звонилки, download-менеджеры, ftp-клиенты


Форум

 По поводу форума.
 Я не собираюсь искусственно поддерживать жизнь форума и
 отвечать на все вопросы. Форум расчитан на объединение
 единомышленников, готовых обмену знаниями с другими.
 Также хочу заметить, что мой почтовый сервер не
 безгрешен. Часть писем до меня не доходит. Поэтому
 использование форума для вопросов даже в какой-то
 степени предпочтителен.
 Адрес форума
 http://narod.yandex.ru/userforum/?owner=rusproject.
 Ваши вопросы помогут определить направление,
 в котором следует развивать сайт!



Ваши письма. (Продолжение разговора)

 В дополнение к разгорвору о предотвращении запуска
 второй копии моей программы? (см. предыдущий выпуск)
 Сергей Лебедев прислал следующий код

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

Private Declare Function FindWindow Lib "user32" _
 Alias "FindWindowA" (ByVal
lpClassName As Any, ByVal lpWindowName As Any) As Long

Private Sub Form_Initialize()
    Dim sTitle As String
    Dim iHwnd As Integer
    sTitle = "Form"
    On Error Resume Next
    iHwnd = FindWindow(0&, sTitle)
    If Err.Number = 6 Then
        MsgBox "Программа уже запушена", vbOKOnly
        End
    End If
    On Error GoTo 0
End Sub

Свойство формы:
Form1.Caption = "Form"

 При повторном запуске вашей программы появится
 сообщение: "Программа уже
запущена".


Ответ: Спасибо Сергею за письмо. Ход
 его мыслей понятен. Но и этот пример не гарантирует
 100-процентную надежность. Возьмите, к примеру,
 notepad.exe. Откройте им несколько текстовых файлов и
 вы увидите, что заголовки у форм разные.
 Например, readme.txt - Блокнот
 или
 license.txt - Блокнот
 А однажды, я писал программу, которая в заголовке
 использовала текущее время. Намек ясен?



Функции API



mouse_event

mouse_event позволяет перемещать мышь и
 производить щелчки кнопками


Параметры
dwFlags
Комбинация следующих флагов, определяющих различную
 информацию о событиях,
 связанных с мышью MOUSEEVENTF_ABSOLUTE = &H8000
Значения dx и dy содержат абсолютные координаты.
 В экранной системе координат левый верхний угол
 имеет координаты (0,0), а правый нижний -
 (65535,65535), независимо от реальных размеров экрана.
 Если флаг не установлен, dx и dy содержат смещения
 относительно текущего положения
MOUSEEVENTF_LEFTDOWN = &H2
Нажата левая кнопка
MOUSEEVENTF_LEFTUP = &H4
Левая кнопка отпущена
MOUSEEVENTF_MIDDLEDOWN = &H20
Нажата средняя кнопка
MOUSEEVENTF_MIDDLEUP = &H40
Средняя кнопка отпущена
MOUSEEVENTF_MOVE = &H1
Произошло перемещение мыши. Параметры dx и dy
 определяют смещение мыши
MOUSEEVENTF_RIGHTDOWN = &H8
Нажата правая кнопка
MOUSEEVENTF_RIGHTUP = &H10
Правая кнопка отпущена
MOUSEEVENTF_WHEEL = &H80
Windows NT/2000: Произошло смещение колеса прокрутки.
 Параметры dwData определяют смещение колеса
MOUSEEVENTF_XDOWN = &H100
Windows 2000: Нажата кнопка X. Параметр dwData
 определяет кнопку X
MOUSEEVENTF_XUP = &H200
Windows 2000: Отпущена кнопка X. Параметр dwData
 определяет кнопку X
dx
Определяет абсолютную координату x или смещение
 относительно текущего положения по оси x
dy
Определяет абсолютную координату y или смещение
 относительно текущего положения по оси y
dwData
Windows NT/2000: Если dwFlags содержит MOUSEEVENTF_WHEEL,
 то опеределяет число вращений колесика.
 Windows 2000: Если dwFlags содержит MOUSEEVENTF_XDOWN
 или MOUSEEVENTF_XUP, то комбинация следующих флагов
 определяет какие кнопки X были нажаты или отпущены:
XBUTTON1
Первая кнопка X была нажата или отпущена
XBUTTON2
Вторая кнопка X была нажата или отпущена
dwExtraInfo
Информация о связанном 32-битном приложении



Пример
' Симуляция перемещения мыши в нижний левый угол
' экрана и нажатия левой кнопки
' Тем самым мы нажимаем кнопку Пуск
mouse_event MOUSEEVENTF_MOVE Or MOUSEEVENTF_ABSOLUTE, 400, 65000, 0, 0
' Нажимаем и отпускаем левую кнопку мыши
mouse_event MOUSEEVENTF_LEFTDOWN, 0, 0, 0, 0
mouse_event MOUSEEVENTF_LEFTUP, 0, 0, 0, 0


Полный текст с описанием этой функции
вы найдете в новой версии справочника по функциям API,
который скоро появится на сайте!


Юмор


Предупреждение: Вы изменили положение мыши. Необходима перезагрузка чтобы изменения вступили в силу.  



Не стесняйтесь, высылайте ваши предложения по адресу vbasic@rambler.ru

Посетите сайт Русский_Проект, где вы найдете другую интересную информацию

Давайте делать рассылку вместе!
Удачи!










http://subscribe.ru/

E-mail: ask@subscribe.ru

Отписаться

Убрать рекламу

Рейтингуется SpyLog






        
        

        

        


        

         

                                                                  
    В избранное