Register Register Member Login Member Login Member Login Forgot Password ??
PHP , ASP , ASP.NET, VB.NET, C#, Java , jQuery , Android , iOS , Windows Phone
 

Registered : 109,037

HOME > .NET Framework > Forum > ช่วยดู Code ให้ผมหน่อยครับ มี Code บางตัวที่่โปรแกรมฟ้องว่าไม่รู้จักครับ vb2010 ผมพลาดตรงไหนคาบ



 

ช่วยดู Code ให้ผมหน่อยครับ มี Code บางตัวที่่โปรแกรมฟ้องว่าไม่รู้จักครับ vb2010 ผมพลาดตรงไหนคาบ

 



Topic : 069025



โพสกระทู้ ( 5 )
บทความ ( 0 )



สถานะออฟไลน์




Code (VB.NET)
val, For i = 1 To MaxLoop + 1,และ getval คือตัวที่โปรแกรมฟ้องว่าไม่รู้จักครับ  ขอบคุงมากครับ
        Dim S3, S2, M1, B2 As String
        Dim val, MaxLoop 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




Tag : .NET, VS 2005 (.NET 2.x), VS 2010 (.NET 4.x)







Move To Hilight (Stock) 
Send To Friend.Bookmark.
Date : 2011-11-12 19:20:19 By : athen View : 2364 Reply : 6
 

 

No. 1



โพสกระทู้ ( 74,058 )
บทความ ( 838 )

สมาชิกที่ใส่เสื้อไทยครีเอท

สถานะออฟไลน์
Twitter Facebook

อธิบายเพิ่มอีกนิดครับ






แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-11-13 09:41:57 By : webmaster
 


 

No. 2



โพสกระทู้ ( 5 )
บทความ ( 0 )



สถานะออฟไลน์


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
 

 

No. 3



โพสกระทู้ ( 177 )
บทความ ( 0 )



สถานะออฟไลน์
Facebook

Error 10 'For' must end with a matching 'Next'.

ขาด next ค่ะ ทั้ง for บนและล่าง
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-11-13 18:30:30 By : bangbang111
 


 

No. 4



โพสกระทู้ ( 5 )
บทความ ( 0 )



สถานะออฟไลน์


แก้ได้แล้วแต่ยังเหลือ 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
 


 

No. 5



โพสกระทู้ ( 394 )
บทความ ( 0 )



สถานะออฟไลน์


copy code ใครมาแล้วเอามาไม่ครบหรือเปล่าครับ ดูตัวแปรด้วยครับ
แสดงความคิดเห็นโดยอ้างถึง ความคิดเห็นนี้
Date : 2011-11-14 17:16:10 By : Nameless
 


 

No. 6



โพสกระทู้ ( 177 )
บทความ ( 0 )



สถานะออฟไลน์
Facebook

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
 

   

ค้นหาข้อมูล


   
 

แสดงความคิดเห็น
Re : ช่วยดู Code ให้ผมหน่อยครับ มี Code บางตัวที่่โปรแกรมฟ้องว่าไม่รู้จักครับ vb2010 ผมพลาดตรงไหนคาบ
 
 
รายละเอียด
 
ตัวหนา ตัวเอียง ตัวขีดเส้นใต้ ตัวมีขีดกลาง| ตัวเรืองแสง ตัวมีเงา ตัวอักษรวิ่ง| จัดย่อหน้าอิสระ จัดย่อหน้าชิดซ้าย จัดย่อหน้ากึ่งกลาง จัดย่อหน้าชิดขวา| เส้นขวาง| ขนาดตัวอักษร แบบตัวอักษร
ใส่แฟลช ใส่รูป ใส่ไฮเปอร์ลิ้งค์ ใส่อีเมล์ ใส่ลิ้งค์ FTP| ใส่แถวของตาราง ใส่คอลัมน์ตาราง| ตัวยก ตัวห้อย ตัวพิมพ์ดีด| ใส่โค้ด ใส่การอ้างถึงคำพูด| ใส่ลีสต์
smiley for :lol: smiley for :ken: smiley for :D smiley for :) smiley for ;) smiley for :eek: smiley for :geek: smiley for :roll: smiley for :erm: smiley for :cool: smiley for :blank: smiley for :idea: smiley for :ehh: smiley for :aargh: smiley for :evil:
Insert PHP Code
Insert ASP Code
Insert VB.NET Code Insert C#.NET Code Insert JavaScript Code Insert C#.NET Code
Insert Java Code
Insert Android Code
Insert Objective-C Code
Insert XML Code
Insert SQL Code
Insert Code
เพื่อความเรียบร้อยของข้อความ ควรจัดรูปแบบให้พอดีกับขนาดของหน้าจอ เพื่อง่ายต่อการอ่านและสบายตา และตรวจสอบภาษาไทยให้ถูกต้อง

อัพโหลดแทรกรูปภาพ

Notice

เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ
อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง

   
  เพื่อความปลอดภัยและการตรวจสอบ กระทู้ที่แทรกไฟล์อัพโหลดไฟล์จากที่อื่น อาจจะถูกลบทิ้ง
 
โดย
อีเมล์
บวกค่าให้ถูก
<= ตัวเลขฮินดูอารบิก เช่น 123 (หรือล็อกอินเข้าระบบสมาชิกเพื่อไม่ต้องกรอก)







Exchange: นำเข้าสินค้าจากจีน, Taobao, เฟอร์นิเจอร์, ของพรีเมี่ยม, ร่ม, ปากกา, power bank, แฟลชไดร์ฟ, กระบอกน้ำ

Load balance : Server 03
ThaiCreate.Com Logo
© www.ThaiCreate.Com. 2003-2024 All Rights Reserved.
ไทยครีเอทบริการ จัดทำดูแลแก้ไข Web Application ทุกรูปแบบ (PHP, .Net Application, VB.Net, C#)
[Conditions Privacy Statement] ติดต่อโฆษณา 081-987-6107 อัตราราคา คลิกที่นี่