Math question 1

[cheetahz]

Is it possible to take some numbers from attachmate screen and do math with them?



I will pase them back to a different location

 

[SkipVought]

Hi,

All the data that you get from an emulator is TEXT.

You can use conversion functions to convert numeric digit strings to numbers.

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[cheetahz]

would you have an example of that?

 

[cheetahz]

sorry do you mean VAL? or STR$

 

[SkipVought]

Did you check Extra HELP on conversion?

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[cheetahz]

yes that is why i asked if you meant to use VAL to convert the text to a val to execute a math function on it.

is that correct?

 

[SkipVought]

Val
CInt
CLng
CDbl



Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[cheetahz]

could you show me an example? or any ideas of what this would look like i cant seem to get it.

i am grabbing a number from the screen (text)
if the number is greater than 85.00 then i subtract 75.00 from the number and paste it or put the number back to the screen and continue code

 

[SkipVought]

What code are you using and what is the result you are getting?

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[cheetahz]

this is what i have now but i cant get the syntax correct
new at basic so don't laugh

Set MyScreen = Sess0.Screen
        Set MyArea = MyScreen.Area(6,17,6,22,,3)
	MyArea.Select
	MyArea.Copy
        if isnumeric(MyArea)  then
   DiffMyArea = clng(MyArea)-clng(75.00)
end if

       If MyArea.Value < 85.00   Then
		Msgbox "amount must be at least greater than $85.00"
  End If

 

[SkipVought]

What value is on the emulator at 6,17,6,22?

What result do you get?

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[cheetahz]

it is differnt all the time and it can be
2 or 3 digits

example
50.00
150.00

 

[SkipVought]

...........and the result??????????

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[cheetahz]

object error
is the sytax corect??

 

[cheetahz]

now it seemed to work does the sytax look correct to do what i have mentioned?

 

[SkipVought]

Help me out here! Please don't make me ask for every little piece of vital information!

Object error on WHAT statement? That's part of the result that you are getting!!!


Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[cheetahz]

ok?
no error now but it pastes back the original number so it is doing no math with the code that i have

 

[SkipVought]

You have no paste in the code you posted!!!

The calculation is in DiffMyArea, and it WORKS!!!

What are you talking about???

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]

 

[cheetahz]

so what is the sytax to get the number back to the screen

Set MyScreen = Sess0.Screen
        Set MyArea = MyScreen.Area(6,17,6,22,,3)
	MyArea.Select
	MyArea.Copy
        if isnumeric(MyArea)  then
   DiffMyArea = clng(MyArea)-clng(75.00)
end if

       If MyArea.Value < 85.00   Then
		Msgbox "amount must be at least greater than $85.00"
  End If
    Set MyArea = MyScreen.Area(6,17,6,22,,3)
	
        MyArea.Paste

 

[SkipVought]

Set MyScreen = Sess0.Screen
        Set MyArea = MyScreen.Area(6,17,6,22,,3)

        if isnumeric(MyArea)  then
   DiffMyArea = clng(MyArea)-clng(75.00)
end if

       If DiffMyArea  < 85.00   Then
        Msgbox "amount must be at least greater than $85.00"
  End If
    MyScreen.Area(6,17,6,22,,3) = DiffMyArea

Skip,
[sup]Don't let the Diatribe...
talk you to death![/sup][sub]
Just traded in my old subtlety...
for a NUANCE![/sub]