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

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

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 1.822 RSS
←   Январь 2013   →
 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
31


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


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

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

Статистика

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

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


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

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

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

Асмик Гаряка
Статус: Советник
Рейтинг: 11045
∙ повысить рейтинг » 		Роман Селиверстов
Статус: Советник
Рейтинг: 5448
∙ повысить рейтинг » 		Гуревич Александр Львович
Статус: Профессионал
Рейтинг: 4424
∙ повысить рейтинг »

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

Номер выпуска:1083
Дата выхода:09.01.2013, 12:30
Администратор рассылки:Андреенков Владимир (Профессор)
Подписчиков / экспертов:84 / 45
Вопросов / ответов:3 / 9

Консультация # 183300: Здравствуйте, уважаемые эксперты! Прошу вас помочь составить программу: Дана последовательность целых чисел, определить, есть ли в этой последовательности простые, не повторяющие числа...

Консультация # 70729: Здраствуйте, эксперты. Я учусь программировать на VB6. Но все написанные мною программки не работают на других ПК, я слышал, что VB6 может создавать установочные файлы, в которых и будут содержаться все необходимые библиотеки. Вопрос таков - как это сделать? ...
Консультация # 33457: 1. Поделитесь кто-нибуть электронным справочником по VBA. Мыло grnras@ukr.net. 2. Есть поле Edit1 и переменная x. Если в поле Edit1 что-то записано, то x нужно присвоить то, что запаисано в поле. Если Edit1 пусто, то x=\' \' (пробел) ..

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

Здравствуйте, уважаемые эксперты! Прошу вас помочь составить программу:

Дана последовательность целых чисел, определить, есть ли в этой последовательности простые, не повторяющие числа

Дата отправки: 23.05.2011, 21:20
Вопрос задал: Алина Биджиева
Всего ответов: 1
Страница онлайн-консультации »

Консультирует lamed (Академик):

Здравствуйте, Алина Биджиева!

Код :
Rem Дана последовательность целых чисел, определить,
Rem есть ли в этой последовательности простые числа

Sub main()
Dim i As Integer, k As Integer, n As Integer, x As Integer
Dim found As Boolean
Dim isPrime As Boolean
    
    found = False
    n = InputBox("Количество чисел")
    i = 1
    Do While (i <= n) And Not (found)
        x = InputBox("Введите число")
        k = 2
        isPrime = True
        Do While (k * k <= x) And isPrime
            If x Mod k = 0 Then
                isPrime = False
            Else
                k = k + 1
            End If
        Loop
        
        If isPrime Then
            found = True
        Else
            i = i + 1
        End If
    Loop
    
    If found Then
        MsgBox ("Есть")
    Else
        MsgBox ("Нет")
    End If
End Sub

Консультировал: lamed (Академик)
Дата отправки: 23.05.2011, 22:11
Рейтинг ответа:

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

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

Здраствуйте, эксперты.

Я учусь программировать на VB6. Но все написанные мною программки не работают на других ПК, я слышал, что VB6 может создавать установочные файлы, в которых и будут содержаться все необходимые библиотеки. Вопрос таков - как это сделать?

Дата отправки: 13.01.2007, 10:43
Вопрос задал: Alxx
Всего ответов: 3
Страница онлайн-консультации »

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

Здравствуйте, Alxx!

При установке VB 6.0 как отдельно, так и в составе Microsoft Visual Studio, устанавливается и Package & Deployment Wizard, отвечающий за создание установочного дистрибутива. Найти его просто: "Пуск" - "Программы" - "Microsoft Visual Basic 6.0 Tools" - "Package & Deployment Wizard" (это для отдельной версии). Если установлена Microsoft Visual Studio, искать следует в "Пуск" - "Программы" - "Microsoft Visual Studio". Запускайте его, нажимайте самую верхнюю кнопку и следуйте указаниям мастера. Добавлю также, что установочный дистрибутив можно создать и с помощью многих других сторонних программ: Inno Setup, Create Install и пр.

Консультировал: VLK
Дата отправки: 13.01.2007, 14:06
Рейтинг ответа:

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

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

Здравствуйте, Alxx!
Package And Deployment Wizard - это та программка из стандартной поставки VB, которая делает инсталляционные пакеты. Она находится в Пуск-Программы-Microsoft Visual Basic-Tools-Package And Deployment Wizard (по крайней мере, у меня так).
Теперь о грустном: размер инсталляционного пакета, созданного им, легко может превысить 2 МБ. Так что, я ним практически не пользуюсь.

Лучший способ заставить работать программу на ином компьютере - скопировать на него все нужные программе файлы. Обычно это ограничивается файлом MSVBVM60.DLL и файликами, которые вы явно подключали к проекту через Project-References. Хотя проблема с MSVBVM60.DLL (по моим наблюдениям) снята начиная с Windows Me - там он поставляется в составе операционной системы. А вот остальные файлы прийдется копировать и регистрировать самостоятельно. Идеально для этого подходят пакеты сторонних поизводителей (Inno Setup и т. д.).

Есть в сети и написанный на бейсике инсталлятор:
http://www.sources.ru/vb/project_installer.zip
Очень познавательная вещица.

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

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

Консультирует Филатов Евгений Геннадьевич (Профессионал):

Здравствуйте, Alxx!
Я тоже пользуюсь Package & Deployment Wizard, но только для того, чтобы узнать список необходимых DLL и OCX для работоспособности программы. Дело в том, что созданный с помощью этой программы инсталляционный пакет работоспособен только на компьютерах с такой же операционной системой. Т.е. для создания инсталляционных пакетов на различные версии Windows их необходимо создавать в той же версии.
Я поступаю по-другому.
На том же VB6 пишу маленькую прогу, которая копирует необходимые файлы в системный каталог (Windows\system для Win98, WINNT\System32 для WinXP и Win2000) и регистрирует в системе.
Все это организовано как архив. Запускается BAT файл, который распаковывает файлы, в т.ч. и EXE и запускает программу регистрации.
Если необходима работа с базами данных, то для работы через DAO устанавливается из пакета OFFICE97 "доступ к данным", а если через ADO, то из пакета OFFICE2000 устанавливается "EXCEL\источники данных ODBC".
В некоторых инсталляционных пакетах устанавливал и доступ к данным. Программа работает с базами данных даже без установленных пакетов OFFICE, в т.ч. ACCESS.
Помимо регистрации DLL и OCX возможно также создание рабочего каталога программы, копирование в него необходимых справочников, баз данных, отчетов и т.п.
Пользователи моих программ успешно устанавливали сами все необходимые библиотеки по инструкции в электронном письме.
В приложении список файлов для инсталляции (архивы) и отдельно список устанавливаемых программой компонентов и файлов.
С уважением.

Приложение:

Консультировал: Филатов Евгений Геннадьевич (Профессионал)
Дата отправки: 15.01.2007, 11:11
Рейтинг ответа:

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

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

1. Поделитесь кто-нибуть электронным справочником по VBA. Мыло grnras@ukr.net.
2. Есть поле Edit1 и переменная x. Если в поле Edit1 что-то записано, то x нужно присвоить то, что запаисано в поле. Если Edit1 пусто, то x=\' \' (пробел)

Дата отправки: 17.01.2006, 17:19
Вопрос задал: Гузенко Руслан Николаевич
Всего ответов: 5
Страница онлайн-консультации »

Консультирует Ерёмин А.А. (Специалист):

Здравствуйте, Гузенко Руслан Николаевич!
2) Очень просто. Вот код:
Dim x As String
x = Edit1.Text
If Len(x) <= 0 Then
x = " "
End If

Консультировал: Ерёмин А.А. (Специалист)
Дата отправки: 17.01.2006, 17:30
Рейтинг ответа:

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

Консультирует Чурсанов Евгений Ильич:

Здравствуйте, Гузенко Руслан Николаевич!
1. Вечером вышлю. 1.85 Мб
2. Если Поле Edit1 пустое то в переменной x ничего нет. Никаких пробелов, ничего. Ведь пробел это тоже символ.
Удачи.

Консультировал: Чурсанов Евгений Ильич
Дата отправки: 17.01.2006, 17:58
Рейтинг ответа:

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

Консультирует Николай К:

Здравствуйте, Гузенко Руслан Николаевич!

x= iif(edit1.text=""," ",edit1.text)

Консультировал: Николай К
Дата отправки: 18.01.2006, 16:32
Рейтинг ответа:

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

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

Здравствуйте, Гузенко Руслан Николаевич!

Private Sub Edit1_Change()
If IsNull(Edit1.Text) then
x=" "
else
x=Edit1.Text
End IF
End Sub

Консультировал: AlexanderZh
Дата отправки: 19.01.2006, 13:01
Рейтинг ответа:

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

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

Здравствуйте, Гузенко Руслан Николаевич!
1. http://www.firststeps.ru/vba/excel/vbaexcel1.html
http://www.megaflash.ru/prog/vbe20/index.htm
И самый наиархаичный, но полезный - справка Оффиса 97.
2. Если вы понимаете под полем текстовое поле (а не поле в документе Word), то тут можно обойтись простым присваиванием: Сделайте двойной щелчок на текстовом поле и у Вас появится заготовка для события его изменения. Напишите следующий код:

Dim x As String

Private Sub Edit1_Change()
x = TextBox1.Text
Me.Caption = x \'Это баловство, чтоб увидеть, чему равна Х
End Sub

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

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

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

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

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

© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А. | Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2011.6.36 от 26.01.2012
В избранное