CitectSCADA cicode help

Stalker · Feb 4, 2010

Hello,

i would like make a simpe cicode program. I just wanna change an object color when the mouse on it. Im new in cicode so in 1st step I just want make a test cicode which was:

DspGetMouse(X, Y);
IF X>300 THEN
FileDelete("C:\Report.Txt");
END

so read mouse x,y cordinates and make a filedelete. / Citect ver. 6.1 /

The compiler return with 2 errors. I attached them below.
(I tried DspGetMouse(X,Y) and DspGetMouse(X, Y) too)

Any ideas?

tragically1969 · Feb 4, 2010

You need to link back to the X and Y variables somewhere, you dont need them a actual variables so just use them in the function.

Its much easier if you make a cicode file and a function to do this and call the function from the button, something like this:

FUNCTION Delete_File()

INT iX, iY

DspGetMouse(iX, iY)

IF iX > 300 THEN
FileDelete("C:\Report.Txt");
END

Stalker · Feb 4, 2010

So I save the code with Cicode editor to a .ci file.

And after how? I put down a button and have Apperance, Movement, Input and Access tabs...

tragically1969 · Feb 4, 2010

Start the Cicode editor, paste the text in to it from my post, save the file as a name of your choosing

On the button up action put Delete_File()

Compile the project........see what happens !!

Next question, why do you want to know the location of the mouse to delete a file ?

Stalker · Feb 4, 2010

Actually i would like change object color if the mouse over it

The file delete was just a test how the things are work.

Maybe you can help me with that. My plan is if mouse pointer is in the specified area x1,y1 and x2,y2 then A object change color. (i donno how change color so I just draw a similar object with different color and hide/show it.

My other problem: i need the mouse cordinates in the plantviewer only, but the DspGetMouse read cordinates from all windows desktop :|

As I said Im a beginner ...

Stalker · Feb 15, 2010

Anyone?

mmaliga · Feb 16, 2010

There is an inbuilt function in Citect - DspGetMouseOver(iAn) - you can use this in the "Fill" properties of an object (text, box, any object with dynamic properties) to change the color when the mouse is over it.
Actual code is in Cicode (assuming you are running at least ver 6) - you can look at it to see how it was implemented.
If you know the coordinates of your Plantviewer, you will need to write another Cicode function limiting the DspGetMouse(iX,iY) Coordinates to a bounded area. A dynamic window would take a bit more work - if you are keeping track of your window numbers, you may be able to drag the properties out of it (WndFind() and WndInfo()- or you may need to momentarily set your focus on it and fix its size.

I'll leave you to the help files for these

Stalker · Feb 18, 2010

Okay, i made this:

FUNCTION Show_kor(INT iE, INT iG)

INT MouseeX, MouseY, AN_num, AN_x, AN_y,

DspGetMouse(MouseeX, MouseY)
AN_num = DspGetAnFromPoint(MouseeX, MouseY)

IF AN_num=iE OR AN_num=iG THEN

DspAnMove(iG,30000,0)

ELSE

AN_y = DspGetAnBottom(iE)
AN_x = DspGetAnLeft(iE)
DspAnMove(iG,AN_x,AN_y)

END
END

and obviously its not working. When i compile then drop 3 errors:

After this i tried the following little program to check the DspGetMouse function.

FUNCTION Show_obj()

INT iX, iY

DspGetMouse(iX, iY)

DspAnMove(10,400,600)

END

This worked fine.

I have no idea whats next...

tragically1969 · Feb 18, 2010

Stalker said:
Okay, i made this:

FUNCTION Show_kor(INT iE, INT iG)

INT MouseeX, MouseY, AN_num, AN_x, AN_y,

DspGetMouse(MouseeX, MouseY)
AN_num = DspGetAnFromPoint(MouseeX, MouseY)

IF AN_num=iE OR AN_num=iG THEN

DspAnMove(iG,30000,0)

ELSE

AN_y = DspGetAnBottom(iE)
AN_x = DspGetAnLeft(iE)
DspAnMove(iG,AN_x,AN_y)

END
END

You have a trailing comma (,) after you have declared your local variables, it needs removing, the one after AN_y

mmaliga · Feb 18, 2010

slightly different method

Also, at the end of each statement (except for the If,Else and End, and also the declarations) you will need a ; (semicolon). Some of the older versions were not strict on that, so just be careful.

Another method - single function.
Add (object - Text, "Hello World") to a graphics page.
After entering on a new page, normal template, open the properties.
Go to the "ACCESS" tab and get the AN Number. (205 in this case)

Go to the "FILL" tab.

add DspGetMouseOver(205); (or -1 for the current AN?)

This would get you out of writing a function to do it - it is how they do it in the templates.

mmaliga · Feb 18, 2010

wow - sorry about that - I haven't figured out how to post screen shots yet and I am out of time today.

mmaliga · Feb 18, 2010

Trying again

Add (object - Text, "Hello World") to a graphics page.

After entering on a new page, normal template, open the properties.
Go to the "ACCESS" tab and get the AN Number. (205 in this case)

Go to the "FILL" tab.

add DspGetMouseOver(205); (or -1 for the current AN?)

This would get you out of writing a function to do it - it is how they do it in the templates.

Screenshots are attached.

Stalker · Feb 19, 2010

tragically1969 said:
You have a trailing comma (,) after you have declared your local variables, it needs removing, the one after AN_y

Thanks, that was the problem !

Stalker · Feb 19, 2010

mmaliga said:
Add (object - Text, "Hello World") to a graphics page.

After entering on a new page, normal template, open the properties.
Go to the "ACCESS" tab and get the AN Number. (205 in this case)

Go to the "FILL" tab.

add DspGetMouseOver(205); (or -1 for the current AN?)

This would get you out of writing a function to do it - it is how they do it in the templates.

Screenshots are attached.

I will try this too, and feedback how works.

Stalker · Feb 22, 2010

mmaliga said:
Add (object - Text, "Hello World") to a graphics page.

After entering on a new page, normal template, open the properties.
Go to the "ACCESS" tab and get the AN Number. (205 in this case)

Go to the "FILL" tab.

add DspGetMouseOver(205); (or -1 for the current AN?)

This would get you out of writing a function to do it - it is how they do it in the templates.

Screenshots are attached.

Yes, work fine this too. Thanks ! (anyway I change objects because they shape is different...)

CitectSCADA cicode help

Stalker

Member

tragically1969

Member

Stalker

Member

tragically1969

Member

Stalker

Member

Stalker

Member

mmaliga

Member

Stalker

Member

tragically1969

Member

mmaliga

Member

mmaliga

Member

mmaliga

Member

Stalker

Member

Stalker

Member

Stalker

Member

Similar Topics