Visual Basic 6 - [3] :: Прикладное программирование :: Компьютерный форум Ru.Board

Перейти из форума на сайт.

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Visual Basic 6

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 1 2 3 4 5 6 7 8 9

Открыть новую тему

Написать ответ в эту тему

Juice23

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Помогите с проблемой. Всю справку перерыл, но так и не нашел. Как строку текста разделить? Допустим имеется строка "абвгд123", надо сделать три "абвгд", "1", "2", "3".

Всего записей: 19 | Зарегистр. 14-09-2005 | Отправлено: 22:06 08-10-2005

dneprcomp Silver Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Смотри функции для работы со стрингами Instr, Left, Right, Mid
	Всего записей: 3920 \| Зарегистр. 31-03-2002 \| Отправлено: 22:30 08-10-2005

wjuri

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Давным давно играл такую игру, называется "Балда", кто не знает,
вот тут: http://ware.aktobe.kz/games/Balda.zip .
Смысл в том, что в поле есть слово. К этому слову надо подставлять буквы, чтобы получить другое слово. Чем больше букв в слове, тем больше очков......
Кстати очень интересно. Игра работает под DOS .
как можно реализовать эту игру под VB6?
у меня нехватает воображения, как составить логоритм опознания слов.
Все слова находятся в текстовом файле.
У кого есть интерес помочь?

Всего записей: 2 | Зарегистр. 14-10-2005 | Отправлено: 19:23 14-10-2005

AlexisADMIN Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Подскажите пожалуйста гд можно скачать Visual Basic 6.0 нужно срочно! Заранее благодарю!
	Всего записей: 17 \| Зарегистр. 10-11-2005 \| Отправлено: 12:06 30-11-2005

Rush Уже за тридцать...	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору AlexisADMIN http://forum.ru-board.com/topic.cgi?forum=35&topic=3618&start=100#lt
	Всего записей: 3551 \| Зарегистр. 20-11-2003 \| Отправлено: 13:23 30-11-2005

AlexisADMIN Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Rush Огромное спасибо!
	Всего записей: 17 \| Зарегистр. 10-11-2005 \| Отправлено: 08:12 05-12-2005

UriF

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

wjuri
открывашь .txt как output (может input - не помню - главное прочесть)
Далее читаешь каждую строку и используешь Enter (vbCrLF) или пробел, как delimeter и загоняешь в массив (array). Далее стандартный Quick Sort и поиск Bynary Search. Если файл очень большой, то для чтения используй прием "mapping file" - чтение файла по кускам по offset от первого байта, т.е. считываешь n-е количество байтов во времнную память (объем куска зависит от RAM компьютера, я брал ~16 Kb) - kernel.dll APIs. Если интересует, пиши в ПМ и дай e-mail - вышлю file mapping sample
Поиск - если латинница, то и ASCII сойдет, если же кириллица, то с Unicode у VB6 проблемы (со знаками -, _ и т.д.. -function StrComp выдает ерунду) , надо проверить как работают string functions и, возможно, придется поискать API или сверять слово по байтам (каждый character в String Variable - это 2 байта 1-й байт - ASCII Code, второй - 0 ( Chr(0)) - это будет по-медленнее, чем встроенные VB String functions, но если есть желание - этот кусок можешь написать на C (моему боссу и такой поиск за глаза хватил)

Добавлено:
Juice23
по-моему, такой встроенной функции нет
поиграйся с Mid, Left, Right, Instr, InstrRev и Replace
Если есть желание возиться с Regular Expressions, то создай Object типа (не помню сейчас) который работает с VB SCript (возможно, не сможешь запихнуть в references из-за compatibility problems)

Всего записей: 816 | Зарегистр. 14-06-2004 | Отправлено: 06:40 13-12-2005

Nastic Newbie	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Можно ли как-то в васике организовать список? и вобще можно ли создать переменную типа указатель?
	Всего записей: 16 \| Зарегистр. 27-07-2005 \| Отправлено: 12:44 10-02-2006

Memfivosfey Member	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору при помощи массива или объекта ListBox. Переменной типа указатель в Басике создать низя, объясни идею, шо нуна???
	Всего записей: 352 \| Зарегистр. 11-02-2005 \| Отправлено: 17:49 10-02-2006

chaugi

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Помогите пожалуйста. Есть форма и на ней 36 кнопок с именами Button1, Button2...

Как правильно задать условия цыкла, чтобы каждой кнопке начиная с Button1 и заканчивая Button20 был присвоен например текст "hello".

Читал help, но так и не разобрался с этими коллекциями, слишком там заумно. Просто частенько нужно обработать большое колличество элементов формы, а как это сделать группой не знаю.

Помогите советом. Спасибо.

Всего записей: 321 | Зарегистр. 16-03-2002 | Отправлено: 09:39 22-02-2006

Водник Водкин

Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

chaugi
Вообще правильнее было создать массив кнопок, у которых разом хочется название менять, т.е. Button1(0), Button1(1) и т.д. Тогда было бы легче переьирать необходимые.

Если хочешь надпись на всех кнопках формы разом менять, то используй такой код
Код:

Dim anyControl As Control

For Each anyControl In frmMain.Controls
If (TypeOf anyControl Is CommandButton) Then
anyControl.Caption = "hello"
End If
Next

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

Dim anyControl As Control
Dim strName As String
Dim strNum As String

For Each anyControl In frmMain.Controls
strName = Mid(anyControl.Name, 1, 6)
strNum = Val(Mid(anyControl.Name, 7, 2))

If strName = "Button" And (strNum >= 1 And strNum <= 20) Then
anyControl.Caption = "hello"
End If
Next

Разумеется к этому коду можно прикрутить и проверку на тип элемента управления (если на форме не только элементы CommandButton имеют имя вида "Button...").

Хотя на счет массива элементов все-таки подумай.

----------
Мы в хорошем настроении гуляем по лесам.
Кто обидеть нас захочет – сам получит по усам.
Сам полу- получит по усам. Сам полу- получит по усам!

Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 14:30 22-02-2006

Memfivosfey

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Зачем такие сложные структуры, это же Вижуал...

)

У каждой кнопки есть свойство: index
установи каждой
кнопке своё значение: от 1-20

Dim I as integer

For I=1 To 20
if I= 1 then form1.button.caption(I)="НАЗВАНИЕ1"
if I= 2 then form1.button.caption(I)="НАЗВАНИЕ2"
Next I

Всего записей: 352 | Зарегистр. 11-02-2005 | Отправлено: 17:51 22-02-2006

chaugi

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Memfivosfey
И тебе спасибо.
Troitsky
А можно насчёт масива элементов можно подробнее немножко, step-by-step, я только рад узнать что-то новое.
Как создать масив кнопок и т.д.

Спасибо.

Всего записей: 321 | Зарегистр. 16-03-2002 | Отправлено: 20:12 22-02-2006

Водник Водкин

Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору

chaugi
Может быть замечал, что у элементов управления есть свойство Index? Вот оно и являет собой порядковый номер элемента в массиве элементов.
Цитата из справки
Пример оттуда же

----------
Мы в хорошем настроении гуляем по лесам.
Кто обидеть нас захочет – сам получит по усам.
Сам полу- получит по усам. Сам полу- получит по усам!

Всего записей: 795 | Зарегистр. 13-12-2003 | Отправлено: 21:00 22-02-2006 | Исправлено: Troitsky, 21:05 22-02-2006

Memfivosfey

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Дружище, есть обалденный форум именно по этому поводу и для твоих целей просто cool!

vbstreets.ru

или пиши мне на мыло, я преподаю VB. angy_de_Arm^mail.ru
дык, значёк ^ в мыле поменяй на собаку...

Всего записей: 352 | Зарегистр. 11-02-2005 | Отправлено: 17:35 23-02-2006

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Подскажите, как можно реализовать такую простую задумку в VB.
Я хочу, чтобы в Excel если я ввожу какое-либо (любое) значение в ячейку А1, то у меня должны очищаться ячейки A2 и A3, если я ввожу какое-либо (любое) значение в ячейку А2, то у меня должны очищаться ячейки A1 и A3, и если я ввожу какое-либо (любое) значение в ячейку А3, то у меня должны очищаться ячейки A1 и A2. Вроде все просто, но не могу сразу понять как это сделать. Помогите, plz!

P.S. И может кто подскажет, где скачать справку к VB на РУССКОМ языке?

Всего записей: 141 | Зарегистр. 24-02-2003 | Отправлено: 13:23 21-04-2006 | Исправлено: ScorpionS, 13:24 21-04-2006

Krav4yk Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Пожалуйста, хоть кто-нибудь, дайте Product Number и User ID, или хоть скиньте ссылочку на кряк, ато никак немогу установить Visual Basic 6.0 Professional Edition
	Всего записей: 244 \| Зарегистр. 07-06-2005 \| Отправлено: 21:18 05-05-2006

Rush Уже за тридцать...	Редактировать \| Профиль \| Сообщение \| Цитировать \| Сообщить модератору Krav4yk Твой вопрос к программированию никаким боком не идет. Варез ищут в Варезнике - http://forum.ru-board.com/topic.cgi?forum=35&topic=3618
	Всего записей: 3551 \| Зарегистр. 20-11-2003 \| Отправлено: 12:39 06-05-2006

Vanya8

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Создаю TextBox в коде на форме
Нужно сделать его мультилинейным
НА MultiLine = True ругается:
Compile error:
Can't assign to read-only property
Как можно изменить это свойство или задать его при создании?

Всего записей: 29 | Зарегистр. 24-06-2004 | Отправлено: 11:21 28-05-2006

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

Помогите пожалуйста.

нужно чтоб открылся браузер (например Internet Explorer) и в нём нужная страничка с сайта в Интернете?

нашёл такое решение

Call Shell("C:\Program Files\Internet Explorer\iexplore www.google.com", vbNormalFocus)

но что если Internet Explorer находится не здесь "C:\Program Files\Internet Explorer" ???

Всего записей: 62 | Зарегистр. 05-01-2005 | Отправлено: 14:27 28-05-2006 | Исправлено: Joseph007, 16:03 28-05-2006

Открыть новую тему

Написать ответ в эту тему

Страницы: 1 2 3 4 5 6 7 8 9

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Visual Basic 6

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC