* iNIT DEL FORM (o agregando en el diseñador de formularios, pero tendrás que inicializarla en cero, de todos modos)
ADDPROPERTY(thisform,"aGrupos[10]",0)
* OptionGroup.Click [En cada OPtiongroup]
* Suponiendo que los optiongroup se llaman "OptionGroup1", "OptionGroup2", etc.
* con esto eliminamos cualquier cosa que no sea un número
lnGrupo = VAL(CHRTRAN(this.name,CHRTRAN(this.name,"1234567890",""),""))
* En cada optiongroup revisar la lista de valores correspondientes.
* Acá se asiga a una posición del array el valor obtenido (click sobre el formulario)
thisform.aGrupos[lnGrupo] = ICASE(this.Value=1,1,;
this.Value = 2,3,;
this.Value = 3,4,;
this.Value = 4,2,;
this.Value = 5,1,;
0)
thisform.Sumar()
*SUMAR (Método del Form)
*------------------------
LOCAL lnsuma,i
lnSuma = 0
FOR i = 1 TO ALEN(thisform.agrupos)
lnSuma = lnSuma + thisform.aGrupos[i]
NEXT
thisform.text1.Value = lnSuma