BrainModular

Re: Screen Resolution Script

2021-04-16T20:50:14+02:00

not sure to understand,maybe you could take a look on
https://www.brainmodular.com/manuals/hh ... usine-path

Statistics: Posted by senso — 16 Apr 2021, 20:50

Re: Screen Resolution Script

2021-04-14T23:28:02+02:00

i would like to use the PC path that usine is on as a string text to call up and execute .bat files. So instead of resolution, I get "C:/Program Files/Usine Hollyhock/". Then I am able to add the .bat file that is in one of the folders and execute that way by calling up the path and then inserting the command. Hope that helps...

Statistics: Posted by dmitriyc — 14 Apr 2021, 23:28

Re: Screen Resolution Script

2021-04-01T09:37:56+02:00

what do you mean by "print"?

Statistics: Posted by senso — 01 Apr 2021, 09:37

Re: Screen Resolution Script

2021-03-31T23:17:24+02:00

Thank you very much Senso! Very slight correction to your code:

st.loadfromFile(GetApplicationPath + 'LogUsine.log');

should be

st.loadfromFile(GetApplicationPath + '/LogUsine.log');

the format was a bit off and was spitting back an error.

Quick follow up question: is there any way to just simply print the GetApplicationPath?

Statistics: Posted by dmitriyc — 31 Mar 2021, 23:17

Re: Screen Resolution Script

2021-03-19T20:53:22+02:00

this code works on:

CODE:

/////////////////////////////////////////////////////////////////////////////////                                                          // declaration                                                            var refresh,textOut: Tparameter;     var Xout, Yout : Tparameter;     var st   : TStringList;                                                                               // initialisation create parametersprocedure init;var i : integer;                         begin    refresh := CreateParam('get_rez',ptButton);                                SetIsOutPut (refresh,false);      textOut := CreateParam('text',ptTextField);  SetIsInPut(textOut,false);                                  Xout := CreateParam('X',ptdataField);  SetIsInPut( Xout,false);       Yout := CreateParam('Y',ptdataField);  SetIsInPut(Yout,false);    end;               // read                          procedure ReadTextFile;      var all : string; var line : string;var position : integer;   begin  st.create;                        st.clear;       st.loadfromFile(GetApplicationPath + 'LogUsine.log');    all := st.GetCommaText;                                                                                                                                                                       position :=  pos('Resolution',all);                                                           if (position>0) then   begin   position := position+11;    SetStringValue(textOut, copy(all, position, 9));    line  := copy (all, position, 4);     SetValue(Xout, strtoint(line));                        line  := copy (all, position+5, 4);     SetValue(Yout, strtoint(line));   end;                  st.free;         end;         // Callbackprocedure callBack(n : integer);begin     if n=0  then  ReadTextFile;end;

Statistics: Posted by senso — 19 Mar 2021, 19:53

Re: Screen Resolution Script

2021-03-19T04:58:25+02:00

Hmm...Doesn't seem to want to work anymore. I tried revisiting an old project and got an error on line 6 column 21. Can't make heads or tails of the code. Please help with update?

Statistics: Posted by dmitriyc — 19 Mar 2021, 03:58

Screen Resolution Script

2018-11-28T13:19:24+02:00

note that can only work if resolution is set before launching usine, as log is created here,
will not work if changing res while usine is already launched, but maybe possible with sdk im not sure, ill try to have a look.

Statistics: Posted by 23fx23 — 28 Nov 2018, 12:19

Screen Resolution Script

2018-11-28T08:51:54+02:00

GREAT ! thanks 23fx

Statistics: Posted by rlgsbt — 28 Nov 2018, 07:51

Screen Resolution Script

2018-11-27T23:33:55+02:00

cool if usefull

Statistics: Posted by 23fx23 — 27 Nov 2018, 22:33

Screen Resolution Script

2018-11-27T19:14:39+02:00

23fx you are a genius! This is perfect. Exactly what I was thinking! Taking the log that Hollyhock makes and reading the string text directly from it! You are the man!

Statistics: Posted by dmitriyc — 27 Nov 2018, 18:14

Screen Resolution Script

2018-11-27T00:55:23+02:00

maybe try this one:

(paste all in empty script and press compile and init, then 'get rez' button)

CODE:

//////////////////////////////://////////////////////////// Extract rez from usine log           /////////////////////////                                                          // declaration                                                            var refresh,textOut : Tparameter;     var Xout, Yout : Tparameter;     var st   : TStringList;                                                                               // initialisation : create parametersprocedure init;var i : integer;                         begin    refresh := CreateParam('get_rez',ptButton);                                SetIsOutPut(refresh,false);      textOut := CreateParam('text',ptTextField);  SetIsInPut(textOut,false);                                 Xout := CreateParam('X',ptdataField);  SetIsInPut(Xout,false);       Yout := CreateParam('Y',ptdataField);  SetIsInPut(Yout,false);    end;               // read                          procedure ReadTextFile;      var all : string; var line : string;var position :  integer;   begin  st.create;                        st.clear;       st.loadfromFile(GetApplicationPath + 'LogUsine.log');    all := st.GetCommaText;                                                                                                                                                                       position :=  pos('Resolution',all);                                                           if(position>0) then begin     position := position+11;    SetStringValue(textOut, copy(all, position, 9));    line  := copy (all, position, 4);     SetValue(Xout, strtoint(line));                        line  := copy (all, position+5, 4);     SetValue(Yout, strtoint(line));   end;   // itrace(position);                 st.free;         end;         // Callbackprocedure callBack(n:integer);begin     if n=0  then   ReadTextFile;end;

Statistics: Posted by 23fx23 — 26 Nov 2018, 23:55

Screen Resolution Script

2018-11-26T21:12:16+02:00

not currently, but maybe a script guru can create one for U

Statistics: Posted by nay-seven — 26 Nov 2018, 20:12

Screen Resolution Script

2018-11-24T18:14:08+02:00

Hey all.

Was wondering if there was a script or something to get my current screen resolution and preferably spit it out as a numerical output?

Statistics: Posted by dmitriyc — 24 Nov 2018, 17:14

Re: Screen Resolution Script

2021-04-16T20:50:14+02:00

not sure to understand,maybe you could take a look on
https://www.brainmodular.com/manuals/hh ... usine-path

Statistics: Posted by senso — 16 Apr 2021, 20:50

Re: Screen Resolution Script

2021-04-14T23:28:02+02:00

Statistics: Posted by dmitriyc — 14 Apr 2021, 23:28

Re: Screen Resolution Script

2021-04-01T09:37:56+02:00

what do you mean by "print"?

Statistics: Posted by senso — 01 Apr 2021, 09:37

Re: Screen Resolution Script

2021-03-31T23:17:24+02:00

Statistics: Posted by dmitriyc — 31 Mar 2021, 23:17

Re: Screen Resolution Script

2021-03-19T20:53:22+02:00

this code works on:

CODE:

/////////////////////////////////////////////////////////////////////////////////                                                          // declaration                                                            var refresh,textOut: Tparameter;     var Xout, Yout : Tparameter;     var st   : TStringList;                                                                               // initialisation create parametersprocedure init;var i : integer;                         begin    refresh := CreateParam('get_rez',ptButton);                                SetIsOutPut (refresh,false);      textOut := CreateParam('text',ptTextField);  SetIsInPut(textOut,false);                                  Xout := CreateParam('X',ptdataField);  SetIsInPut( Xout,false);       Yout := CreateParam('Y',ptdataField);  SetIsInPut(Yout,false);    end;               // read                          procedure ReadTextFile;      var all : string; var line : string;var position : integer;   begin  st.create;                        st.clear;       st.loadfromFile(GetApplicationPath + 'LogUsine.log');    all := st.GetCommaText;                                                                                                                                                                       position :=  pos('Resolution',all);                                                           if (position>0) then   begin   position := position+11;    SetStringValue(textOut, copy(all, position, 9));    line  := copy (all, position, 4);     SetValue(Xout, strtoint(line));                        line  := copy (all, position+5, 4);     SetValue(Yout, strtoint(line));   end;                  st.free;         end;         // Callbackprocedure callBack(n : integer);begin     if n=0  then  ReadTextFile;end;

Statistics: Posted by senso — 19 Mar 2021, 19:53

Re: Screen Resolution Script

2021-03-19T04:58:25+02:00

Hmm...Doesn't seem to want to work anymore. I tried revisiting an old project and got an error on line 6 column 21. Can't make heads or tails of the code. Please help with update?

Statistics: Posted by dmitriyc — 19 Mar 2021, 03:58

Screen Resolution Script

2018-11-28T13:19:24+02:00

Statistics: Posted by 23fx23 — 28 Nov 2018, 12:19

Screen Resolution Script

2018-11-28T08:51:54+02:00

GREAT ! thanks 23fx

Statistics: Posted by rlgsbt — 28 Nov 2018, 07:51

Screen Resolution Script

2018-11-27T23:33:55+02:00

cool if usefull

Statistics: Posted by 23fx23 — 27 Nov 2018, 22:33

Screen Resolution Script

2018-11-27T19:14:39+02:00

23fx you are a genius! This is perfect. Exactly what I was thinking! Taking the log that Hollyhock makes and reading the string text directly from it! You are the man!

Statistics: Posted by dmitriyc — 27 Nov 2018, 18:14

Screen Resolution Script

2018-11-27T00:55:23+02:00

maybe try this one:

(paste all in empty script and press compile and init, then 'get rez' button)

CODE:

//////////////////////////////://////////////////////////// Extract rez from usine log           /////////////////////////                                                          // declaration                                                            var refresh,textOut : Tparameter;     var Xout, Yout : Tparameter;     var st   : TStringList;                                                                               // initialisation : create parametersprocedure init;var i : integer;                         begin    refresh := CreateParam('get_rez',ptButton);                                SetIsOutPut(refresh,false);      textOut := CreateParam('text',ptTextField);  SetIsInPut(textOut,false);                                 Xout := CreateParam('X',ptdataField);  SetIsInPut(Xout,false);       Yout := CreateParam('Y',ptdataField);  SetIsInPut(Yout,false);    end;               // read                          procedure ReadTextFile;      var all : string; var line : string;var position :  integer;   begin  st.create;                        st.clear;       st.loadfromFile(GetApplicationPath + 'LogUsine.log');    all := st.GetCommaText;                                                                                                                                                                       position :=  pos('Resolution',all);                                                           if(position>0) then begin     position := position+11;    SetStringValue(textOut, copy(all, position, 9));    line  := copy (all, position, 4);     SetValue(Xout, strtoint(line));                        line  := copy (all, position+5, 4);     SetValue(Yout, strtoint(line));   end;   // itrace(position);                 st.free;         end;         // Callbackprocedure callBack(n:integer);begin     if n=0  then   ReadTextFile;end;

Statistics: Posted by 23fx23 — 26 Nov 2018, 23:55

Screen Resolution Script

2018-11-26T21:12:16+02:00

not currently, but maybe a script guru can create one for U

Statistics: Posted by nay-seven — 26 Nov 2018, 20:12

Screen Resolution Script

2018-11-24T18:14:08+02:00

Hey all.

Was wondering if there was a script or something to get my current screen resolution and preferably spit it out as a numerical output?

Statistics: Posted by dmitriyc — 24 Nov 2018, 17:14