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

من یک برنامه فوق العاده ساده دارم که با خطای (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

---

گفتم مشكل جاي ديگه هستش
اينا بايد تك تك بيان بشن
Dim English, Discrete, Data, Algorithm, Software, Network, _
Management, Database, Artificial, Operating, Architecture As Lesson
در همون قسمتي كه گفتم نه در ماژول
شما همين english رو جدا معرفي كن نتيجه رو مي بيني تا . رو بزني ليست ركوردهات مياد
dim english as lesson
حالا من نمي دونم دسته جمعي رو چطور ميشه معرفي كرد ولي وي بي ايراد ميگيره شايد راهي باشه اما گاهي راهي نيست جز اعلان تك تك

نقل قول:

---

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

گفتم مشكل جاي ديگه هستش
اينا بايد تك تك بيان بشن
Dim English, Discrete, Data, Algorithm, Software, Network, _
Management, Database, Artificial, Operating, Architecture As Lesson
در همون قسمتي كه گفتم نه در ماژول
شما همين english رو جدا معرفي كن نتيجه رو مي بيني تا . رو بزني ليست ركوردهات مياد
dim english as lesson
حالا من نمي دونم دسته جمعي رو چطور ميشه معرفي كرد ولي وي بي ايراد ميگيره شايد راهي باشه اما گاهي راهي نيست جز اعلان تك تك

---

یعنی:
dim English as Lesson
dim Discrete as Lesson
.
.
.
.
.
آره؟

ديگه فعلا همين راه رو بهت پيشنهاد مي كنم و تو ماژول اون رو هم به صورت
Public Type بيان كن
مي توني از يه Dim استفاده كني اينطوري
dim English as Lesson, Discrete as Lesson,...

نقل قول:

---

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

یعنی:
dim English as Lesson
dim Discrete as Lesson
.
.
.
.
.
آره؟

---

آره انگار مشکل از همینجا بود. اما چرا نمی شه با هم یجا تعریفشون کرد؟ خیلی عجیبه. یه روز تمام مچل شدم :8:

نقل قول:

---

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

من یک برنامه فوق العاده ساده دارم که با خطای (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)

---

---

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

-------------بعضی مواقع راه حل مشکلات آن قدر ساده است که از فهمیدن راه حل به خنده می افتی---------

نقل قول:

---

آره انگار مشکل از همینجا بود. اما چرا نمی شه با هم یجا تعریفشون کرد؟ خیلی عجیبه. یه روز تمام مچل شدم

---

سلام

از اين راه هم ميتوانيد اقدام كنيد:

کد:

---

Dim English As Lesson, Discrete As Lesson, Data As Lesson, Algorithm As Lesson, _
        Software As Lesson, Network As Lesson,Management As Lesson, Database As Lesson, _
        Artificial As Lesson, Operating As Lesson, Architecture As Lesson

---

ولي اينكه همه رو نام ببريد و سرآخر نوع شون رو بخوايد مشخص كنيد
(يعني اين شكلي):

کد:

---

Dim English, Discrete, Data, Algorithm, Software, Network, _
        Management, Database, Artificial, Operating, Architecture As Lesson

---

اين روش در NET. امكانپذير است!

(استاد _H2_ كجايي كه بياي به ضيافت NET. دعوت مون كني!! :31: )

موفق باشيد :11:

نقل قول:

---

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

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

-------------بعضی مواقع راه حل مشکلات آن قدر ساده است که از فهمیدن راه حل به خنده می افتی---------

---

ره حل رو یکی از دوستان قبل از پست شما ارائه دادند و درست هم بود. یه نگاهی ب ابلا بندازی ...

منظورت گنبد سیتی هستش یا نه؟