[VB.NET] Add one higher value than what's in the textbox

[Ebonesser]

So I got four textboxes and I want every "data()" to get one higher (+1) then the data that is in that textbox without having to write everything for hand as that would be A LOT of text and would be finite :/



Here's the code:

        If TextBox1.Text = data(0) Then
            TextBox1.Text = data(1)
        End If
        If TextBox1.Text = data(1) Then
            TextBox1.Text = data(2)
        End If
        If TextBox1.Text = data(3) Then
            TextBox1.Text = data(4)
        End If
        If TextBox2.Text = data(1) Then
            TextBox2.Text = data(2)
        End If
        If TextBox2.Text = data(2) Then
            TextBox2.Text = data(3)
        End If
        If TextBox2.Text = data(3) Then
            TextBox2.Text = data(4)
        End If
        If TextBox3.Text = data(2) Then
            TextBox3.Text = data(3)
        End If
        If TextBox3.Text = data(3) Then
            TextBox3.Text = data(4)
        End If
        If TextBox3.Text = data(4) Then
            TextBox3.Text = data(5)
        End If
        If TextBox4.Text = data(3) Then
            TextBox4.Text = data(4)
        End If
        If TextBox4.Text = data(4) Then
            TextBox4.Text = data(5)
        End If
        If TextBox4.Text = data(5) Then
            TextBox4.Text = data(6)
        End If

Any help would be appreciated

[codehpro]

here you go

textbox1.text = val(textbox1.text) + 1

[Danne206]

I don't have any VB programming knowledge at all, here's some similar php code, should give you an idea if we're thinking of the same.
I probably got it wrong, but you could do something similar.

<?php
/*
 * $Means variable, FYI.
 */

function data($args) {
    //Your data function, don't know if it's a VB default.
}

function DataIncrease($args) {
    $value = $args++; //Increase by one
    return data($value);
}

$textboxes = array('1', '2', '3', '4', '5'); //An array with all textboxes in.

foreach ($textboxes as $id) {
    $num = "TextBox" . $id . ".Text"; //i.e TextBox1.Text
    $increased = $id++;
    if($num <= data($id)) /* You obviously use you own num method. */ {
        DataIncrease($increased);
    }
}

?>

If you want an infinite number of form you can use the for.

[stealthy01]

What datatype are the array elements?

[suicidity]

Input.Text = (int.TryParse(Input.Text) + 1).ToString();

??

[Bacanze]

Input.Text = (int.TryParse(Input.Text) + 1).ToString();

??

This

Also use a switch (think they are called case statements in VB) to avoid the pointless conditional loops.

[tehchrono]

if isNumeric(input.text) then
input.text = csng(input.text)+1
end if

[Ebonesser]

Sorry that I haven't replied

The arrays?

        Dim data As String()
        data = TextBox1.Text.Split("&")

[d3rrial]

Everything here is all wrong. Won't work since you make the values + 1. But ebon wants us to make the value shift through the registers. (U no what I mean, like A=1
Reg1
Reg2
Reg3
Reg4

And then shift the A=1 through all the registers.

So my answer is: Nope, won't work since you cannot (AFAIK) make the program create variables for you. You cannot make vb Code saying like 'writeline: dim register"Counter+1"'

[Ebonesser]

Ok thanks for the help anyways

[teh_bee]

        ' array of integers
        Dim data() As Integer = {1, 2, 3, 4, 5}

        If TextBox1.Text = data(0).ToString() Then
            TextBox1.Text = (data(0) + 1).ToString()
        End If
        If TextBox2.Text = data(1).ToString() Then
            TextBox2.Text = (data(1) + 1).ToString()
        End If
        If TextBox2.Text = data(2).ToString() Then
            TextBox2.Text = (data(2) + 1).ToString()
        End If
        If TextBox2.Text = data(3).ToString() Then
            TextBox2.Text = (data(3) + 1).ToString()
        End If
        If TextBox2.Text = data(4).ToString() Then
            TextBox2.Text = (data(4) + 1).ToString()
        End If

[zezenana]

dude use case's

[Namor]

I don't quite understand what you're trying to do, but I could indeed be of some help.
explain pl0x.

[Ebonesser]

Replied 4 weeks ago? jezz... hope you still checking this thread out
Well this is my module where "data()" comes from:

Module Module1
    Sub data()
        Dim data As String()
        data = Form1.TextBox1.Text.Split("&")

        Try
            Form1.TextBox2.Text = data(0)
            Form1.TextBox3.Text = data(0)
            Form1.TextBox4.Text = data(1)
            Form1.TextBox5.Text = data(2)
            Form1.TextBox6.Text = data(3)

        Catch ex As Exception
        End Try
    End Sub
End Module

It split's the text in TextBox1.Text at every "&" into data(0,1,2,3 etc.). Form1.TextBox2.Text is a bigg textbox and the others are small ones beneath it.

I tried this but it didn't work as I wanted it to :/ :

        Dim data As String()
        Static i As Byte
        i = 1 + i
        data = TextBox1.Text.Split("&")

        If data(IsNumeric(TextBox3.Text)) Then
            TextBox3.Text = data(IsNumeric(TextBox3.Text)) + 1
        End If

        If TextBox3.Text = data(data.Count - data.Count + 1) Then
            Try
                TextBox3.Text = data(data.Count - data.Count + 2)
            Catch ex As Exception
                Try
                    TextBox3.Text = data(data.Count - data.Count + 1)
                Catch
                    TextBox3.Text = ""
                End Try
            End Try
        End If

        If TextBox4.Text = data(data.Count - data.Count + 1) Then
            Try
                TextBox4.Text = data(data.Count - data.Count + 2)
            Catch ex As Exception
                Try
                    TextBox4.Text = data(data.Count - data.Count + 1)
                Catch
                    TextBox4.Text = ""
                End Try
            End Try
        End If

        If TextBox5.Text = data(data.Count - data.Count + 2) Then
            Try
                TextBox5.Text = data(data.Count - data.Count + 3)
            Catch ex As Exception
                Try
                    TextBox5.Text = data(data.Count - data.Count + 2)
                Catch
                    TextBox5.Text = ""
                End Try
            End Try
        End If

        If TextBox6.Text = data(data.Count - data.Count + 3) Then
            Try
                TextBox6.Text = data(data.Count - data.Count + 4)
            Catch ex As Exception
                Try
                    TextBox6.Text = data(data.Count - data.Count + 3)
                Catch
                    TextBox6.Text = ""
                End Try
            End Try
        End If

I still had to add numbers one after one, even if I didn't know how many data.Count there where I want it to go on until the data.count has reached the max number of data(). So that it would go on continuously :/