Задачи на Visual Basic (VB). - [43] :: Прикладное программирование

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Visual Basic (VB).

Модерирует : ShIvADeSt
Версия для печати • Подписаться • Добавить в закладки
Страницы: 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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

NEOMATRIX

Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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

Родственные топики:

Excel VBA - часть 1, часть 2 - все вопросы по Excel VBA туда

Word VBA все вопросы по Word VBA туда

Access все вопросы по программированию в Access туда

VBScript - программирование "удобняшек" на VBScript

QBasic - типовые задачи на QBasic

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

Top 10 Visual Basic Sins

Учебники:
Visual Basic для студентов и школьников. Культин Н. (2010)
Занимательное программирование на Visual Basic.NET. Климов А. (2005)
Visual Basic в задачах и примерах. Сафронов (2009)
Visual Basic 2012 на примерах. Зиборов В. (2012)

Всего записей: 202 | Зарегистр. 29-12-2004 | Отправлено: 19:30 16-11-2005 | Исправлено: XPerformer, 10:07 28-10-2014

ZlydenGL

Moderator

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

TayPen, подключаешь компоненты Microsoft ADO/DAO (какие привычней) и пользуешь. Не то?

----------
Переработал: втыкая аккумулятор в шуруповерт пытаешься передёрнуть затвор

Всего записей: 4268 | Зарегистр. 22-06-2002 | Отправлено: 17:03 12-01-2010

randomar

Newbie

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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

Всего записей: 6 | Зарегистр. 12-01-2010 | Отправлено: 23:14 12-01-2010

TayPen

Junior Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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

Всего записей: 44 | Зарегистр. 27-10-2009 | Отправлено: 08:30 13-01-2010

BadG1rl

BANNED

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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

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)

Всего записей: 2 | Зарегистр. 14-01-2010 | Отправлено: 14:41 14-01-2010 | Исправлено: BadG1rl, 16:37 15-01-2010

SIgor33

Advanced Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

BadG1rl

Цитата:

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

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

Всего записей: 652 | Зарегистр. 03-03-2009 | Отправлено: 19:31 14-01-2010

BadG1rl

BANNED

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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

Всего записей: 2 | Зарегистр. 14-01-2010 | Отправлено: 19:34 14-01-2010

ZlydenGL

Moderator

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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

По пунктам:

1. Судя по "я полный баран" Вы - парень, сидящий под ником "Плохая девушка"

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

Удачи!

----------
Переработал: втыкая аккумулятор в шуруповерт пытаешься передёрнуть затвор

Всего записей: 4268 | Зарегистр. 22-06-2002 | Отправлено: 17:40 20-01-2010

LostCost

Newbie

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

Всего записей: 27 | Зарегистр. 11-09-2009 | Отправлено: 16:58 22-01-2010

dneprcomp

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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

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

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 21:45 22-01-2010 | Исправлено: dneprcomp, 21:49 22-01-2010

LostCost Newbie	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору хм, ок. спасибо
	Всего записей: 27 \| Зарегистр. 11-09-2009 \| Отправлено: 21:25 23-01-2010

LostCost

Newbie

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

Всего записей: 27 | Зарегистр. 11-09-2009 | Отправлено: 17:21 25-01-2010

blaro

Member

LostCost

Цитата:

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

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

Код:

Dim a as String

Ты же хочешь получить строку, а не число.

Всего записей: 311 | Зарегистр. 29-01-2006 | Отправлено: 18:50 25-01-2010

LostCost

Newbie

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

Код:

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

вроде бы все элементарно. но не хочет воспринимать. что я упустил из логики?

Всего записей: 27 | Зарегистр. 11-09-2009 | Отправлено: 20:39 25-01-2010

blaro Member	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору Попробуй объявить а как Uri
	Всего записей: 311 \| Зарегистр. 29-01-2006 \| Отправлено: 20:49 25-01-2010 \| Исправлено: blaro, 21:00 25-01-2010

LostCost

Newbie

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

Всего записей: 27 | Зарегистр. 11-09-2009 | Отправлено: 21:28 25-01-2010

dneprcomp

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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

Или если так уж хочется сделать через переменную, то

Код:

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

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

PS. Присвоение a лучше делать на TextBox1.LostFocus

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 21:30 25-01-2010 | Исправлено: dneprcomp, 21:33 25-01-2010

LostCost Newbie	Редактировать \| Профиль \| Сообщение \| ICQ \| Цитировать \| Сообщить модератору гм, оба попробовал, оба не работают 0_0
	Всего записей: 27 \| Зарегистр. 11-09-2009 \| Отправлено: 21:47 25-01-2010

dneprcomp

Silver Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

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

Всего записей: 3920 | Зарегистр. 31-03-2002 | Отправлено: 22:26 25-01-2010

Kutsenko

Junior Member

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

Всего записей: 80 | Зарегистр. 19-11-2007 | Отправлено: 10:50 30-01-2010

blaro

Member

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) отсортировать матрицу таким образом чтобы первая строка содержала числа по возростающей!

А что с другими строками? Какими они должны быть?

Всего записей: 311 | Зарегистр. 29-01-2006 | Отправлено: 14:36 30-01-2010

Страницы: 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 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Задачи на Visual Basic (VB).

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC