[jones246]

Hi

My first post I think as this is my second attempt to post.
I am new to VB and amd using VB8 sp1.
I am doing a project for college and all is going ok but for this if statement. the last lbl_output should returd "TAPE" but it always returns "DVD". any help would be great as I am at this for ever.

Public Class frm_databackup
    Dim Cd As Single
    Dim DVD As Single
    Dim Tape As Single

Private Sub btn_calculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_calculate.Click
        If txt_input.Text <= 700 Then
            lbl_output.Text = " CD"
        ElseIf txt_input.Text > 700 <= 4812.8 Then
            lbl_output.Text = "DVD"
        ElseIf txt_input.Text > 4812.8 Then
            lbl_output.Text = " TAPE"
        End If

    End Sub

This post has been edited by no2pencil: 09 August 2011 - 06:32 PM
Reason for edit:: Added code tags

[CharlieMay]

You are comparing a string as you would a value AND you need to qualify each comparison

If CInt(txt_input.Text) > 700 AND CInt(txtInput.Text) <= 4812.8 Then
lbl_output.Text = "DVD"

Remember 700 is not "700" one is numeric and one is a string representing a number. Therefore you will need to convert it.

[jones246]

Hi CharlieMay

Your code worked and I thank you for that.

I have a lot to learn.

Best regards

jones246

[Elda]

A credit to Sir Charlie...