ArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArrayArray
Statistics: Posted by joffo78 — 14 Sep 2012, 13:36
Statistics: Posted by nay-seven — 14 Sep 2012, 13:03
Statistics: Posted by joffo78 — 14 Sep 2012, 12:39
Statistics: Posted by joffo78 — 14 Sep 2012, 12:33
Statistics: Posted by joffo78 — 14 Sep 2012, 12:17
Statistics: Posted by nay-seven — 14 Sep 2012, 09:30
Statistics: Posted by joffo78 — 14 Sep 2012, 09:15
CODE:
SET_TARGET_PATCH SENDER_PATCH GET_VALUE source knob varSET_TARGET_PATCH 2 2SET_VALUE test fader varCODE:
SendInternalMsg('SET_TARGET_PATCH','SENDER_PATCH');Statistics: Posted by nay-seven — 14 Sep 2012, 08:10
J'ignore ce qui ne va pas./////////////////////////////////////////////
// Send value to vst param
////////////////////////////////////////////
// parameters declaration
var input1 : Tparameter;
var input2 : Tparameter;
var input3 : Tparameter;
var input4 : Tparameter;
var input5 : Tparameter;
var s : String;
// destroy
procedure Destroy;
begin
end;
// initialisation : create parameters
procedure init;
begin
Input1 := CreateParam('plug name',ptTextField);
Input2 := CreateParam('param name',ptTextField);
Input3 := CreateParam('param value',ptDataField);
Input4 := CreateParam('track',ptDataField);
Input5 := CreateParam('line',ptDataField);
SetIsOutPut(Input1,false);
SetIsOutPut(Input2,false);
SetIsOutPut(Input3,false);
SetIsOutPut(Input4,false);
SetIsOutPut(Input5,false);
end;
procedure Callback(n:integer);
var i : integer;
begin
SendInternalMsg('SET_TARGET_PATCH (Input4)(input5)');
if n =1 //retreive the old value
then begin
SendInternalMsg ('GET_VALUE',GetStringValue(Input1),GetStringValue(Input2),'THEPARAMVALUE');
SendInternalMsg ('SET_VALUE','PARAM','1','THEPARAMVALUE');
end
else begin
SendInternalMsg('SET_VALUE',GetStringValue(Input1),GetStringValue(Input2),FloatTostr(GetValue(Input3)));
end;
end;
// no process bloc
Y'a t'il un truc qui m'aurait échappé.SendInternalMsg('SET_TARGET_PATCH (Input4)(input5)');
Statistics: Posted by joffo78 — 14 Sep 2012, 01:35
Statistics: Posted by nay-seven — 13 Sep 2012, 13:16
Statistics: Posted by joffo78 — 13 Sep 2012, 12:04
Statistics: Posted by joffo78 — 13 Sep 2012, 01:22
Statistics: Posted by nay-seven — 13 Sep 2012, 00:23
Avec la ligne modifiée :// Send value to vst param
////////////////////////////////////////////
// parameters declaration
var input1 : Tparameter;
var input2 : Tparameter;
var input3 : Tparameter;
var s : String;
// destroy
procedure Destroy;
begin
end;
// initialisation : create parameters
procedure init;
begin
Input1 := CreateParam('plug name',ptTextField);
Input2 := CreateParam('param name',ptTextField);
Input3 := CreateParam('param value',ptDataField);
SetIsOutPut(Input1,false);
SetIsOutPut(Input2,false);
SetIsOutPut(Input3,false);
end;
procedure Callback(n:integer);
var i : integer;
begin
SendInternalMsg(' SET_TARGET_PATCH 2 2' );
if n =1 //retreive the old value
then begin
SendInternalMsg ('GET_VALUE',GetStringValue(Input1),GetStringValue(Input2),'THEPARAMVALUE');
SendInternalMsg ('SET_VALUE','PARAM','1','THEPARAMVALUE');
end
else begin
SendInternalMsg('SET_VALUE',GetStringValue(Input1),GetStringValue(Input2),FloatTostr(GetValue(Input3)));
end;
end;
// no process bloc
J'ai du zapper quelque chose car cela ne fonctionne pasSendInternalMsg(' SET_TARGET_PATCH 2 2' );
Statistics: Posted by joffo78 — 13 Sep 2012, 00:12
Statistics: Posted by nay-seven — 13 Sep 2012, 00:12
Statistics: Posted by joffo78 — 12 Sep 2012, 23:26
CODE:
SET_TARGET_PATCH 1 2 // activate the patch on track 1 and line 2Statistics: Posted by nay-seven — 12 Sep 2012, 22:10
Statistics: Posted by joffo78 — 12 Sep 2012, 21:49
Statistics: Posted by joffo78 — 12 Sep 2012, 21:39
Statistics: Posted by joffo78 — 14 Sep 2012, 13:36
Statistics: Posted by nay-seven — 14 Sep 2012, 13:03
Statistics: Posted by joffo78 — 14 Sep 2012, 12:39
Statistics: Posted by joffo78 — 14 Sep 2012, 12:33
Statistics: Posted by joffo78 — 14 Sep 2012, 12:17
Statistics: Posted by nay-seven — 14 Sep 2012, 09:30
Statistics: Posted by joffo78 — 14 Sep 2012, 09:15
CODE:
SET_TARGET_PATCH SENDER_PATCH GET_VALUE source knob varSET_TARGET_PATCH 2 2SET_VALUE test fader varCODE:
SendInternalMsg('SET_TARGET_PATCH','SENDER_PATCH');Statistics: Posted by nay-seven — 14 Sep 2012, 08:10
J'ignore ce qui ne va pas./////////////////////////////////////////////
// Send value to vst param
////////////////////////////////////////////
// parameters declaration
var input1 : Tparameter;
var input2 : Tparameter;
var input3 : Tparameter;
var input4 : Tparameter;
var input5 : Tparameter;
var s : String;
// destroy
procedure Destroy;
begin
end;
// initialisation : create parameters
procedure init;
begin
Input1 := CreateParam('plug name',ptTextField);
Input2 := CreateParam('param name',ptTextField);
Input3 := CreateParam('param value',ptDataField);
Input4 := CreateParam('track',ptDataField);
Input5 := CreateParam('line',ptDataField);
SetIsOutPut(Input1,false);
SetIsOutPut(Input2,false);
SetIsOutPut(Input3,false);
SetIsOutPut(Input4,false);
SetIsOutPut(Input5,false);
end;
procedure Callback(n:integer);
var i : integer;
begin
SendInternalMsg('SET_TARGET_PATCH (Input4)(input5)');
if n =1 //retreive the old value
then begin
SendInternalMsg ('GET_VALUE',GetStringValue(Input1),GetStringValue(Input2),'THEPARAMVALUE');
SendInternalMsg ('SET_VALUE','PARAM','1','THEPARAMVALUE');
end
else begin
SendInternalMsg('SET_VALUE',GetStringValue(Input1),GetStringValue(Input2),FloatTostr(GetValue(Input3)));
end;
end;
// no process bloc
Y'a t'il un truc qui m'aurait échappé.SendInternalMsg('SET_TARGET_PATCH (Input4)(input5)');
Statistics: Posted by joffo78 — 14 Sep 2012, 01:35
Statistics: Posted by nay-seven — 13 Sep 2012, 13:16
Statistics: Posted by joffo78 — 13 Sep 2012, 12:04
Statistics: Posted by joffo78 — 13 Sep 2012, 01:22
Statistics: Posted by nay-seven — 13 Sep 2012, 00:23
Avec la ligne modifiée :// Send value to vst param
////////////////////////////////////////////
// parameters declaration
var input1 : Tparameter;
var input2 : Tparameter;
var input3 : Tparameter;
var s : String;
// destroy
procedure Destroy;
begin
end;
// initialisation : create parameters
procedure init;
begin
Input1 := CreateParam('plug name',ptTextField);
Input2 := CreateParam('param name',ptTextField);
Input3 := CreateParam('param value',ptDataField);
SetIsOutPut(Input1,false);
SetIsOutPut(Input2,false);
SetIsOutPut(Input3,false);
end;
procedure Callback(n:integer);
var i : integer;
begin
SendInternalMsg(' SET_TARGET_PATCH 2 2' );
if n =1 //retreive the old value
then begin
SendInternalMsg ('GET_VALUE',GetStringValue(Input1),GetStringValue(Input2),'THEPARAMVALUE');
SendInternalMsg ('SET_VALUE','PARAM','1','THEPARAMVALUE');
end
else begin
SendInternalMsg('SET_VALUE',GetStringValue(Input1),GetStringValue(Input2),FloatTostr(GetValue(Input3)));
end;
end;
// no process bloc
J'ai du zapper quelque chose car cela ne fonctionne pasSendInternalMsg(' SET_TARGET_PATCH 2 2' );
Statistics: Posted by joffo78 — 13 Sep 2012, 00:12
Statistics: Posted by nay-seven — 13 Sep 2012, 00:12
Statistics: Posted by joffo78 — 12 Sep 2012, 23:26
CODE:
SET_TARGET_PATCH 1 2 // activate the patch on track 1 and line 2Statistics: Posted by nay-seven — 12 Sep 2012, 22:10
Statistics: Posted by joffo78 — 12 Sep 2012, 21:49
Statistics: Posted by joffo78 — 12 Sep 2012, 21:39