Zendamateur.COM

Code: Selecteer alles

Public Sub PA8W_SweetSpot()
''ToDo 18-10-2020 Find 4 sweet spots in arraySwitchCap() 1 in each kwadrant
''@22-10-2020 Now SweetSpot and DopAntennes
''@23-10-2020
''@24-10-2020
 
  ''Integer
 Dim x As Integer
 Dim i As Integer
 Dim e As Integer

''Arrays
 Dim xx(9) As Integer ''ArrayIndex without offset
 Dim t(9) As Integer ''Arrayindex with offset

 ''Long
 Dim v As Long

 ''Float
 Dim f As Double


''Fill offset index with default values
For x = 0 To UBound(t)
 t(x) = UboundArrSwitchCap + 1
Next x

f = UboundArrSwitchCap / DopAntennes

For x = 1 To DopAntennes
 xx(x) = CInt(Math.Round(x * f))
Next x

If SweetSpot < 0 Then
   ''Max Sweetspots and one in each dopantenne(2-8) range
   For i = 1 To DopAntennes
    v = 0
    For x = xx(i - 1) To xx(i)
     ''Find max
       e = Math.Abs(arrSwitchCap(x))
       If e >= v Then
        v = e
        t(i) = x
       End If
    Next x
   Next i

   ''Auto find offset
   If SweetSpot = -2 Then
       v = 0
       x = 0
       For i = 1 To DopAntennes
        e = Math.Abs(arrSwitchCap(t(i)))
        If e >= v Then
         v = e
         x = i
        End If
       Next i
       ''x contains where t()index max is found
       SweetSpot = f * (x Mod xx(1))
       If bPA8Wsweetspot Then Call form24.AdjustDopAntennes
   End If

Else
      
 ''Dopantennes  Sweetspots with offset
    i = CInt(Math.Round(SweetSpot / f))
    For x = 1 To DopAntennes
     t(x) = (i + xx(x)) Mod UboundArrSwitchCap
    Next x

End If

''Modify the ArrSwitchCap
For x = 0 To UboundArrSwitchCap
  Select Case x
   Case t(1), t(2), t(3), t(4), t(5), t(6), t(7), t(8)
   Case Else
   arrSwitchCap(x) = 0
  End Select
Next x

End Sub