Reply to thread

Message

<blockquote data-quote="DJBlu" data-source="post: 1079655" data-attributes="member: 54957">[USER=121281]@Benoire[/USER]Try this, replace the AddRemoveChannels sub with the following[code]&nbsp; &nbsp; Public Sub UpdateAddChannels()&nbsp; &nbsp; &nbsp; &nbsp; Try&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim DiseqC As Integer = Settings.DiseqC&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim UseSkyNumbers As Boolean = Settings.UseSkyNumbers&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim SwitchingFrequency As Integer = Settings.SwitchingFrequency&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim UseSkyRegions As Boolean = Settings.UseSkyRegions&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim UseSkyCategories As Boolean = Settings.UseSkyCategories&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim ChannelsAdded As Integer = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim UseModNotSetSD As Boolean = Settings.UseNotSetModSD&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim UseModNotSetHD As Boolean = Settings.UseNotSetModHD&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim IgnoreScrambled As Boolean = Settings.IgnoreScrambled&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim NID As Integer = Settings.NID&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim channel As New DVBSChannel&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim currentDetail As TuningDetail&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If (Not OnMessageEvent Is Nothing) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;&quot;, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each pair As KeyValuePair(Of Integer, Sky_Channel) In Channels&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; '//Dim detail As TuningDetail - Needs rest of Sky filtering work.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ChannelsAdded += 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;(&quot; &amp; ChannelsAdded &amp; &quot;/&quot; &amp; Channels.Count &amp; &quot;) Channels sorted&quot;, True)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim ChannelId As Integer = pair.Key&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim ScannedChannel As Sky_Channel = pair.Value&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If ChannelId &lt; 1 Then Continue For&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If ScannedChannel.NID = 0 Or ScannedChannel.TID = 0 Or ScannedChannel.SID = 0 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Continue For&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim SDT As SDTInfo = GetChannelbySID(ScannedChannel.NID &amp; &quot;-&quot; &amp; ScannedChannel.TID &amp; &quot;-&quot; &amp; ScannedChannel.SID)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If SDT Is Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Continue For&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If SDT Is Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Continue For&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If IgnoreScrambled And SDT.isFTA Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Continue For&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim checker As Channel = _layer.GetChannelbyExternalID(ScannedChannel.NID &amp; &quot;:&quot; &amp; ScannedChannel.ChannelID.ToString)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentDetail = Nothing&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Not checker Is Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim Channels As List(Of TuningDetail) = checker.ReferringTuningDetail&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Channels Is Not Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; For Each Chann As TuningDetail In Channels&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Chann.ChannelType = 3 And Chann.NetworkId = 169 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentDetail = Chann&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Exit For&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Add New Channel&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If currentDetail Is Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GoTo AddNewChannel&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End IfAddNewChannel:&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If Not NITInfo.ContainsKey(ScannedChannel.TID) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'no nit info&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;No NIT found for : &quot; &amp; ScannedChannel.SID, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;&quot;, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Continue For&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; ''//this stuff appears missing:&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim channelNumber As Integer = 10000&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim VisibleInGuide As Boolean = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If (UseSkyNumbers And (ScannedChannel.LCNCount &gt; 0)) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If ScannedChannel.ContainsLCN(Me.BouquetIDtoUse, Me.RegionIDtoUse) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNumber = ScannedChannel.GetLCN(Me.BouquetIDtoUse, Me.RegionIDtoUse).SkyNum&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If ScannedChannel.ContainsLCN(Me.BouquetIDtoUse, 255) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; channelNumber = ScannedChannel.GetLCN(Me.BouquetIDtoUse, 255).SkyNum&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If (channelNumber = 10000) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; VisibleInGuide = False&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim DBChannel As Channel = _layer.AddNewChannel(SDT.ChannelName, channelNumber)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim NIT As NITSatDescriptor = NITInfo(ScannedChannel.TID)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.BandType = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.DisEqc = DirectCast(DiseqC, DisEqcType)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.FreeToAir = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.Frequency = NIT.Frequency&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.SymbolRate = NIT.Symbolrate&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.InnerFecRate = DirectCast(NIT.FECInner, DirectShowLib.BDA.BinaryConvolutionCodeRate)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.IsRadio = SDT.isRadio&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.IsTv = SDT.isTV&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.FreeToAir = Not SDT.isFTA&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DBChannel.ChannelNumber = channelNumber&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DBChannel.SortOrder = channelNumber&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DBChannel.VisibleInGuide = VisibleInGuide&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If (NIT.isS2 And UseModNotSetHD) Or (NIT.isS2 = False And UseModNotSetSD) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNotSet&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Select Case NIT.Modulation&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If NIT.isS2 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNbcQpsk&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModQpsk&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If NIT.isS2 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNbc8Psk&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNotDefined&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNotDefined&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.Name = SDT.ChannelName&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.NetworkId = ScannedChannel.NID&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.Pilot = -1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.Rolloff = -1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If NIT.isS2 = 1 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.Rolloff = CType(NIT.RollOff, DirectShowLib.BDA.RollOff)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.PmtPid = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.Polarisation = CType(NIT.Polarisation, DirectShowLib.BDA.Polarisation)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.Provider = SDT.Provider&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.ServiceId = ScannedChannel.SID&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.TransportId = ScannedChannel.TID&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DVBSChannel.SwitchingFrequency = SwitchingFrequency ' Option for user to enter&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DBChannel.IsRadio = SDT.isRadio&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DBChannel.IsTv = SDT.isTV&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DBChannel.ExternalId = ScannedChannel.NID &amp; &quot;:&quot; &amp; ScannedChannel.ChannelID.ToString&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DBChannel.Persist()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MapChannelToCards(DBChannel)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; AddChannelToGroups(DBChannel, SDT, DVBSChannel, UseSkyCategories)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _layer.AddTuningDetails(DBChannel, DVBSChannel)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DBChannel = currentDetail.ReferencedChannel()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If DBChannel.ExternalId &lt;&gt; ScannedChannel.NID &amp; &quot;:&quot; &amp; ChannelId.ToString Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Problem with TVServer so need to add new channel.&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; GoTo AddNewChannel&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim checkDVBSChannel As DVBSChannel = _layer.GetTuningChannel(currentDetail)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If checkDVBSChannel Is Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Continue For&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If DBChannel Is Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Continue For&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim Checksdt As SDTInfo&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If SDTInfo.ContainsKey(ScannedChannel.NID &amp; &quot;-&quot; &amp; ScannedChannel.TID &amp; &quot;-&quot; &amp; ScannedChannel.SID) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim haschanged As Boolean = False&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim deleteepg As Boolean = False&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Checksdt = SDTInfo(ScannedChannel.NID &amp; &quot;-&quot; &amp; ScannedChannel.TID &amp; &quot;-&quot; &amp; ScannedChannel.SID)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If DBChannel.DisplayName &lt;&gt; Checksdt.ChannelName Or currentDetail.Name &lt;&gt; Checksdt.ChannelName Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;Channel &quot; &amp; DBChannel.DisplayName &amp; &quot; name changed to &quot; &amp; Checksdt.ChannelName, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DBChannel.DisplayName = Checksdt.ChannelName&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.Name = Checksdt.ChannelName&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Check Channel hasn't become a real channel from a test channel&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If ScannedChannel.LCNCount &gt; 0 And DBChannel.VisibleInGuide = False Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DBChannel.VisibleInGuide = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;Channel &quot; &amp; DBChannel.DisplayName &amp; &quot; is now part of the EPG making visible &quot; &amp; Checksdt.ChannelName &amp; &quot;.&quot;, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; haschanged = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If checkDVBSChannel.Provider &lt;&gt; Checksdt.Provider Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;Channel &quot; &amp; DBChannel.DisplayName &amp; &quot; Provider name changed to &quot; &amp; Checksdt.Provider &amp; &quot;.&quot;, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;&quot;, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.Provider = Checksdt.Provider&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; haschanged = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If currentDetail.TransportId &lt;&gt; ScannedChannel.TID Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; 'Moved transponder&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;Channel : &quot; &amp; DBChannel.DisplayName &amp; &quot; tuning details changed.&quot;, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;&quot;, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If NITInfo.ContainsKey(ScannedChannel.TID) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; NIT = NITInfo(ScannedChannel.TID)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Continue For&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.BandType = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.Frequency = NIT.Frequency&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.SymbolRate = NIT.Symbolrate&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.InnerFecRate = CType(NIT.FECInner, DirectShowLib.BDA.BinaryConvolutionCodeRate)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If (NIT.isS2 And UseModNotSetHD) Or (NIT.isS2 = False And UseModNotSetSD) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNotSet&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Select Case NIT.Modulation&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If NIT.isS2 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNbcQpsk&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModQpsk&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case 2&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If NIT.isS2 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNbc8Psk&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNotDefined&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Case Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNotDefined&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End Select&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.Pilot = -1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.Rolloff = -1&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If NIT.isS2 = 1 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.Rolloff = CType(NIT.RollOff, DirectShowLib.BDA.RollOff)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.PmtPid = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.Polarisation = CType(NIT.Polarisation, DirectShowLib.BDA.Polarisation)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.TransportId = ScannedChannel.TID&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.SwitchingFrequency = SwitchingFrequency ' Option for user to enter&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; haschanged = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; deleteepg = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;Channel : &quot; &amp; DBChannel.DisplayName &amp; &quot; tuning details changed.&quot;, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;&quot;, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If currentDetail.ServiceId &lt;&gt; ScannedChannel.SID Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.ServiceId = ScannedChannel.SID&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.PmtPid = 0&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;Channel : &quot; &amp; DBChannel.DisplayName &amp; &quot; serviceID changed.&quot;, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;&quot;, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; haschanged = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; deleteepg = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If UseSkyRegions = True Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim checkLCN As Integer = 10000&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If UseSkyNumbers Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If ScannedChannel.LCNCount &gt; 0 Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If ScannedChannel.ContainsLCN(BouquetIDtoUse, RegionIDtoUse) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim LCN As LCNHolder = ScannedChannel.GetLCN(BouquetIDtoUse, RegionIDtoUse)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkLCN = LCN.SkyNum&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Else&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If ScannedChannel.ContainsLCN(BouquetIDtoUse, 255) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim LCN As LCNHolder = ScannedChannel.GetLCN(BouquetIDtoUse, 255)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkLCN = LCN.SkyNum&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If (currentDetail.ChannelNumber &lt;&gt; checkLCN And checkLCN &lt; 1000) Or (checkLCN = 10000 And DBChannel.SortOrder &lt;&gt; 10000) Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;Channel : &quot; &amp; DBChannel.DisplayName &amp; &quot; number has changed from : &quot; &amp; checkDVBSChannel.LogicalChannelNumber &amp; &quot; to : &quot; &amp; checkLCN &amp; &quot;.&quot;, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; RaiseEvent OnMessage(&quot;&quot;, False)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DBChannel.RemoveFromAllGroups()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; currentDetail.ChannelNumber = checkLCN&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; checkDVBSChannel.LogicalChannelNumber = checkLCN&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DBChannel.SortOrder = checkLCN&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DBChannel.VisibleInGuide = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; haschanged = True&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; AddChannelToGroups(DBChannel, Checksdt, checkDVBSChannel, UseSkyCategories)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If haschanged Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; DBChannel.Persist()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Dim tuning As TuningDetail = _layer.UpdateTuningDetails(DBChannel, checkDVBSChannel, currentDetail)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If tuning Is Not Nothing Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; tuning.Persist()&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MapChannelToCards(DBChannel)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; If deleteepg Then&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; _layer.RemoveAllPrograms(DBChannel.IdChannel)&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; End If&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; Next&nbsp; &nbsp; &nbsp; &nbsp; Catch err As Exception&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; MsgBox(err.Message)&nbsp; &nbsp; &nbsp; &nbsp; End Try&nbsp; &nbsp; End Sub[/code]</blockquote>

[QUOTE="DJBlu, post: 1079655, member: 54957"] [USER=121281]@Benoire[/USER] Try this, replace the AddRemoveChannels sub with the following [code] Public Sub UpdateAddChannels() Try Dim DiseqC As Integer = Settings.DiseqC Dim UseSkyNumbers As Boolean = Settings.UseSkyNumbers Dim SwitchingFrequency As Integer = Settings.SwitchingFrequency Dim UseSkyRegions As Boolean = Settings.UseSkyRegions Dim UseSkyCategories As Boolean = Settings.UseSkyCategories Dim ChannelsAdded As Integer = 0 Dim UseModNotSetSD As Boolean = Settings.UseNotSetModSD Dim UseModNotSetHD As Boolean = Settings.UseNotSetModHD Dim IgnoreScrambled As Boolean = Settings.IgnoreScrambled Dim NID As Integer = Settings.NID Dim channel As New DVBSChannel Dim currentDetail As TuningDetail If (Not OnMessageEvent Is Nothing) Then RaiseEvent OnMessage("", False) End If For Each pair As KeyValuePair(Of Integer, Sky_Channel) In Channels '//Dim detail As TuningDetail - Needs rest of Sky filtering work. ChannelsAdded += 1 RaiseEvent OnMessage("(" & ChannelsAdded & "/" & Channels.Count & ") Channels sorted", True) Dim ChannelId As Integer = pair.Key Dim ScannedChannel As Sky_Channel = pair.Value If ChannelId < 1 Then Continue For If ScannedChannel.NID = 0 Or ScannedChannel.TID = 0 Or ScannedChannel.SID = 0 Then Continue For End If Dim SDT As SDTInfo = GetChannelbySID(ScannedChannel.NID & "-" & ScannedChannel.TID & "-" & ScannedChannel.SID) If SDT Is Nothing Then Continue For End If If SDT Is Nothing Then Continue For End If If IgnoreScrambled And SDT.isFTA Then Continue For End If Dim checker As Channel = _layer.GetChannelbyExternalID(ScannedChannel.NID & ":" & ScannedChannel.ChannelID.ToString) currentDetail = Nothing If Not checker Is Nothing Then Dim Channels As List(Of TuningDetail) = checker.ReferringTuningDetail If Channels Is Not Nothing Then For Each Chann As TuningDetail In Channels If Chann.ChannelType = 3 And Chann.NetworkId = 169 Then currentDetail = Chann Exit For End If Next End If End If 'Add New Channel If currentDetail Is Nothing Then GoTo AddNewChannel End If AddNewChannel: If Not NITInfo.ContainsKey(ScannedChannel.TID) Then 'no nit info RaiseEvent OnMessage("No NIT found for : " & ScannedChannel.SID, False) RaiseEvent OnMessage("", False) Continue For End If ''//this stuff appears missing: Dim channelNumber As Integer = 10000 Dim VisibleInGuide As Boolean = True If (UseSkyNumbers And (ScannedChannel.LCNCount > 0)) Then If ScannedChannel.ContainsLCN(Me.BouquetIDtoUse, Me.RegionIDtoUse) Then channelNumber = ScannedChannel.GetLCN(Me.BouquetIDtoUse, Me.RegionIDtoUse).SkyNum If ScannedChannel.ContainsLCN(Me.BouquetIDtoUse, 255) Then channelNumber = ScannedChannel.GetLCN(Me.BouquetIDtoUse, 255).SkyNum End If End If If (channelNumber = 10000) Then VisibleInGuide = False End If End If Dim DBChannel As Channel = _layer.AddNewChannel(SDT.ChannelName, channelNumber) Dim NIT As NITSatDescriptor = NITInfo(ScannedChannel.TID) DVBSChannel.BandType = 0 DVBSChannel.DisEqc = DirectCast(DiseqC, DisEqcType) DVBSChannel.FreeToAir = True DVBSChannel.Frequency = NIT.Frequency DVBSChannel.SymbolRate = NIT.Symbolrate DVBSChannel.InnerFecRate = DirectCast(NIT.FECInner, DirectShowLib.BDA.BinaryConvolutionCodeRate) DVBSChannel.IsRadio = SDT.isRadio DVBSChannel.IsTv = SDT.isTV DVBSChannel.FreeToAir = Not SDT.isFTA DBChannel.ChannelNumber = channelNumber DBChannel.SortOrder = channelNumber DBChannel.VisibleInGuide = VisibleInGuide If (NIT.isS2 And UseModNotSetHD) Or (NIT.isS2 = False And UseModNotSetSD) Then DVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNotSet Else Select Case NIT.Modulation Case 1 If NIT.isS2 Then DVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNbcQpsk Else DVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModQpsk End If Case 2 If NIT.isS2 Then DVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNbc8Psk Else DVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNotDefined End If Case Else DVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNotDefined End Select End If DVBSChannel.Name = SDT.ChannelName DVBSChannel.NetworkId = ScannedChannel.NID DVBSChannel.Pilot = -1 DVBSChannel.Rolloff = -1 If NIT.isS2 = 1 Then DVBSChannel.Rolloff = CType(NIT.RollOff, DirectShowLib.BDA.RollOff) End If DVBSChannel.PmtPid = 0 DVBSChannel.Polarisation = CType(NIT.Polarisation, DirectShowLib.BDA.Polarisation) DVBSChannel.Provider = SDT.Provider DVBSChannel.ServiceId = ScannedChannel.SID DVBSChannel.TransportId = ScannedChannel.TID DVBSChannel.SwitchingFrequency = SwitchingFrequency ' Option for user to enter DBChannel.IsRadio = SDT.isRadio DBChannel.IsTv = SDT.isTV DBChannel.ExternalId = ScannedChannel.NID & ":" & ScannedChannel.ChannelID.ToString DBChannel.Persist() MapChannelToCards(DBChannel) AddChannelToGroups(DBChannel, SDT, DVBSChannel, UseSkyCategories) _layer.AddTuningDetails(DBChannel, DVBSChannel) DBChannel = currentDetail.ReferencedChannel() If DBChannel.ExternalId <> ScannedChannel.NID & ":" & ChannelId.ToString Then 'Problem with TVServer so need to add new channel. GoTo AddNewChannel End If Dim checkDVBSChannel As DVBSChannel = _layer.GetTuningChannel(currentDetail) If checkDVBSChannel Is Nothing Then Continue For End If If DBChannel Is Nothing Then Continue For End If Dim Checksdt As SDTInfo If SDTInfo.ContainsKey(ScannedChannel.NID & "-" & ScannedChannel.TID & "-" & ScannedChannel.SID) Then Dim haschanged As Boolean = False Dim deleteepg As Boolean = False Checksdt = SDTInfo(ScannedChannel.NID & "-" & ScannedChannel.TID & "-" & ScannedChannel.SID) If DBChannel.DisplayName <> Checksdt.ChannelName Or currentDetail.Name <> Checksdt.ChannelName Then RaiseEvent OnMessage("Channel " & DBChannel.DisplayName & " name changed to " & Checksdt.ChannelName, False) DBChannel.DisplayName = Checksdt.ChannelName checkDVBSChannel.Name = Checksdt.ChannelName 'Check Channel hasn't become a real channel from a test channel If ScannedChannel.LCNCount > 0 And DBChannel.VisibleInGuide = False Then DBChannel.VisibleInGuide = True RaiseEvent OnMessage("Channel " & DBChannel.DisplayName & " is now part of the EPG making visible " & Checksdt.ChannelName & ".", False) End If haschanged = True End If If checkDVBSChannel.Provider <> Checksdt.Provider Then RaiseEvent OnMessage("Channel " & DBChannel.DisplayName & " Provider name changed to " & Checksdt.Provider & ".", False) RaiseEvent OnMessage("", False) checkDVBSChannel.Provider = Checksdt.Provider haschanged = True End If If currentDetail.TransportId <> ScannedChannel.TID Then 'Moved transponder RaiseEvent OnMessage("Channel : " & DBChannel.DisplayName & " tuning details changed.", False) RaiseEvent OnMessage("", False) If NITInfo.ContainsKey(ScannedChannel.TID) Then NIT = NITInfo(ScannedChannel.TID) Else Continue For End If checkDVBSChannel.BandType = 0 checkDVBSChannel.Frequency = NIT.Frequency checkDVBSChannel.SymbolRate = NIT.Symbolrate checkDVBSChannel.InnerFecRate = CType(NIT.FECInner, DirectShowLib.BDA.BinaryConvolutionCodeRate) If (NIT.isS2 And UseModNotSetHD) Or (NIT.isS2 = False And UseModNotSetSD) Then checkDVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNotSet Else Select Case NIT.Modulation Case 1 If NIT.isS2 Then checkDVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNbcQpsk Else checkDVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModQpsk End If Case 2 If NIT.isS2 Then checkDVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNbc8Psk Else checkDVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNotDefined End If Case Else checkDVBSChannel.ModulationType = DirectShowLib.BDA.ModulationType.ModNotDefined End Select End If checkDVBSChannel.Pilot = -1 checkDVBSChannel.Rolloff = -1 If NIT.isS2 = 1 Then checkDVBSChannel.Rolloff = CType(NIT.RollOff, DirectShowLib.BDA.RollOff) End If checkDVBSChannel.PmtPid = 0 checkDVBSChannel.Polarisation = CType(NIT.Polarisation, DirectShowLib.BDA.Polarisation) checkDVBSChannel.TransportId = ScannedChannel.TID checkDVBSChannel.SwitchingFrequency = SwitchingFrequency ' Option for user to enter haschanged = True deleteepg = True RaiseEvent OnMessage("Channel : " & DBChannel.DisplayName & " tuning details changed.", False) RaiseEvent OnMessage("", False) End If If currentDetail.ServiceId <> ScannedChannel.SID Then checkDVBSChannel.ServiceId = ScannedChannel.SID checkDVBSChannel.PmtPid = 0 RaiseEvent OnMessage("Channel : " & DBChannel.DisplayName & " serviceID changed.", False) RaiseEvent OnMessage("", False) haschanged = True deleteepg = True End If If UseSkyRegions = True Then Dim checkLCN As Integer = 10000 If UseSkyNumbers Then If ScannedChannel.LCNCount > 0 Then If ScannedChannel.ContainsLCN(BouquetIDtoUse, RegionIDtoUse) Then Dim LCN As LCNHolder = ScannedChannel.GetLCN(BouquetIDtoUse, RegionIDtoUse) checkLCN = LCN.SkyNum Else If ScannedChannel.ContainsLCN(BouquetIDtoUse, 255) Then Dim LCN As LCNHolder = ScannedChannel.GetLCN(BouquetIDtoUse, 255) checkLCN = LCN.SkyNum End If End If If (currentDetail.ChannelNumber <> checkLCN And checkLCN < 1000) Or (checkLCN = 10000 And DBChannel.SortOrder <> 10000) Then RaiseEvent OnMessage("Channel : " & DBChannel.DisplayName & " number has changed from : " & checkDVBSChannel.LogicalChannelNumber & " to : " & checkLCN & ".", False) RaiseEvent OnMessage("", False) DBChannel.RemoveFromAllGroups() currentDetail.ChannelNumber = checkLCN checkDVBSChannel.LogicalChannelNumber = checkLCN DBChannel.SortOrder = checkLCN DBChannel.VisibleInGuide = True haschanged = True AddChannelToGroups(DBChannel, Checksdt, checkDVBSChannel, UseSkyCategories) End If End If End If End If If haschanged Then DBChannel.Persist() Dim tuning As TuningDetail = _layer.UpdateTuningDetails(DBChannel, checkDVBSChannel, currentDetail) If tuning Is Not Nothing Then tuning.Persist() MapChannelToCards(DBChannel) If deleteepg Then _layer.RemoveAllPrograms(DBChannel.IdChannel) End If End If End If End If Next Catch err As Exception MsgBox(err.Message) End Try End Sub [/code] [/QUOTE]

Verification