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]

it isn't working.
i changed all the CLng to CDbl or CSng (tried both) and neither works
the code i have is the code from your post 12 Feb 09 16:50

I did read it, and I STILL want to see your code!!!

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

 

[cheetahz]

Set MyScreen = Sess0.Screen
         Set MyArea = MyScreen.Area(6, 17, 6, 22,, 3)
           
        mysum1 = CDbl(MyArea)
        If IsNumeric(Mysum1) Then
        If MySum1 < CDbl(85.00) Then
    
        Msgbox "amount must be at least $85.00"
    Else
        DiffMyArea = CDbl(MySum1) - CDbl(75.00)
  
    
    Set MyArea = MyScreen.Area(17,17,17,22,,3)
	MyArea.Select
	MyArea.Copy
	Set MyArea = MyScreen.Area(6,17,6,22,,3)
	MyArea.Select
	MyArea.Paste
    MyScreen.PutString CDbl(DiffMyArea), 6,  17
    
    End IF
End If
[code/]

 

[SkipVought]

All I can say is that this works for me.

    Set MyArea = MyScreen.Area(10, 46, 10, 49, , 3)

    If IsNumeric(MyArea.value) Then
        DiffMyArea = CDbl(MyArea) - CDbl(0.5)
    End If

    MyScreen.PutString "    ", 10, 46
    MyScreen.PutString DiffMyArea, 10, 46

I had
[tt]
8.0
[/tt]
I got
[tt]
8.0
[/tt]
7.5

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

 

[cheetahz]

Did you happen to try it with say 100.00

 

[SkipVought]

Was
[tt]
100.
[/tt]
Got
[tt]
99.5
[/tt]


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

 

[cheetahz]

even 85.00 returns 10 0
no decimal and digits are out of place

 

[SkipVought]

You are not CLEARING the area!!!!!!!!!!!!!

Notice my code???

Pay attention!!!

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 i already changed that????????????? lol

but i did just notice you was using
If IsNumeric(MyArea.value)
instead of
If IsNumeric(Mysum1) Then
and your not using mysum

 

[SkipVought]

WORKS!!!

    Set MyArea = MyScreen.Area(10, 46, 10, 49, , 3)

    MySum = CDbl(MyArea)

    If IsNumeric(MySum) Then
        DiffMyArea = MySum - CDbl(0.5)
    End If
[b]
    MyScreen.PutString "    ", 10, 46[/b]
    MyScreen.PutString DiffMyArea, 10, 46

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, Again
it looks like it works with a small number it messes up with number such as 100.00 please try that

 

[SkipVought]

What do you mean by "it messes up"?

Please let me have a glimpse of what's in your head!

I cannot read your mind!

Please be exact!

It seems that each simple question, requires TOO MANY requests for clarification!

HELP ME!!!

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

 

[cheetahz]

i have posted several times
wow?

anyway

85.00 returns 10 0
100.00 returns 25 00

no decimal and digits are out of place

and i also asked you to try a larger number that way you could see exactly what it is doing if you cant follow the posts.

 

[SkipVought]

Ohhhhhh, lordie!!!

CLEAR the area BEFORE you put your stuff in it!!!!!!!!!!!

Do you realize how many times I have advised you to do this, an yet you complete ignore what will be your solution.

Observe MY CODE!!!!!! 13 Feb 09 12:44

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

 

[cheetahz]

i feel like you are getting paid for each post lol

here is my code as i stated eairler i changed it to match yours.

take a look and let me know if i am missing something

Set MyScreen = Sess0.Screen
         Set MyArea = MyScreen.Area(6, 17, 6, 22,, 3)
           
        mysum1 = CDbl(MyArea.Value)
        If IsNumeric(Mysum1) Then
        If MySum1 < CDbl(85#) Then
    
        Msgbox "amount must be at least $85.00 to "
    Else
        DiffMyArea = CDbl(MySum1) - CDbl(75#)
  
    
    Set MyArea = MyScreen.Area(17,17,17,22,,3)
	
    MyScreen.PutString"    ", 6, 17
    MyScreen.PutString CDbl(DiffMyArea), 6,  17
    
    End IF
    End If

 

[SkipVought]

Tell me what happens when you run it.

Post ALL the relevant values before and after.

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

 

[SkipVought]

    MyScreen.PutString"    ", 6, 17

1. why is there no SPACE between PutString and the literal?

2. why do you only have FOUR SPACES when your AREA had SIX?

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

 

[cheetahz]

i have posted several times
wow?

anyway

85.00 returns 10 0 ->instead of 10.00
100.00 returns 25 00 ->instead of 25.00

no decimal and digits are out of place

and i also asked you to try a larger number that way you could see exactly what it is doing if you cant follow the posts.

 

[vzachin]

how about changing

MyScreen.PutString CDbl(DiffMyArea), 6,  17

to

MyScreen.PutString format(DiffMyArea,"fixed"), 6,  17

 

[SkipVought]

Problem is, I have a 4 byte field -- you have a 6 byte field.

You must CLEAR a six byte field.

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

 

[cheetahz]

whshooo!!

success!
it was this change that fixed it
MyScreen.PutString format(DiffMyArea,"fixed"), 6, 17

thank you