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

[bijibuji]

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

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

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




برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید



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

[
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
پیغام خطا:


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


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



برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[Peyman2003]

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

[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

[Peyman2003]

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

[bijibuji]

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

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

[Peyman2003]

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

[bijibuji]

گفتم همون كار رو بكن
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

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

[Peyman2003]

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

[Peyman2003]

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

[bijibuji]

آقا سورس بده
ازش قول ميديم سو استفاده نكنيم :31:
من اصلا برنامه نویس نیستم که سورس ام به درد بخوره.
اما بحث اینجاست که کل کد همینه که دادم...
اما باز هم چشم ...


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[Peyman2003]

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

[bijibuji]

گفتم مشكل جاي ديگه هستش
اينا بايد تك تك بيان بشن
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
.
.
.
.
.
آره؟

[Peyman2003]

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

[bijibuji]

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

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

[gonbad city]

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

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

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




برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید



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

[
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
پیغام خطا:


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


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



برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید











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

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

[Smafias]

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

سلام

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
اين روش در NET. امكانپذير است!

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

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

[bijibuji]

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

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

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

[gonbad city]

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