Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw

Re^2: Win32 GUI Input or Event

by perldiverx (Beadle)
on Aug 27, 2013 at 16:50 UTC ( #1051168=note: print w/replies, xml ) Need Help??

in reply to Re: Win32 GUI Input or Event
in thread Win32 GUI Input or Event

Figured it out. What I did to get this to work is loop checking for one of two flags. The DoEvents method coupled with a while loop checks for both outcomes, albeit not concurrently. I had to put a short sleep timer in the loop or the click would not register. I've also removed the onMouseMove params from the buttons because the mouse clicks were not registering with them on their.

So here's what I changed to get this to work:
use Time::HiRes qw(usleep); #added use vars qw/$cc_number $exp_dt/; #add these two my $input1 = ''; #added these here so I my $input2 = ''; #could use them in subs my $swiped = 0; my $clicked = 0; # ... #old code matched in this section # ... $event_field->Append("Please swipe card... "); $window->Show(); $window->DoEvents(); while ($swiped != 1 && $clicked != 1) { $swiped = check_swipe(); usleep(750000); $window->DoEvents(); } if ($swiped == 1) { $event_field->Append("swiped\n"); } sleep 1; $event_field->Append("Connecting... "); sub check_swipe { $input1 = $card_input->GetLine(0); $input2 = $card_input->GetLine(1); if ($card_input->GetLine(1) !~ /\?$/) { $card_input->SetFocus(); $input1 = $card_input->GetLine(0); $input2 = $card_input->GetLine(1); $window->DoEvents(); } if ($input1 =~ /^\%B(\d{16})/i) { $cc_number = $1; } if ($input2 =~ /\=(\d{2})(\d{2})(.*)/) { $exp_dt = $2 . $1; return 1; } return 0; } sub manual_dial_Click { $card_number_label->Show(); $clicked = 1; }

Replies are listed 'Best First'.
Re^3: Win32 GUI Input or Event
by perldiverx (Beadle) on Jul 10, 2014 at 13:40 UTC
    This old solution was not very good. What I ended up doing was using the keydown event handler and regex'd on that string.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1051168]
[ambrus]: MLX: if it's a work email, then it's probably not Uncle Sam that matters, but what the account managing server at work thinks your name is. Those can differ. For example, we've had two co-workers with identical real name at one point,
[ambrus]: so one got a stupid suffix in the email account (people have email address based on their real name here usually).

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (11)
As of 2017-01-19 14:09 GMT
Find Nodes?
    Voting Booth?
    Do you watch meteor showers?

    Results (170 votes). Check out past polls.