Opened by Hubbi at 2010-05-06 12:57
Hallo Perl Community,
ich arbeite seit kurzem mit WxPerl.
Ich möchte eine Benutzeroberfläche programmieren wo in Sekundentakt ein Wert in Label geändert wird (Endlosschleife).
Als ich nun nach einer Lösung gesucht habe, habe ich das Modul AnyEvent gefunden. Daraufhin testete ich in einem kleinen 'Testprogramm' (ohne GUI) die Funktionalität dieses Modul. Als ich es danach aber in das GUI nun einbauen wollte, musste ich leider feststellen, dass es für Wx nicht geht:-(
Deshalb meine Frage, gibt es ein anderes Modul mit der selben Funktionsweise für Wx oder geht das doch mit den Modul?
Testprogramm:
GUI:
Last edited: 2010-05-06 12:58:41 +0200 (CEST)
ich arbeite seit kurzem mit WxPerl.
Ich möchte eine Benutzeroberfläche programmieren wo in Sekundentakt ein Wert in Label geändert wird (Endlosschleife).
Als ich nun nach einer Lösung gesucht habe, habe ich das Modul AnyEvent gefunden. Daraufhin testete ich in einem kleinen 'Testprogramm' (ohne GUI) die Funktionalität dieses Modul. Als ich es danach aber in das GUI nun einbauen wollte, musste ich leider feststellen, dass es für Wx nicht geht:-(
Deshalb meine Frage, gibt es ein anderes Modul mit der selben Funktionsweise für Wx oder geht das doch mit den Modul?
Testprogramm:
Code: (dl
)
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
use Device::SerialPort;
use AnyEvent;
my $ ob = Device::SerialPort-> new ( '/dev/pts/2') || die;
my $main = AnyEvent->condvar;
$t = AnyEvent->timer( interval => 1, cb => sub {
$tmp = $ob->read(1900);
$tmp1 = substr($tmp, 3, 66);
@s = split(/\s+/, $tmp);
print $s[2] . "\n";
});
GUI:
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
sub gewicht {
my ($self, $event) = @_;
my $timer = AnyEvent->condvar;
my $t = AnyEvent->timer( interval => 1, cb => sub {
my @wert = wiegen(1);
$self->{kg}->SetLabel($wert[2]);
});
$timer->recv;
}Last edited: 2010-05-06 12:58:41 +0200 (CEST)