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

VB.NET-World

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Интернет для бизнеса и не только" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Январь 2002   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
09.01.2002
11:43:06
19:34:43
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Автор
Stripped

Статистика

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

Мир программирования на Visual BASIC 5.0 и HTML. Выпуск 38


Служба Рассылок Subscribe.Ru
Мир программирования на Visual BASIC и HTML
Информация
  Архив рассылки
  Рассылка
  гостевая книга

Вопросы
  Автору
  По VB
  По HTML

Спонсоры
  Городской кот
  Subscribe.Ru
  Majordomo.Ru

Ссылки
  VB Streets
  Visual BASIC
  VB: Step by Step
  SnoozeX Design
  СообЧа
  СообЧа-VB
  Голосования
  VB Студия

VB Форумы
WEB:
  VBS Форум
  Ru.Visual.Basic
Mail:
  VBStreets
  СообЧа: VB
подписка - пустое письмо в VB группу

Доска почета
  Sergey VIMBERG
  Олег
  Oleg Palayda
  BSP
  Verter
  Николай
  hackcode
  Дмитрий Данелия
  Виталий Иванов
  Raven
  Сурменок Павел
  Шаронов Игорь
  Максим
  Глеб
  Daniel
  Foxtrot
  Magistr

Кнопки

Рассылка 'Мир программирования на Visual BASIC и HTML.'

мы в режиме:

SUPERTOP

SnoozeX Design

Опрос
Эта рассылка:

Лучшая в инете!
Очень хорошая
Хорошая
Неплохая
Отстой


Результаты

Друзья

Все для вебмастеров. Куча картинок, скриптов, доков
Ассемблер? Это просто! Учимся программировать
Дизайн и программирование
Visual Basic: новости сайтов, советы, примеры кодов
Dummpy Daily eTips


Несколько слов от автора: Привет, извиняюсь за долгое молчание, сами понимаете экзамены, Новый Год, Рождество :) Кстати, с прошедшими :)) Надеюсь, больше такое не повторится. Удачи!
Ваши пожелания:


E-Mail для ответа:

РАССЫЛКА: Открылся сайт рассылки по адресу http://vb-html.da.ru На сайте вы найдете весь архив рассылки, проекты и многое другое.
САЙТ АВТОРА: Открылся сайт автора рассылки по адресу http://alexis.dax.ru
ПРИМЕЧАНИЕ: Выпуски данной рассылки начиная с первого вы сможете прочитать на http://subscribe.ru/archive/comp.design.snoozex/    @LEXis

10.01.2002 Выпуск N38 Обзор ведет @LEXis

 Сегодня в выпуске:

# E-Mail группа "СообЧа-Visual BASIC":
  • О группе
 # Помощь по HTML - ведущий Максим:
  • Полезные коды (верстал @LEXis)
# Полезные коды Visual BASIC:
  • Перекодировка из KOI-8 в WIN и наоборот
  • Цикличный перебор нужных вариантов
  • Информация из BIOS
# Уроки PERL - ведущий Magistr:
  • Операторы. Теория и практика.
 # В разделе "вопросы/ответы":
  • Ответы на вопросы читателей
 # Рубрика "Объявления"


 E-Mail группа "СообЧа-Visual BASIC"
  • О группе

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

 Помощь по HTML - ведущий Максим
  • Полезные коды
1. Проигрываем мелодию на странице.

Это не очень часто используется на страницах, но лучше, чтобы все знали: 
<embed src="melody.mid">
2. Собственная баннерная система :)

Используется для добавления страницы в папку "избранное", создавая тем самым закладку, по которой пользователь сможет легко вернуться. Это уже куда полезнее. Код следующий: 
<script language=JavaScript>
function over()
{
if ((bannerNumber == 0) || (bannerNumber == 1))
{
document.banner.src = banner2.src;
}
}
function out()
{
if ((bannerNumber == 0) || (bannerNumber == 1))
{
document.banner.src = banner1.src;
}
}
function bannerSelect()
{
if ((bannerNumber == 0) || (bannerNumber == 1))
{
document.banner.src = banner1.src;
}
else {
if (bannerNumber == 2)
{
document.banner.src = banner4.src;
document.links[0].href = "http://bw.by.ru/";
}
else
{
        document.banner.src = banner3.src;
document.links[0].href = "http://bw.by.ru/";
}
}
}
function load()
{
r();
bannerSelect();
}
function r()
{
bannerNumber = Math.round(Math.random() * 4);
}
</script>
<script language="javascript">
<!--
banner1=new Image(468,60);
banner1.src = "banner1.gif";
banner2=new Image(468,60);
banner2.src = "banner2.gif";
banner3=new Image(468,60);
banner3.src = "banner3.gif";
banner4=new Image(468,60);
banner4.src = "banner4.gif";
// -->
</script>
</head>
<body bgcolor="#ffffff" onload="load()">
<p><center>
<a href="http://bw.by.ru/" target="_top" onMouseOver="over()"_
_ onMouseOut="out()">
<img src="banner1.gif" border=0 name="banner" alt="scriptsnetwork"_
_ width=468 height=60>
</a>
</center></p>
 Полезные коды Visual BASIC
  • Перекодировка из KOI-8 в WIN и наоборот
Существует множество различных способов выгрузить форму: щелкнуть кнопку Exit или соответствующую команду меню, щелкнуть кнопку со знаком X в верхнем правом углу формы, выбрать команду Close из всплывающего меню окна формы в верхнем левом углу. Можно даже произвести отмену выполнения программы из менеджера задач или перезагрузить компьютер. Так или иначе, было бы полезно показать пользователям возможность отмены операции выгрузки формы, проводимой одним из вышеперечисленных способов. Для этого следует поместить код, осуществляющий проверку выгрузки формы, в событие QueryUnload для этой формы. Данное событие инициируется независимо от метода, используемого для выгрузки формы: 
Private Declare Function MultiByteToWideChar Lib "kernel32" ( _
  ByVal CodePage As Long, _
  ByVal dwFlags As Long, _
  ByVal lpMultiByteStr As String, _
  ByVal cchMultiByte As Long, _
  ByVal lpWideCharStr As Long, _
  ByVal cchWideChar As Long _
) As Long

Private Declare Function WideCharToMultiByte Lib "kernel32" ( _
  ByVal CodePage As Long, _
  ByVal dwFlags As Long, _
  ByVal lpWideCharStr As Long, _
  ByVal cchWideChar As Long, _
  ByVal lpMultiByteStr As String, _
  ByVal cchMultiByte As Long, _
  ByVal lpDefaultChar As String, _
  ByVal lpUsedDefaultChar As Long _
) As Long
Таким образом для конвертации из KOI-8 RU в Win 1251 нам необходимо проделать следующее: 
Public Function Koi8ToWin1251(ByVal Data As String) As String
  Dim strResult As String

  strResult = Space(Len(Data))

  MultiByteToWideChar _
    21866, _
    0, _
    Data, _
    Len(Data), _
    StrPtr(strResult), _
    Len(strResult)

  Koi8ToWin1251 = Left$(strResult, Len(Data))

End Function
Сответственно для обратной конвертации мы применяем вторую функцию: 
Public Function Win1251ToKoi8(ByVal Data As String) As String
  Dim strResult As String

  strResult = Space(Len(Data))

  WideCharToMultiByte _
    21866, _
    0, _
    StrPtr(Data), _
    Len(Data), _
    strResult, _
    Len(strResult), _
    0, _
    0

  Win1251ToKoi8 = Left$(strResult, Len(Data))

End Function

  • Цикличный перебор нужных вариантов
Тут рассматривается пример из 3-х букв, но можно его и усовершенствовать по желанию. 
Const str As String = "АБВ"
Dim c1 As String
Dim c2 As String
Dim c3 As String
Dim i As Integer
Dim j As Integer
Dim l As Integer

For l = 1 To 3
    c1 = Mid$(str, l, 1)
    For j = 1 To 3
        c2 = Mid$(str, j, 1)
        For i = 1 To 3
            c3 = Mid$(str, i, 1)
            If c1 <> c2 And c1 <> c3 And c2 <> c3 Then
                Debug.Print c1 & c2 & c3
            End If
        Next
    Next
Next

  • Информация из BIOS
Допустим тебе надо вывести инфу из BIOSа в Texbox,под названием Text1: 
Option Explicit
Private Declare Sub GetMem1 Lib "msvbvm50.dll" (ByVal _
   MemAddress As Long, var As Byte)

Private Function GetBIOSDate() As String
  Dim p As Byte, MemAddr As Long, sBios As String
  Dim i As Integer
  MemAddr = &HFE000
  For i = 0 To 331
      Call GetMem1(MemAddr + i, p)
      If p > 31 And p <= 128 Then
      sBios = sBios & Chr$(p)
    End If
  Next i
  GetBIOSDate = sBios
End Function

'Ну и Form_Load пишешь:
Text1.Text = GetBIOSDate

 Уроки PERL - ведущий Magistr
  • Операторы. Теория и практика.
Извинения.

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

Но расскажу сегодня не о массивах, а о операторах.

Немного теории. Операторы в Perl.

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

Сразу оговорюсь. Стандартный пример “1 + 2” тут уже не будет подходить, поскольку в кавычках нельзя выполнять какие либо действия. Поэтому, “” заменяется на ().

Итак, виды простейших операторов.

10 / 2 – деление

10 ** 2 – возведение в степень

10 * 2 – умножение

10 +(или минус) 2 – сложение/вычитание

10 % 2- – определение модуля.

++10  - прибавление единицы

10++ - вычитание единицы

-(или +)$resultat – изменение знака числа. В данном случае получится – 47.

А теперь применим на практике. Попробуйте запустить такой простенький пример:


$cifra = 23; #присваиваем скалярной переменной число
$vtorayacifra = 24; #присвоили еще одной переменной число
$resultat = $cifra + $vtorayacifra;  #здесь мы их складываем
print $resultat

Принцип работы

Программа вытаскивает из переменных числа, после чего выполняет халоженное действие. В данном случае это сложение. Естественно, что вы можете заложить ЛЮБОЕ действие в переменные. А можно и вовсе составить уравнение, состоящее из одних переменных.

Часть вторая. Логические операторы.

Логические операторы можно охарактеризовать несколькими словами – для сравнения и тому подобных действий. Они бывают такими:

Число && число – Логическое “И”.

Число || число – логическое “или”

!число – логическое “не”, или отрицание

Применим на практике. Например, вот так: 

$cifra = 2;
$vtorayacifra = 3;
if ($cifra == 2 && $vtorayacifra == 3){print "RIGHT!!"}
else{print “Wrong!”}
Принцип работы

Программа выполняет строгое сравнение(== - строгое сравнение), и если все сходится, пишет “Right!!”, а если нет, то “wrong”.  Программу можно было бы написать словами так:

Если $-cifra равна 2 и vtorayacifra равна 3, то написать “Right”.

Также и с “ИЛИ”. А вот “не” надо разобрать подробней. Пример: 

$cifra = 2;
$vtorayacifra = 3;
print !$cifra
Оператор “НЕ” присваивает $cifra ноль. То есть ничего. Часть третья. Битовые операторы.

Операторы, производящие различные операции над битами.

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

~Число - применяется для инверсии всех бит.

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

Число << число - полностью обратное прошлому оператору. Равносильно умножению на два.

Пример: 

$cifra = 111;
$vtorayacifra = 1111000;
if($cifra & $vtorayacifra){print “right!”}else {print”wrong!”}
Принцип работы. С помощью оператора & программа определяет, все ли цифры чисел равны ли одному биту, и пишет “right”. Если же хотя одна цифра равна цифре, большей 1, то пишется “wrong”.

Пока все. В следующем выпуске еще немного операторов :)).

Все пожелания, совету и критику с удовольствием получу на magistr@wincmd.ru.

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

 Вопросы / Ответы
  • Отправитель вопроса Соколов Игорь Николаевич
    Помогите, пожалуйста, решить следующую проблему.
    Окно просмотра разбито на три части фреймами. В одном из фреймов находятся ссылки - перевод странички на русскую и английскую версии. Как сделать так, чтобы замена на англоязычную версию происходила во всех трех частях области просмотра одновременно. Я сумел добиться стандартными описаниями фреймов смены изображения только в двух частях области просмотра. Возможно ли это сделать в трех частях одновременно, или необходимо писать скрипт?
    Может быть у кого-то есть уже написанный? Заранее благодарен!
  • Отправитель вопроса Константин
    Будь добр, подскажи мне одну вещь, если знаешь. В своей программе я открываю текстовый файл как базу данных, и работаю с набором записи. На другой машине, после инсталяции, программа не может работать с текстовым файлов, "говорит", что нет драйвера IISAM. При открытии базы он указывается как TEXT. Как можно "приципить" этот драйвер при создании дистрибутива, чтобы он устанавливался во время инсталяции программы.
 Объявления
  • Требуются люди
    Хочу напомнить, что еще пусты многие вакансии рассылки:
    - Рубрика "Практикум на примерах"
    Также можно просто присылать коды.

Код моей кнопки:

<!-- SnoozeX Design "PLAY" -->
<a href="http://snoozex.boom.ru" TARGET="_blank"><BR><IMG SRC="http://snoozex.boom.ru/new.gif" WIDTH=88 HEIGHT=31 BORDER=1 ALT="SnoozeX Design"></a>
<!-- SnoozeX Design "END" -->

Выпуск подготовили:                    
@LEXis
и еще наша команда!
@LEXis ICQ uin : 14912636
Подписаться на рассылку Кувалина Алексея
Мир программирования на Visual BASIC и HTML
© 2000 - 2002 @LEXis & Design by SnoozeX Design
Рассылка является составной частью проекта "СообЧа - СООБщество ЧАйников"
  • Сайт СообЧа: http://www.soobcha.ru/
  • Сайт группы по VB: http://soobcha-vb.narod.ru/
  • Сайт рассылки: http://soobcha-vb.narod.ru/alex/
    • Подписаться на сообщество
    © 2000 - 2002 СообЧа (СООБщество ЧАйников)
    Спасибо за внимание. Ваш @LEXis
    http://subscribe.ru/
    E-mail: ask@subscribe.ru     		Отписаться
    Убрать рекламу
    В избранное