VB FOR～NEXTについて
下記の変数の宣言で、For w As Integer = 1 To 100 のWにチェックが付、デバックできません、考えられる点はどんな事があるのでしょうか？
ご教授お願いします。
' Button4のClickイベントを処理します。
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
' LineData用の変数です。
Dim cadLineData As New zwDrawCAD.LineData
' 線分の始点と終点を参照します。
Dim cadStartPoint As zwDrawCAD.DPoint = cadLineData.Start
Dim cadEndPoint As zwDrawCAD.DPoint = cadLineData.End
'とりあえず線のセンターポイントは（100,100）にしてます。
Const X As Integer = 0 'cadStartPoint.x = 100
Const y As Integer = 0 'cadStartPoint.x = 100
Dim sr As System.IO.StreamReader = Nothing
Try
Dim file As String = TextBox1.Text
'SRとは New System.IO.StreamReaderの略
sr = New System.IO.StreamReader(file, System.Text.Encoding.GetEncoding("shift_jis"))
Dim ansx As Double '計算された、xの座標
Dim ansy As Double '計算された、yの座標
Dim doc As String 'fileの1行
Dim x1 As String '１列目（X）
Dim y2 As String '２列目（ｙ）、
Dim x3 As String '３列目（X1）、
Dim y4 As String '４列目（ｙ２）
Dim angle As String '５列目（角度）、
Dim spare As String '６列目（予備）、
Dim item() As String '
Dim i As Integer
'１行ずつテキストを読み取る
doc = sr.ReadLine '1行読む
Do Until IsNothing(doc)
i += 1
item = doc.Split(",") 'カンマで区切る
x1 = item(0)
y2 = item(1)
x3 = item(2)
y4 = item(3)
angle = item(4)
spare = item(5)
f2.data(x1, y2, x3, y4, angle, spare)
f2.int(i)
TextBox2.Text &= item(0) & " " & item(1) & " " & item(2) & " " & item(4) & " " & item(5) & " " & vbNewLine
doc = sr.ReadLine '次の1行を読む
Loop
f2.println()
Catch ex As Exception
MessageBox.Show(ex.Message, "read")
Finally
If sr IsNot Nothing Then
sr.Close()
sr.Dispose()
End If
Dim len As Integer 'TextBox1に入力された線の長さ
Dim angle As Double 'TextBox2に入力された角度 単位は度
Dim ansx As Double '計算された、xの座標
Dim ansy As Double '計算された、yの座標
'変数の宣言
Dim w As Integer
Dim i As Integer
'初期化
w = 0
i = 0
For w As Integer = 1 To 100
len = CDbl("x1" / 2)
angle = CDbl(angle + 90)
ansx = X + len * (Math.Cos(angle / 180 * Math.PI)) '終点のx座標
ansy = y + len * (Math.Sin(angle / 180 * Math.PI)) '終点のy座標
cadStartPoint.x = ansx * -1
cadStartPoint.y = ansy * -1
cadEndPoint.x = ansx
cadEndPoint.y = ansy
w = w + 1
Next
End Try
お礼
ありがとうございます。ないんですね。了解です。