rmsgeneralroutines.bas

AVAYA IPO 430系列交换机 TAPI 2.0软件电话源代码

Attribute VB_Name = "RMSGeneralRoutines"
Option Explicit

' * Program written by R.Sterling for Avaya *
' * No queries should be directed to this individuals in connection with this program.
'   All queries should be directed to Avaya Technical Support (FSG) *
' * Copyright Avaya 2002 *

Public Declare Sub Sleep Lib "kernel32" (ByVal l_dwMilliseconds As Long)

Public Function ReplaceNonPrintable(sData As String) As String

    Dim sNewData As String
    Dim lPos As Long
    
    sNewData = ""
    
    If IsNull(sData) Then
        ReplaceNonPrintable = sNewData
        Exit Function
    Else
        If Len(sData) = 0 Then
            ReplaceNonPrintable = sNewData
            Exit Function
        End If
    End If
    
    For lPos = 1 To Len(sData)
        If Asc(Mid(sData, lPos, 1)) < 32 Or Asc(Mid(sData, lPos, 1)) > 127 Then
            sNewData = sNewData & ",CHAR(" & Asc(Mid(sData, lPos, 1)) & ")"
        Else
            sNewData = sNewData & "," & (Mid(sData, lPos, 1))
        End If
    Next lPos
    
    sNewData = Mid(sNewData, 2, 5000)
    ReplaceNonPrintable = sNewData
    
End Function

Public Function ShowASCIIValues(sData As String) As String

    Dim sNewData As String
    Dim lPos As Long
    
    sNewData = ""
    
    If IsNull(sData) Then
        ShowASCIIValues = sNewData
        Exit Function
    Else
        If Len(sData) = 0 Then
            ShowASCIIValues = sNewData
            Exit Function
        End If
    End If
    
    For lPos = 1 To Len(sData)
        'If Asc(Mid(sData, lPos, 1)) < 32 Or Asc(Mid(sData, lPos, 1)) > 127 Then
        '    sNewData = sNewData & "," & Asc(Mid(sData, lPos, 1))
        'Else
        '    sNewData = sNewData & "," & Asc(Mid(sData, lPos, 1)) & "(" & (Mid(sData, lPos, 1)) & ")"
        'End If
        sNewData = sNewData & "," & Asc(Mid(sData, lPos, 1))
    Next lPos
    
    sNewData = Mid(sNewData, 2, 5000)
    ShowASCIIValues = sNewData
    
End Function

Public Function DayOfWeek(iDOW As Integer) As String

    Select Case iDOW
        Case 0
            DayOfWeek = "Monday"
        Case 1
            DayOfWeek = "Tuesday"
        Case 2
            DayOfWeek = "Wednesday"
        Case 3
            DayOfWeek = "Thursday"
        Case 4
            DayOfWeek = "Friday"
        Case 5
            DayOfWeek = "Saturday"
        Case 6
            DayOfWeek = "Sunday"
        Case Else
            DayOfWeek = "Unknown Day of Week!!!"
    End Select
    
End Function

Public Sub Centre_Screen(CurrentForm As Form)

    CurrentForm.Left = (Screen.Width - CurrentForm.Width) / 2
    CurrentForm.Top = ((Screen.Height - 400) - CurrentForm.Height) / 2

    'CurrentForm.Left = (Screen.Width - CurrentForm.Width) / 2
    'CurrentForm.Top = (Screen.Height - CurrentForm.Height) / 2

End Sub

Public Sub MouseBusy()

    Screen.MousePointer = 11
    
End Sub

Public Sub MouseNorm()

    Screen.MousePointer = 0
    
End Sub

Public Sub Avaya_Sleep(lSleepPeriod As Long)

    Dim iTimePeriod As Integer
    Dim iTimeSlots As Integer
    Dim lPeriodRemaining As Long
    Dim i As Integer
    Const iAllowedTime = 100000
    
    frmStatus.lbStatus.AddItem "******************* WAITING " & lSleepPeriod & " millisecs (" & (lSleepPeriod / 1000) & " secs) ***********************"
    frmStatus.lbStatus.ListIndex = frmStatus.lbStatus.ListCount - 1
    
    iTimeSlots = lSleepPeriod \ iAllowedTime
    lPeriodRemaining = lSleepPeriod
    
    If iTimeSlots >= 1 Then
        For i = 1 To iTimeSlots
            RMSGeneralRoutines.Sleep iAllowedTime
            lPeriodRemaining = lPeriodRemaining - iAllowedTime
            If lPeriodRemaining < iAllowedTime Then
                If lPeriodRemaining = 0 Then
                    Exit For
                Else
                    RMSGeneralRoutines.Sleep Format(lPeriodRemaining, "######")
                    Exit For
                End If
            End If
        Next i
    Else
        RMSGeneralRoutines.Sleep Format(lSleepPeriod, "######")
    End If
    
End Sub