Для настройки программы используется текстовый конфигурационный файл с названием название_программы.bas, представляющий собой набор функций на VB и имеющий следующую структуру:

Function GetDataLinkPath ' обязательная функция

получить путь с параметрами соединения с базой данных

  GetDataLinkPath="c:\program files\station\station.udl"

End Function

Function GetTableName () '  обязательная функция

' получить название таблицы для хранения данных

            GetTableName="TableCall"

End Function

Function GetCommSettings() '  обязательная функция

' получить параметры последовательного порта

            GetCommSettings="9600,M,8,1"

End Function

Function GetCommNumber() '  обязательная функция

' получить номер последовательного порта

            GetCommNumber=2

End Function

Function GetCommHandshaking() '  обязательная функция

' установить тип хадшейка

            GetCommHandshaking=2

End Function

Function GetLogFileName() '  обязательная функция

            GetLogFileName="c:\program files\station\station.log"

End Function

Function OutErrorToLog() '  обязательная функция

' вывод ошибок в лог-файл

            OutErrorToLog=False

End Function

' далее идут функции разбора принятой строки с целью получения значения для одноименного

' поля в таблице GetTableName. В примере используются настройки для разбора строки от станции Panasonic

Function DateSpeak(strBuffer)   

Dim iYear

Dim iMonth

Dim iDay

Dim strTemp

On Error Resume Next

    iMonth=CInt(Trim(Mid(strBuffer,1,2)))

    iDay=CInt(Trim(Mid(strBuffer,4,2)))

    iYear=CInt(Trim(Mid(strBuffer,7,2)))

            DateSpeak=DateSerial(iYear, iMonth, iDay)

End Function

' описание функций получения значений полей

Function InternalNumber(strBuffer)

            InternalNumber=Trim(Mid (strBuffer,19,3))

End Function

Function LineNumber(strBuffer)

            LineNumber=Trim(Mid(strBuffer,24,2))

End Function

Function SpeakTime(strBuffer)

Dim iHour

Dim iMinute

Dim iSecond

On Error Resume Next

            iHour=CInt(Trim(Mid(strBuffer,65,2)))

            iMinute=CInt(Trim(Mid(strBuffer,68,2)))

            iSecond=CInt(Trim(Mid(strBuffer,71,2)))

            SpeakTime=iHour*3600+iMinute*60+iSecond

End Function

Function BeginSpeakTime(strBuffer)

            BeginSpeakTime=Trim(Mid(strBuffer,10,8))

End Function

Function CallNumber(strBuffer)

            CallNumber=Trim(Mid(strBuffer,27,34))

End Function