递归火山软件开发平台

标题: 这段C程序如何转换为火山 [打印本页]

作者: aronshen 时间: 2024-9-5 11:25
标题: 这段C程序如何转换为火山
各位大佬，如下这段程序如何转为火山程序。请帮忙看一下

CHAR CCH341PARDlg::mCharToBcd(UCHAR iChar)
{
UCHAR mBCD;
if ( iChar >= '0' && iChar <= '9' ) mBCD = iChar -'0';
else if ( iChar >= 'A' && iChar <= 'F' ) mBCD = iChar - 'A' + 0x0a;
else if ( iChar >= 'a' && iChar <= 'f' ) mBCD = iChar - 'a' + 0x0a;
else mBCD = 0x00;
return( mBCD );
}

作者: Xelloss0618 时间: 2024-9-5 15:51
<火山程序类型 = "通常" 版本 = 1 />

方法 CharToBcd <静态类型 = 字节折叠>
参数 iChar <类型 = 无符号字节>
{
变量 mBCD <类型 = 无符号字节>
如果 (iChar >= (无符号字节)'0' && iChar <= (无符号字节)'9')
{
      mBCD = iChar - (无符号字节)'0'
}
否则 (iChar >= (无符号字节)'A' && iChar <= (无符号字节)'F')
{
      mBCD = iChar - (无符号字节)'A' + (无符号字节)0x0A
}
否则 (iChar >= (无符号字节)'a' && iChar <= (无符号字节)'f')
{
      mBCD = iChar - (无符号字节)'a' + (无符号字节)0x0A
}
否则
{
      mBCD = 0x00
}
返回 ((字节)mBCD)

}

作者: aronshen 时间: 2024-9-6 12:14

Xelloss0618 发表于 2024-9-5 15:51
方法 CharToBcd
参数 iChar
{

谢谢您一直帮我解答问题

欢迎光临递归火山软件开发平台 (https://bbs.voldp.com/)