Dim speed_str(2) As Byte Dim second_count Dim second_count1 Dim bit_direc '电机方向位 Dim bit_free '电机自由位 Public Function H_To_B(ByVal Hex As String) As String Dim I As Long Dim B As String Hex = UCase(Hex) For I = 1 To Len(Hex) Select Case Mid(Hex, I, 1
MSCOMM支持大于16个串口限制。 I noticed a few posts about the limitation to port 1-16 of MSComm. As I completed my generic ASCOM DSLR driver, I wanted to fix this limitation. There is a hack that can be done to the mscomm file to increase the port number to 1-