www.pudn.com > 5101.zip > F5101.BAS

Attribute VB_Name = "f5101_" 
Function ad5101(channel As Integer) As Integer 
    Dim h, m, l, da As Integer 
     
    out_byte &H378, channel 
    delay (100) 
    out_byte &H378, &H20 + channel 
    delay (500) 
    out_byte &H378, &H40 
    delay (50) 
    h = Int(in_byte(&H379) / 16) 
    out_byte &H378, &H60 
    delay (50) 
    m = Int(in_byte(&H379) / 16) 
    out_byte &H378, &H80 
    delay (50) 
    l = Int(in_byte(&H379) / 16) 
    da = h * 256 + m * 16 + l 
    ad5101 = da 
End Function 
 
Function f5101_LoadPara() 
    Dim Num As Integer 
    Dim str1 As String 
     
    On Error GoTo error1 
nomal: 
    Open "f5101.ini" For Input As #1 
        Input #1, str1 
        str1 = Mid(str1, 12, Len(str1) - 11) 
        freq = Val(str1) 
        Input #1, str1 
        str1 = Mid(str1, 12, Len(str1) - 11) 
        StartMode = Val(str1) 
        For i = 0 To 15 
            Input #1, str1 
            str1 = Mid(str1, 7, Len(str1) - 6) 
            Sele_Ch(i) = Val(str1) 
        Next i 
    Close #1 
    Exit Function 
error1: 
    If Err = 53 Then 
        freq = 200 
        StartMode = 0 
        For i = 0 To 15 
            Sele_Ch(i) = 1 
        Next i 
        n = f5101_SavePara() 
        GoTo nomal 
    End If 
    Resume Next 
End Function 
 
Function f5101_SavePara() 
    FileNum = FreeFile 
    Open "f5101.ini" For Output As FileNum 
        Print #1, "frequency = " + Trim(Str(freq)) 
        Print #1, "StartMode = " + Trim(Str(StartMode)) 
        Print #1, "CH01 = " + Trim(Str(Sele_Ch(0))) 
        Print #1, "CH02 = " + Trim(Str(Sele_Ch(1))) 
        Print #1, "CH03 = " + Trim(Str(Sele_Ch(2))) 
        Print #1, "CH04 = " + Trim(Str(Sele_Ch(3))) 
        Print #1, "CH05 = " + Trim(Str(Sele_Ch(4))) 
        Print #1, "CH06 = " + Trim(Str(Sele_Ch(5))) 
        Print #1, "CH07 = " + Trim(Str(Sele_Ch(6))) 
        Print #1, "CH08 = " + Trim(Str(Sele_Ch(7))) 
        Print #1, "CH09 = " + Trim(Str(Sele_Ch(8))) 
        Print #1, "CH10 = " + Trim(Str(Sele_Ch(9))) 
        Print #1, "CH11 = " + Trim(Str(Sele_Ch(10))) 
        Print #1, "CH12 = " + Trim(Str(Sele_Ch(11))) 
        Print #1, "CH13 = " + Trim(Str(Sele_Ch(12))) 
        Print #1, "CH14 = " + Trim(Str(Sele_Ch(13))) 
        Print #1, "CH15 = " + Trim(Str(Sele_Ch(14))) 
        Print #1, "CH16 = " + Trim(Str(Sele_Ch(15))) 
    Close FileNum 
End Function