» Задачи на Visual Basic (VB).

bonya19
Для вычисления числа e разложением в ряд воспользуйся примерно следующим [more=кодом]
Код: [no]Function Factorial(ByVal N As Byte) As Long
    Dim Result As Long

    If N > 1 Then
        Result = 2
        For i% = 3 To N
            Result = Result * i%
        Next i%
        Factorial = Result
    Else
        Factorial = 1
    End If
End Function

'.....................

Const Epsilon = 0.00001
Dim e As Double
Dim Item As Double

i% = 3
e = 2.5
Item = 1 / Factorial(i%)
Do
    e = e + Item
    i% = i% + 1
    Item = 1 / Factorial(i%)
Loop Until Item < Epsilon[/no]

Помогите пожалуйста. Срочно!
1)Написать программу, печатающую четверки простых чисел введенной с клавиатуры последовательности чисел, принадлежащие одному десятку (например, 11, 13, 17, 18) или 13001, 13004, 13005, 13006)

2)С помощью элемента управления ListBox создать список книг. Предусмотреть кнопки для ввода нового элемента в список, его удаления и выбора.

Подскажите пожалуйста, как сделать чтобы при использовании DataGridView можно было выбрав определенную строку открыть вложенную форму с детальными данными, относящимися к этой строке? Например: имеется база данных по заказам, необходимо выбрав в таблице строку с заказом, открыть данные по этому заказу. Используется Visual Basic 2005. Каксделать связанный Dataset, включить в него связанные таблицы, чтобы содержимое автоматически менялось на основании выбранной позиции в родительской таблице... как в MS Access. Подскажите пожалуйста новичку.

Люди добрые, помогите! Нужно написать програму игры (по возможности на QBasic 4.5).

Пушка стреляюшая по мешени. мешень должна появляться в вертикальной плоскости на случайной высоте. Показать траекторию снаряда.

Помогите пожалуйста решить задачку, очень прошу:
Установить, является ли данная квадратная матрица размерности N симметрической.

Добавлено:
Умоляю, пожалуйста помогите написать программу VBA.
Установить, является ли данная квадратная матрица размерности N симметрической

Yfcntyf
Держи:

Код: [no]Const N = 10

Dim Matrix(N, N) As Integer
Dim IsSymmetric As Boolean
Dim Str As String

OutStr = ""
' заполняем матрицу случайными числами
Randomize
For i% = 0 To N - 1
For j% = 0 To N - 1
Matrix(i%, j%) = CInt(Int(101 * Rnd()))
OutStr = OutStr & vbTab & Matrix(i%, j%)
Next j%
OutStr = OutStr & vbLf
Next i%

' проверяем матрицу на семмитричность
IsSymmetric = True
For i% = 1 To N - 1
For j% = 0 To i% - 1
If Matrix(i%, j%) <> Matrix(j%, i%) Then
IsSymmetric = False
GoTo BeforeLoops
End If
Next j%
Next i%

BeforeLoops:
OutStr = OutStr & vbLf & ("Matrix is " & IIf(IsSymmetric, "", "not ") & "symmetric")
MsgBox OutStr[/no]

Ребята, откликнитесь на мою просьбу двумя постами выше - я уже давно не знаю, как это сделать.

Спасибо огромное BrdGuest

Добавлено:
Пожалуйста, напишите программу на VBA очень надо
Упорядочить буквы заданного слова по алфавиту

Yfcntyf
Шапку видел?

Цитата:

Обсуждение задач на VBA (а именно, Excel, Word, Access) строго запрещено!
Пишите в соответствующих топиках.

поможите люди добрые

bonya19
[no]i[точка]j[точка]r[/no] - это i*j*r?
индексы в массиве начинаются с нуля?

BrdGuest
ну это правда задача на визуал студио, но вроде различия не так важны. там условие
i-j-r

Подскажите пожалуйста, как сделать чтобы выбрав в таблице строку с заказом, открывались данные по этому заказу. , чтобы содержимое автоматически менялось на основании выбранной позиции в родительской таблице. как в MS Access . Использую Visual Basic 2005

y=sin x+2-e-x ; x[0;2п] ; x=п/6

Всем привет)
Делаю программу тест на VB. Нужно сделать так, чтобы вопросы и варианты ответов она брала из текстового файла и собственно ключи правильных ответов. Но VB знаю очень плохо. Помогите написать процедуру! Если можно поподробнее, пожалуйста.
Спасибо! )
Если считать построчно в массив mas. А том в цикле передавать значения свойствам, то как тогда слать задержку, чтобы можно было выбрать ответ, а потом опять поменять текст в объектах?
for i=1 to 20
label.caption = mas(i)
box1.caption =mas (i)
box2.caption =mas (i)
if mas (i) = true then otv =otv+1
loop

avenger463
К примеру, создаешь пользовательский тип (инструкция Type) вопроса, в котором элементами будут, собственно, формулировка вопроса, варианты ответов и правильный ответ (м.б. даже и путь к файлу поясняющего рисунка);
считываешь из текстового файла (инструкция Open) данные в массив переменных определенного выше типа;
выводишь первый вопрос, а на событие дачи ответа (черт знает как там у тебя это будет реализовано. либо при нажатии кнопки, либо при выставлении отметки в чекбоксе, либо еще как) вешаешь выдачу второго вопроса;
при ответе на последний вопрос массива выдаешь результат тестирования.
Естественно, во многом состав методов и функций зависит от интерфейса программы и задуманной ее функциональности, так что не описав функциональность (логику) в программинг лучше не соваться.

подскажите как написать программу, открывающую по очереди папки и читающую все файлы которые там есть...

смотри объект Filesystem и вокруг него

Имеются следующие данные данные о температуре остывания изделия по школе Кельвина.
________________________________________
Время: | 0 | 1 | 3 |3ч15мин | 4 | 4,2 |
Темпер: | 780 | 650| 470| 460 | 34 | 300 |
--------------------------------------------------------
С помощью алгоритма линейной интерполяции определить температуру изделия через 2 часов, 5 часов.
Вычисление параметров функции оформить в виде отдельной процедуры. Постороить график.
Help!

Цитата:

смотри объект Filesystem и вокруг него

Поправочка: FileSystemObject

FileSystemObject - это в VBScript, а в VB - FileSystem
автор не уточнил, а топик всё-таки по второму...

Dem_anywhere

Цитата:

FileSystemObject - это в VBScript, а в VB - FileSystem

Не выдумывай. FSO - он везде FSO. Часть Microsoft Windows Script Runtime.
С одинаковым успехом его можно использовать и в VB, и VBScript, и в JawaScript, и в других языках.

ЗАДАЧА: Необходимо из VisualBasic внести изменения (вставить данные в соответствующие позиции) в файл Excel, а именно заполнить формы на трех листах данными из VB.

Подскажите, в чем тут дело: есть скрипт, который заполняет на вебстарничке прова логин+пароль через ИЕ и жмет "Войти". Типа залогинивается в инетсессии. На ХР чудно работало. А попробовал на Висте - вылетает: старничка-то открывается, а дальше - не могет

что сделать?

Добавлено:

Цитата:

set ie=createobject("internetexplorer.application")
url="https://ХХХ-hpool.quantum.ru/index.php"
user="USER"
pass="11111"
ie.navigate(url)
do while ie.readystate<4
wscript.sleep 100
loop
set doc=ie.document
set forms=doc.forms
if not forms.item("loginform") is Nothing then
set username=doc.getElementById("username")
set password=doc.getElementById("password")
username.value=user
password.value=pass
forms.item("loginform").submit
ie.visible=-1
end if

Цитата:

Ввести одномерный массив a={2.35,-4.15,0,-3.1, 7.8, 6.3,-3.05,1.5}.
Найти и вывести среднее геометрическое положительных элементов массива a и индекс элемента, наиболее близкого к среднему геометрическому.

Помогите пожалуйста с лабой, горю..


Добавлено:
Вот смог наковырять приминить не получаеться за недостатком знаний:

Цитата:

Private Sub MidGeom()
'массив из пяти элементов
Dim A(5) As Integer
'переменная ср. геометрического
Dim MidGeom As Single
'индекс массива близкий к ср. геом
Dim IndexMidGeom As Integer
'рабочие переменные
Dim MinInd As Single
Dim i As Integer

'инициализируем переменную
MidGeom = 1
'заполняем массив случайными элементами от 1 до 10
For i = 1 To 5
A(i) = Int((10 * Rnd + 1))
Next
'--------------------------------------------------
'вычисляет среднее геометрическое
For i = 1 To 5
If A(i) > 0 Then
MidGeom = MidGeom * A(i)
End If
Next
MidGeom = MidGeom ^ (1 / 5)
'-----------------------------------------------------

'вычисляем индекс массива близкий к среднему геометрическому
MinInd = Abs(1 - MidGeom)
IndexMidGeom = 1
For i = 2 To 5
If Abs(i - MidGeom) < MidInd Then
MinInd = Abs(i - MidGeom)
IndexMidGeom = i
End If
Next
'-------------------------------------------------------------


'выводим результыты из переменных
'MidGeom
'IndexMidGeom
End Sub

Не могли бы вы мне помочь? У нас в компании есть программа, похоже написанная на Визуал Бейсике, дистрибутив который был утерян. Теперь надо эту программу установить на компьютер после переустановки Виндов. Пробую запустить екзешник из переписанной папки с программой (перенеся также требуемые файлы библиотек), но программа ругается, говорит Run-time error 713, Класс не зарегистрирован, looking for object with CLSID.... Я предполагаю, что нужно установить run-time библиотеку для визуал бейсика. Не подскажете где ее взять, чтобы попробовать такой вариант?

В логе установки программы записано такое:

%% PLEASE DO NOT MODIFY OR DELETE THIS FILE! %%
%% This file contains information about the installation of an application. %%
%% It will be used to automatically remove all application components from your computer if you choose to do so. %%

NOTE: Beginning of the bootstrapper section
CONFIG: Title: "Клиенты"
ACTION: RegKey: "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "SharedDLLs"
ACTION: SystemFile: "C:\WINDOWS\system32\VB6STKIT.DLL"
(File was not found or was an older version -- new file copied)
ACTION: SystemFile: "C:\WINDOWS\system32\COMCAT.DLL"
(File currently on disk was already up to date)
ACTION: SystemFile: "C:\WINDOWS\system32\ASYCFILT.DLL"
(File currently on disk was already up to date)
ACTION: SystemFile: "C:\WINDOWS\system32\olepro32.dll"
(File currently on disk was already up to date)
ACTION: SystemFile: "C:\WINDOWS\system32\OLEAUT32.DLL"
(File currently on disk was already up to date)
ACTION: SystemFile: "C:\WINDOWS\system32\STDOLE2.TLB"
(File currently on disk was already up to date)
ACTION: SystemFile: "C:\WINDOWS\system32\MSVBVM60.DLL"
(File currently on disk was already up to date)
ACTION: SystemFile: "C:\WINDOWS\system32\MSVCRT40.DLL"
(File currently on disk was already up to date)
ACTION: DllSelfRegister: "C:\WINDOWS\SYSTEM32\COMCAT.DLL"
ACTION: DllSelfRegister: "C:\WINDOWS\SYSTEM32\olepro32.dll"
ACTION: DllSelfRegister: "C:\WINDOWS\SYSTEM32\OLEAUT32.DLL"
ACTION: TLBRegister: "C:\WINDOWS\SYSTEM32\STDOLE2.TLB"
ACTION: DllSelfRegister: "C:\WINDOWS\SYSTEM32\MSVBVM60.DLL"
NOTE: End of the bootstrapper section
NOTE: Now spawning the main Setup program 'Setup1.exe'....
ACTION: CreateDir: "C:\Program Files\Клиенты"
ACTION: CreateDir: "C:\Documents and Settings\Admin\Главное меню\Программы\Клиенты"
ACTION: ShellFolder: "Клиенты"
ACTION: PrivateFile: "C:\Program Files\Клиенты\RunMe.exe"
(File was not found or was an older version -- new file copied)
ACTION: SharedFile: "C:\WINDOWS\System32\MSCOMCTL.OCX"
(File currently on disk was already up to date)
ACTION: SharedFile: "C:\WINDOWS\System32\COMCT332.OCX"
(File was not found or was an older version -- new file copied)
ACTION: SharedFile: "C:\WINDOWS\System32\MSCOMCT2.OCX"
(File was not found or was an older version -- new file copied)
ACTION: SharedFile: "C:\WINDOWS\System32\DBGRID32.OCX"
(File was not found or was an older version -- new file copied)
ACTION: SharedFile: "C:\WINDOWS\System32\DBLIST32.OCX"
(File was not found or was an older version -- new file copied)
ACTION: SharedFile: "C:\WINDOWS\System32\comdlg32.ocx"
(File was not found or was an older version -- new file copied)
ACTION: SharedFile: "C:\WINDOWS\System32\MSWORD8.OLB"
(File was not found or was an older version -- new file copied)
ACTION: SharedFile: "C:\WINDOWS\System32\EXCEL8.OLB"
(File was not found or was an older version -- new file copied)
ACTION: SharedFile: "C:\WINDOWS\System32\VB5DB.DLL"
(File was not found or was an older version -- new file copied)
ACTION: SystemFile: "C:\WINDOWS\System32\msrepl35.dll"
(File was not found or was an older version -- new file copied)
ACTION: SystemFile: "C:\WINDOWS\System32\msrd2x35.dll"
(File was not found or was an older version -- new file copied)
ACTION: SystemFile: "C:\WINDOWS\System32\EXPSRV.DLL"
(File currently on disk was already up to date)
ACTION: SystemFile: "C:\WINDOWS\System32\vbajet32.dll"
(File currently on disk was already up to date)
ACTION: SystemFile: "C:\WINDOWS\System32\msjint35.dll"
(File was not found or was an older version -- new file copied)
ACTION: SystemFile: "C:\WINDOWS\System32\msjter35.dll"
(File was not found or was an older version -- new file copied)
ACTION: SystemFile: "C:\WINDOWS\System32\msjet35.dll"
(File was not found or was an older version -- new file copied)
ACTION: SharedFile: "C:\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLL"
(File was not found or was an older version -- new file copied)
ACTION: SharedFile: "C:\WINDOWS\System32\WIN32.TLB"
(File was not found or was an older version -- new file copied)
ACTION: PrivateFile: "C:\Program Files\Клиенты\Клиенты.exe"
(File was not found or was an older version -- new file copied)
ACTION: DllSelfRegister: "C:\WINDOWS\System32\MSCOMCTL.OCX"
ACTION: DllSelfRegister: "C:\WINDOWS\System32\COMCT332.OCX"
ACTION: DllSelfRegister: "C:\WINDOWS\System32\MSCOMCT2.OCX"
ACTION: DllSelfRegister: "C:\WINDOWS\System32\DBGRID32.OCX"
ACTION: DllSelfRegister: "C:\WINDOWS\System32\DBLIST32.OCX"
ACTION: DllSelfRegister: "C:\WINDOWS\System32\comdlg32.ocx"
ACTION: DllSelfRegister: "C:\WINDOWS\System32\msrd2x35.dll"
ACTION: DllSelfRegister: "C:\WINDOWS\System32\msjet35.dll"
ACTION: DllSelfRegister: "C:\Program Files\Common Files\Microsoft Shared\DAO\DAO350.DLL"
ACTION: TLBRegister: "C:\WINDOWS\System32\WIN32.TLB"
ACTION: ShellLink: "Клиенты", "Клиенты"
ACTION: RegKey: "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion", "App Paths\Клиенты.exe"
ACTION: RegValue: "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\Клиенты.exe", ""

народ, как назначить порт для определённого принтера при логоне пользователя (скриптом)?
причём нужно учитывать информацию из описания порта.

надо программка которая рисует треугольник по трём заданным сторонам (исходник на vb) если
можно дайте.

Добавлено:
Mew, тут:
http://download.microsoft.com/download/vb60pro/Redist/sp5/WIN98Me/EN-US/vbrun60sp5.exe

пожалуйста помогите с задачей: задан текст в текстовом окне, найти самое длинное словр встречающееся не менее двух раз.заранее спасибо.

БД MySQL 5.0. ODBC драйвер установлен, ссылки прописаны

Dim conn As ADODB.Connection
Dim rs As ADODB.recordset
Dim test As Field

Set conn = New ADODB.Connection
Set rs = New ADODB.Recordset

conn.ConnectionString = "DRIVER={MySQL ODBC 3.51 Driver};SERVER=yyy;DATABASE=zzz;UID=xxx;PWD=uuu;OPTION="&1+2+8+32+2048+16384
conn.Cursorlocation = adUseServer
conn.Mode = adModeRead
conn.Open

попытка выполнить вот этот запрос:

rs.Open "SELECT round(sum(bytes)/1024) as test FROM log WHERE (LEFT(time,7)=(SELECT LEFT(NOW(),7)))",conn
Text1.Text = rs!test

заканчивается на ошибку "3021" - "BOF или EOF имеет значение True, либо текущая запись удалена. Для выполнения операции требуется текущая запись"

Если сделать вот так:
Text1.Text = rs.Fields.Count

то в текстовом поле рисуется цифра "1" - одна запись, все правильно...

Где что подправить надо, чтобы в текстовом поле Text1.Text получить заветную сумму данных из поля bytes?

Да, мопед не мой, я просто... Ну, вы знаете. Приятель спросил, а я в VB до такой степени не разбираюсь. Need Help, короче...