ماژول و نحوه ساخت ان

ماژول چیست و نحوه ساخت ان در vb6 چگونه است

سلام در منوي Project راست كليك و از زير منوي add گزينه Moclule رو كليك كنيد .

ماژول هیچ چیز عجیبی نیست
ببین وقتی یک برنامه داری با یک فرم
توی برنامت مثلا یک متغیر با نام A داری و اینجوری نام گذاریش کردی:
dim a as byte
این رو هر جای فرمت می تونی بهش مقدار بدی یا مقدارش رو عوض کنی
ولی اگر دو تا فرم داشته باشی در برنامت و این متغیر در فرم یک درست شده باشه در فرم دو قابل دسترسی نیست
و برای اینکه در دو فرم دسترسی داشته باشی می تونی از ماژول استفاده کنی و در ماژول این کد رو بنویسی:
public a as byte
کلمه public رو اگر توی دیکشرنی بنویسی و معنیش رو بخونی بهتر متوجه میشی
حالا فرض کن یک Sub یا تابع نوشتی
مثلا یک تابع نوشتی که تشخیص میده عدد فرده یا زوج
برای نوشتن این تابع باید این کد رو بنویسی:

کد:

---

Private Function z(adad As Double)
If adad Mod 2 = 0 Then z = "zoj" Else z = "fard"
End Function

---

و برای فراخوانیش باید از کدی مثل زیر استفاده کنی:

کد:

---

MsgBox z(5)

---

حالا فرض کن یک تابع پیچیده نوشتی و می خوای از این در فرم دیگه هم استفاده کنی
اون وقت می تونی یک ماژول باز کنی و کد رو به این صورت در ماژول بنویسی:

کد:

---

Public Function z(adad As Double)
If adad Mod 2 = 0 Then z = "zoj" Else z = "fard"
End Function

---

توضیحات بی خودی زیاد دادم تا منظورم رو برسونم:31:
البته در کل این کد رو می تونی توی یکی از فرم هات هم بنویسی:

کد:

---

Public Function z(adad As Double)
If adad Mod 2 = 0 Then z = "zoj" Else z = "fard"
End Function

---

اون وقت بازم این تابع در همه فرم ها قابل استفادست ولی ماژول در حقیقت یک نظم به کار میده :21:
کاربرد دیگری هم که ماژول داره استفاده از Sub Main هست
اگر درباره اونم توضیح خواستی بگو:21:

با تشکر از شما
اگه مقدوره آموزش Sub main هم بذارید
سپاس

ببین
شما می توانید برنامه ای با ویژوال بیسیک بنویسید که درون آن از هیچ فرمی استفاده نشده
مثلا یک ویروس یا یک برنامه ای که جلوه تصویری ندارد
یا به هر دلیلی شما می خواهید قبل از لود شدن هیچ فرمی یک کدی رو اجرا کنید
آن وقت باید کار های زیر را انجام دهید:
1.در پنجره peroject Explorer بر روی peroject1 راست کلیک کن و در منوی ظاهر شده بر روی peroject1 peroperties کلیک کن
در دیالوگ ظاهر شده کومبو باکس Startup object بر روی Sub Main تنظیم کن و ok را بزن
حالا یک ماژول بساز و در ماژول ساخته شده کد زیر را بنویس:

کد:

---

Sub main()
هر کدی که خواستی استفاده کن
End Sub

---

حالا شما یک برنامه دارین بدون استفاده از فرم
اگرم خواستی بعد از اینکه کدهات رو نوشتی پایینش کد زیر رو می نویسی:

کد:

---

Form1.Show

---

:10: