[RESOLVED] How to put 5 numbers in this order 1,2,3,4,5

[memas]

i have 6 textboxes and i want the results of theses (1-2,1-3,1-4,1-5) to drive them
1 in 5 labels but the smallest result to label1 the second result to label2.....and the bigest result to label5
2 the numbers to abs absolute
3 the equal numbers to appear once
thank you
memas

[.paul.]

you have 6 numbers that you want to display in 5 labels???

to sort your numbers, add them to an array:

dim intArray() as integer = {5,3,2,4,1}
array.sort(intArray)

[memas]

i am new in programming and i cannot understand except if i send you the code that i have and you add the next step
thank you
memas

[.paul.]

post your code in this thread. use the Code or VBCode tags above the message editor textbox to format your code

[memas]

Dim num1 As Integer = Val(num1TextBox.Text)
Dim num16 As Integer = Val(num16TextBox.Text)
Dim num17 As Integer = Val(num17TextBox.Text)
Dim num18 As Integer = Val(num18TextBox.Text)

Dim a As Integer = num1TextBox.Text - num16TextBox.Text
Dim b As Integer = num1TextBox.Text - num17TextBox.Text
Dim c As Integer = num1TextBox.Text - num18TextBox.Text

i want to drive theses results according to their values to labels the smallest label1 ,the bigest to label5
equal numbers to appear once
and the numbers to be abs absolute

[dbasnett]

Option Strict On 'SHOULD BE FIRST STATEMENT OF ALL PROGRAMS
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim tb1, tb2 As Integer 'Integer is one form of number.  
        '1.  Make sure we have numbers.  Check and convert the Textboxes(read about TryParse)
        If Not Integer.TryParse(TextBox1.Text, tb1) Then
            'what was in Textbox1 wasn't a number
            Exit Sub
        End If
        If Not Integer.TryParse(TextBox2.Text, tb2) Then
            'what was in Textbox2 wasn't a number
            Exit Sub
        End If
        '2.  Now that we have numbers we can subtract
        Dim tb12diff As Integer
        tb12diff = tb1 - tb2
        '3.  Now put that in a label
        Label1.Text = tb12diff.ToString
    End Sub
End Class

[memas]

i cannot understand the code what is the use of that
what means tb1
memas

[dbasnett]

You would do yourself a great service by getting a fundamental book.

http://search.yahoo.com/search?p=vis...8&fr=yfp-t-701

[memas]

thank you

[dbasnett]

Sorry. But
Dim something as Integer is fundamental, at least IMHO it is.

[memas]

ok
thanks

[.paul.]

you've only given me 4 numbers to work with. but:

Dim num1 As Integer = Val(num1TextBox.Text)
Dim num16 As Integer = Val(num16TextBox.Text)
Dim num17 As Integer = Val(num17TextBox.Text)
Dim num18 As Integer = Val(num18TextBox.Text)
 
Dim a As Integer = math.abs(num1 - num16)
Dim b As Integer = math.abs(num1 - num17) 
Dim c As Integer = math.abs(num1 - num18)
 
dim numbers() as integer = {a, b, c} 
array.sort(numbers)
 
label1.text = numbers(0)
label2.text = numbers(1)
label3.text = numbers(2)

there are plenty of online resources + tuition available for beginners.
try this:

http://www.homeandlearn.co.uk/NET/vbNET.html

[.paul.]

Sorry. But
Dim something as Integer is fundamental, at least IMHO it is.

booya!

if he'd got past the integer declaration the integer.tryparse would've got him

[memas]

paul
thank you very much
it is working except that we need equal numbers to appear once
and i have errors when the strict option is on
and how you describe this code are this an array?
i have a book from jame foxall that i read and i am in programming 15 days ago
memas

[.paul.]

this is an array:

dim numbers() as integer = {a, b, c}

its got 3 elements - 0, 1, + 2 which represent a, b, + c

heres another array, where its sorted differently + only distinct numbers (no more than 1 occurence of any number) are selected:

Dim numbers() As Integer = {2, 2, 4, 5, 5, 3, 1}
Dim distinctNumbers = (From item In numbers _
                        Order By item _
                        Select item Distinct)
numbers = distinctNumbers.ToArray

[memas]

paul
so which is the correct for my program?
memas

[.paul.]

a combination of the 2 posts

use the array from the first post, + the sorting + selecting from the last post.
as dbasnett said, you really need to read + practice with programming yourself to learn it.

[dbasnett]

Figures... I found some of his books online, and if you have the Sam's Teach Yourself .Net in 24 Hours, Data Types aren't covered until Hour 12.

[memas]

i try to expan with more labels and more textboxes and i have error may i send you the code?
thank you

[.paul.]

ok. post your code again

[memas]

paul
thank you
Option Strict Off

Public Class testform1





Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


Dim num1 As Integer = Val(num1TextBox.Text)
Dim num16 As Integer = Val(num16TextBox.Text)
Dim num17 As Integer = Val(num17TextBox.Text)
Dim num18 As Integer = Val(num18TextBox.Text)
Dim num19 As Integer = Val(num19TextBox.Text)
Dim num20 As Integer = Val(num20TextBox.Text)

Dim a As Integer = Math.Abs(num1 - num16)
Dim b As Integer = Math.Abs(num1 - num17)
Dim c As Integer = Math.Abs(num1 - num18)
Dim d As Integer = Math.Abs(num1 - num19)
Dim f As Integer = Math.Abs(num1 - num20)






Dim numbers() As Integer = {a, b, c, d, f}
Array.Sort(numbers)

label1.Text = numbers(0)
Label2.Text = numbers(1)
Label3.Text = numbers(2)
label4.Text = numbers(3)
Label5.Text = numbers(4)
Label6.Text = numbers(5)
Label7.Text = numbers(6)



End Sub
End Class

[.paul.]

ok. you can turn option strict back on. turn option infer on too.

your array has 5 elements - a, b, c, d, f

that is 0 to 4.

so numbers(0) is ok, numbers(4) is ok, but numbers(6) is outside of the bounds of the array

Public Class testform1
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim num1 As Integer = Val(num1TextBox.Text)
        Dim num16 As Integer = Val(num16TextBox.Text)
        Dim num17 As Integer = Val(num17TextBox.Text)
        Dim num18 As Integer = Val(num18TextBox.Text)
        Dim num19 As Integer = Val(num19TextBox.Text)
        Dim num20 As Integer = Val(num20TextBox.Text)
 
        Dim a As Integer = Math.Abs(num1 - num16)
        Dim b As Integer = Math.Abs(num1 - num17)
        Dim c As Integer = Math.Abs(num1 - num18)
        Dim d As Integer = Math.Abs(num1 - num19)
        Dim f As Integer = Math.Abs(num1 - num20)
 
        Dim numbers() As Integer = {a, b, c, d, f}
        Dim distinctNumbers = (From item In numbers _
                        Order By item _
                        Select item Distinct)
        numbers = distinctNumbers.ToArray 
 
        if numbers.getupperbound(0) >= 0 then
            label1.Text = numbers(0).tostring
        else
            label1.Text = ""
        end if
        if numbers.getupperbound(0) >= 1 then
            Label2.Text = numbers(1).tostring
        else
            label2.Text = ""
        end if
        if numbers.getupperbound(0) >= 2 then 
            label3.Text = numbers(2).tostring
        else
            label3.Text = ""
        end if
        if numbers.getupperbound(0) >= 3 then
            Label4.Text = numbers(3).tostring
        else
            label4.Text = ""
        end if
        if numbers.getupperbound(0) >= 4 then
            Label5.Text = numbers(4).tostring
        else
            label5.Text = ""
        end if
    End Sub
End Class

[memas]

paul
the programe works but when i turn on the option strict i have errors
Option Strict On disallows implicit conversions from 'Double'
thank you again you are a god

[.paul.]

change:

Math.Abs(num1 - num16)

to:

Math.Abs(cint(num1 - num16))

etc

[memas]

paul
i changed it but still errors
Option Strict On disallows implicit conversions from 'Double' to 'Integer'.
maybe is there that i write val(num1TextBox.Text)?
memas

cint(val(num1TextBox.Text)) returns an integer
and this works what is better?










'

[.paul.]

i found it now.

val(num1TextBox.Text) returns a double

cint(val(num1TextBox.Text)) returns an integer

[memas]

paul
i tried this and works no errors
Dim num1 As Integer = Integer.Parse(num1TextBox.Text)
Dim num16 As Integer = Integer.Parse(num16TextBox.Text)
Dim num17 As Integer = Integer.Parse(num17TextBox.Text)
Dim num18 As Integer = Integer.Parse(num18TextBox.Text)
Dim num19 As Integer = Integer.Parse(num19TextBox.Text)
Dim num20 As Integer = Integer.Parse(num20TextBox.Text)
memas thank you again

[.paul.]

that works ok if your textbox contains an integer. if not it causes a runtime error.
try this:

Dim num1 As Integer
Integer.tryParse(num1TextBox.Text, num1)
Dim num16 As Integer
Integer.tryParse(num16TextBox.Text, num16)
Dim num17 As Integer
Integer.tryParse(num17TextBox.Text, num17)
Dim num18 As Integer
Integer.tryParse(num18TextBox.Text, num18)
Dim num19 As Integer
Integer.tryParse(num19TextBox.Text, num19)
Dim num20 As Integer
Integer.tryParse(num20TextBox.Text, num20)

[memas]

is better to choose the parse method or the cint ?
memas

[GaryMazzone]

If you just use CInt and some one put a letter (a,b A....) in the text box the application will error. The TryParse avoids this condition

[memas]

thank you gary

[.paul.]

as gary said, CInt can cause an error

CInt("1") returns 1 in integer datatype
CInt("a") causes a runtime error

Val("1") returns 1 in double datatype
Val("a") returns 0 in double datatype


so

CInt(Val("1")) returns 1 in integer datatype
CInt(Val("a")) returns 0 in integer datatype

but integer.tryparse is a better option

[memas]

Paul
thank you for your help
i am happy because i see this programe working
thank you again you gave me courage to love more the programming science

[dbasnett]

Now would be the best time to read about data types in your book.

[memas]

ok i will