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

Помогите плз с задачкой.
В массиве С(n) подсчитать количество отрицательных элементов, количество положительных элементов, сумму отрицательных элементов, сумму положительных элементов.

randomar
пробегаешься по масиву циклом. В цикле условие Если элемент положительный прибавляешь его к сумме положительных, а счетчик положительных увеличиваешь на единицу. Тоже самое и с отрицательными.
ZlydenGL
Да вроде то, вот только не подключается у меня.

Ой, ребятки ... УМОЛЯЮ вас - помогите кто разбираеться в таких задачах!!!

1 задача
Найти среднее арифмитическое элементов, значения которых принадлежат интервалу (-273;20) , и их количество.

( к 1 задаче если понадобиться
Ввести в строку электронной таблицы следущее : 206,8; -31ю18; 0; 36,9 ; -313,8; 0,67; -230,2; 0; 21,18; 5,64; -115,36; -270,3; 18,8; 35,7; 6,4)

BadG1rl

Цитата:

1 задача
Найти среднее арифмитическое элементов, значения которых принадлежат интервалу (-273;20) , и их количество.

а данные имеется ввиду -273, -272,271, ... 19, 20 такие
тогда цикл от -273 до 20 вычисляешь сумму делешь на количество элементов abs(-273)+abs(20)=293 получаешь среднее арифмитическое

Ээээ ...... Я полный баран в таких вещах. Можно подробней ?
И мне кажется что ты немного нетак понял - мне надо в VBA создать кнопочку и для нее код написать типа
Dim a и т.д.

BadG1rl, жаль, 7 ошибок священника пока круче По пунктам:

1. Судя по "я полный баран" Вы - парень, сидящий под ником "Плохая девушка"
2. Ошибка разделом - задачи по VBA обсуждаются здесь.
3. Задача решается БЕЗ VBA. Обычными формулами Excel: AVG (СРЗНАЧ) и COUNT (ЧИСЛО) - английские функции приведены точно, русские аналоги - сомневаюсь (давно не юзал).

Удачи!

есть вопрос:
Нужно сделать так, что бы label при увеличении, уходил под ползунки. точнее:
Делаю рандомные матрицы, с числами до 100. Выводит в label1. Но, допустим я создаю размерами 100x500, при этом, лейбл растягивается и уходит за границы экрана. отсюда задача: запихнуть этот лейбл, к примеру, в panel и поставить ползунки. очень прошу дать пример кодов, которые требуются, ибо у самого не получается ):

LostCost
Не используй label. Возьми textbox. Поставь проперти:
multiine = true
locked = true
scrollBars = по потребности

Если же хочется всегда иметь одну строку, тогда:
multiine = false
locked = true
scrollBars = Horizontal

хм, ок. спасибо

гм, еще один вопрос(ы):
1) Как сделать так, что бы вводимые в textbox данные уходили в свойство webbrowser.url? при попытки тупого присвоения выводит ошибку, dim a as integer - неверно ):
2) как сделать так, что бы при растягивании приложения на весь экран, объект(скажем браузер) растягивался, но оставался на своей позиции?

LostCost

Цитата:

Как сделать так, что бы вводимые в textbox данные уходили в свойство webbrowser.url? при попытки тупого присвоения выводит ошибку, dim a as integer - неверно ):

Конечно это будет не верно. Надо писать

Код:
Dim a as String

ну ок. делал и со стрингом, получается:

Код:
Public Class Form1
Dim a As String

Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted

End Sub

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
TextBox1.Text = a
End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Url = a
End Sub
End Class

Попробуй объявить а как Uri

не помогло..
Можно взять ваш ICQ#? все таки проблем подобных много, и возникают часто. но ни одного специалиста vbs я не знаю ): ну или стукните мне, если не хотите выкладывать - 35[8]857

LostCost
У тебя в коде нет присвоения a.
Т.е. а = emptystring, пустышке
Попробуй

Код: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WebBrowser1.Url = TextBox1.Text
End Sub

гм, оба попробовал, оба не работают 0_0

LostCost
Скрин ошибки в студию.
И версию кода на данный момент.
И чему собствено равно WebBrowser1.Url на момент ошибки.
И какое значение присваеваем WebBrowser1.Url перед ошибкой.

Добрый день! Помогите пожалуйста сделать программу, так как сам я это сделать несмог(.
Задание такое: дана прямоугольная матрица. Определить:
1) номер первого из столбиков который содержит хотябы один ноль (и выводить этот номер в отдельный Label или TextBox разницы нету);
2) отсортировать матрицу таким образом чтобы первая строка содержала числа по возростающей!
Сама матрица у меня сделана, а вот первое и второе я сделать немогу. Вот ссылка на саму матрицу http://ifolder.ru/16172254 . Помогите пожалуйста!
Заранее огромное Вам всем спасибо.

Kutsenko

Цитата:

1) номер первого из столбиков который содержит хотябы один ноль (и выводить этот номер в отдельный Label или TextBox разницы нету);

Допустим у нас матрица 4х4, тогда

Код:
Dim i, j as Integer
Dim mat(4)(4) as Integer

For i=0 to 4
For j=0 to 4
if(arr(j)(i)==0)
Label.Text=j
Next
Next

2 blaro
А другие строки так и оставить, нужно только чтобы первую строку сортировало.

Kutsenko
Тогда это будет так:

Код:
Dim i,j,t as Integer
Dim temp(4) as Integer //Вспомогательный массив. В него временно перепишим значения из первой строки. Отсортируем и запишим обратно в массив.
For i-0 To 4
temp(i)=mat(0)(i)
Next

//Теперь сортируем значения в временном массиве
For i=0 To 4
For j=i+1 To 4
if(temp(j)<temp(i))
t=temp(j)
temp(j)=temp(i)
temp(i)=t
Next j
Next i

//Теперь вернем отсортированные значения в массив
For i=0 To 4
mat(0)(i)=temp(i)

Никто не знает какой максимальной длины(число символов) можно записать строку в переменную объявленную как String?
и что делать если длины строки больше?

Вроде как 1 Gb символов для x86 и гораздо больше для x64

blaro гляньте пожалуйста личку! Спасибо!

Помогите по Visual Basic

Припустим у меня эсть форма в которой имеэтса елемент webBrowser1 и label1
Нужно зделать так чтоб при натисненни левой кнопки миши на обэкте webBrowser1 обэктови label1 надавалося значення координат мишки видносно обэкта webBrowser1.
Ну типа кординат не всого екрана а толька улемента webBrowser1 причом эсли обэкт скрит ну нивидно его щтоп прога сама проворачовала линию прокрутки.

Nikolas2500
На этот вопрос уже отвечали. Если не подошло, то надо объяснить что и почему не подошло.
Вопросы задаются не во всех более-менее подходящих темах одновременно, а в теме по используемому языку програмирования.
http://forum.ru-board.com/topic.cgi?forum=33&topic=10981#1

Если вопросы по VB6, то продолжай здесь.

Если же по VB.Net то продолжай в Программирование в среде .NET (ASP.NET,ADO.NET) на C#/VB.NET

Дано: натуральное n ( 1 <= n <= 12 )., действительные y1,..,yn.
Найти: z1^2+z2^2+...+zn^2 , где zi= yi при 0<yi<10 или zi=1 в противном случае.
Последовательность чисел ввести с помощью элемента функции InputBox(). Вычисления производить после нажатия командной кнопки «Вычислить». Результат отобразить на форме с помощью элемента управления метка. Перебор значений реализовать с помощью оператора цик-ла FOR    

Доброе время суток!
Я столкнулся с проблемой, надо написать приложение, которое подключается к URL (с которого идет непрерывный поток данных в формате xml), и из этого потока извлечь определенные строки.
Написал с помощью webBrowser, поиск идет в doc.body.outerText.
Все ничего, но 50 % ЦПУ, и как я понимаю поток загружается в оперативку (постоянно увеличивается потребление ОЗУ) - это детское решение, поскольку после того, как находится необходимая строка и отображается, она больше не нужна, а в моей реализации это все сохраняется и постоянно растет.

Мне нужна только идея, я сам разберусь, это должно быть вроде типа HTML + Stream + XML
или подключение к сервер:порт и обработка потока данных.
Поисковики толкового ничего не дают, думаю VB может осилить такую задачу.
Всем спасибо!

weel
Нечто подобное на API - работа с портом, обработка IP-пакета, разбор пакета
http://forum.ru-board.com/topic.cgi?forum=33&topic=10988#1

Добрый день.
Подскажите как изменить скрипт:


Код: strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery ("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE and DHCPEnabled=TRUE")

For Each objNetAdapter in colNetAdapters
For Each strAddress in objNetAdapter.IPAddress
arrOctets = Split(strAddress, ".")
If arrOctets(0) and arrOctets(1) Then
strNewAddress = arroctets(0) & "." & arroctets(1) & "." & arrOctets(2) & "." & "211"
arrIPAddress = Array(strNewAddress)
strSubnetMask = objNetAdapter.IPSubnet
strGateway = objNetAdapter.DefaultIPGateway
strGatewayMetric = objNetAdapter.GatewayCostMetric
arrDNSServers = objNetAdapter.DNSServerSearchOrder
errEnable = objNetAdapter.EnableStatic(arrIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
objNetAdapter.SetDNSServerSearchOrder(arrDNSServers)
End If
Next
Next