[交流] 【求助】Debug Assertion Failed! 串口数采程序求助【已完结】

double CHuoqvjiaoduDlg::Val(CString a)
{
    int number=0;
    CString* p;
    int sum=0;

    for(p=&a;*p!='\0';p++)
    {
        if(*p>='0'&&*p<='9')
        {
            if(number==0)
            {
                sum=(atoi(*p)-48);
                number=1;
            }
            else
                sum=(sum*10+(atoi(*p)-48));
        }
        else
            break;
    }
    return sum;
}


double CHuoqvjiaoduDlg::readGAM60Value(CString mingling)
{
    int i,j,k;
    CString Buf("  ");
    CString InByte("");
    CString aa("");
    CByteArray OutB;
    double value;

    m_MSComm1.SetPortOpen(TRUE);
    m_MSComm1.SetInBufferCount(0);
    m_MSComm1.SetOutBufferCount(0);
    m_MSComm1.SetPortOpen(FALSE);
    Buf=mingling;
    Buf.TrimLeft();
    Buf.TrimRight();
    i = strlen(Buf);
    k = 0;
    OutB.RemoveAll();
    OutB.SetSize((i/2)+1);
    j=0;
    while(i>0)
    {
        OutB[j]=atoi(Buf.Mid(k,2));
        k = k + 2;
        i = i - 2;
        j = j + 1;
    }

    m_MSComm1.SetPortOpen(TRUE);
    m_MSComm1.SetInBufferCount(0);
    m_MSComm1.SetOutput(COleVariant(OutB));

    VARIANT   variant_inp;
    COleSafeArray   safearray_inp;
    LONG   len,z=0;
    BYTE   rxdata[2048];
    variant_inp=m_MSComm1.GetInput();
    safearray_inp=(COleSafeArray)variant_inp;
    len=safearray_inp.GetOneDimSize();
    for(z=0;z         safearray_inp.GetElement(&z,rxdata+z);
    for(z=0;z     {
        BYTE   bt=*(char*)(rxdata+z);
        InByte.Format("%c",bt);
    }

    m_MSComm1.SetPortOpen(FALSE);

    if((InByte.Mid(1,1)) == "+")
    {
        aa = InByte.Mid(2,10);
        value = Val(aa);
        value=value * 0.01;
    }

    if((InByte.Mid(2,1)) == "+")
    {
        aa = InByte.Mid(3,10);
        value = Val(aa);
        value=value * 0.01;
    }

    if((InByte.Mid(3,1)) == "+")
    {
        aa = InByte.Mid(4,10);
        value = Val(aa);
        value=value * 0.01;
    }

~~~~~~~~中间省略~~~~~~~~~~

    if((InByte.Mid(16,1)) == "+")
    {
        aa = InByte.Mid(17,10);
        value = Val(aa);
        value=value * 0.01;
    }
    return value;
}

jjdg(金币+0,VIP+0):谢谢参与讨论！lz如果将出错的line：2553给出来，应该会有用的多！ 10-30 10:27