程序，1.8进制的转换

对于1.8进制的转化我编写了一个名为 Jmouse 1.8 Convert DLL 的扩展来帮助实现，利用这个 DLL 我们可以轻松的实现1.8进制数和二进制、八进制、十进制和十六进制数之间的相互转化，但需要说明的是，由于负数无法转换为二进制、八进制和十六进制，所以1.8进制下负数只能转换为十进制数。

可以从这里下载 Jmouse 1.8 Convert DLL v1.0.0.2
*具体的说明请参看压缩包内的 HELP.RTF 文件。

压缩包内包含如下文件：
Jmouse_1D8Convert.DLL - Jmouse 1.8 Convert DLL v1.0.0.2 文件
HELP.RTF - 说明文件
INSTALL_DLL.BAT - 注册 DLL 的批处理文件
UNINSTALL_DLL.BAT - 注销 DLL 的批处理文件

这里展示一个示例(需要正确注册 Jmouse 1.8 Convert DLL 后可执行)：
新建一个标准 EXE 工程，在窗体中的 Form_Load 过程内添加如下代码，并执行程序：

On Error GoTo  ErrHandle

  Dim objConvert As Object

   Set objConvert = CreateObject("Jmouse_1D8Convert.Convert" )

    MsgBox objConvert.BINTO1D8("10111") '//二进制转换为1.8进制
    MsgBox objConvert.C1D8TOBIN("01C7CE") '//1.8进制转换为二进制
    MsgBox objConvert.C1D8TODEC("01C7CE") '//1.8进制转换为十进制
    MsgBox objConvert.C1D8TOHEX("01C7CE") '//1.8进制转换为十六进制
    MsgBox objConvert.C1D8TOOCT("01C7CE") '//1.8进制转换为八进制
    MsgBox objConvert.DECTO1D8("23") '//十进制转换为1.8进制
    MsgBox objConvert.HEXTO1D8("17") '//十六进制转换为1.8进制
    MsgBox objConvert.OCTTO1D8("27") '//八进制转换为1.8进制
    
Exit Sub
ErrHandle:
   MsgBox "[" & Err.Number & "] " & Err.Description, vbApplicationModal + vbCritical, "错误"
   End