sub gewicht {
	my ($self, $event, $timer) = @_;

      my @wert = wiegen(1);
      $timer->SetLabel("ja")
}