Private Sub btnYes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntyes.Click
Dim score As Integer
score = txtScore.Text
If txtScore.Text >= 50 Then
txtAnss.Text = "ผ่าน"
Else
txtAnss.Text = "ไม่ผ่าน"
End If
If txtScore.Text = "" Then
txtAnss.Text = "ป้อนข้อมูลก่อนครับ"
End If
End Sub
End Class
นี่เป็นโค๊ดที่เขียน ให้ใส่คะแนน แต่พอไม่ใส่ให้ขึ้นว่า ป้อนข้อมูล ในช่องtextbox แต่ดัน Error ผมงง เลย พี่แนะนำผมหน่อย
Private Sub btnYes_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bntyes.Click
if CInt(txtScore.text) >= 50 then
txtAss.text = "ผ่าน"
else
if txtScore.text = " " then
txtAss.text = "กรอกข้อมูลก่อน"
else
txtAss.text = "ไม่ผ่าน"
end if
end if
end sub
Dim tempStr As String = txtScore.Text.Trim()
If(tempStr.Length = 0) Then
txtAnss.Text = "ป้อนข้อมูล สะนะคะ คนดี"
Else
' Full safe convertion
Dim myScore As Integer = 0
Int32.TryParse( txtScore.Text.Trim() ,myScore )
'ถ้า เกิด อะไรก็ตามทำให้ convert ไม่ได้จะมีค่าเท่ากับ 0
If myScore >= 50 then
txtAnss.Text = "ผ่านละน้า"
Else
txtAnss.Text = "เสียใจด้วย ไม่ผ่านค่ะ"
End If
End If
Load balance : Server 05
Quote:
