2016-02-05 4 views
0

поэтому у меня есть этот код, и мне нужно передать значение array1 в array2, , но значение array2 должно быть array1 + (key Mod 255), где key ставится пользователемVB.net Передача значения массива 1, в массив 2

Private Sub mod_Btn_enc_Click(sender As Object, e As EventArgs) Handles mod_Btn_enc.Click 
    Dim counter As Integer = 0 
    If mod_TB_key.Text = "" Then 
     MessageBox.Show("Pls Input Modulo Key Value", "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) 
    Else 
     modKey = mod_TB_key.Text 
    End If 

    modModulo = modKey Mod 255 'formula 
    mod_TB_mod.Text = modModulo 'i used this to show that it is working 
'modbyte = array 1 
'modconverted = array2 
    For Each i As Integer In modByte 
     counter += 1 
     modConverted(counter - 1) = modByte(i - 1) + (modModulo) 'formula used 
    Next i 
    mod_Tb_enc.Text = String.Join(" ", modConverted) 'show the array in textbox 

вот мой интерфейс

enter image description here

+1

И ваша проблема/вопрос ...? –

+0

'Для каждого я As Integer В modByte счетчик + 1 = 1modConverted (счетчик - 1) = modByte (я - 1) + (modModulo) Далее я' это не так? и что с ним не так? modconverted не показывает в текстовом поле – dadadadaryl

+1

@dadadadaryl, что показывает в текстовом поле? Немного странно, что вы индексируете в modByte, используя значение, которое вы извлекли из modByte. – phoog

ответ

0

я сумел сделать это таким образом.

For i = 0 To modByte.GetUpperBound(0) 
     counter += 1 
     ReDim Preserve modConverted(counter - 1) 
     modConverted(counter - 1) = modByte(i) + (modModulo) 
    Next 

спасибо за объяснение @phoog