راهنمایی در Visual Basic 6.0

[mohammad_iPad2]

اره خودمم تو این موندم چرا بالای بیست میشه نمیدونم کجای فرمولم مشکل داره
در رابطه با اون عددی که بالای بیست نشه هر کاری کردم نشد حرف شما درسته اون گزینه برای اینه که تا 20 رقم وارد بشه حالا درستش چیه ؟

[apt]

اره خودمم تو این موندم چرا بالای بیست میشه نمیدونم کجای فرمولم مشکل داره
در رابطه با اون عددی که بالای بیست نشه هر کاری کردم نشد حرف شما درسته اون گزینه برای اینه که تا 20 رقم وارد بشه حالا درستش چیه ؟

برای اینکه عددی بیشتر از 20 وارد نشه این کد رو اضافه کن:

Private Sub Text1_KeyUp(Index As Integer, KeyCode As Integer, Shift As Integer)
On Error Resume Next
For i = 0 To 49
  If Text1(i).Text = "" Then
    Text1(i).Text = "0"
  End If
  If CDbl(Text1(i).Text) > 20 Then
  Text1(i).Text = "20"
  End If
Next i
End Sub

درضمن این رو:

Private Sub Command4_Click()
For i = 1 To 49
  Text1(i).Text = ""
Next i

End Sub

به این تغییر بده:

Private Sub Command4_Click()
For i = 0 To 49
  Text1(i).Text = ""
Next i

End Sub

این کد رو هم اگه اضافه کنی وقتی نرم افزار اجرا میشه مقدار همه جعبه متنها 0 میشه:

Private Sub Form_Load()
For i = 0 To 49
  Text1(i).Text = "0"
Next i
End Sub

[mohammad_iPad2]

اینم پروژه تا اینجا
http://www.uploadtak.com/images/g1481_Project2.rar