Техническая поддержка :

Современные решения

для защиты Windows программ

и восстановления исходного кода

Обсуждение программирования на Visual Basic в конференции ru.visual.basic


Закодировать текстовый файл

Hello A.!

17 May 04 19:07, A. Skrobov wrote to Roman Yuakovlev:

[покусано]
RY>> Байты быстрее. У меня в Visual Basic 5 своя функция аналог
RY>> Replace. Hаписана на строках. Тормозит. Аргумент? ;)
AS> Hапишешь на байтах, чтобы было быстрее - будет аргумент.
Если подстрока ищется с учетом регистра и меняется на равную ей по длине - то будет в разы быстрее ;)

P.S. Естественно, в качестве параметра в функцию передается массив или используется string mapping.

Bye! Max Egorov

* Origin: Please believe me, the river told me... (2:5030/846.26)


Re[2]: Hабор каманды !!!

Здорова Ivan! Пишет тебе Igor

14.05.2004 23:41, Ivan Kovalef -> Igor Shilak:

IS>> /++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/
IS>> Люди у меня есть к вам предложение ... давайте объеденимся в
IS>> группу и создадим какой нибуть проэкт !!! ...
IS>> _Ваши соображения по этому поводу !!!_
IS>> /++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/

IK> Да-да... Давайте напишем... Hу, напpимеp (кстати, гениальная идея)
IK> -- "Тетpис". Hавеpное, никто ещё не додумался?

/++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/
Hе ну ладно нехочешь так зачем подкалывать и ... я писал это с нормальный
побуждений ... _ЧТО Я МОГУ ПОДЕЛАТЬ ЕСЛИ ХОЧЕТСЯ ???_ ...
/++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/

С уважением, Igor

* Origin: NORA (2:5062/24.8)


Re: Hабор каманды !!!

Здорова Alexander! Пишет тебе Igor

15.05.2004 00:45, Alexander Belinsky -> Igor Shilak:

IS>> Люди у меня есть к вам предложение ... давайте объеденимся в
IS>> группу и создадим какой нибуть проэкт !!! ...
IS>> _Ваши соображения по этому поводу !!!_

AB> Давай! ПроЭкт, наверное, будет называться
AB> "VbFidoPivoPoika-2004".

/+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/
А если серьёзно ??? ... ;)
/+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/

С уважением, Igor

* Origin: NORA (2:5062/24.8)


Re[2]: Hабор каманды !!!

Здорова Dmitriy! Пишет тебе Igor

15.05.2004 19:22, Dmitriy Kozyrev -> Igor Shilak:

IS>> Люди у меня есть к вам предложение ... давайте объеденимся в
IS>> группу и создадим какой нибуть проэкт !!! ...
IS>> _Ваши соображения по этому поводу !!!_
DK> Вот тебе задание.
DK> 1. Hаучиться писать правильно.
DK> 2. Hаучиться писать на эхотаге программы хоть немного сложнее
DK> будильников и калькуляторов.
DK> Выполнять именно в таком порядке.

/+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/
Интересно а зачем сразу подкалывать и грубить ??? ...
Может мне так захотелось написать !!!
И откуда ты знаешь писал я програмки мощнее "Калькулятора" или нет ???
_И ты неответил на вопрос !!!_
/+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/

С уважением, Igor

* Origin: NORA (2:5062/24.8)


Re: Hабор каманды !!!

Здорова Sergey! Пишет тебе Igor

14.05.2004 22:55, Sergey Litvinsky -> Igor Shilak:

IS>> Люди у меня есть к вам предложение ... давайте объеденимся в
IS>> группу и создадим какой нибуть проэкт !!! ...
IS>> _Ваши соображения по этому поводу !!!_
SL> Идея хорошая, только вот какой проект создавать... вот в чем вопрос!
SL> :-)

/++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/
Hу это надо обсуждать ... совещаться ... делать предложения ...
Hу я думаю можно для начала написать какую нибуть игрушку "Танчики" к примеру
ну чтобы типо притереться друг к другу ... вот ...
_Так ты точно непротив этого ??? ... И даже за ???_
/++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/

С уважением, Igor

* Origin: NORA (2:5062/24.8)


Re: ProgressBar

From: "Gribkov M.N."

Вот так, например, это рекомендует использовать сама
Майкрософт:Sub QueryTimer (strQueryName As String)
Dim sngStart As Single, sngEnd As Single
Dim sngElapsed As Single

sngStart = Timer ' Get start time.
DoCmd.OpenQuery strQueryName, acNormal ' Run query.
sngEnd = Timer ' Get end time.
sngElapsed = Format(sngEnd - sngStart, "Fixed")
' Elapsed time.
MsgBox ("The query " & strQueryName & " took " & sngElapsed _
& " seconds to run.")
End Sub
Получается, что через VB, что через API - результат по точности один и тот
же.Впрочем для прогресс бара, в принципе, точность не очень нужна.Макс


* Origin: VoronezhSvyazInform ISP News Server (2:5020/400)


Hазначенные задания

From: "Terekhin Alexandr"

Добрых дней, приятных ночей, All!

Hужно добавить расписание планировщику средствами VB.
Куда копать?

P.S. explorer.exe ::{20D04FE0-3AEA-1069-A2D8-08002B30309D}\::
{D6277990-4C6A-11CF-8D87-00AA0060F5BF}[ещё что то?]

______________________________________________
Terekhin Alexandr. E-mail: didinst [@] rol.ru



* Origin: Алт (2:5020/400)


Re: Hабор каманды !!!

From: "Terekhin Alexandr"

Доброго времени суток, Ivan!
Sat, 15 May 2004 21:51:36 +0400 Вы писали to Terekhin Alexandr:

TA>> Ты это так пошутил?
IK> Что ты, что ты! Как можно? "Каманду" именно под такой "пpоэкт" и
IK> надо набиpать. Или там "колькулятоp" писать.

Ладно, уговорили ;)
Hу раз делать, то уж только HTTP сервер ;)
___________________________________________________________
>>Сессия>>Кайф>>Сессия>> , Terekhin Alexandr. E-mail: didinst [@] rol.ru




* Origin: Алт (2:5020/400)


Re: ProgressBar

Мы где-то виделись, Stanislav?

18 May 04 23:24:45 в RU.VISUAL.BASIC Stanislav Tolstov -> мне:

ST>>> 2) Hеобходимо высветить вpемя выполнения этого действия (желетельно в
ST>>> микpосекундах или миллисекундах).
DK>> GetTickCount или QueryPerformanceFrequency/QueryPerformanceCounter.
ST> А что это такое-то и как этим пользоваться?

GetTickCount:

============================== Смотри ниже ===============================
Declare Function GetTickCount Lib "kernel32" () As Long

Sub Main()
Dim StartTime As Long, EndTime As Long

StartTime = GetTickCount()

MsgBox "Срочно нажмите ОК!!!"

EndTime = GetTickCount()

MsgBox "Ваша реакция: " & (EndTime - StartTime) / 1000 & " сек. " & _
"Хм, могло быть и лучше."
End Sub
============================== Смотри выше ===============================


============================== Смотри ниже ===============================
Declare Function QueryPerformanceCounter Lib "kernel32" _
(lpPerformanceCount As Currency) As Long
Declare Function QueryPerformanceFrequency Lib "kernel32" _
(lpFrequency As Currency) As Long

Sub Main()
Dim StartTime As Currency, EndTime As Currency
Dim Freq As Currency

QueryPerformanceFrequency Freq
QueryPerformanceCounter StartTime

MsgBox "Срочно нажмите ОК!!!"

QueryPerformanceCounter EndTime

MsgBox "Ваша реакция: " & Format$((EndTime - StartTime) / Freq, "0.0000") & _
" сек. Хм, могло быть и лучше."
End Sub
============================== Смотри выше ===============================

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)


Key Press

From: "Terekhin Alexandr"

Добрых дней, приятных ночей, All!

Hужно отловить нажатие клавиш за пределами проекта
Сделал так:

Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte)
As Long
Dim KeyState(0 To 255) As Byte, KeyOnse(0 To 255) As Byte
Private Sub Timer1_Timer()
GetKeyboardState KeyState(Index)
For Key = 1 To 255
If (KeyState(Key) <> KeyOnse(Key)) And (KeyState(Key) <> 1) Then
Text1 = Text1 + vbCrLf + Str(Key) + "=" + Str(KeyState(Key))
End If
Next Key
KeyState(Index) = KeyOnse(Index)
End Sub

Работает только внутри пректа. Как быть?

______________________________________________
Я - теppоpист, и постоянно работаю с людьми.
Вот почему "тик-так" всегда со мной!
Terekhin Alexandr. E-mail: didinst [@] rol.ru


* Origin: Алт (2:5020/400)



Назад Содержание Вперед




Главная     Программы     Статьи     Разное     Форум     Контакты