位运算例程：根据数值求答案

云外归鸟

原作者:esir

核心代码：
函数 一参多义(传值 二进制标志 为 整数型) 为 文本
变量 返回文本 为 文本
  
如果 (二进制标志 与 1)<>0 则   ' 1 代表二进制 1
  返回文本=返回文本+"A"
结束 如果

如果 (二进制标志 与 2)<>0 则   ' 2 代表二进制 10
  返回文本=返回文本+"B"
结束 如果

如果 (二进制标志 与 4)<>0 则    ' 4 代表二进制 100
  返回文本=返回文本+"C"
结束 如果
如果 (二进制标志 与 8)<>0 则     ' 8 代表二进制 1000
  返回文本=返回文本+"D"
结束 如果
如果 (二进制标志 与 16)<>0 则    ' 16 代表二进制 10000
  返回文本=返回文本+"E"
结束 如果

返回 返回文本
结束 函数


今天写了一个取编辑框内容的函数，很常用，贴在下面，将来写程序时直接复制、粘贴过去了。

函数 取编辑框的内容(传值 窗口句柄 为 HWND,传值 控件ID 为 整数型) 为 文本
变量 nLength 为 整数型
变量 text1 为 文本
nLength=GetWindowTextLength(GetDlgItem(窗口句柄,控件ID))
text1=取空白文本(nLength)
GetDlgItemText(窗口句柄,控件ID,text1,nLength+1)
函数=text1
结束 函数