Rapid help!

andy_c

Hi!

 

Im doing a program witch i have an array {10,10,10}. And i want to in the beginning choose som parameters for the operation, with then is saved in the array like this example.

After i did it once i want to, add some new parameters but this time not in the same array (area!?) so that i can ex enter ten different programs and then choose them from a question.

 

 

 

PROC init()
TPErase;
TPReadFK programID,"1 XXX 2 XXX","1","2","","","";
TPErase;
Test programID
case 1:
TPErase;
TPReadNum ProgramNR, "ProgramID"; !THE CHOOSE PART OF WICH PROGRAM!
TPErase;
case 2:
TPErase;
TPReadNum BorrData{1,1,1}, "XXXX";
TPErase;
TPReadNum BorrData{1,1,2}, "XXXX";
TPErase;
TPReadNum BorrData{1,1,3}, "XXX";
TPErase;
TPReadNum BorrData{1,1,4}, "XXXX ";
TPErase;
TPReadNum BorrData{1,1,5}, "XXXX";
TPErase;
TPReadNum BorrData{1,1,6}, "XXXX";
TPErase;
EndTest
EndProc
PROC CCC()
Speed.v_tcp:=BorrData{1,1,6};
ZZZZZ:=Borrdata{1,1,2};
 
WHILE AntalRakning < BorrData{1,1,5} DO
WHILE Klart < BorrData{1,1,2} DO
!**Manipulerar possitionen i Z led**
Start:=Offs(Start,(0),0,(BorrData{1,1,3}));

!**
MoveL StartBorr,BorrSpeed,z50,toolborr1WObj:=wobjborr1;
!**
Add BorrningKlart, BorrData{1,1,3};

WaitTime 0.5;
ENDWHILE
!**
Start:=Offs(Start,(0),0,-nollLage);

MoveL start,Speed,z50,toolborr1WObj:=wobjborr1;
WaitTime 2.0;
!**
INCR AntalRakning;
!**
Klart:=0;
!**
StartBorr:=Offs(StartBorr,0,(BorrData{1,1,4}),0);
!**RA-RELSE FRAM**
MoveL Start,Speed,z50,toolborr1WObj:=wobjborr1;
WaitTime 2.0;
ENDWHILE
EndProc

A'
Im greateful of any kind of help!
 
BR