杨老师之Blog

格林威治时间转换为北京时间（单片机+GPS时使用）

杨老师的茅屋 — Sun, 27 Apr 2008 14:54:00 GMT

// 格林威治时间转换为北京时间（2000年以后）
// 输入参数年(2位)，月，日，时，分,秒
void Calc( int y, int m, int d, int hh, int mm, int ss )
{
    int w;        // 星期
    hh += 8;    // 格林威治时间 + 8 小时 = 北京时间

    if( hh < 24 )    goto l_out;        // 没有跨天，则计算完成

    ///////////// 下面是跨天后的计算 /////////////////////////////
    hh -= 24;
    d ++;        // 日期加一天

    switch( m )        // 按月判断
    {
    case 4:        case 6:                // 跨小月的判断
    case 9:        case 11:
        if( d > 30 )
        {
            d = 1;    m ++;
        }
        break;

    case 1:        case 3:                // 跨大月的判断
    case 5:        case 7:
    case 8:        case 10:
        if( d > 31 )
        {
            d = 1;    m ++;
        }
        break;

    case 12:                        // 12 月，要判断是否跨年
        if( d > 31 )
        {
            y ++;    d = 1;    m = 1;
        }
        break;

    case 2:                            // 2 月，要判断是否是闰年
        if( ( (y+2000)%400 == 0 ) ||                        // 能被400整除，一定是闰年
            ( (y+2000)%4 ==0 ) && ( (y+2000)%100 !=0 ) )    // 能被4整除，但不能被100整除，一定是闰年
        {
            if( d>29 )    // 闰年2月，可以有29号
            {
                m = 3;    d = 1;
            }
        }
        else if( d>28 )    // 非闰年2月，可以有28号
        {
            m = 3; d = 1;
        }
        break;
    }

l_out:    // 计算完成，开始输出
    printf( "%04d.%02d.%02d - %02d:%02d:%02d", y+2000, m, d, hh, mm, ss);
    if( 1 == m )
    {
        y --;
        m = 13;
    }
    else if( 2 == m )
    {
        y --;
        m = 14;
    }

    w = y + y/4 + 26 * ( m + 1 ) / 10 + d - 1;
    w %= 7;        // 0 表示星期日

    printf ( " week=%d ", w );
}

如何显示 ActiveX 控件的属性窗

杨老师的茅屋 — Sun, 18 Nov 2007 13:24:00 GMT

CComQIPtr< ISpecifyPropertyPages > spSpecify( m_ax.GetControlUnknown() );
if( !spSpecify )    return;

CAUUID pages;
HRESULT hResult = spSpecify->GetPages( &pages );
if( FAILED( hResult ) )    return;

CLSID * pclsidPages = (CLSID*)_alloca( pages.cElems * sizeof( CLSID ) );
for( int i=0; i<(int)pages.cElems; i++ )
    pclsidPages[i] = pages.pElems[i];

::CoTaskMemFree( pages.pElems );

IUnknown * pObject = m_ax.GetControlUnknown();

OleCreatePropertyFrame( m_hWnd, 0, 0, L"属性",
    1, &pObject,
    pages.cElems, pclsidPages,
    GetUserDefaultLCID(), 0, NULL );

偶然发现了一个 VC2003 的BUG

杨老师的茅屋 — Sat, 06 Oct 2007 19:06:00 GMT

VC 2003 版本，UNICODE 编译，居然不支持 wsprintf( buf，_T(“%2.1f”)，fValue ) 浮点数格式化？！
由于是 API 函数，估计其它版本的编译器可能也会有问题。

BT 干的好事！

杨老师的茅屋 — Sat, 21 Apr 2007 14:47:00 GMT

        一个C/S程序，我自己写的SERVER，我自己写的CLIENT，他们之间使用TCP通讯。某用户使用CLIENT的时候，服务器经常莫名其妙地崩溃，我自己和同事测试，又总找不到问题。今天终于被我逮到了BUG，在我自己的通讯数据中，居然被BT插入了他的数据:“......我的数据......\rBitTorrent Protocol.......我的数据......”导致我服务程序的崩溃。我的天呀！！！！！TNND，BT真变态！！！和某用户联系询问他是否安装了BT下载软件，回答是“yes”。建议他删除BT后，一切正常了。

        代码改进后，程序终于健壮了。

        友情提示：不要想当然地认为TCP数据就能100%地正确地传递到了对方。

                                                            2007-04-21

CDMA发送短信

杨老师的茅屋 — Fri, 10 Nov 2006 19:13:00 GMT

就这个破程序居然浪费了我4个小时来调试！奉献出来免得大家再走弯路。

SendMMS()
{
    HANDLE hCom = CreateFile( _T("COM1"),
        GENERIC_READ | GENERIC_WRITE,
        0, NULL, OPEN_EXISTING, 0, NULL );
    if( NULL == hCom )    return false;

    DCB dcb;
    ::GetCommState( hCom, &dcb );
    dcb.BaudRate = 9600;
    dcb.ByteSize = 8;
    dcb.Parity = NOPARITY;
    dcb.StopBits = ONESTOPBIT;

    if( !::SetCommState( hCom, &dcb ) )        return false;
    if( !::PurgeComm( hCom, PURGE_RXCLEAR ) )    return false;

    DWORD dw;
    ::WriteFile( hCom, "AT\r", 3, &dw, NULL );
    // 读串口,判断是否正常
                    // 切换到中文短信方式
    ::WriteFile( hCom, "AT+WSCL=6,4\r", 12, &dw, NULL );
    // 读串口,判断是否正常

    ::WriteFile( hCom, "AT+CMGF=1\r", 10, &dw, NULL );
    // 读串口,判断是否正常

    WCHAR wszTxt[500];
    ::wcscpy( wszTxt, L"hello 你好" );

    int len = (int)::wcslen(wszTxt);// 字符长度
    for( int i=0; i<len; i++ )    // 交换高低字节
        wszTxt[i] = MAKEWORD( HIBYTE(wszTxt[i]), LOBYTE(wszTxt[i]) );

    char szNumber[50];        // 手机号码,内容长度
    ::sprintf( szNumber, "AT+CMGS=\"13901112233\",%d\r", len*2 );
    ::WriteFile( hCom, szNumber, (DWORD)::strlen( szNumber ), &dw, NULL );
    ::Sleep(500);

    ::WriteFile( hCom, wszTxt, len*2, &dw, NULL );
    ::WriteFile( hCom, "\x00\x1a\r", 3, &dw, NULL ); // 结束符
        // 读串口,判断是否正常

::CloseHandle( hCom );
return true;
}