Yes No Input comments

Is it possible to use a YES/NO comment to branch around a portion of a program? I don't want to have to do any gymnastics to get this done. I have a program that runs sub assemblies and one of these subs sometimes has a bracket on it that I want to skip the measurements on IF it isn't there.

I'm thinking something like

IF C1.INPUT = "NO" then goto XXXXX

I keep getting an "invalid number entered" error.

Thanks,

Bill

Parents

djayne over 16 years ago

C3         =COMMENT/YESNO,YES,Do all machine surfaces comply with surface finish standard?
            IF/C3.INPUT=="NO"
            COMMENT/OPER,YES,If machined surfaces do not comply with customer specifications,
                            ,please  indicate  a   cause  and   corrective  action  in   WinSPC.
                            ,Also include any Surface Test Results and Corrective and Quarateen actions.
                            ,
                            ,If you need any assistance, please contact a Quality Tech.
            END_IF/

assign/v3 = C3.input
            If/v3=="yes"
            Assign/v4 = 0
            End_if/
            If/v3=="no"
            Assign/v4 = -1
            End_if/

Surface Finish=feat/point,rect
            Theo/0,0,0,0,0,-1
            Actl/0,0,0,0,0,-1
            Constr/point,proj,origin,inletflange
Surfacefinishvisual=feat/point,rect
            Theo/0,0,1,0,0,-1
            Actl/0,0,-1,0,0,-1
            Constr/point,offset,surface Finish,0,0,v4
Dim Surfacefinish= Location Of Point Surfacefinishvisual  Units=mm ,$
Graph=off  Text=off  Mult=10.00  Output=both
Ax   Nominal     +tol       -tol       Meas        Dev    
[COLOR="Red"]Z       1.000      0.000      0.000     -1.000     -2.000 <--------[/COLOR]
End Of Dimension Surfacefinish

This should be fairly simple. I'm trying to put the Yes/No into a feature so it will create a 0 or 1 for good/no good. If it is no good, I want to be able to go into our WinSPC software and assign a cause and corrective action.
The first portion works like expected as far as the Yes/No.

Reply

djayne over 16 years ago

C3         =COMMENT/YESNO,YES,Do all machine surfaces comply with surface finish standard?
            IF/C3.INPUT=="NO"
            COMMENT/OPER,YES,If machined surfaces do not comply with customer specifications,
                            ,please  indicate  a   cause  and   corrective  action  in   WinSPC.
                            ,Also include any Surface Test Results and Corrective and Quarateen actions.
                            ,
                            ,If you need any assistance, please contact a Quality Tech.
            END_IF/

assign/v3 = C3.input
            If/v3=="yes"
            Assign/v4 = 0
            End_if/
            If/v3=="no"
            Assign/v4 = -1
            End_if/

Surface Finish=feat/point,rect
            Theo/0,0,0,0,0,-1
            Actl/0,0,0,0,0,-1
            Constr/point,proj,origin,inletflange
Surfacefinishvisual=feat/point,rect
            Theo/0,0,1,0,0,-1
            Actl/0,0,-1,0,0,-1
            Constr/point,offset,surface Finish,0,0,v4
Dim Surfacefinish= Location Of Point Surfacefinishvisual  Units=mm ,$
Graph=off  Text=off  Mult=10.00  Output=both
Ax   Nominal     +tol       -tol       Meas        Dev    
[COLOR="Red"]Z       1.000      0.000      0.000     -1.000     -2.000 <--------[/COLOR]
End Of Dimension Surfacefinish

Children

No Data