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

RFpro.ru: Программирование на Basic / VBA

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.823 RSS
←   Апрель 2005   →
 1
01.04.2005
14:51:59
21:56:52
 2
 3
 4
 5
 6
 7
 8
 9
09.04.2005
01:28:40
23:48:48
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30


За последние 60 дней ни разу не выходила


Сайт рассылки: http://prog.rusfaq.ru/basic
Открыта: 14-03-2002

Автор
Калашников О.А.

Статистика

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

RusFAQ.ru: Программирование на Basic / VBA


Информационный Канал Subscribe.Ru
РАССЫЛКИ ПОРТАЛА RUSFAQ.RU

/ КОМПЬЮТЕРЫ И ПО / Языки программирования / Basic/VBA

Выпуск № 43
от 07.04.2005, 22:50

Администратор:Калашников О.А.
В номере:Вопросов: 5, Ответов: 11

Вопрос № 19088: уважаемый эксперт не могли бы вы подсказать как можно сохранить а потом считать данные например значения переменных для сохранения сделанной игры например ,можно ли так сделать с помощью реестра ??если да то как????????...
Вопрос № 19089: уважаемые эксперты подскажите пожалуйста как преобразовать строквую пременную в интегер проверив перед этим то что в строковой переменной содержатся только числа????...
Вопрос № 19111: кто нибудь знает почему VB6 поставленный на WindowsXP при нажатии на кнопку run > просто исчезает ,вырубаеться я пробовал переустонавливать он всё равно также логает и кто может знает (или я совсем ломак) но как стать Экспертом в RUSFAQ?????...
Вопрос № 19128: Доброго времени суток, Уважаемые эксперты!!!!!!!!!!!!!!!!!!!!!!! Такой вопрос: как можно программно в Exel изменять свойства ячейки - конкретно интересует изменение размеров ячеек, обединение ячеек. Спасибо....
Вопрос № 19134: Здарвствуйте уважаемые эксперты. Помогите пожулайста решить возникший вопрос. Суть его заключается в том чтобы на VBA6.0 сделать форму в виде сердечка... для девушки небольшой сюрприз. Буду благодарен за любую оказанную помощь в решении этого вопроса...

Вопрос № 19088
уважаемый эксперт не могли бы вы подсказать как можно сохранить а потом считать данные например значения переменных для сохранения сделанной игры например ,можно ли так сделать с помощью реестра ??если да то как????????
Отправлен: 01.04.2005, 23:48
Вопрос задал: Zheka (статус: Посетитель)
Всего ответов отправлено: 2
Отвечает: ale2k
Здравствуйте, Zheka!
Если записать в файл то воспользуйся
OPEN "YourFile" for output as #1
print #1, "Setting1"
print #1, "Setting2"
................................
close #1
считать файл
OPEN "YourFile" for input as #1
Line input #1, VAR1 'var - твои переменные
line input #1, VAR2
...............................
close #1
для добавления в файл
OPEN "YourFile" for append as #1
print #1, "Setting26"
print #1, "Setting27"
................................
close #1
Если записать/считать в реестре, можно воспользоваться встроеной функией SaveSetting, GetSetting. Хоть возможности у них ограничены, пользоваться ими иногда удобно
SaveSetting "Моя прога", "Параметры моей проги", "Параметр 1", "значение"
MySet = GetSetting("Моя прога", "Параметры моей проги", "Параметр 1",vbnullstring)
Если нужно считать много параметров одновременно:
Dim intS As Integer
MySet = GetAllSettings("Моя прога", "Параметры моей проги")
For intS = LBound(MySet, 1) To UBound(MySet, 1)
Print MySet(intS, 0), MySet(intS, 1)
Next intS
Ответ отправил: ale2k (статус: 2-ой класс)
Отправлен: 02.04.2005, 01:52
Отвечает: DSota
Здравствуйте, Zheka!
С помощью реестра даже легче:

Приложение:

Ответ отправил: DSota (статус: Студент)
Отправлен: 04.04.2005, 10:09

Вопрос № 19089
уважаемые эксперты подскажите пожалуйста как преобразовать строквую пременную в интегер проверив перед этим то что в строковой переменной содержатся только числа????
Отправлен: 01.04.2005, 23:51
Вопрос задал: Zheka (статус: Посетитель)
Всего ответов отправлено: 3
Отвечает: ale2k
Здравствуйте, Zheka!
Ну к примеру можно так, хотя может быть есть вариант и полегче
Dim n as integer
Dim a As String
Dim OD As Boolean
a = "aaa1234666556789"
OD = True
For n = 1 To Len(a) - 1
If Not (Mid(a, n, 1) Like "#") Then OD = False
Next n
label1.caption=OD 'если только цифры то TRUE если не только то FAlSE
а далее пользуйся функцией VAL()
Ответ отправил: ale2k (статус: 2-ой класс)
Отправлен: 02.04.2005, 01:33
Отвечает: _Виталий
Здравствуйте, Zheka!
Dim lcTst As String
Dim lnOut As Integer
lcTst = "343"
If IsNumeric(lcTst) Then
'только цифры
lnOut = CInt(lcTst)
MsgBox lnOut
Else
MsgBox "Не только цифры"
End If
Ответ отправил: _Виталий (статус: 2-ой класс)
Отправлен: 02.04.2005, 10:31
Отвечает: DSota
Здравствуйте, Zheka!
В примере можно вставлять пробелы:

Приложение:

Ответ отправил: DSota (статус: Студент)
Отправлен: 04.04.2005, 10:02

Вопрос № 19111
кто нибудь знает почему VB6 поставленный на WindowsXP при нажатии на кнопку run > просто исчезает ,вырубаеться я пробовал переустонавливать он всё равно также логает и кто может знает (или я совсем ломак) но как стать Экспертом в RUSFAQ?????
Отправлен: 02.04.2005, 13:10
Вопрос задал: Zheka (статус: Посетитель)
Всего ответов отправлено: 1
Отвечает: ale2k
Здравствуйте, Zheka!
VB6 у меня стоял и на ХР, и на Ме, и на 2000, и на 98. Может быть глючная версия васика. Просто не знаю. А МАКЕ работет?
А експертом стать просто.
Зайди наглавную, список рассылок, выбери тему и поставь галочку напротив читатель или эксперт!
Ответ отправил: ale2k (статус: 2-ой класс)
Отправлен: 02.04.2005, 13:42

Вопрос № 19128
Доброго времени суток, Уважаемые эксперты!!!!!!!!!!!!!!!!!!!!!!!
Такой вопрос: как можно программно в Exel изменять свойства ячейки - конкретно интересует изменение размеров ячеек, обединение ячеек.
Спасибо.
Отправлен: 02.04.2005, 20:25
Вопрос задал: Korolyov Alexandr (статус: Посетитель)
Всего ответов отправлено: 1
Отвечает: DSota
Здравствуйте, Korolyov Alexandr!
Все эти вопросы легко решить так (начиная с 2000 офиса) - просто выбираешь в меню - начать запись макроса (Alt-F8), делаешь свои действия, потом выбираешь остановить запись - и в окне вижуал бейсика (Alt-F11) смотришь текст своих действий на бейсике...

Приложение:

Ответ отправил: DSota (статус: Студент)
Отправлен: 04.04.2005, 09:56

Вопрос № 19134
Здарвствуйте уважаемые эксперты. Помогите пожулайста решить возникший вопрос. Суть его заключается в том чтобы на VBA6.0 сделать форму в виде сердечка... для девушки небольшой сюрприз. Буду благодарен за любую оказанную помощь в решении этого вопроса.
Отправлен: 02.04.2005, 21:34
Вопрос задал: Zdobnin_Pavel (статус: Посетитель)
Всего ответов отправлено: 4
Отвечает: PavPS
Здравствуйте, Zdobnin_Pavel!
Если нужен пример ввиде проги, пиши мне на почту PavPS@List.ru - вышлю (но там не в форме сердечка...).
Ответ отправил: PavPS (статус: 7-ой класс)
Отправлен: 02.04.2005, 22:18
Оценка за ответ: 3
Комментарий оценки:
Здравствуйте, PavPS! Спасибо за понимание.
Ответ уже есть.
Отвечает: rusfaq.ru
Здравствуйте, Zdobnin_Pavel!
Есть примерчик на http://mastershome.net.ru/vbfaq/d10.htm, http://www.vbland.net/modules.php?name=News&file=print&sid=16
Ну и можешь попробовать программку Scanner http://vbscanner.narod.ru

Приложение:

Ответ отправил: rusfaq.ru (статус: 3-ий класс)
Отправлен: 03.04.2005, 12:56
Отвечает: ale2k
Здравствуйте, Zdobnin_Pavel!
Примитивное сердечко из формы я сделал так.
Можно делать без файла (но мне для оаытов было удобно так).
Структура файла: первое число - кол-во точек в полигоне. Далее в столбик поочередно чередуются Х, У координаты каждой точки полигона, например
8
0
20
20
0
25
20
30
0
50
20
50
50
25
100
0
50
Увеличив кол-во точек добъешся плавности переходов. Можно задать функцию расчета точек (этого я не знаю! у по высшей математике 3).
УДАЧИ

Приложение:

Ответ отправил: ale2k (статус: 2-ой класс)
Отправлен: 03.04.2005, 13:15
Оценка за ответ: 5
Комментарий оценки:
Здравствуйте, ale2k. Все вмеру просто
и оригинально. Идея воплотиться в реальность
благодаря вам и всем экспертам которые помогли мне с решением этого вопроса. Спасибо.
Отвечает: Licvidator
Здравствуйте, Zdobnin_Pavel!
Копать в сторону CreatePolygonRgn, пример есть на http://www.vbnet.ru/faq/showtopic.asp?id=239.
PS у меня пример заработал только после того, как я заменил Rgn = CreatePolygonRgn(P(0), 428, 0) на Rgn = CreatePolygonRgn(P(0), 428, 1).
Ответ отправил: Licvidator (статус: Профессор)
Отправлен: 03.04.2005, 13:15
Оценка за ответ: 5
Комментарий оценки:
Здравствуйте, Licvidator! Благодарен за оказанную помощь. Спасибо.

Отправить вопрос экспертам этой рассылки

Приложение (если необходимо):

* Код программы, выдержки из закона и т.п. дополнение к вопросу.
Эта информация будет отображена в аналогичном окне как есть.

Обратите внимание!
Вопрос будет отправлен всем экспертам данной рассылки!
Для того, чтобы отправить вопрос выбранным экспертам этой рассылки или
экспертам другой рассылки портала RusFAQ.ru, зайдите непосредственно на RusFAQ.ru.


Форма НЕ работает в почтовых программах The BAT! и MS Outlook (кроме версии 2003+)!
Чтобы отправить вопрос, откройте это письмо в браузере или зайдите на сайт RusFAQ.ru.

© 2001-2005, RusFAQ.ru, Россия, Москва. Все права защищены.
Идея, дизайн, программирование, авторское право: Калашников О.А.

http://subscribe.ru/
http://subscribe.ru/feedback/		 Подписан адрес:
Код этой рассылки: comp.soft.prog.basicvba		 Отписаться
В избранное