C# と VB.NET の質問掲示板

■No79893 (やんまー さん) に返信

記述された正しいソースは以下でよろしいでしょうか？
だとするとa=Cntup(a)は比較演算にしかならずaは0,cntupの結果は1なので１回だけメッセージを
表示して終わると思います。条件判定が正しくないと思うのですがどのような判定をしたいのでしょうか？

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim a As Integer = 0
        Do
            MsgBox(a)
        Loop While a = 0 AndAlso a = cntup(a)

    End Sub

    Function cntup(hen As Integer) As Integer
        hen += 1
        Return hen
    End Function



> ある処理を実行させてから、ループさせたいことがあります。
ある処理がcntupなら以下のように記述した方が分かりやすいです。


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim a As Integer = 0
　　　　Dim LoopFlg  = True

        Do
            MsgBox(a)
            'ある処理
            Dim cntresult = cntup(a)
            'ループ条件判定
            if a = 0 AndAlso a = cntresult then
                LoopFlg = True
            else
                LoopFlg =False
            end if
        Loop While LoopFlg

    End Sub

    Function cntup(hen As Integer) As Integer
        hen += 1
        Return hen
    End Function

■No79906 (やんまー さん) に返信
> 一応書きますが、本当にやりたいこととは、
> WEBアクセス
> ↓
> エラーだった場合はプロキシをセット
> ↓
> WEBアクセス（2回め）
> ・
> ・
> 
> ということになります。
> しかし、このことは本筋とは外れますので、書きませんでした。単にカウントアップでも良いと思いました。
> 

<<省略>>

> わたしのやりたいこと、でいうと、
> 1回めは直接WEBアクセスで良いのですが、エラーが出た場合はプロキシを設定する、という2回めのループになります。
> 1回めでエラーが出なければ、プロキシの設定は必要ない、ということです。
> 
これは、ループして処理しなくてもいい問題ではありませんか？

If Webアクセス() = 失敗 
  プロキシセット()
  Webアクセス()
End If
とすれば、いいように思います。
これを、2回目以降何度もプロキシを再設定する。Webアクセスを行う
とするのなら、

While Webアクセス() == 失敗
  プロキシセット()
End While
とすればいいと思います。

■No79906 (やんまー さん) に返信

> ご回答有り難うございます。
> 
> 本当にやりたいことは別に隠しているわけではないです・・・
> 
> 一応書きますが、本当にやりたいこととは、
> WEBアクセス
> ↓
> エラーだった場合はプロキシをセット
> ↓
> WEBアクセス（2回め）
> ・
> ・
> 

これなら
For cnt = 1 to 2
    Webアクセス
    if IsError Then
        プロキシセット
    else
　　　　Exit For
    end if
Next
でよいのではないでしょうか？