Added RSSI/SNR slider

Configurator.vb

@@ -3178,6 +3178,20 @@ err1:
             MsgBox("File " + extern + " not found!")
             Return
         End If
+        Dim alink_info = "alink.conf"
+        If Not IO.File.Exists(alink_info) Then
+            MsgBox("File " + alink_info + " not found!")
+            Return
+        End If
+        Dim alink_info_filePath = alink_info
+        Dim alink_info_lines = IO.File.ReadAllLines(alink_info_filePath)
+        If alink_info_lines(6).StartsWith("rssi_weight=") Then
+            alink_info_lines(6) = "rssi_weight=" + CStr(1.0 - (trackWeight.Value / 10))
+        End If
+        If alink_info_lines(7).StartsWith("snr_weight=") Then
+            alink_info_lines(7) = "snr_weight=" + CStr(trackWeight.Value / 10)
+        End If
+        IO.File.WriteAllLines(alink_info_filePath, alink_info_lines)
         If cmbTXProfile.Text <> "Select TXProfile" Then
             If IsValidIP(txtIP.Text) Then
                 With New Process()
@@ -3193,9 +3207,5 @@ err1:
         End If
     End Sub
 
-    Private Sub alink1_CheckedChanged(sender As Object, e As EventArgs)
-
-    End Sub
-
 #End Region
 End Class

txprofiles/AF1-20.40.conf

@@ -6,5 +6,5 @@
 1501 - 1550 long 2 8 12 8192 10 30 0,0,0,0 20 -12
 1551 - 1600 long 3 8 12 10240 10 25 0,0,0,0 20 -12
 1601 - 1700 long 4 8 12 14436 10 25 0,0,0,0 20 -12
-1701 - 1800 long 3 8 12 18432 10 25 0,0,0,0 40 -12
-1801 - 2001 long 4 8 12 23552 10 25 0,0,0,0 40 -12
+1701 - 1800 long 3 8 12 16384 10 25 0,0,0,0 40 -12
+1801 - 2001 long 4 8 12 20480 10 25 0,0,0,0 40 -12