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

[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]

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

[Peyman2003]

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

[bijibuji]

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

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

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