Получение и сохранение значений из массива текстовых полей в массив целых чисел

Question

Прежде всего, я начинаю с VB, и в настоящее время я работаю над заданием школы по разработке игры в рулетку. У меня есть 49 полей ставок в пользовательских текстовых боксах (для целей проверки), и они следующие: Dim BetBoxes() As TextBox = {ctxtFirstHalf, ctxtEven....ctxt 36}. У меня также есть массив (SavedBets) целых чисел, которые используют одни и те же имена, кроме префикса. Теперь, когда я добавил ставки, которые я хочу, я нажимаю кнопку ставки. Я хотел бы сохранить значения заполненных текстовых полей в соответствующие целые числа в массиве integer.

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

Answer 1

Вы можете установить его аналогично к способу настройки онлайн-казино.

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

Когда мяч выбрал номер, вы просто прочитали текстовое свойство соответствующих меток, чтобы узнать, есть ли у вас победитель, а затем вычислить выигрыш от этого значения. Коллекция Controls индексируется по номеру или имени как строка.

После вычисления выигрышей простой цикл очистит все текстовые свойства меток.

Вы можете указать игроку сумму ставки, а затем нажать на поле, чтобы добавить ставку. Обычный обработчик события Click позволит вам добавить ставку на щелчок. Элементы Numericupdown будут работать, чтобы выбрать количество ставок.

Answer 2

Попробуйте использовать структуры и ListOf ..

Structure DataBets 
    Dim TextBox as TextBox 
    Dim Value as Integer 
End Structure 

Dim lBet as List(Of DataBets) 
Dim stBet as DataBets = New DataBets 

Когда ctxFirstHalf заполнены ..

stBet.TextBox = ctxFirstHalf 
stBet.Value = val(ctxFirstHalf.Text) 
lBet.Add(stBet) 

Чтобы получить доступ к нему ..

Msgbox lBet(0).Value '---->this will show your ctxFirstHalf int