CW Start Variant

This commit is contained in:
2021-01-15 10:13:51 +01:00
parent 917bacfba4
commit 6092da362a
3 changed files with 36 additions and 12 deletions

View File

@@ -129,11 +129,20 @@
TL_ICON = False
End Try
ElseIf oMode.StartsWith("PM.START_CW") Then
Dim oCaption = oMode.Replace("PM.START_CW=", "")
Dim oAfterReplace = oMode.Replace("PM.START_CW=", "")
Try
START_CW = True
START_CW_CAPTION = oCaption
Dim oSplit As String() = oAfterReplace.Split("~")
START_CW_CAPTION = oSplit(0)
Try
START_CW_LOC_VARIANT = oSplit(1)
Catch ex As Exception
START_CW_LOC_VARIANT = "-1"
LOGGER.Warn($"Could not read START_CW_LOCVARIANT : {ex.Message}")
End Try
Catch ex As Exception
LOGGER.Warn($"Could not read START_CW Param: {ex.Message}")
START_CW = False
End Try
Else