1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
|
#!/usr/local/bin/php
<?php
{
$ii = 0;
$xx = "bbbbb";
$dev = ibdev(0,5,0,T3s,1,0);
print "Number of dev is $dev\n";
$xx = "ID?";
$ii = ibwrt($dev,$xx,strlen($xx));
$zz = ibcnt();
echo("ibwrt returns: $ii $zz\n");
$err = iberr();
if($err > 0) {
echo("iberr: $err\n");
echo(gpib_error_string($err));
echo("\n");
}
$ii = ibrd($dev,$xx,1000);
$zz = ibcnt();
echo("ibrd returns: $ii $zz\n");
echo("($xx)\n");
$err = iberr();
if($err > 0) {
echo("iberr: $err\n");
echo(gpib_error_string($err));
echo("\n");
}
$xx = "infile1.txt";
$ii = ibwrtf($dev,$xx);
$zz = ibcnt();
echo("ibwrt returns: $ii $zz\n");
$err = iberr();
if($err > 0) {
echo("iberr: $err\n");
echo(gpib_error_string($err));
echo("\n");
}
$ii = ibrdf($dev,"outfile1.txt");
$zz = ibcnt();
echo("ibrd returns: $ii $zz\n");
echo("($xx)\n");
$err = iberr();
if($err > 0) {
echo("iberr: $err\n");
echo(gpib_error_string($err));
echo("\n");
}
$xx = "infile2.txt";
$ii = ibwrtf($dev,$xx);
$zz = ibcnt();
echo("ibwrt returns: $ii $zz\n");
$err = iberr();
if($err > 0) {
echo("iberr: $err\n");
echo(gpib_error_string($err));
echo("\n");
}
$ii = ibrdf($dev,"outfile2.txt");
$zz = ibcnt();
echo("ibrd returns: $ii $zz\n");
echo("($xx)\n");
$err = iberr();
if($err > 0) {
echo("iberr: $err\n");
echo(gpib_error_string($err));
echo("\n");
}
echo("done.\n");
}
?>
|
