kopia lustrzana https://github.com/Hamlib/Hamlib
set_conf(rig_pathname) example
git-svn-id: https://hamlib.svn.sourceforge.net/svnroot/hamlib/trunk@1676 7ae35d74-ebe9-4afe-98af-79ac388436b8Hamlib-1.2.0
rodzic
0972851aaf
commit
14fc32c37f
|
@ -8,6 +8,10 @@ print "FM: $Hamlib::RIG_MODE_FM\n";
|
||||||
Hamlib::rig_set_debug($Hamlib::RIG_DEBUG_TRACE);
|
Hamlib::rig_set_debug($Hamlib::RIG_DEBUG_TRACE);
|
||||||
|
|
||||||
$rig = new Hamlib::Rig($Hamlib::RIG_MODEL_DUMMY);
|
$rig = new Hamlib::Rig($Hamlib::RIG_MODEL_DUMMY);
|
||||||
|
|
||||||
|
# replace "/dev/Rig" with your path to serial port
|
||||||
|
$rig->set_conf("rig_pathname","/dev/Rig");
|
||||||
|
|
||||||
$rig->open();
|
$rig->open();
|
||||||
|
|
||||||
# 1073741944 is token value for "itu_region"
|
# 1073741944 is token value for "itu_region"
|
||||||
|
@ -58,7 +62,7 @@ print "Loc2: $loc2\n";
|
||||||
|
|
||||||
($dist, $az) = Hamlib::qrb($long1, $lat1, $long2, $lat2);
|
($dist, $az) = Hamlib::qrb($long1, $lat1, $long2, $lat2);
|
||||||
$longpath = Hamlib::distance_long_path($dist);
|
$longpath = Hamlib::distance_long_path($dist);
|
||||||
print "Distance: $dist km, long path: $longpath\n";
|
print "Distance: $dist km, azimuth $az, long path: $longpath\n";
|
||||||
($deg, $min, $sec) = Hamlib::dec2dms($az);
|
($deg, $min, $sec) = Hamlib::dec2dms($az);
|
||||||
$az2 = Hamlib::dms2dec($deg, $min, $sec);
|
$az2 = Hamlib::dms2dec($deg, $min, $sec);
|
||||||
print "Bearing: $az, $deg° $min' $sec\", recoded: $az2\n"
|
print "Bearing: $az, $deg° $min' $sec\", recoded: $az2\n"
|
||||||
|
|
Ładowanie…
Reference in New Issue