• Jueves 28 de Marzo de 2024, 12:09

Autor Tema:  RichEdit Control 2.0  (Leído 1875 veces)

a343

  • Miembro activo
  • **
  • Mensajes: 39
    • Ver Perfil
RichEdit Control 2.0
« en: Viernes 26 de Agosto de 2011, 19:30 »
0
Hola,

Tengo un dialogo con un richEdit control 2.0 en el cual quiero mostrar una serie de datos que estan en una cadena (Cstring), pero al ejecutar la aplicacion el control sale en blanco y no salen los datos, ¿a que puede ser debido? Pongo el codigo por si sirve:

Código: [Seleccionar]
void CDlgDescriptivos::DescUnivariantesMostrar(void)
{
CString aux;
CString cadena;
CTime fecha;
CString dato;
double *d;
int t,k=0,i;
CDatos* p = (CDatos*)Variables.GetAt (0);

t = p->Tam ;


int Tam,tsin;
Tam = p->Tam;
tsin = p->Tam;
double total_acum=0;
int cont=0,cont2=0;

informe.Nombre = _T("DescUniv") + p->Nombre ;
informe.Descripcion = _T("Análisis Descriptivo Univariante de la variable ") + p->Nombre;
informe.nPerdidos = p->Tam -t ;
informe.nTamano = 22;
informe.VarsImplicadas = p->Nombre ;
fecha = CTime::GetCurrentTime ();
dato = fecha.Format ("%d/%m/%y");
informe.Fecha = dato;
dato = fecha.Format ("%H:%M");
informe.Hora = dato;
informe.Tipo = 900;
informe.Tam = 22;
informe.Datos = new CString [22];

if(p->Tipo==0 && p->Escala==0 )
{
d = QuitarAusentes (p->Datos , t, p->Ausente );


cadena.Format( _T("\n\n \t\tMEDIDAS DE POSICIÓN\n\n"));
informe.Datos [0] = cadena;
if (Moda (d, t)!= d[0])
{
cadena.Format(_T("\n\tModa no única: Min es %f"),d[0]);

informe.Datos [1] = cadena;
}
else
{
cadena.Format(_T("\n\tModa:\t\t%f"),PRESICION, Moda (d, t));

informe.Datos [1] = cadena;
}
cadena.Format (_T("\n\tMediana:\t\t%.*f"), PRESICION, Mediana (d, t));
informe.Datos [2] = cadena;
cadena.Format (_T("\n\tMedia:\t\t%.*f"), PRESICION, Media (d, t));
informe.Datos [3] = cadena;
cadena.Format (_T("\n\tMínimo:\t\t%.*f"), PRESICION, Minimo (d, t));
informe.Datos [4] = cadena;
cadena.Format (_T("\n\tMáximo:\t\t%.*f"), PRESICION, Maximo (d, t));
informe.Datos [5] = cadena;
cadena.Format (_T("\n\tCuartil1:\t\t%.*f"), PRESICION, Cuartil1(d, t));
informe.Datos [6] = cadena;
cadena.Format (_T("\n\tCuartil2:\t\t%.*f"), PRESICION, Cuartil2 (d, t));
informe.Datos [7] = cadena;
cadena.Format (_T("\n\tCuartil3:\t\t%.*f\n"), PRESICION, Cuartil3(d, t));
informe.Datos [8] = cadena;
cadena.Format( _T("\n\t\tMEDIDAS DE DISPERSIÓN\n\n"));
informe.Datos [9] = cadena;
cadena.Format (_T("\n\tRango:\t\t\t%.*f"), PRESICION, Rango (d, t));
informe.Datos [10] = cadena;
cadena.Format (_T("\n\tRango Intercuartílico:\t%.*f"), PRESICION, RInter (d, t));
informe.Datos [11] = cadena;
cadena.Format (_T("\n\tSemi Rango Intercuartílico:\t%.*f"), PRESICION, SRInter (d, t));
informe.Datos [12] = cadena;
cadena.Format (_T("\n\tVarianza:\t\t\t%.*f"), PRESICION, Varianza (d, t));
informe.Datos [13] = cadena;
cadena.Format (_T("\n\tCuasi Varianza:\t\t%.*f"), PRESICION, CVarianza (d, t));
informe.Datos [14] = cadena;
cadena.Format (_T("\n\tDesviación Típica:\t\t%.*f"), PRESICION, DesvTip (d, t));
informe.Datos [15] = cadena;
cadena.Format (_T("\n\tCuasi Desviación Típica:\t%.*f"), PRESICION, CDesvTip (d, t));
informe.Datos [16] = cadena;
cadena.Format (_T("\n\tCoeficiente de Variación:\t%.*f"), PRESICION, CoefVar (d, t));
informe.Datos [17] = cadena;
cadena.Format (_T("\n\tError Estándar:\t\t%.*f\n"), PRESICION, ErrorStandar (d, t));
informe.Datos [18] = cadena;
cadena.Format(_T("\n\t\tMEDIDAS DE ASIMETRÍA Y DEFORMACIÓN\n\n"));
informe.Datos [19] = cadena;
cadena.Format (_T("\n\tCoeficiente de Asimetría:\t%.*f"), PRESICION, CoefAsim (d, t));
informe.Datos [20] = cadena;
cadena.Format (_T("\n\tCoeficiente de Kurtosis:\t%.*f"), PRESICION, Kurtosis (d, t));
informe.Datos [21] = cadena;

}


if(p->Tipo==0 && p->Escala==1 )
{

d = QuitarAusentes (p->Datos , t, p->Ausente );

cadena.Format(_T( "\n\n \t\tMEDIDAS DE POSICIÓN\n\n"));
informe.Datos [0] = cadena;
if (Moda (d, t)!= d[0])
{
cadena.Format(_T("\n\tModa no única: Min es %f"),d[0]);

informe.Datos [1] = cadena;
}
else
{
cadena.Format(_T("\n\tModa:\t\t%f"),Moda(d,t));

informe.Datos [1] = cadena;
}
cadena.Format (_T("\n\tMediana:\t\t%.*f"), PRESICION, Mediana (d, t));
informe.Datos [2] = cadena;

cadena.Format (_T("\n\tCuartil1:\t\t%.*f"), PRESICION, Cuartil1(d, t));
informe.Datos [3] = cadena;
cadena.Format (_T("\n\tCuartil2:\t\t%.*f"), PRESICION, Cuartil2 (d, t));
informe.Datos [4] = cadena;
cadena.Format (_T("\n\tCuartil3:\t\t%.*f\n"), PRESICION, Cuartil3(d, t));
informe.Datos [5] = cadena;
}

if(p->Tipo==0 && p->Escala==2 )
{
d = QuitarAusentes (p->Datos , t, p->Ausente );


cadena.Format(_T( "\n\n \t\tMEDIDAS DE POSICIÓN\n\n"));
informe.Datos [0] = cadena;

if (Moda (d, t)!= d[0])
{
cadena.Format(_T("\n\tModa no única: Min es %f"),d[0]);

informe.Datos [1] = cadena;

}

else
{
cadena.Format(_T("\n\tModa:\t%f"),Moda(d,t));

informe.Datos [1] = cadena;

}


}

else if(p->Tipo==1)
{
int rep=0,k;
int tamano=0;
CString *nuevo,cad;
double *vector;
vector= new double[t];
nuevo=new CString [t];

for(i=0;i<t;i++)
{
nuevo[i]=p->Dat_Txt[i];
}

for(i=0;i<t;i++)
{
vector[i]=atoi(CT2CA(nuevo[i]));
}


//d = QuitarAusentes (vector , t, p->Ausente );


cadena.Format( _T("\n\n \t\tMEDIDAS DE POSICIÓN\n\n"));
informe.Datos [0] = cadena;

if (Moda (vector, t)!= vector[0])
{
cadena.Format( _T("\n\tModa no única: Min es %f"),vector[0]);

informe.Datos [1] = cadena;

}
else
{
cadena.Format( _T("\n\tModa:\t%f"),Moda(vector,t));

informe.Datos [1] = cadena;


}

}

cadena=  _T("\n\t") + informe.Descripcion +  _T("\n\n");
cadena +=  _T("\tFecha creación:\t") + informe.Fecha +  _T("\n");
cadena +=  _T("\tHora creación:\t") + informe.Hora +  _T("\n");
aux.Format ( _T("%d"), informe.nTamano );
cadena +=  _T("\tTamaño Muestra:\t") + aux+  _T("\n");
aux.Format ( _T("%d"), informe.nPerdidos );
cadena +=  _T("\tDatos Perdidos:\t") + aux +  _T("\n");
cadena +=  _T("\tVariable:\t\t") + informe.VarsImplicadas ;
k=0;
for (i=0;i<informe.nTamano;i++)
{
cadena +=  _T("\t") + informe.Datos[k];
k++;
}

m_rich.SetWindowText (cadena);

}