یک مشکل ابتدایی با تعریف نوع داده

من یک برنامه فوق العاده ساده دارم که با خطای (Object Required (RT424 مواجه می شه.

اگر ممکنه کمکم کنید...

کل برنامه یک ماژول فرمه که در قسمت اعلان این ماژول داریم:

کد:

---

Private Type Lesson
          Multi As Integer
          Mean As Single
End Type

Dim English As Lesson

---

و در قسمت بدنه هم این رو دارم:

[

کد:

---

Private Sub cmdCalculate_Click()
            Assignment
            lblLevelEnglish.Caption = '500'
            *
            *
            *
            *
End Sub

Private Sub Assignment()
          English.Multi = Val(txtMultiEnglish.Text)
            *
            *
            *
            *
End Sub

---

پیغام خطا:

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

روی این خط Error می ده:

کد:

---

  English.Multi = Val(txtMultiEnglish.Text)

---

به نظرم اين سوال رو يه جايي ديده بودم ببين بهتره از Public واسه تعريفشون استفاده كني
Public Type Lesson
تو يه ماژول به صورت عمومي تعريفش كن
بعدش اينو تو ماژول تعريف نكن
Dim English As Lesson

گفتم همون كار رو بكن
Public Type Lesson
Multi As Integer
Mean As Single
End Type
داخل ماژول
و اينو تو قسمت كدها
Dim English As Lesson
Private Sub Command1_Click()
Call Assignment
End Sub

Private Sub Assignment()
English.Multi = Val(Text1.Text)
End Sub

Label1.Caption = English.Multi
اينو هم بذار مي بيني اگه عدد بزني مقدار برگشتي همونه كه توي ركود مولتي ذخيره شده
اگه باز خطايي داشتي بئون مشكل جاي ديگست روز خوش
موفق باشيد

نقل قول:

---

نوشته شده توسط Peyman2003 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

به نظرم اين سوال رو يه جايي ديده بودم ببين بهتره از Public واسه تعريفشون استفاده كني
Public Type Lesson
تو يه ماژول به صورت عمومي تعريفش كن
بعدش اينو تو ماژول تعريف نكن
Dim English As Lesson

---

این کارو کردم. بازم گیر میده.
با English.Multi مشکل داره. نمیشناسش.

من همون كد بالا رو كه نوشم تست كردم هيچ مشكلي نداره، من اول از كد شما امتحان كردم ديدم همون خطا شما رو ميده اومدم همون كد بالا رو نوشتم مشكل حل شد ديگه خطا ندادش احتمالا جاي ديگه هم مشكل داريد
لطف كن سورس رو بذار ببينم

نقل قول:

---

نوشته شده توسط Peyman2003 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

گفتم همون كار رو بكن
Public Type Lesson
Multi As Integer
Mean As Single
End Type
داخل ماژول
و اينو تو قسمت كدها
Dim English As Lesson
Private Sub Command1_Click()
Call Assignment
End Sub

Private Sub Assignment()
English.Multi = Val(Text1.Text)
End Sub

---

باز هم همون خطا رو می ده.

آقا سورس بده
ازش قول ميديم سو استفاده نكنيم :31:

Dim English As Lesson
اينو بايد حتما در قسمت عمومي تعريف كني اون بالاي بالا نه در ماژول
General Declarations
اينجا

نقل قول:

---

نوشته شده توسط Peyman2003 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

آقا سورس بده
ازش قول ميديم سو استفاده نكنيم :31:

---

من اصلا برنامه نویس نیستم که سورس ام به درد بخوره.
اما بحث اینجاست که کل کد همینه که دادم...
اما باز هم چشم ...

کد:

---

Private Type Lesson
  Multi As Integer
  Mean As Single
  StandardDeviation As Single
  Percent As Byte
  LevelScore As Integer
End Type

Dim English, Discrete, Data, Algorithm, Software, Network, _
        Management, Database, Artificial, Operating, Architecture As Lesson
       
Private Function CheckOK()
    Dim msg As Boolean
    Dim Error As Boolean
   
    Error = False
       
    If Not (IsNumeric(txtMultiEnglish.Text)) Or _
      (Val(txtMultiEnglish.Text) < 0 Or Val(txtMultiEnglish.Text) > 4) Then Error = True
   
    If Not (IsNumeric(txtMultiDiscrete.Text)) Or _
      (Val(txtMultiDiscrete.Text) < 0 Or Val(txtMultiDiscrete.Text) > 4) Then Error = True
   
    If Not (IsNumeric(txtMultiData.Text)) Or _
      (Val(txtMultiData.Text) < 0 Or Val(txtMultiData.Text) > 4) Then Error = True

    If Not (IsNumeric(txtMultiAlgorithm.Text)) Or _
      (Val(txtMultiAlgorithm.Text) < 0 Or Val(txtMultiAlgorithm.Text) > 4) Then Error = True

    If Not (IsNumeric(txtMultiSoftware.Text)) Or _
      (Val(txtMultiSoftware.Text) < 0 Or Val(txtMultiSoftware.Text) > 4) Then Error = True

    If Not (IsNumeric(txtMultiNetwork.Text)) Or _
      (Val(txtMultiNetwork.Text) < 0 Or Val(txtMultiNetwork.Text) > 4) Then Error = True

    If Not (IsNumeric(txtMultiManagement.Text)) Or _
      (Val(txtMultiManagement.Text) < 0 Or Val(txtMultiManagement.Text) > 4) Then Error = True

    If Not (IsNumeric(txtMultiDatabase.Text)) Or _
      (Val(txtMultiDatabase.Text) < 0 Or Val(txtMultiDatabase.Text) > 4) Then Error = True

    If Not (IsNumeric(txtMultiArtificial.Text)) Or _
      (Val(txtMultiArtificial.Text) < 0 Or Val(txtMultiArtificial.Text) > 4) Then Error = True

    If Not (IsNumeric(txtMultiOperating.Text)) Or _
      (Val(txtMultiOperating.Text) < 0 Or Val(txtMultiOperating.Text) > 4) Then Error = True

    If Not (IsNumeric(txtMultiArchitecture.Text)) Or _
      (Val(txtMultiArchitecture.Text) < 0 Or Val(txtMultiArchitecture.Text) > 4) Then Error = True

    If Not (IsNumeric(txtPercentEnglish.Text)) Or _
      (Val(txtPercentEnglish.Text) < 0 Or Val(txtPercentEnglish.Text) > 100) Then Error = True

    If Not (IsNumeric(txtPercentDiscrete.Text)) Or _
      (Val(txtPercentDiscrete.Text) < 0 Or Val(txtPercentDiscrete.Text) > 100) Then Error = True

    If Not (IsNumeric(txtPercentData.Text)) Or _
      (Val(txtPercentData.Text) < 0 Or Val(txtPercentData.Text) > 100) Then Error = True

    If Not (IsNumeric(txtPercentAlgorithm.Text)) Or _
      (Val(txtPercentAlgorithm.Text) < 0 Or Val(txtPercentAlgorithm.Text) > 100) Then Error = True

    If Not (IsNumeric(txtPercentSoftware.Text)) Or _
      (Val(txtPercentSoftware.Text) < 0 Or Val(txtPercentSoftware.Text) > 100) Then Error = True

    If Not (IsNumeric(txtPercentNetwork.Text)) Or _
      (Val(txtPercentNetwork.Text) < 0 Or Val(txtPercentNetwork.Text) > 100) Then Error = True

    If Not (IsNumeric(txtPercentManagement.Text)) Or _
      (Val(txtPercentManagement.Text) < 0 Or Val(txtPercentManagement.Text) > 100) Then Error = True

    If Not (IsNumeric(txtPercentDatabase.Text)) Or _
      (Val(txtPercentDatabase.Text) < 0 Or Val(txtPercentDatabase.Text) > 100) Then Error = True

    If Not (IsNumeric(txtPercentArtificial.Text)) Or _
      (Val(txtPercentArtificial.Text) < 0 Or Val(txtPercentArtificial.Text) > 100) Then Error = True

    If Not (IsNumeric(txtPercentOperating.Text)) Or _
      (Val(txtPercentOperating.Text) < 0 Or Val(txtPercentOperating.Text) > 100) Then Error = True

    If Not (IsNumeric(txtPercentArchitecture.Text)) Or _
      (Val(txtPercentArchitecture.Text) < 0 Or Val(txtPercentArchitecture.Text) > 100) Then Error = True

    If Not (IsNumeric(txtMeanEnglish.Text)) Or _
      (Val(txtMeanEnglish.Text) < 0 Or Val(txtMeanEnglish.Text) > 100) Then Error = True

    If Not (IsNumeric(txtMeanDiscrete.Text)) Or _
      (Val(txtMeanDiscrete.Text) < 0 Or Val(txtMeanDiscrete.Text) > 100) Then Error = True

    If Not (IsNumeric(txtMeanData.Text)) Or _
      (Val(txtMeanData.Text) < 0 Or Val(txtMeanData.Text) > 100) Then Error = True

    If Not (IsNumeric(txtMeanAlgorithm.Text)) Or _
      (Val(txtMeanAlgorithm.Text) < 0 Or Val(txtMeanAlgorithm.Text) > 100) Then Error = True

    If Not (IsNumeric(txtMeanSoftware.Text)) Or _
      (Val(txtMeanSoftware.Text) < 0 Or Val(txtMeanSoftware.Text) > 100) Then Error = True

    If Not (IsNumeric(txtMeanNetwork.Text)) Or _
      (Val(txtMeanNetwork.Text) < 0 Or Val(txtMeanNetwork.Text) > 100) Then Error = True

    If Not (IsNumeric(txtMeanManagement.Text)) Or _
      (Val(txtMeanManagement.Text) < 0 Or Val(txtMeanManagement.Text) > 100) Then Error = True

    If Not (IsNumeric(txtMeanDatabase.Text)) Or _
      (Val(txtMeanDatabase.Text) < 0 Or Val(txtMeanDatabase.Text) > 100) Then Error = True

    If Not (IsNumeric(txtMeanArtificial.Text)) Or _
      (Val(txtMeanArtificial.Text) < 0 Or Val(txtMeanArtificial.Text) > 100) Then Error = True

    If Not (IsNumeric(txtMeanOperating.Text)) Or _
      (Val(txtMeanOperating.Text) < 0 Or Val(txtMeanOperating.Text) > 100) Then Error = True

    If Not (IsNumeric(txtMeanArchitecture.Text)) Or _
      (Val(txtMeanArchitecture.Text) < 0 Or Val(txtMeanArchitecture.Text) > 100) Then Error = True

    If Error Then
        msg = MsgBox("Please enter valid numbers", vbOKOnly + vbExclamation + vbExclamation, _
                    "Invalid Numerical Value")
        CheckOK = False
    Else
        CheckOK = True
    End If
End Function

Private Sub Assignment()
    English.Multi = Val(txtMultiEnglish.Text)
    English.Percent = Val(txtPercentEnglish)
    English.Mean = Val(txtMeanEnglish)
    English.StandardDeviation = Val(txtMeanEnglish)
   
    Discrete.Multi = Val(txtMultiDiscrete)
    Discrete.Percent = Val(txtPercentDiscrete)
    Discrete.Mean = Val(txtMeanDiscrete)
    Discrete.StandardDeviation = Val(txtStandardDiscrete)
   
    Data.Multi = Val(txtMultiData)
    Data.Percent = Val(txtPercentData)
    Data.Mean = Val(txtMeanData)
    Data.StandardDeviation = Val(txtStandardData)
   
    Algorithm.Multi = Val(txtMultiAlgorithm)
    Algorithm.Percent = Val(txtPercentAlgorithm)
    Algorithm.Mean = Val(txtMeanAlgorithm)
    Algorithm.StandardDeviation = Val(txtStandardAlgorithm)
   
    Software.Multi = Val(txtMultiSoftware)
    Software.Percent = Val(txtPercentSoftware)
    Software.Mean = Val(txtMeanSoftware)
    Software.StandardDeviation = Val(txtStandardSoftware)
   
    Network.Multi = Val(txtMultiNetwork)
    Network.Percent = Val(txtPercentNetwork)
    Network.Mean = Val(txtMeanNetwork)
    Network.StandardDeviation = Val(txtStandardNetwork)
   
    Management.Multi = Val(txtMultiManagement)
    Management.Percent = Val(txtPercentManagement)
    Management.Mean = Val(txtMeanManagement)
    Management.StandardDeviation = Val(txtStandardManagement)
   
    Database.Multi = Val(txtMultiDatabase)
    Database.Percent = Val(txtPercentDatabase)
    Database.Mean = Val(txtMeanDatabase)
    Database.StandardDeviation = Val(txtStandardDatabase)
   
    Artificial.Multi = Val(txtMultiArtificial)
    Artificial.Percent = Val(txtPercentArtificial)
    Artificial.Mean = Val(txtMeanArtificial)
    Artificial.StandardDeviation = Val(txtStandardArtificial)
   
    Operating.Multi = Val(txtMultiOperating)
    Operating.Percent = Val(txtPercentOperating)
    Operating.Mean = Val(txtMeanOperating)
    Operating.StandardDeviation = Val(txtStandardOperating)
   
    Architecture.Multi = Val(txtMultiArchitecture)
    Architecture.Percent = Val(txtPercentArchitecture)
    Architecture.Mean = Val(txtMeanArchitecture)
    Architecture.StandardDeviation = Val(txtStandardArchitecture)
   
End Sub

Private Sub cmdCalculate_Click()
    If CheckOK Then
        Assignment
        English.LevelScore = Int(5000 + 1000 * (English.Percent - English.Mean) / English.StandardDeviation)
        Discrete.LevelScore = Int(5000 + 1000 * (dicrete.Percent - Discrete.Mean) / Discrete.StandardDeviation)
        Data.LevelScore = Int(5000 + 1000 * (Data.Percent - Data.Mean) / Data.StandardDeviation)
        Algorithm.LevelScore = Int(5000 + 1000 * (Algorithm.Percent - Algorithm.Mean) / Algorithm.StandardDeviation)
        Software.LevelScore = Int(5000 + 1000 * (Software.Percent - Software.Mean) / Software.StandardDeviation)
        Network.LevelScore = Int(5000 + 1000 * (Network.Percent - Network.Mean) / Network.StandardDeviation)
        Management.LevelScore = Int(5000 + 1000 * (Management.Percent - Management.Mean) / Management.StandardDeviation)
        Database.LevelScore = Int(5000 + 1000 * (Database.Percent - Database.Mean) / Database.StandardDeviation)
        Artificial.LevelScore = Int(5000 + 1000 * (Artificial.Percent - Artificial.Mean) / Artificial.StandardDeviation)
        Operating.LevelScore = Int(5000 + 1000 * (English.Percent - English.Mean) / English.StandardDeviation)
        Architecture.LevelScore = Int(5000 + 1000 * (Architecture.Percent - Architecture.Mean) / Architecture.StandardDeviation)
   
        lblLevelEnglish.Caption = Str$(English.LevelScore)
        lblLevelDiscrete.Caption = Str$(Discrete.LevelScore)
        lblLevelData.Caption = Str$(Data.LevelScore)
        lblLevelAlgorithm.Caption = Str$(Algorithm.LevelScore)
        lblLevelSoftware.Caption = Str$(Software.LevelScore)
        lblLevelNetwork.Caption = Str$(Network.LevelScore)
        lblLevelManagement.Caption = Str$(Management.LevelScore)
        lblLevelDatabase.Caption = Str$(Database.LevelScore)
        lblLevelArtificial.Caption = Str$(Artificial.LevelScore)
        lblLevelOperating.Caption = Str$(Operating.LevelScore)
        lblLevelArchitecture.Caption = Str$(Architecture.LevelScore)
    End If
   
End Sub

Private Sub cmdExit_Click()
    End
End Sub

---