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

InStr ?

rsuan
Встроенные функции Visual Basic

Помогите пожалуйста написать цыкл...
нужно найти значение У. Х меняеться от 0 дл 10, шаг = 0.5
если х<3 y=lg^3* a^2 + sqr(x) / exp(x)
3<x<7 y=sqr(a*x) + 1/x
x>7 y= a* Cos^2 (а*exp(х)) + a* Sin^2(a*exp(x) )

я сначала использовала do while loop....но не то....... а просто с if then else выдают ерор и выделяеть косинус....пишет "argument not optional"

А если брать не
Код: Cos^2(a*exp(x))

все равно.....пишет тоже......
гляньте что я пишу:
For x = 0 To 10 Step 0.5
If x < 3 Then
y = ((Log(10)) ^ 3) * a ^ 2 + Sqr(x) / Exp(x)

ElseIf x > 3 And x < 7 Then
y = (Sqr(a * x)) + 1 / x


Else
y = a * (Cos * (a * Exp(x))) ^ 2 + a * (Sin * (a * Exp(x))) ^ 2

Next x

Label1.Caption = Str(y)
End Sub

не понима. я что тут и к чему((((

А почему после Cos стоит знак "*"?

Код: Sub test()
Dim x As Integer, y As Long, a As Long
a = 1
For x = 0 To 10 Step 0.5
Select Case True
Case x < 3
y = ((Log(10)) ^ 3) * a ^ 2 + Sqr(x) / Exp(x)
Case x >= 3 And x < 7
y = (Sqr(a * x)) + 1 / x
Case Else
y = a * (Cos(a * Exp(x))) ^ 2 + a * (Sin * (a * Exp(x))) ^ 2
End Select
Next
End Sub

а по другому у меня все зависает..... и в итоге програма *не отвечает* (

А если пошагово выполнять? По идее (если смотреть на Label1.Caption = Str(y) ), то программа тупо пробежит весь цикл и в Label1 выдаст значение для x = 10.

kpblc, Rush, спасибо.

А есть такой справочник по VB, где функции и операторы рассмотрены не в алфовитном порядке, а как-нибудь собраны по назначению, ну то есть такой справочник, в котором нужную функцию можно найти исходя из того, что тебе надо?

Всем спс, сдала.... там препод не правильное условие дал.....и прога не выходила из цыкла...

rsuan
Date Time Functions In Visual Basic
VB6's Trig, Math, Financial, Boolean, and Random functions
Visual Basic 6 String Functions
VB6 Number System Functions (Hex, Oct, Etc)
VB6's DateAdd function

Functions (Visual Basic)

Keywords and Members by Task
Visual Basic Reference

Visual Basic String Manipulation Tutorials

rsuan
В том справочнике, на который я дал ссылку, есть раздел "По категориям". Это ведь именно
Цитата:

где функции и операторы рассмотрены не в алфовитном порядке, а как-нибудь собраны по назначению,

Добавлено:
Ах, да, операторов-то там нет, только функции...

nerobol
Привет,пол года назад где-то ты искал решение задачки на visual basic 6.0 (
Дана транспортная сеть из 10 узлов, расстояние мы задаем сами (заносим в массив 10x10) если между какими-то узлами нет прямой дороги, то расстояние большое (бесконечность) ) . Не мог бы ты поместить тескст программы на форуме или переслать на мыло anela111@mail.ru
Заранее спасибо!!!!!!!

помогите пожайлуста решить:
1 Задача: Заполнить массив состоящий из n строк и m столбцов случайными числами.Расположить столбцы массива в порядке возрастания элементов.Вывести результат суммы массива в таблице.
2 Задача: Распечатать значения N элементов ряда Фибонначи,начиная с номера N1 по номер N2,известно что ее первый элемент а1 и знаменатель прогрессии а.

народ вобщем у меня ткое задание нужно сделать програмку на Visual Basic:
Решение системы линейных уравнений методом Гауса.

Это должно быть отдельное exe приложение.
Кто может и кому это не трудно сделайте плиз.

Уважаемые знатоки!
Пользователь открывает изображение из папки N и загружает его в PicBox. Как сделать, чтобы по нажатию кнопки (Удалить или Далее) загружалось следущее изображение из этой папки? Т.е. как сделать что-то вроде простого графического просмотровщика фотографий? Visual Studio 2008 - Visual Basic
P.S. Если можно, укажите код с комментариями.

AviaControl
А откуда програма должна знать, какой именно следующий?
Надо найти все изображения и загнать их путь и названия в array. Затем загружать из array.

dneprcomp
Ну вот примерно это и нужно

AviaControl
Используй Directory.GetFiles
Примеров тьма как в интернете, так и в хелпе VB
http://www.google.com/search?hl=en&q=vb.net+directory.getfiles&aq=2&oq=vb.net+dir&aqi=g10

Очень-очень при очень нужна ваша помощь.
В хмарочосі N поверхів, всього один під'їзд; на кожному поверсі по 3 квартири; ліфт може зупинятися тільки на непарних поверхах. Чоловік сідає в ліфт та набирає номер потрібної йому квартири M. На який поверх повинен доставити ліфт пасажира?
                                            
                                            
                                            

Удалено.

Ребята , а кто разбирается в sql запросах?

MattDog
http://forum.ru-board.com/topic.cgi?forum=33&topic=7776&start=0

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


Цитата:

Создать файл, содержащий сведения о количестве изделий, собранными сборщи-ками цеха за неделю. Каждая запись содержит поля: фамилия сборщика, количество изделий, собранных им ежедневно в течение шестидневной недели, т.е. раздельно – в понедельник, вторник и т.д.
Написать программу, выдающую следующую информацию:
1) фамилию сборщика и общее количество деталей, собранное им за неделю;
2) фамилию сборщика, собравшего максимальное число изделий, и день, когда он достиг наивысшей производительности;

Ну собственно, все сделано, кроме "день, когда он достиг наивысшей производительности". Собственно, вопрос, как это сделать?

И пока код выглядит так:

Код: Dim f(10) As String, pon(10) As Single
Dim vt(10) As Single, sr(10) As Single
Dim cht(10) As Single, pyat(10) As Single
Dim syb(10) As Single, i As Byte
Dim totalpr(10) As Single, best As String

Private Sub Command1_Click()

Open "C:\файл.txt" For Input As #1

For i = 1 To 10
Input #1, f(i), pon(i), vt(i), sr(i), cht(i), pyat(i), syb(i)
Next i

For i = 1 To 10
List1.AddItem f(i)
Next i

For i = 1 To 10
totalpr(i) = pon(i) + vt(i) + sr(i) + cht(i) + pyat(i) + syb(i)
List2.AddItem totalpr(i)
Next i

Max = totalpr(1)
For i = 1 To 10
If totalpr(i) > Max Then Max = totalpr(i)
If totalpr(i) = Max Then best = f(i)
Next i

Text1.Text = best

Код:
dim arrweek
dim k as integer, tmp as single, nday as integer, qpr(10) as integer

for i = lbound(f) to ubound(f)
arrweek = array(pon(i), vt(i), sr(i), cht(i), pyat(i), syb(i))
for k = lbound(arrweek) to ubound(arrweek)
if k = lbound(arrweek) then
tmp = arrweek(k)
nday = k
else
if arrweek(k) > tmp then
tmp = arrweek(k)
nday = k
end if
end if
next
qpr(i) = nday
next

Rush
Хм, я таки просто вставил Ваш код в конце моего (после Text1.text = best), потом добавил выражения типа

d(1) = "Понедельник"
d(2) = "Вторник"
и т.д. до субботы.
Затем

Text2.text = d(nday)

но не работает. В смысле работает, но результат выводится неверный. Вообще правильно ли я делаю? И что значит "tmp" ?

Kiri4V

Цитата:

потом добавил выражения типа

В какое место добавил? После цикла?
Ведь значение переменной nday меняется с каждым проходом цикла.
В массиве qpr хранятся сведения о лучших днях всех рабочих.
Если тебе нужно просто об одном, самом best-рабочем, то просто переделываем последний твой цикл

Код:
dim arrweek
dim k as integer, tmp as single, nday as integer, bestday as integer

Max = totalpr(1)
For i = 1 To 10
arrweek = array(pon(i), vt(i), sr(i), cht(i), pyat(i), syb(i))
for k = 1 to 6
if k = 1 then
tmp = arrweek(k)
nday = k
else
if arrweek(k) > tmp then
tmp = arrweek(k)
nday = k
end if
end if
next
If totalpr(i) > Max Then Max = totalpr(i)
If totalpr(i) = Max Then
best = f(i)
bestday = nday
end if
Next i

Text2.text = d(bestday)

Rush


Код: if arrweek(k) > tmp then

Цитата:

на этой строке программа останавливается и пишет "run time error "9" subscript out of range"

Дык первый индекс-то ноль, вот и пишет (а последний, соответственно, 5 -- а не 6)
Хотите гонять свой arrweek от 1 до 6 -- впишите ненужный 0-й элемент:

Код:
arrweek = Array(0, pon(i), vt(i), sr(i), cht(i), pyat(i), syb(i))

Rush, Legio

Низкий поклон Спасибо.