Re: Win32::OLE / Perl / Phidget Display code

From what I remember about VB

TextLCD.DisplayString(0) = "hello"
[download]

is an array subscript. So what does

use Data::Dumper;
print Dumper( $phidget->DisplayString->[1] ); 
# or print Dumper( $phidget->{DisplayString}->[1] );
[download]

say?

holli

You can lead your users to water, but alas, you cannot drown them.

Comment on Re: Win32::OLE / Perl / Phidget Display code Select or Download Code

Replies are listed 'Best First'.
Re^2: Win32::OLE / Perl / Phidget Display code by SteveL (Initiate) on Aug 16, 2009 at 21:19 UTC
`print Dumper( $phidget->DisplayString->[1] ); Win32::OLE(0.1709) error 0x80020003: "Member not found" in METHOD/PROPERTYGET "DisplayString" at C:/Perl/lib/Data/Dumper.p +m line 527` [download] And if I try to set the value, it passes through just fine, but it still doesnt actually do anything Doing a Dumper on the entire $phidget object shows all the readable entries, but according to the docs, you can set but not read DisplayString. `$VAR1 = bless( { 'DeviceType' => 'Phidget TextLCD', 'SerialNumber' => <snip>, 'Name' => 'PhidgetTextLCD', 'Label' => '', 'IsAttached' => 1, 'DeviceVersion' => 123, 'LibraryVersion' => 'Phidget21 - Version 2.1.6 - Buil +t Aug 6 2 009 16:11:11 Phidget COM Library 2.1.6 - Built Aug 6 2009 16:12:18', 'port' => 0, 'Address' => '', 'ServerID' => '', 'IsAttachedToServer' => 0, 'RowCount' => 2, 'ColumnCount' => 20, 'Backlight' => 1, 'CursorOn' => 0, 'CursorBlink' => 0, 'Contrast' => 0 }, 'Win32::OLE' );` [download]	[reply] [d/l] [select]

Replies are listed 'Best First'.

Re^2: Win32::OLE / Perl / Phidget Display code
by SteveL (Initiate) on Aug 16, 2009 at 21:19 UTC

print Dumper( $phidget->DisplayString->[1] );

Win32::OLE(0.1709) error 0x80020003: "Member not found"
    in METHOD/PROPERTYGET "DisplayString" at C:/Perl/lib/Data/Dumper.p
+m line 527
[download]

$VAR1 = bless( {
                 'DeviceType' => 'Phidget TextLCD',
                 'SerialNumber' => <snip>,
                 'Name' => 'PhidgetTextLCD',
                 'Label' => '',
                 'IsAttached' => 1,
                 'DeviceVersion' => 123,
                 'LibraryVersion' => 'Phidget21 - Version 2.1.6 - Buil
+t Aug  6 2
009 16:11:11
Phidget COM Library 2.1.6 - Built Aug  6 2009 16:12:18',
                 'port' => 0,
                 'Address' => '',
                 'ServerID' => '',
                 'IsAttachedToServer' => 0,
                 'RowCount' => 2,
                 'ColumnCount' => 20,
                 'Backlight' => 1,
                 'CursorOn' => 0,
                 'CursorBlink' => 0,
                 'Contrast' => 0
               }, 'Win32::OLE' );
[download]

[reply]
[d/l]
[select]