Обсуждение программирования на 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) |