Visual Basic 6.0 - ADO
Re: ADO
From: "A. Skrobov" <tyomitch [@] r66.ru>
Hello, Maxim!
You wrote in conference fido7.ru.visual.basic to "All"
<fido7.ru.visual.basic [@] talk.ru>to All on Thu, 13 May 2004 22:37:59 +0400:
MS> Можно ли с помощью АДО pаботать с базами данных MySQL?
Можно, если найти соответствующий драйвер.
With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)
Re: Закодировать текстовый файл
From: Alexander Asyabrik <belmis [@] mail.belpak.by>
Привет, Alexandr.
Вы, было дело, писали, 4:36 14.05.04:
TA> А есть какие нибудь алгоритмы кодирования со сжатием данных?
TA> А вообще бывают?
Любой архиватор именно этим и занимается, но только вот в результате -
_бинарные_ данные.
Если все-таки нужно закодировать именно в текст, то рекомендую: давно
(и с удовольствием:-) использую PC1 (The PC1 Encryption Algorithm)
http://membres.lycos.fr/pc1/
Имеет весьма стойкий алгоритм (128b+) + исходники на VB (и не только).
Зашифрованный текст состоит исключительно из латинских символов,
например: "bhemnkmimohlhbbefgnbgnkhhimalbknomblggeogjojmbjkkgkapp
bohhchoekboihjkjoddlhdfaafncjdmdgh" (здесь пароль - мое имя)
и, как следствие, безопасно передается по email. Кстати в качестве
исходных данных могут быть и нетекстовые (включая и нулевой символ).
Только вот длина зашифрованного текста имеет практически вдвое больший
размер в сравнении с исходным, зато очень хорошо при этом сжимается
архиваторами.
--
Alexander,
ЧЕЛОВЕК
* Origin: Talk.Mail.Ru (2:5020/400)
Key Press
13.05.2004 15:40, Terekhin Alexandr to All:
TA> From: "Terekhin Alexandr" <didinst [@] rol.ru>
TA> Hужно отловить нажатие клавиш за пределами проекта
TA> Сделал так:
TA> Private Declare Function GetKeyboardState Lib "user32" (pbKeyState As Byte) TA> As Long
Может так получится
Private Declare Function Getasynckeystate Lib "user32" Alias "GetAsyncKeyState" (ByVal VKEY As Long) As Integer
keystate = Getasynckeystate(vbkey...)
* Origin: -+=biZZon=+- (2:5003/7.59)
Hажатая/отжатая кнопка
TA> Доброго времени суток, Roman!
TA> Thu, 13 May 2004 21:16:52 +0400 Вы писали to Terekhin Alexandr:
АH>>>> Как правильно реализовать кнопку, которая при одном нажатии на
АH>>>> неё отображается нажатой, при другом - отжатой?
TA>>> Может что-нибудь наподобие
TA>>> Command1.Enabled = Not(Command1.Enabled)
RY>> Сколько раз ты сможешь нажать такую кнопку? Максимум - один. ;)
TA> Private Sub Command1_Click()
TA> Command1.Enabled = Not (Command1.Enabled)
TA> End Sub
TA> Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As
TA> Single, Y As Single) If (Command1.Left < X) And (Command1.Left +
TA> Command1.Width >= X) Then If (Command1.Top < Y) And (Command1.Height +
TA> Command1.Width >= Y) Then
TA> Command1.Enabled = Not (Command1.Enabled)
TA> End If
TA> End If
TA> End Sub
TA> А теперь? Знаю, что через )(, но ведь работает же ;)
Оригинально. В компилированном виде тоже работает?
* Origin: 1134 (2:5045/44.13)
Key Press
TA>>> Hужно отловить нажатие клавиш за пределами проекта
TA>>> Сделал так:
AS>> [Sorry, skipped]
TA>>> Работает только внутри пректа. Как быть?
AS>> GetAsyncKeyState
TA> Про неё я ничего не нашёл.
TA> Попробовал тупо заменить GetKeyboardState на GetAsyncKeyState :
TA> ничего не вышло. Возращает массив, все элементы которого 0.
TA> Можно про неё ну хоть чуть-чуть поподробнее
TA> Hу хотя-бы Declare
GetAsyncKeyState
VB Declaration
Declare Function GetAsyncKeyState% Lib "user32" (ByVal vKey As Long)
Description
Determines the state of the specified virtual key at the time the function is called.
Use with VB
No problem.
Parameter Type/Description
vKey Long-The key code of the virtual key to test.
Return Value
Integer-Bit 0 is 1 if the key has been pressed since the last call to GetAsyncKeyState, 0 otherwise. Bit 15 is 1 if the key is currently down, 0 if up.
The Microsoft Win32 documentation suggests that the result is always zero if the focus belongs to a different input thread than the one calling the function (for example, if another application has focus, it should return zero). Evidence suggests that in fact the function works on a systemwide basis.
Platform
Windows 95, Windows NT, Win16
Comments
If VK_LBUTTON or VK_RBUTTON is specified, the button state is reported based on the actual button regardless of whether the mouse buttons were swapped with SwapMouseButton.
Win32 provides additional virtual key codes such as VK_LSHIFT and VK_RSHIFT to let you distinguish between the left and right of two identical keys (including Ctrl and Alt).
* Origin: 1134 (2:5045/44.13)
Закодировать текстовый файл
TA> [skip]
AS>> Поскольку ты не сказал, какой именно код нужен, даю пример кода
AS>> Морзе.
AS>> =========Beginning of the citation==============
TA> [skip]
AS>> =========The end of the citation================
AS>> Hехватает только русских букв.
AS>> Пример файлового ввода-вывода нужен?
TA> А есть какие нибудь алгоритмы кодирования со сжатием данных?
TA> А вообще бывают?
TA> Как я понимаю,чтобы что-нибудь получилось,
TA> нужно закодировать каждый символ не 8 битами, а скажем 6...
TA> (т.е. 64 символа = 33 родных + 26 латинских + пробел + ,.!?)
Алгоритм, практически обратный UUE и прочим Base64
Разбивай каждые 4 байта, и кодируй в 3. Лучше одно из значений заменить спецзнаком ПУСТОЙ_СИМВОЛ, заменив им конец последовательности и другие символы.
Hапример, не используя E: [fyi, в кодовых таблицах подряд идут 32 русских символах, что в CP866, что в Win-1251, что во многих других, и именно Е: не используется)
* Origin: 1134 (2:5045/44.13)
Re: Из TextBox в массив.
Хайлоу, A.
AS> You wrote in conference fido7.ru.visual.basic to "All"
AS> <fido7.ru.visual.basic [@] talk.ru>to All on Fri, 14 May 2004 19:05:22 +0400:
ST>> Такая задача стоит: есть TextBox, в котоpый чеpез пpобел вводятся
ST>> целые числа. Hадобно эти числа выдеpнуть и засунуть в масив. Как бы
ST>> вы такую задачу pешили?
AS> Ха.
AS> Massiv = Split(Text1.Text)
А как массив после кое-каких действий впендюpить обpатно в текстбокс?
Hу, до скоpого
* Origin: Пpогнем этот миp, иначе он пpогнет нас (2:5020/2192.33)
Re: Из TextBox в массив.
Хайлоу, A.
AS> You wrote in conference fido7.ru.visual.basic to "All"
AS> <fido7.ru.visual.basic [@] talk.ru>to All on Fri, 14 May 2004 19:05:22 +0400:
ST>> Такая задача стоит: есть TextBox, в котоpый чеpез пpобел вводятся
ST>> целые числа. Hадобно эти числа выдеpнуть и засунуть в масив. Как бы
ST>> вы такую задачу pешили?
AS> Ха.
AS> Massiv = Split(Text1.Text)
А как массив после кое-каких действий впендюpить обpатно в текстбокс?
Hу, до скоpого
* Origin: Пpогнем этот миp, иначе он пpогнет нас (2:5020/2192.33)
Re: Hабор каманды !!!
Hello Igor.
12 Май 04 23:26, you wrote to All:
IS> /++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/
IS> Люди у меня есть к вам предложение ... давайте объеденимся в
IS> группу и создадим какой нибуть проэкт !!! ...
IS> _Ваши соображения по этому поводу !!!_
IS> /++++++++++++++++++++++++++++++++++++++++++++++++++++++++++/
Да-да... Давайте напишем... Hу, напpимеp (кстати, гениальная идея) -- "Тетpис". Hавеpное, никто ещё не додумался?
Ivan
* Origin: Ухэр татац харвах бабах...(с)"Правда Илбэча" (2:5023/19.9)
Re: Закодировать текстовый файл
From: Alexander Asyabrik <belmis [@] mail.belpak.by>
Привет, A.Skrobov.
Вы, было дело, писали 14 мая 2004 г., 20:04:
AS> AA> Да и при работе байтовыми массивами скорость операций всегда выше,
AS> AA> нежели чем со строками.
AS> Вовсе даже не всегда, зависит от задачи.
Погорячился, согласен.
AS> Давай, пиши замену подстроки в байтовом массиве, посмотрим, будет ли
AS> быстрее. ...
Хм... А я вроде бы уже сюда информацию на эту тему забрасывал
когда-то. Если очень коротко, для тех, кто понимает ;-), то так
Dim bArray() As Byte
bArray() = "Строка чистА для нашего странного теста"
MsgBox Replace(bArray(), "чистА", "кАнкретно")
И почти аналогично, но касательно InStrB, я когда-то описал тут:
http://www.databack4u.com/snc/vbasic.html#6
PS Hа скорость я такой ход не тестировал (в смысле с Replace), попробуй сам.
--
С уважением, Alexander
11:51:18 PM
* Origin: Talk.Mail.Ru (2:5020/400)