Ввод данных массива из TextBox

@VladLes · Регистрация: 24.04.2012

Студворк — интернет-сервис помощи студентам

Доброго времени суток. Люди я весь день голову ломаю над своей программкой и не как не могу додуматься, помогите пожалуйста кто чем сможет. И так, проблема заключается вот в чем: У меня предположим есть 3 поля(TextBox) в которые пользователь вписывает дробные числа. После их ввода пользователь нажимает на кнопочку и программа должна из этих введенных числе составить массив и найти в нем максимальное число...которое в дальнейшем будет использоваться(необязателен вывод куда нибудь)...Люди добрые прошу вас помогите пожалуйста весь ваш форум облазил так и не нашел(или не понял) как пишется этот "долбанный" код

. Заранее за любую помощь спасибо!

@Апострофф · 24.04.2012, 17:35

Наводящий вопрос - это для VB6?

@VladLes · 24.04.2012, 17:36 **[ТС]**

Да. Простите забыл указать..

@Апострофф · 24.04.2012, 18:16

Сообщение от VladLes

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

Тогда массив для чисел ни к чему, хватит Max (см. вложение)
Упсс! Что-то вложения глючат.
Тогда на форму массмв из трёх текстбоксов: Text1(0 to 2).
И такой код

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
Dim Max As Double
 
Private Sub Text1_Change(Index As Integer)
If IsNumeric(Text1(0)) And IsNumeric(Text1(1)) And IsNumeric(Text1(2)) Then
  Max = Text1(0)
  For i = Text1.LBound To Text1.UBound
    If Text1(i) > Max Then Max = Text1(i)
  Next
End If
Caption = Max
End Sub

@VladLes · 24.04.2012, 19:34 **[ТС]**

Апострофф, за ответ вам спасибо, но дело в том что мне кажеться что лучше использовать массив, потому что у меня будет не три textBox а более и расположенны они как таблицы умножение(к примеру) и надо чтобы для каждого столбца было свое наивысшее число...хотя может все такие лучше использовать вами данный код? как вы думаете??
И мне надо чтобы все действия производились только после нажатия кнопки.

Добавлено через 26 минут
Очень прошу ответить, подсказать

))

@Апострофф · 24.04.2012, 20:07

Сообщение от VladLes

И мне надо чтобы все действия производились только после нажатия кнопки.

Тут особых проблем не вижу, добавь Command1 на форму (и Private Sub Text1_Change(Index As Integer) убери) и вперед

Visual Basic
1
2
3
4
5
6
7
8
9
Private Sub Command1_Click()
If IsNumeric(Text1(0)) And IsNumeric(Text1(1)) And IsNumeric(Text1(2)) Then
  Max = Text1(0)
  For i = Text1.LBound To Text1.UBound
    If Text1(i) > Max Then Max = Text1(i)
  Next
End If
Caption = Max
End Sub

А по поводу

чтобы для каждого столбца было свое наивысшее число

тут в каждом конкретном случае надо думать? Известно ли программе к-во столбцов, например и т.д.

@VladLes · 25.04.2012, 11:44 **[ТС]**

Да количество столбцов будет известно программе сразу же например возьмем 3x3 (три столбца и три строки) После ввода в них дробные числа нажимаем на кнопочку и программа составляет 3 массива где в каждом должна найти максимальное число...лично моя проблема я не как не могу понять как делать чтобы массив не рандомом значения подставляет а вытаскивает их из TExtBox!...вообще не могу понять как это делать.((((

Добавлено через 1 минуту
Будьте добры ткнуть мне пальцем))))чтобы я увидел как эти массивы делаються

)))

@Linoge · 25.04.2012, 12:19

Сообщение от VladLes

Будьте добры ткнуть мне пальцем))))чтобы я увидел как эти массивы делаються

)))

Чтоб сделать массив элементов - расположи первый на форме, в свойствах поставь Index = 0 (или любой другой начальный индекс), и затем копируй этот элемент сколько нужно.

Для объявления массива чисел например по массиву текстовых полей text1
ReDim(Text1.LBound to Text1.UBound)
только зачем еще числовой массив если есть массив полей - можно уже с ним работать.

@VladLes · 25.04.2012, 12:29 **[ТС]**

Нужен числовой массив чтобы в дальнейшем работать с теми цифрами(максимальными) которые он нашел)

@Linoge · 25.04.2012, 13:15

Мож проще с клавы вводить?Dim n%, m%

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
Private Sub Command1_Click()
    n = InputBox("Количесво строк", , 3)
    m = InputBox("Количесво столбцов", , 5)
    ReDim mas#(n - 1, m - 1), Max#(n - 1)
    For i = 0 To n - 1
        Max(i) = -1.7E+308
        For j = 0 To m - 1
            mas(i, j) = Val(InputBox("Введите элемент " & i & " " & j))
            If mas(i, j) > Max(i) Then Max(i) = mas(i, j)
        Next
    Next
End Sub

@VladLes · 25.04.2012, 13:43 **[ТС]**

Мне кажется я неправильно излагаю свои мысли) Так что решил выставить то что я хочу)
И так, смотрите вон те 9 TextBox-ов мне надо заполнять дробными числами...как я уже говорил при нажатии на кнопку "Результат" в большой Text box который находиться с права выводиться определенные числа которые будут рассчитаны по формуле. Чтобы формула была полной нам надо узнать самые большие числа в textBox (маленьких) то есть надо узнать наибольший результат в колонке 1, в колонке x и в колонке 2. Чтобы их узнать мне нужен массив, вот это и есть проблема я не могу понять как надо составить массив чтобы значения он считывал с этих колонок(то есть надо будет 3 массива) полученные данные будут дальше обрабатываться формулой

)) вот...надеюсь изъяснился правильно) Жду ответов

@Linoge · 25.04.2012, 14:16

Обрати внимание на имена и свойства текстбоксов.

@Апострофф · 25.04.2012, 14:34

Посмотри вложение.

Из одной пробирки

vstz, только Val надо-бы на CDbl заменить или вообще убрать.

@Linoge · 25.04.2012, 16:14

Сообщение от Апострофф

vstz, только Val надо-бы на CDbl заменить или вообще убрать.

Если с проверкой то да, а если без нее val текст превратит в 0.
Хотя вариант с проверкой более правильный

@VladLes · 25.04.2012, 17:52 **[ТС]**

Большой вам поклон господа))но у меня возникла непонятная проблема... после перенесения кода в свои формы прога при нажатие на кнопочку стала ругаться на вот это строчку:
"If IsNumeric(Text1(0)) And IsNumeric(Text1(1)) And IsNumeric(Text1(2)) Then" непонятно почему..(((
я так понимаю Text1 это форма на которую выводит сообщение...все у себя переименовал но почему то все равно ругается вообще не могу понять..
Вы меня простите конечно что задаю может и бональные вопросы, но с VB6 я давно уже не работал и вот захотел написать прогу для друга)

Добавлено через 13 минут
Все нашел ошибку)))у меня индексы не были прописаны)) но теперь возникла новая) всегда пишет при любыч значения то что "данные введены некоректно" (тоесть проверка бунтует)))

@Апострофф · 25.04.2012, 17:56

Разделитель поменять на запятую, скорее всего!

Новые блоги и статьи Все статьи Все блоги /
Вывод данных через динамический список в справочнике Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .	Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .
Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем	10 пpимет, которые всегда сбываются Maks 31.03.2026 1. Чтобы, наконец, пришла маршрутка, надо закурить. Если сигарета последняя, маршрутка придет еще до второй затяжки даже вопреки расписанию. 2. Нaдоели зима и снег? Не надо переезжать. Достаточно. . .	Перемещение выделенных строк ТЧ из одного документа в другой Maks 31.03.2026 Реализация из решения ниже выполнена на примере нетипового документа "ВыдачаОборудованияНаСпецтехнику" с единственной табличной частью "ОборудованиеИКомплектующие" разработанного в конфигурации КА2. . . .	Functional First Web Framework Suave DevAlt 30.03.2026 Sauve. IO Апнулись до NET10. Из зависимостей один пакет, работает одинаково хорошо как в режиме проекта так и в интерактивном режиме. из сложностей - чисто функциональный подход. Решил. . .

@VladLes 0 / 0 / 0 Регистрация: 24.04.2012 Сообщений: 7

	Ввод данных массива из TextBox 24.04.2012, 17:29. Показов 8549. Ответов 15 Метки нет (Все метки) Доброго времени суток. Люди я весь день голову ломаю над своей программкой и не как не могу додуматься, помогите пожалуйста кто чем сможет. И так, проблема заключается вот в чем: У меня предположим есть 3 поля(TextBox) в которые пользователь вписывает дробные числа. После их ввода пользователь нажимает на кнопочку и программа должна из этих введенных числе составить массив и найти в нем максимальное число...которое в дальнейшем будет использоваться(необязателен вывод куда нибудь)...Люди добрые прошу вас помогите пожалуйста весь ваш форум облазил так и не нашел(или не понял) как пишется этот "долбанный" код. Заранее за любую помощь спасибо! 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,907
	24.04.2012, 17:35
	Наводящий вопрос - это для VB6? 0

@VladLes 0 / 0 / 0 Регистрация: 24.04.2012 Сообщений: 7
	24.04.2012, 17:36 [ТС]
	Да. Простите забыл указать.. 0

@VladLes 0 / 0 / 0 Регистрация: 24.04.2012 Сообщений: 7
	24.04.2012, 19:34 [ТС]
	Апострофф, за ответ вам спасибо, но дело в том что мне кажеться что лучше использовать массив, потому что у меня будет не три textBox а более и расположенны они как таблицы умножение(к примеру) и надо чтобы для каждого столбца было свое наивысшее число...хотя может все такие лучше использовать вами данный код? как вы думаете?? И мне надо чтобы все действия производились только после нажатия кнопки. Добавлено через 26 минут Очень прошу ответить, подсказать)) 0

@VladLes 0 / 0 / 0 Регистрация: 24.04.2012 Сообщений: 7
	25.04.2012, 11:44 [ТС]
	Да количество столбцов будет известно программе сразу же например возьмем 3x3 (три столбца и три строки) После ввода в них дробные числа нажимаем на кнопочку и программа составляет 3 массива где в каждом должна найти максимальное число...лично моя проблема я не как не могу понять как делать чтобы массив не рандомом значения подставляет а вытаскивает их из TExtBox!...вообще не могу понять как это делать.(((( Добавлено через 1 минуту Будьте добры ткнуть мне пальцем))))чтобы я увидел как эти массивы делаються))) 0

@VladLes 0 / 0 / 0 Регистрация: 24.04.2012 Сообщений: 7
	25.04.2012, 12:29 [ТС]
	Нужен числовой массив чтобы в дальнейшем работать с теми цифрами(максимальными) которые он нашел) 0

@VladLes 0 / 0 / 0 Регистрация: 24.04.2012 Сообщений: 7
	25.04.2012, 13:43 [ТС]
	Мне кажется я неправильно излагаю свои мысли) Так что решил выставить то что я хочу) И так, смотрите вон те 9 TextBox-ов мне надо заполнять дробными числами...как я уже говорил при нажатии на кнопку "Результат" в большой Text box который находиться с права выводиться определенные числа которые будут рассчитаны по формуле. Чтобы формула была полной нам надо узнать самые большие числа в textBox (маленьких) то есть надо узнать наибольший результат в колонке 1, в колонке x и в колонке 2. Чтобы их узнать мне нужен массив, вот это и есть проблема я не могу понять как надо составить массив чтобы значения он считывал с этих колонок(то есть надо будет 3 массива) полученные данные будут дальше обрабатываться формулой )) вот...надеюсь изъяснился правильно) Жду ответов 0

@VladLes 0 / 0 / 0 Регистрация: 24.04.2012 Сообщений: 7
	25.04.2012, 17:52 [ТС]
	Большой вам поклон господа))но у меня возникла непонятная проблема... после перенесения кода в свои формы прога при нажатие на кнопочку стала ругаться на вот это строчку: "If IsNumeric(Text1(0)) And IsNumeric(Text1(1)) And IsNumeric(Text1(2)) Then" непонятно почему..((( я так понимаю Text1 это форма на которую выводит сообщение...все у себя переименовал но почему то все равно ругается вообще не могу понять.. Вы меня простите конечно что задаю может и бональные вопросы, но с VB6 я давно уже не работал и вот захотел написать прогу для друга) Добавлено через 13 минут Все нашел ошибку)))у меня индексы не были прописаны)) но теперь возникла новая) всегда пишет при любыч значения то что "данные введены некоректно" (тоесть проверка бунтует))) 0

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,907
	25.04.2012, 17:56
	Разделитель поменять на запятую, скорее всего! 0