중첩 된 다른 방법 If 다른 결과가있는 If 문?

Question

다른 결과가있는 중첩 된 else if 문을 처리하는 더 좋은 방법이 있습니까? 여기

설명 내 중첩 된 문 중 하나의 예입니다

  If My.Computer.Network.Ping(computerName) = True Then 
       Call InstallVS(computerName) 
       If My.Computer.Network.Ping(computerName) = True Then 
        Call PEC(computerName) 
        If My.Computer.Network.Ping(computerName) = True Then 
         Call RemoveSoftware(computerName) 
        Else 
         Call WriteLog(computerName & " lost connectivity while attemping to remove the temp software") 
        End If 
       Else 
        Call WriteLog(computerName & " lost connectivity while Forcing Communication") 
       End If 
      Else 
       Call WriteLog(computerName & " lost connectivity while attemping to Install") 
      End If 

내가 문 이러한 유형의 많은에 대한 요구 사항이, 일부는 일부는 훨씬 더 크다, 작다.

Answer 1

당신은 연결을 테스트하거나 특정 오류 메시지와 함께, 그렇지 않으면 예외가 발생합니다 PingOrFail라는 방법을 만들 수 있습니다.

Try 
    PingOrFail(computerName, "attempting to install") 
    Call InstallVS(computerName) 

    PingOrFail(computerName, "forcing communications") 
    Call PEC(computerName) 

    PingOrFail(computerName, "removing temp software") 
    RemoveSoftware(computerName) 
Catch ex As Exception 
    Call WriteLog (computerName & " lost connectivity while " & ex.Message) 
End Try 

을 그리고 이것은 PingOrFail 방법입니다 : 다음 코드 흐름은 다음과 같이 보일 수있는 프로그램에 메시지가 연결을 잃었 동안 액션과 일치하지 않는

Public Sub PingOrFail(computerName as String, message As String) 
    If My.Computer.Network.Ping(computerName) = False 
     Throw New Exception (message) 
    End If 
End Sub 

Answer 2

이러한 문은 중첩 될 필요가 없으며 실패 할 경우 예외를 발생시킬 수 있습니다.

Private Sub DoStuff(ByVal computerName As String) 
    Try 
     If My.Computer.Network.Ping(computerName) Then 
      InstallVS(computerName) 
     Else 
      Throw New Exception(computerName & " lost connectivity while attemping to Install") 
     End If 
     If My.Computer.Network.Ping(computerName) Then 
      PEC(computerName) 
     Else 
      Throw New Exception(computerName & " lost connectivity while Forcing Communication") 
     End If 
     If My.Computer.Network.Ping(computerName) Then 
      RemoveSoftware(computerName) 
     Else 
      Throw New Exception(computerName & " lost connectivity while attemping to remove the temp software") 
     End If 
    Catch ex As Exception 
     WriteLog(ex.Message) 
    End Try 
End Sub