view release on metacpan or  search on metacpan

examples/bt368i-tk.pl  view on Meta::CPAN

#
#----------------------------------------#
sub rmc {
 	$rmc_tab->Label(-height=>1, -text => "utc_time", -anchor=>'w', -width=>25)->grid(-row=>0, -column=>0);
	$rmc_tab->Entry(-textvariable=>\$rmc->{'utc_time'})->grid(-row=>0, -column=>1);

 	$rmc_tab->Label(-height=>1, -text => "status", -anchor=>'w', -width=>25)->grid(-row=>1, -column=>0);
	$rmc_tab->Entry(-textvariable=>\$rmc->{'status'})->grid(-row=>1, -column=>1);

 	$rmc_tab->Label(-height=>1, -text => "latitude", -anchor=>'w', -width=>25)->grid(-row=>2, -column=>0);
	$rmc_tab->Entry(-textvariable=>\$rmc->{'latitude'})->grid(-row=>2, -column=>1);

 	$rmc_tab->Label(-height=>1, -text => "latitude_hemisphere", -anchor=>'w', -width=>25)->grid(-row=>3, -column=>0);
	$rmc_tab->Entry(-textvariable=>\$rmc->{'latitude_hemisphere'})->grid(-row=>3, -column=>1);

 	$rmc_tab->Label(-height=>1, -text => "longitude", -anchor=>'w', -width=>25)->grid(-row=>4, -column=>0);
	$rmc_tab->Entry(-textvariable=>\$rmc->{'longitude'})->grid(-row=>4, -column=>1);

 	$rmc_tab->Label(-height=>1, -text => "longitude_hemisphere", -anchor=>'w', -width=>25)->grid(-row=>5, -column=>0);
	$rmc_tab->Entry(-textvariable=>\$rmc->{'longitude_hemisphere'})->grid(-row=>5, -column=>1);

 	$rmc_tab->Label(-height=>1, -text => "speed", -anchor=>'w', -width=>25)->grid(-row=>6, -column=>0);
	$rmc_tab->Entry(-textvariable=>\$rmc->{'speed'})->grid(-row=>6, -column=>1);

 	$rmc_tab->Label(-height=>1, -text => "course", -anchor=>'w', -width=>25)->grid(-row=>7, -column=>0);
	$rmc_tab->Entry(-textvariable=>\$rmc->{'course'})->grid(-row=>7, -column=>1);

 	$rmc_tab->Label(-height=>1, -text => "utc_date", -anchor=>'w', -width=>25)->grid(-row=>8, -column=>0);
	$rmc_tab->Entry(-textvariable=>\$rmc->{'utc_date'})->grid(-row=>8, -column=>1);

 	$rmc_tab->Label(-height=>1, -text => "magnetic_variation", -anchor=>'w', -width=>25)->grid(-row=>9, -column=>0);
	$rmc_tab->Entry(-textvariable=>\$rmc->{'magnetic_variation'})->grid(-row=>9, -column=>1);

 	$rmc_tab->Label(-height=>1, -text => "magnetic_variation_direction", -anchor=>'w', -width=>25)->grid(-row=>10, -column=>0);
	$rmc_tab->Entry(-textvariable=>\$rmc->{'magnetic_variation_direction'})->grid(-row=>10, -column=>1);
}

#----------------------------------------#
#
#----------------------------------------#
sub gsv {
 	$gsv_tab->Label(-height=>1, -text => "gsv_sentance_count", -anchor=>'w', -width=>25)->grid(-row=>0, -column=>0);
	$gsv_tab->Entry(-textvariable=>\$gsv->{'gsv_sentance_count'})->grid(-row=>0, -column=>1);

 	$gsv_tab->Label(-height=>1, -text => "current_gsv_sentance", -anchor=>'w', -width=>25)->grid(-row=>1, -column=>0);
	$gsv_tab->Entry(-textvariable=>\$gsv->{'current_gsv_sentance'})->grid(-row=>1, -column=>1);

 	$gsv_tab->Label(-height=>1, -text => "number_of_satilites", -anchor=>'w', -width=>25)->grid(-row=>2, -column=>0);
	$gsv_tab->Entry(-textvariable=>\$gsv->{'number_of_satilites'})->grid(-row=>2, -column=>1);

	$gsv_graph = $gsv_tab->Graph(
		-type        => 'HBARS',
		-printvalue  => '%s %d',
		-max         => 99,
		-width       => 300,
		-barwidth    => 20,
		-xformat     => '',
		-height      => 300,
		-sortnames   => 'alpha',
		-sortreverse => '1',
	)->grid(-row=>3, -column=>0, -columnspan=>2);

	#$gsv_graph->set($gsv_graphdata); # no need to assign nothing to the graph, it'll show up soon enough
}

#----------------------------------------#
#
#----------------------------------------#
sub gga {
 	$gga_tab->Label(-height=>1, -text => "utc_time", -anchor=>'w', -width=>25)->grid(-row=>0, -column=>0);
	$gga_tab->Entry(-textvariable=>\$gga->{'utc_time'})->grid(-row=>0, -column=>1);

	$gga_tab->Label(-text => "latitude", -anchor=>'w', -width=>25)->grid(-row=>1, -column=>0);
	$gga_tab->Entry(-textvariable=>\$gga->{'latitude'})->grid(-row=>1, -column=>1);

	$gga_tab->Label(-text => "latitude_hemisphere", -anchor=>'w', -width=>25)->grid(-row=>2, -column=>0);
	$gga_tab->Entry(-textvariable=>\$gga->{'latitude_hemisphere'})->grid(-row=>2, -column=>1);

	$gga_tab->Label(-text => "longitude", -anchor=>'w', -width=>25)->grid(-row=>3, -column=>0);
	$gga_tab->Entry(-textvariable=>\$gga->{'longitude'})->grid(-row=>3, -column=>1);

	$gga_tab->Label(-text => "longitude_hemisphere", -anchor=>'w', -width=>25)->grid(-row=>4, -column=>0);
	$gga_tab->Entry(-textvariable=>\$gga->{'longitude_hemisphere'})->grid(-row=>4, -column=>1);

	$gga_tab->Label(-text => "fix_type", -anchor=>'w', -width=>25)->grid(-row=>5, -column=>0);
	$gga_tab->Entry(-textvariable=>\$gga->{'fix_type'})->grid(-row=>5, -column=>1);

	$gga_tab->Label(-text => "satilites_in_use", -anchor=>'w', -width=>25)->grid(-row=>6, -column=>0);
	$gga_tab->Entry(-textvariable=>\$gga->{'satilites_in_use'})->grid(-row=>6, -column=>1);

	$gga_tab->Label(-text => "antenna_height", -anchor=>'w', -width=>25)->grid(-row=>7, -column=>0);
	$gga_tab->Entry(-textvariable=>\$gga->{'antenna_height'})->grid(-row=>7, -column=>1);

	$gga_tab->Label(-text => "geoidal_height", -anchor=>'w', -width=>25)->grid(-row=>8, -column=>0);
	$gga_tab->Entry(-textvariable=>\$gga->{'geoidal_height'})->grid(-row=>8, -column=>1);

	$gga_tab->Label(-text => "dgps_data_age", -anchor=>'w', -width=>25)->grid(-row=>9, -column=>0);
	$gga_tab->Entry(-textvariable=>\$gga->{'dgps_data_age'})->grid(-row=>9, -column=>1);

	$gga_tab->Label(-text => "dgps_reference_station_id", -anchor=>'w', -width=>25)->grid(-row=>10, -column=>0);
	$gga_tab->Entry(-textvariable=>\$gga->{'dgps_reference_station_id'})->grid(-row=>10, -column=>1);
}

#----------------------------------------#
#
#----------------------------------------#
sub gll {
	$gll_tab->Label(-text => "latitude", -anchor=>'w', -width=>25)->grid(-row=>0, -column=>0);
	$gll_tab->Entry(-textvariable=>\$gll->{'latitude'})->grid(-row=>0, -column=>1);

	$gll_tab->Label(-text => "latitude_hemisphere", -anchor=>'w', -width=>25)->grid(-row=>1, -column=>0);
	$gll_tab->Entry(-textvariable=>\$gll->{'latitude_hemisphere'})->grid(-row=>1, -column=>1);

	$gll_tab->Label(-text => "longitude", -anchor=>'w', -width=>25)->grid(-row=>2, -column=>0);
	$gll_tab->Entry(-textvariable=>\$gll->{'longitude'})->grid(-row=>2, -column=>1);

	$gll_tab->Label(-text => "longitude_hemisphere", -anchor=>'w', -width=>25)->grid(-row=>3, -column=>0);
	$gll_tab->Entry(-textvariable=>\$gll->{'longitude_hemisphere'})->grid(-row=>3, -column=>1);

	$gll_tab->Label(-text => "utc_time", -anchor=>'w', -width=>25)->grid(-row=>4, -column=>0);
	$gll_tab->Entry(-textvariable=>\$gll->{'utc_time'})->grid(-row=>4, -column=>1);