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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.824 RSS
←   Апрель 2016   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
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.824 подписчиков
0 за неделю
←   Все выпуски   →

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


РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты по данной тематике

Асмик Гаряка
Статус: Советник
Рейтинг: 118
∙ повысить рейтинг » 		Megaloman
Статус: Академик
Рейтинг: 81
∙ повысить рейтинг » 		PsySex
Статус: Профессионал
Рейтинг: 52
∙ повысить рейтинг »

/ КОМПЬЮТЕРЫ И СОФТ / Программирование / Basic/VBA

Номер выпуска:1107
Дата выхода:02.04.2016, 16:21
Администратор рассылки:Андреенков Владимир (Профессор)
Подписчиков / экспертов:13 / 9
Вопросов / ответов:3 / 7

Консультация # 146128: Здравствуйте!!! В двумерном массиве вещественных чисел вычислите сумму всех элементов равных последнему элементу массива!!! начало вроде такое должно быть CLS Input "введите число строк"; N input "введите число столбцов"; M dim A( N, M) for i=1 to N for i=1 to M Консультация # 34475: Добрый день всем! Суть вопроса такова: на форме вносится информация об абитуриентах в БД Access. Для внесения информации о серии и № паспорта: нового образца (00 00 000000) - заполняется в MaskEdBox1 маска ввода – “## ## ######”, а данные старого образца, где есть буквы или паспорта из СНГ , вносятся в TextBox1. Здесь вопросов нет. При про...
Консультация # 109654: Здравствуйте, господа эксперты! Подскажите плиз, как открыть внешнюю ссылку в броузере по умолчанию из макроса в Excell? К примеру http://rusfaq.ru...

Консультация # 146128:

Здравствуйте!!! В двумерном массиве вещественных чисел вычислите сумму всех элементов равных последнему элементу массива!!!

начало вроде такое должно быть
CLS
Input "введите число строк"; N
input "введите число столбцов"; M
dim A( N, M)
for i=1 to N
for i=1 to M
smile smile smile

Дата отправки: 05.10.2008, 19:50
Вопрос задал: Андреев Павел Александрович
Всего ответов: 1
Страница онлайн-консультации »

Консультирует Савчук Иван Иванович:

Здравствуйте, Андреев Павел Александрович!

CLS
Input "введите число строк"; N
input "введите число столбцов"; M
dim A( N, M)
dim s as single
for i=1 to N
for j=1 to M 'i исправил на j
input a(i,j) ' в случае ручного ввода
next j
next i
for i=1 to n
for j=1 to m
if a(i,j)=a(n,m) then s=s+a(i,j)
next j
next i
print "Сумма элементов ", s

Консультировал: Савчук Иван Иванович
Дата отправки: 06.10.2008, 05:01
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 34475:

Добрый день всем!
Суть вопроса такова: на форме вносится информация об абитуриентах в БД Access. Для внесения информации о серии и № паспорта: нового образца (00 00 000000) - заполняется в MaskEdBox1 маска ввода – “## ## ######”, а данные старого образца, где есть буквы или паспорта из СНГ , вносятся в TextBox1. Здесь вопросов нет.
При просмотре записей БД
--------
Text1.Visible=False ( т.к. паспорта старого образца – очень редко)
MaskEdBox1.Visible=True
--------
Нельзя ли написать код как-нибудь так (при просмотре):
--------
Private Data1_Reposition()\' (или в другом месте)
If "№паспорта" имеет кроме цифр и буквы Then
TextBox1.Visible=True
MaskEdBox1.Visible=False
Else
…наоборот…
End If
End Sub
---------
Программа написана на VB6
Б/Д - Access
Подскажите, pse.
С уважением
Анатолий

Дата отправки: 31.01.2006, 10:41
Вопрос задал: Робатько Анатолий Васильевич
Всего ответов: 3
Страница онлайн-консультации »

Консультирует DrakoN:

Здравствуйте, Робатько Анатолий Васильевич!
Сделайте проще например так, добавьте поле типа boolean в таблицу..
Затем при вводе данных
If TextBox1.Text = "" tnen
Bool = false Else Bool = True
End if

И потом при выводе..
If Data1.Recordset.Field(i) = True Then ... помойму так ...с синтаксисом обращения мог напутать давно не пользовался етим делом.
Удачи!

Консультировал: DrakoN
Дата отправки: 31.01.2006, 11:28
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует EPsilonDSota:

Здравствуйте, Робатько Анатолий Васильевич!

IF ISNUMERIC(<НАЗВАНИЕ ТВОЕЙ ПЕРЕМЕННОЙ С НОМЕРОМ ПАСПОРТА>)THEN
TEXTBOX1.VISIBLE=FALSE
..
ELSE
..
ENDIF

Консультировал: EPsilonDSota
Дата отправки: 31.01.2006, 12:51
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Залетин Виталий Викторович:

Здравствуйте, Робатько Анатолий Васильевич!
Используйте функцию Isnumeric(var) - она вернет True, если там только цифры, т. е. из него можно сделать число, и False - если число сделать нельзя, т. е. там есть буквы.

Консультировал: Залетин Виталий Викторович
Дата отправки: 04.02.2006, 14:23
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультация # 109654:

Здравствуйте, господа эксперты!
Подскажите плиз, как открыть внешнюю ссылку в броузере по умолчанию из макроса в Excell? К примеру http://rusfaq.ru

Дата отправки: 16.11.2007, 09:22
Вопрос задал: Maximus777
Всего ответов: 3
Страница онлайн-консультации »

Консультирует HookEst:

Здравствуйте, Maximus777!
Вариант с использование Shell.Application.
Причем функция RunFile меня никогда не подводила, запускает и ярлыки и ссылки, работает с длиными именами, не требует экранирования спец.символов, как например функция Basic-а Shell.
Успехов.

Sub t()
RunFile "http://ya.ru"
RunFile "http://rusfaq.ru"
End Sub

Public Function RunFile(ByVal file As String)
Dim oShell
Dim oFile
Dim oNF

On Error GoTo RunFile_Error:
Set oShell = CreateObject("Shell.Application")
Set oNF = oShell.namespace(0)
Set oFile = oNF.parsename(file)
oFile.invokeverb

RunFile_Exit:
Set oShell = Nothing
Set oNF = Nothing
Set oFile = Nothing
Exit Function

RunFile_Error:
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure RunFile of Module Module1"
Resume RunFile_Exit
End Function

Консультировал: HookEst
Дата отправки: 16.11.2007, 09:35
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Архипов Александр Леонидович:

Здравствуйте, Maximus777!
У меня 2003, просто навожу и один раз кликаю - запускается броузер по умолчанию и открывается страница, если надо войти в ячейку, то надо удерживать кнопку мыши. Если же надо открыть документ (например, Excel), то можно написать функцию (см. прилож.)

Приложение:

Консультировал: Архипов Александр Леонидович
Дата отправки: 16.11.2007, 10:30
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Консультирует Тесленко Евгений Алексеевич:

Здравствуйте, Maximus777!
Shell - легко использовать и она не громоздка, я думаю она заслуживает внимания.
Евгений.

Приложение:

Консультировал: Тесленко Евгений Алексеевич
Дата отправки: 16.11.2007, 18:51
Рейтинг ответа:

НЕ одобряю 0 одобряю!

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!
В избранное