ช่วยดู Code ให้ผมหน่อยครับ มี Code บางตัวที่่โปรแกรมฟ้องว่าไม่รู้จักครับ vb2010 ผมพลาดตรงไหนคาบ
อธิบายเพิ่มอีกนิดครับ
Date :
2011-11-13 09:41:57
By :
webmaster
Error 1 Expression expected.
Error 2 Expression is not an array or a method, and cannot have an argument list.
Error 10 'For' must end with a matching 'Next'.
Error 13 'getval' is not declared. It may be inaccessible due to its protection level.
ฟ้อง Error หลัประมาณนี้ครับ ตัวที่ Error มากที่สุดคือ Error 2 ครับ ขาดตรงไหนบอกได้นะครับขอบคุงมากครับ
Date :
2011-11-13 17:45:10
By :
athen
Error 10 'For' must end with a matching 'Next'.
ขาด next ค่ะ ทั้ง for บนและล่าง
Date :
2011-11-13 18:30:30
By :
bangbang111
แก้ได้แล้วแต่ยังเหลือ Error อีกสองตัวเดียวคาบยังแก้ไม่ได้คาบ
Error 1 Expression expected.
Error 2 Expression is not an array or a method, and cannot have an argument list.
ช่วยดูให้อีกที่ครับอาจจะมีที่ผิดผมอาจจะยังดูไม่ออกคาบ
Dim S3, S2, M1, B2 As String
Dim val, MaxLoop, getval As Integer
S3 = 30000
S2 = 60000
M1 = 100000
B2 = 200000
val = txtnum1.Text
txtnum2.Text = "S3 =" & vbNewLine & _
"S2 =" & vbNewLine & _
"M1 =" & vbNewLine & _
"B2 =" & vbNewLine & _
If Val() >= B2 Then
MaxLoop = (Val() \ B2)
ElseIf Val() >= M1 Then
MaxLoop = (Val() \ M1)
ElseIf Val() >= S2 Then
MaxLoop = (Val() \ S2)
ElseIf Val() >= S3 Then
MaxLoop = (Val() \ S3)
Else
MaxLoop = 0
End If
For i = 1 To MaxLoop + 1
If Val() >= B2 Then
Val = Val() - B2
getval = Val()
ElseIf Val() >= M1 Then
Val = Val() - M1
getval = Val()
ElseIf Val() >= S2 Then
Val = Val() - S2
getval = Val()
ElseIf Val() >= S3 Then
Val = Val() - S3
getval = Val()
Else
getval = Val()
End If
Next
Date :
2011-11-14 15:28:52
By :
athen
copy code ใครมาแล้วเอามาไม่ครบหรือเปล่าครับ ดูตัวแปรด้วยครับ
Date :
2011-11-14 17:16:10
By :
Nameless
Val() เป็น method มันไม่ใช่ตัวแปรที่คุณเรียกค่ะ ง่ายก้อเปลี่ยนชื่อตัวแปรค่ะ
"B2 =" & vbNewLine & _ บรรทัดนี้เกินค่ะ ไม่มีอะไรต่ออีกแล้วไม่ต้อง & _
ex
Code (VB.NET)
Dim S3, S2, M1, B2 As String
Dim vall, MaxLoop, getval As Integer
S3 = 30000
S2 = 60000
M1 = 100000
B2 = 200000
vall = txtnum1.Text
txtnum2.Text = "S3 =" & vbNewLine & _
"S2 =" & vbNewLine & _
"M1 =" & vbNewLine & _
"B2 =" & vbNewLine
If vall >= B2 Then
MaxLoop = (vall \ B2)
ElseIf vall >= M1 Then
MaxLoop = (vall \ M1)
ElseIf vall >= S2 Then
MaxLoop = (vall \ S2)
ElseIf vall >= S3 Then
MaxLoop = (vall \ S3)
Else
MaxLoop = 0
End If
For i = 1 To MaxLoop + 1
If vall >= B2 Then
vall = vall - B2
getval = vall
ElseIf vall >= M1 Then
vall = vall - M1
getval = vall
ElseIf vall >= S2 Then
vall = vall - S2
getval = vall
ElseIf vall >= S3 Then
vall = vall - S3
getval = vall
Else
getval = vall
End If
Next
Date :
2011-11-14 19:16:12
By :
bangbang111
Load balance : Server 02