Форум РадиоКот

Код: Выделить всё

#!/usr/local/bin/perl

use strict;
use warnings;


use Win32::API;
use Win32::API::Test;
use Win32::API::Callback;

my $devicenum=-1;
my $level= 0 x 1024;
my $data1=0 x 120000;
my $data2=0 x 120000;

Win32::API->Import('SDK2090', 'sdSearchDevice','I','I');
Win32::API->Import('SDK2090', 'sdGetLevel','IP','I');  
Win32::API->Import('SDK2090', 'sdSetTriggerAndSampleRate','IIP','I');  
Win32::API->Import('SDK2090', 'sdSetFilt','IP','I');  
Win32::API->Import('SDK2090', 'sdSetVoltageAndCoupling','IIIIII','I');  
Win32::API->Import('SDK2090', 'sdSetOffset','IPIIIP','I');  
Win32::API->Import('SDK2090', 'sdGetData','IIIPPPPPPI','I');  
Win32::API->Import('SDK2090', 'sdDisplaySampling','IIIIID','D');  

Win32::API::Struct->typedef( structControlData => qw{
	WORD TriggerSource;
    WORD SelectedChannel;
    WORD Timebase;
    WORD TriggerPosition;
    WORD DataLengh;
	WORD BufferSize;
    WORD isAlt;
});

Win32::API::Struct->typedef( structStateStruct => qw{
	WORD Ch1Filt;
	WORD Ch2Filt;
	WORD TriggerFilt;
	WORD TriggerMode;
	WORD TriggerSlope;
});

Win32::API::Struct->typedef( structLeversData => qw{
	WORD Ch1Position;
	WORD Ch2 Position;
	WORD Ch1TriggerPosition;
	WORD Ch2TriggerPosition;
	WORD EXTTriggerPosition;
});

my $CtrlData = Win32::API::Struct->new('structControlData');
my $State = Win32::API::Struct->new('structStateStruct');
my $Levers = Win32::API::Struct->new('structLeversData');

for(my $i=0;$i<4;$i++){
	if (sdSearchDevice($i)){
		$devicenum=$i;
		last;
	}
}
if ($devicenum==-1){
	die "No device found\n";
}
else {
	print "Device found. Device number: $devicenum\n";
}

if (sdGetLevel($devicenum,$level)){
	print "Got calibratiom data\n";
	#print "$level\n";
}
else {
	die "Cannot get calibration data\n";
}

$CtrlData->{TriggerSource}=0;
$CtrlData->{SelectedChannel}=2;
$CtrlData->{Timebase}=16;
$CtrlData->{TriggerPosition}=50;
$CtrlData->{DataLengh}=1;
$CtrlData->{BufferSize}=10;
$CtrlData->{isAlt}=0;

if (sdSetTriggerAndSampleRate($devicenum,0,$CtrlData)){
	print "Set Trigger and Sample rate\n";
}
else {
	die "Cannot set trigger or/and sample rate\n";
}

$State->{Ch1Filt}=0;
$State->{Ch2Filt}=0;
$State->{TriggerFilt}=0;
$State->{TriggerMode}=0;
$State->{TriggerSlope}=0; 

if (sdSetFilt($devicenum, $State)){
	print "Set filters and trigger\n";
}
else {
	die "Cannot set filter and trigger\n";
}

if(sdSetVoltageAndCoupling($devicenum, 6, 6, 0, 0, 0)){
	print "SetVoltageAndCoupling\n";
}
else {
	die "Cannot do SetVoltageAndCoupling\n";
}

$Levers->{Ch1Position}=64;
$Levers->{Ch2Position}=192;
$Levers->{Ch1TriggerPosition}=64;
$Levers->{Ch2TriggerPosition}=192;
$Levers->{EXTTriggerPosition}=128;

if (sdSetOffset($devicenum, $Levers, 6, 6, 0, $level)){
	print "Set offset\n";
}
else {
	die "Cannot set offset\n";
}

while(1){

if (sdGetData($devicenum, 6,6, $data1, $data2, $CtrlData,$State, $Levers,$level,0)){
	print "GetData ok\n";
	for(my $i=0;$i<10000;$i++){
		print ord(substr($data1,$i,1))."\n";
	}
}
else {
	print "Cannot get data\n";
}
sleep(1);

}