04-13-2009, 01:22 PM
Hi
I don't now how to do much of this. The last time I did any programing was 30 years ago with fortran. I have been doing simple copy and paste between 2 programs but I now have to read a letter, M or F for male or female, and get that to initiate a mouse click on the other program. The first program screen is DOS based. I can get the mouse clicks fine but it is interpeteing the letters that I can't seem to get. Here is how I approach it unsuccessfully so far:
//Get PatSex from screen and click the correct M or F
//if text is M then left click on M in "enter new patient demographics else if text is F click F
int w14=act(win("C332 - PCN-TERM - [91]192.168.0.50]" "Afx:400000:8:10011:0:*""" 0x800))
lef+ 400 331 w14
lef- 418 341 w14
id - 59648
lef 409 339 w14
if child(id("*" "static" "C332 - PCN-TERM - [91]192.168.0.50]" 1 409 339))= M
int w15=act(win("ENTER NEW PATIENT DEMOGRAPHICS" "ThunderRT6FormDC"))
lef+ 273 104 w15
lef- 274 104 w15
lef 134 87 w15
int w16=act(win("ENTER NEW PATIENT DEMOGRAPHICS" "ThunderRT6FormDC"))
lef 168 92 w16
else child(id("*" "static" "C332 - PCN-TERM - [91]192.168.0.50]" 1 409 339))= F
int w17=act(win("ENTER NEW PATIENT DEMOGRAPHICS" "ThunderRT6FormDC"))
lef 164 90 w17
I don't now how to do much of this. The last time I did any programing was 30 years ago with fortran. I have been doing simple copy and paste between 2 programs but I now have to read a letter, M or F for male or female, and get that to initiate a mouse click on the other program. The first program screen is DOS based. I can get the mouse clicks fine but it is interpeteing the letters that I can't seem to get. Here is how I approach it unsuccessfully so far:
//Get PatSex from screen and click the correct M or F
//if text is M then left click on M in "enter new patient demographics else if text is F click F
int w14=act(win("C332 - PCN-TERM - [91]192.168.0.50]" "Afx:400000:8:10011:0:*""" 0x800))
lef+ 400 331 w14
lef- 418 341 w14
id - 59648
lef 409 339 w14
if child(id("*" "static" "C332 - PCN-TERM - [91]192.168.0.50]" 1 409 339))= M
int w15=act(win("ENTER NEW PATIENT DEMOGRAPHICS" "ThunderRT6FormDC"))
lef+ 273 104 w15
lef- 274 104 w15
lef 134 87 w15
int w16=act(win("ENTER NEW PATIENT DEMOGRAPHICS" "ThunderRT6FormDC"))
lef 168 92 w16
else child(id("*" "static" "C332 - PCN-TERM - [91]192.168.0.50]" 1 409 339))= F
int w17=act(win("ENTER NEW PATIENT DEMOGRAPHICS" "ThunderRT6FormDC"))
lef 164 90 w17