PDA

View Full Version : سوال: چه جوری از modules توی برنامه هام استفاده کنم؟


sahel65
چهارشنبه 22 آبان 1387, 08:16 صبح
سلام؛ میخواستم یک ماژول بنویسم تا در قسمتهای مختلف برنامه از اون استفاده کنم، میشه طرز استفاده، ارتباط اون با کد و نحوه ایجاد اون رو برام توضیح بدین؟ یا اگه پستی در این زمینه هست برام بذارین.
با تشکر
VB.SOS
چهارشنبه 22 آبان 1387, 10:51 صبح
اول از منوي Project يه ماژوال به پروژه اضافه كن
داخل ماژوالت كد عمومي خودت رو به عنوان يه Sub يه Function ضخيره كن.
هر جاي برنامه خواستي اين كد اجرا بشه
اسمش رو وارد كن

اميدوارم منظورت رو متوجه شده باشم. چون موضوع خيلي ساده هستش شك كردم
sahel65
چهارشنبه 22 آبان 1387, 11:19 صبح
آره ، منظورتون کاملا درسته، ایراد از منه که تازه کارم.
میشه یه مثال بزنید. مثلا اتصال به بانک یا اجرای یک کوئری .
ممنونم ازت
sahel65
پنج شنبه 23 آبان 1387, 09:36 صبح
چی شد؟ کسی نیست بتونه بهم کمک کنه؟ بخدا لازمش دارم. بگید دیگه. یه مثال برام بزنید. :گریه:
sh2007
پنج شنبه 23 آبان 1387, 11:45 صبح
آره ، منظورتون کاملا درسته، ایراد از منه که تازه کارم.
میشه یه مثال بزنید. مثلا اتصال به بانک یا اجرای یک کوئری .
ممنونم ازت

اتصال به بانک از طریق ado یا data انجام می شه
شما اگه تازه کارید بهتره یه کمی مطالع کنی و به ایت تایپیکها هم نگاهی بنداز
http://barnamenevis.org/forum/showthread.php?t=97764
http://barnamenevis.org/forum/showthread.php?t=104724
VB.SOS
پنج شنبه 23 آبان 1387, 16:09 عصر
چی شد؟ کسی نیست بتونه بهم کمک کنه؟ بخدا لازمش دارم. بگید دیگه. یه مثال برام بزنید.:گریه:

اول بگم كه واقعا قصد جسارت نداشتم:خجالت:

يه مثال خيلي ساده (كار اصلي رو خودتون بايد انجام بدين:قهقهه:):
تو همون ماژوال كه ساختين كد زير رو وارد كنيد:


Public Function RMsgBox(Prompt, Optional Buttons As VbMsgBoxStyle) As VbMsgBoxResult
RMsgBox = MsgBox(Prompt, Buttons + vbMsgBoxRtlReading, "Msgbox")
End Function


اين كد يه پيغام راست به چپ رو نشون ميده

بعد تو فرمتون يه دكمه قرار بدين و بعد تو رويداد كليكش اين كد رو وارد كنيد:


RMsgBox "Hello World!"

حالا برنامه تون رو اجرا كنيد

نكته: استفاده از اين روش در برنامه هاي خلي بزرگ اجتناب ناپذر مي باشد:چشمک::چشمک:
ali_habibi1384
پنج شنبه 23 آبان 1387, 17:00 عصر
ماژول همون تابع هست اما فرقی که داره بیرون از فرمهاست و نیز سراسری تعریف میشه. اگه طرز نوشتن تابع رو یاد داشته باشین ماژول هم فرقی با اون نداره.
مهران رسا
پنج شنبه 23 آبان 1387, 17:34 عصر
در واقع ماژول هم مثل فرم ، یک فایل هست . یعنی محلی که میشه تابع و یا توابعی رو در اون نوشت . و همونطور که دوستمون ذکر کردند توابعی که در ماژول تعریف میشن به صورت سراسری برای کل پروژه (فرمها) قابل شناسایی هستن .
sahel65
شنبه 25 آبان 1387, 09:17 صبح
دوستان از پاسخهای خوبتون واقعا تشکر می کنم.
ببینید یک سوال برای من توی این قسمت پیش اومده که اگه امکانش هست بهم بگید چه جوری اصلاحش کنم؛ (ضمناً من آماتور رو ببخشید)
من یک ماژول دارم با این کد:


Public Conn As New ADODB.Connection
()Public Sub ConnectDB
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;JET OLEDB:Database;Data source =" & App.Path & "\student.mdb"
Exit Sub
End Sub


حالا که برنامه رو اجراش می کنم، پیغام خطای عدم اتصال میده و روی conn هم که میرم چیزی نشون نمیده، منظورم اتصالی رو نشون میده که به هیچی وصل نیست اینجوری: conn=""
میتونید کمکم کنید؟


اینهم تصویر عدم اتصال:
http://i33.tinypic.com/2r6gsbm.jpg
VB.SOS
شنبه 25 آبان 1387, 21:58 عصر
بهتره تو تاپيك كتابها كتاب مربوط به آموزش ADO رو پيدا كني تا بتوني ADO رو خوب ياد بگيري!
hamed aj
شنبه 25 آبان 1387, 23:39 عصر
با سلام

دوست عزیز ظاهراً conn شما باید یک شیء از نوع connection باشه. شما باید ببینید که این شیء رو کجا ایجاد کردین (منظورم اینه که به چرخه حیات یا life time cycle اون توجه کن).

در ضمن شما مجاز نیستید این شیء رو در یک module ایجاد کنید!

موفق باشید