Scaling in Visual Basic...

[userxyz]

Hi,

I wrote this in VB:


Dim AI As Integer
Dim Range As Double
Dim Offset As Double
Dim Resultaat As Double

Private Sub Calc_Click()
AI = Inpu.Text
Range = Rang.Text
Offset = Offs.Text
If AI = "" Or Range = "" Or Offset = "" Then Exit Sub
Resultaat = (AI / 27648) * Range + Offset
Resu.Text = Resultaat
End Sub


I try to run it and get:
Member allready exists in a object module from wich this object module derives

This is my first programm in Visual basic btw...

Tnx for any help

 

[Archie]

The first thing I see is that you are comparing a double with a string value where you check to see if the text boxes are empty.

Try it this way

if inpu.text="" OrElse Rang.text="" OrElse Offs.text="" then Exit sub

This should also be the first line in your calc_click sub.

I am assuming you are using VB.net

 

[rohan tandon]

Try it this way...

Validate inputs, then convert the "text" (Strings) to the data type.



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

' validate input
If Inpu.Text <> "" And rang.Text <> "" And offst.Text <> "" Then

'convert to data type
AI = CInt(Inpu.Text)

Range = CDbl(rang.Text)

Offset = CDbl(offst.Text)

Resultaat = (AI / 27648) * Range + Offset

result.Text = Resultaat

Else

MessageBox.Show("Invalid input", "Whatcha doing")

End If





End Sub