Універсальний комплекс керування аналізом на спектрометрі рентгенівському

Пристрій для керування аналізом на спектрометрі рентгенівському СРМ-25 з інтерфейсним блоком і програмним забезпеченням, який 3 71746 4 - штатне програмне забезпечення не розробuses Classes, Emulator, SyncObjs, WPort32, лялося для спільної роботи з операційними систеwindows, Common, Contnrs; мами сімейства Windows NT (корпорації Microsoft), і не використовує можливостей таких операційних type систем (багатозадачність, надійність, захищеність, вбудована підтримка мереж і т.д.); {TintensityTable = array [0..MAXCELL-1] of - штатне програмне забезпечення має обмеTMeasureResult; жені можливості для контролю помилок оператора TIntensityTableArray = array [0..$OFFF] of TInі контролю стану спектрометра. tensityTable; В основу винаходу поставлено завдання розPIntensityTableArray = ^TIntensityTableArray;} робити пристрій та створити програмне забезпечення, яке заміняє штатне програмне забезпечен//TSR M = class; ня спектрометра СРМ-25 і усуває всі перераховані недоліки при здійсненні аналізу. TIOBuffer = packed record Суть винаходу полягає у наступному: A:BYTE; У якості інтерфейсного блоку застосовується B:BYTE; універсальна плата цифрового вводу-виводу на C:BYTE; 144 канали, наприклад плата PCL-722 Advantach, conf:BYTE; або подібна їй інша, що є у вільному продажу. end; Конструкція плати дозволяє підключити до комп'ютера два спектрометри і керувати процесом TSRM = class//(TThread) аналізу одночасно на двох приладах. Схеми private підключення приладів наведені в Додатках 2 і 3. Emulator:TSRMEmulator; Для простого і зручного підключення спектроPort:TWinport; метрів до системного блоку комп'ютера, розробOutAddr:WORD; лені кабель-вставка і кабель сполучення. КабельInAddr:WORD; вставка з'єднує плату введення-виводу (Додаток Input:TIOBuffer; 2.), що знаходиться всередині системного блоку Output:TIOBuffer; комп'ютера, і роз'єм DPS-37, розташований зовні procedure Out_(Value:WORD); системного блоку. Кабель сполучення (Додаток 3.) function In_():WORD; зв'язує роз'єм DPS-37 і роз'єм РП 10-42 на спектрометрі СРМ-25. // function GetEmulation():boolean; З метою використання інших типів // procedure SetEmulation( Value:boolean); інтерфейсних блоків та підключення до одного // procedure DiagnoseAll(); персонального комп'ютера одночасно кількох спектрометрів, застосовується оригінальне про// procedure Outl_(Value: WORD); грамне забезпечення, текст незмінної частини яко// procedure Outl_(Value: WORD); го - „Модуль управління спектрометром" - наведе// property Emulation:boolean read GetEmulation но в Додатку 1. Програмне забезпечення, сумісне write SetEmulation; з операційними системами сімейства Windows NT (корпорації Microsoft), дозволяє здійснювати спосіб public теоретичних виправлень, стандарт-фону, метод фундаментальних параметрів, і забезпечувати Name: string; багатозадачність, надійність, захищеність, а також constructor Create(WP:TWinPort; DeviceNo: inпідтримку мереж. teger); Перелік додатків destructor Destroy; override; 1. Модуль управління спектрометром. function GetFilters(CellNo : integer): byte; 2. Схема розпайки кабеля-вставки. function GetState(CellNo: byte): word; 3. Схема розпайки кабеля сполучення. function GetState2(CellNo: byte): word; Можливості використання пристрою для procedure ResetFilter(FltNo:byte; CellNo:byte); здійснення керування аналізом, підтверджуються procedure SetFilters(CellNo:byte); досвідом реалізації і цілодобової його експлуатації procedure Diagnose(CellNo:byte=0; Options: inна Запорізькому заводі феросплавів протягом роteger =0); ку. function GetIntensity(CellNo:BYTE; ChanЗапропонований пристрій забезпечує одноnelNo:BYTE):DWORD; часне керування процесом аналізу на двох спекfunction Ready(CellNo:byte): boolean; трометрах з одного робочого місця, повністю ав// function ResetComplete: boolean; томатизує процес аналізу, дозволяє використовуprocedure Reset(CellNo:byte); вати сучасний математичний апарат. procedure StartMove(CellNo:byte); Додаток 1. function CellNo(CellNo: byte): b yte ; Винахід „Універсальний комплекс керування procedure StartMeasure(CellNo:BYTE); аналізом на спектрометрі рентгенівському". procedure RepeatMeasure(CellNo:byte); Модуль управління спектрометром: function MeasureComplete(CellNo:byte): boounit srm; lean; end; interface 5 const cmdKSAU = $04000; cmdStartSAU = cmdKSAU or (11 shl 5); cmdResetSAU = cmdKSAU or (12 shl 5); cmdSetFilters = cmdKSAU or (9 shl 5); cmdSending2 = $08000; crndSending! = $00200; cmdMoveTo = $0800; cmdResetAll = $02800; cmdKSAU2=(10 shl 5); cmdXXX=$10; cmdRepeat = $02000; 71746 stManualMode = $4000; stDetector=$1000; stReset = $2000; stXRay=$100; stReady = $200; stCell=$100; implementation uses SysUtils, Dialogs, Controls, Forms, uMain, uParams; Samples, function CheckBits(w:word; mask:word):boolean; begin Result:=((w and mask)0); end; function EncodeCellNo(CellNo:BYTE):WORD; begin if (CellNo>MAXCell) then raise Exception. Сгеа1е('0шибка в номере гнезда '+IntToStr(CellNo)) else ifCellNo=MAXCell then Result:=0 else Result:=CellNo; end; function EncodeChannelNo(ChannelNo: BYTE): WORD; begin if(ChannelNoMAXCHANNEL+1) then raise ЕхсерІіоn.Сrеаtе ('Ошибка в номере канала '+IntToStr(ChannelNo)) else Result:=(((ChannelNo mod 10) shi 5) or ((ChanneINo div 10) shl 4)); end; function EncodeFilter(FltNo:BYTE):WORD; begin if(FltNo9) then raise серІіоn.Сrеаtе ('Ошибка в номере фильтра') else result:=((FltNo shl 5)); end; Ех function GetFilterState(w:WORD; FltNo:BYTE):boolean; begin if(FltNo8) then raise Ехсерїіоn.Сrеаtе('Ошибка в номере фильтра'); if(FltNo