سورس کدهای ویژوال بیسیک

کنکور

vb-source-code — Thu, 24 Sep 2009 08:49:28 GMT

سلام بچه ها.

کنکور قبول شدم زنجان دانشگاه روزبه.

امیدوارم همگی موفق و پیروز باشید.

ممکنه کمتر آپ کنم. پیشاپیش معذرت می خوام.

معرفی سایت های خارجی

vb-source-code — Mon, 31 Aug 2009 19:04:18 GMT

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

www.PlanetSourceCode.com

سایتی جامع از انواع سورس کدهای VB6 , .NET , ASP , PHP و دیگر زبان های برنامه نویسی در این سایت می توانید عضو شوید و هر روز با توجه به سورس کدی که در هنگام ثبت نام انتخاب کردید جدیدترین سورس کدها را به ایمیل تان می فرستد.

http://www.codeguru.com/vb

مقالات جدید در زمینه برنامه نویسی اینترنت ؛ گرافیک ؛ فرم ها ؛ بانک های اطلاعاتی و غیره.

فیلم های آموزشی جدید ؛ ترفندهای جدید و همچنین دارای فروم برای طرح مباحث می باشد.

http://www.vbexplorer.com/VBExplorer/VBExplorer.asp

این سایت هم شامل موارد بالا همراه VB Games , VB News می باشد که مقالات در مورد Direct3d هم به چشم می خورد.

http://www.vbcode.com

جالب ترین بخش این سایت شامل Submit Code (ثبت کد شما) و WhitePapers (فرضیه ها که هنوز پیاده سازی عملی نشده) می باشد.

http://www.freevbcode.com

منوی کامل و با دسته بندی کامل تر آن حرف برای گفتن باقی نمی گذارد.(منوهای بانک اطلاعاتی – فرم ها – ریاضی و فرمول – شبکه – رجیستری و غیره)

مختصات جاری ماوس

vb-source-code — Mon, 31 Aug 2009 09:40:02 GMT

جهت بدست آوردن مختصات ماوس باید از توابع API استفاده کنیم.(نحوه کار کردن با توابع API قبل آموزش داده شده است.)

ابتدا تابع GetCursorPos را از توابع API فراخوانی کنید سپس کد زیر را در برنامه بصورت روبرو قرار دهید:

Private Type POINTAPI

X as long

Y as long

End Type

در این 2 متغیر مختصات ستون و سطر جاری ذخیره می شود ؛ حال کد زیر را در رویداد Form_MouseMove قرار دهید:

Dim Pt as POINTAPI

GetCursorPos Pt

Me.CurrentX=0

Me.CurrentY=0

Me.Cls

Label1.Caption=Str$(Pt.X) ‘ x position

Label2.Caption=Str$(Pt.Y) ‘ y position

حال اگر می خواهید مختصات خارج از فرم را هم نمایش دهید باید تمام کدهای بالا را به یک تایمر انتقال دهید سپس تابع SetCapture را هم از توابع API فراخوانی کنید سپس در انتهای کد موجود در تایمر دستور SetCapture Me.hwnd را قرار دهید.

Interval تایمر را برابر 20 و خاصیت Enabled آن را فعال کنید.

سوال و پاسخ - 10

vb-source-code — Sat, 29 Aug 2009 13:57:18 GMT

حیدر:

سلام.ميشه منو راهنمايي كنيد.من يه برنامه نوشتم كه مي خوام توش يه ليست باكس باشه و ليست باكس رو از روي يه فيلد از ديتابيس اكسس 2003 پر كنم.نمي دونم چه كدي بايد بزارم.منو كمك كنيد.

جواب:

بسیار راحت است!

کافی است Database Name را مرتبط با بانک اطلاعاتی کنید و و همین طور جدول را هم به برنامه مرتبط کنید.حال DataField را هم برابر با فیلد مورد نظر جدول قرار دهید اکنون ارتباط برقرار است و اطلاعات باید نمایش داده شود.

یه بنده خدا:

می تونی سورس یه برنامه رو بذاری که میزان استفاده برنامه های دیگه از CPU رو نشون بده؟ مثلا من یه برنامه نوشتم می خواهم ببینم میزان استفاده از CPU برنامه چقدره؟

جواب:

در سایت http://www.planetsourcecode.com اینگونه کدها زیاد است با کمی جستجو پیدا کنید.

مینا:
اگه لطف کنین اموزش گزارش گیری با Data Report رو بدی بسیار بسیار ممنونت میشوم
باتشکر

جواب:

در پست بعدی آموزش کار با Data Report خواهم داد.

سوال و پاسخ - 9

vb-source-code — Wed, 19 Aug 2009 15:40:18 GMT

سعید:

لطفا کمکم کنید.من در وی بی6 با استفاده از کد
&"'=data1.recordset.find first "word
text.text & "'"
نوشتم که جستجو را از دیتا بیس انجام می ده ولی میخوام این کد جوری باشه
که قبل از نوشتن تمام حروف به طور کامل آن کلماتی که اولشان با کاراکتر مورد نظر کاربر یکی است را محتوایش را نشان دهد.یعنی کاراکترهای نزدیک به فیلدهای مربوط به دیتا بیس را معنایشان را نشان دهد

پاسخ:
اگر روش مذکور را که ذکر کردید می خواهید دیگر استفاده از کدی که گفتید کاربرد ندارد و باید یک دیتا لیست یا لیست باکس ؛ جعبه متن و دکمه قرار دهید و در جعبه متن بنویسید:
ایتدا محتویات دیتا لیست یا لیست باکس رو پاک می کنیم و بعد:
Select * from YourTable where YourField Like text1.text
YourTable: نام جدول شما
YourField: نام فیلد مورد جستجو
البته قبل از این کد باید با کدنویسی ؛ اتصال به بانک اطلاعاتی و سپس جدول را فراهم کنید.
تذکر: کد مذکور باید در رویداد Change مربوط به جعبه متن قرار گیرد.

عرفان:

من یک برنامه ثبت مشخصات افراد رو طراحی کردن " اگه بخوام براش قفل سخت افزاری تهیه کنم باید چی کار کنم؟

پاسخ:
متاسفانه در این زمینه تخصصی ندارم اگر کسی از دوستان اطلاعاتی دارد لطفا در قسمت نظرات ارائه کند.

مجید:
بنده سوالي داشتم من در برنامه اي نوشتم که با پايگاه اطلاعاتي اکسس کار ميکنه ولي در موقعي که مي خوام جستجو از طريق ويژوال انجام بدم فقط رکورد و فيلد اولي را در نظر ميگره
ممنون ميشم سورسي رو به من معرفي کني که کلمه مورد نظر تو کل پايگاه جستجو کنه
منتظر جوابتون هستم

پاسخ:

هر کدی در کل پایگاه داده شروع به جستجو می کند. لطفا کمی بیشتر توضیح بدهید.

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

پاسخ:
در وبلاگ زیر این موضوع به طور کامل بحث شده است:
http://sheidaian.persianblog.ir/post/142

علی رئیسی:
یه سوال کوچیک داشتم من یه ویروس کوچولو نوشتم می خواستم ببینم چجوری میشه وقتی به سیستم قربانی منتقل میشه به صورت یه فایل مخفی ایجاد بشه و چجوری میشه اون فایل به دستگاه های جانبی منتقل بشه یعنی بشه که گسترش پیدا کنه.

پاسخ:
همان طور که می دانید در داس می شود با Attrib فایل را مخفی سیستمی و حتی آرشیو کرد خب برای استفاده از دستور مذکور در برنامه کافی است کنسول(Console) را در وی بی فراخوانی کنید.
در مورد سوال دوم باید بگویم برای تکثیر ویروس یکی از دوستانم این کار را انجام داد و نحوه انجام کار را گفت ولی از آن زمان خیلی می گذرد و چیز زیادی یادم نیست ولی در این حد می دانم که با ارسال فایل به ایمیل هاست مجازی سیستم و Reply دوباره آن موجب تکثیر فایل در کامپیوتر می شد.

تذکر: هر سیستمی دارای قابلیت هاست مجازی برای ایمیل می باشد.

دوستی درخواست Color Picker با خاصیت CMYK Color کرده بود. این هم لینکش:

لینک دانلود

سوال و پاسخ - 8

vb-source-code — Tue, 07 Apr 2009 13:07:18 GMT

سمیه:

میخوام کدی برایم درباره درج و حذف و به روز رسانی در سیستم پرسنلی با وی بی بنویسید واقعا گیر کردم اگر لطف کنید واین کد را برایم بنویسید ممنون میشم در ضمن این پروژه را با بانک اطلاعاتی اکسس میخوام بنویسم
بازم ممنون منتظر جوابتان هستم.

جواب:

شما شروع به نوشتن پروژه کنید و هر جا گیر کردید سوال بپرسید ما در خدمتیم.

امیر حسین:

ببخشید به من آدرس وبلاگ شما رو دادن وگفتن که سریع به سوالاتمون پاسخ می دهید می خواستم ببینم می تونید(البته با عرض پورش ها) یه برنامه بنویسید که دو تا ماترس رو با هم ضرب و جمع کند و بگویید که بالا مثلثی است یا پایین با در نظر گرفتن ابنکه خانه های این دو ماتریس متغییر باشد و تعداد سطر و تون هایش را بتوان با دوتا تکست باکس تغییر داد با تشکر و قدر دانی از شمادوست دار شما امیر حسین

جواب:

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

علی:

سلام-به غیر از سی cd rom اگر خواستیم در righter را باز و بسته کنیم باید چکار کنیم؟

جواب: شما می توانید دی وی دی رام و سی دی رام و هر چه که حکم درایو داشته باشد را eject کنید.

مرجع کامل ویروس نویسی

vb-source-code — Sat, 28 Mar 2009 08:33:18 GMT

M.A:

سلام بسیار عالی بود وری وری گود.

می خواستم بدونم آیا یه مقاله کامل و مرجع آموزش های ویروس نویسی سراغ دارید. اگه OK لطفا Add اش کنید تو قصر زیباتون.

دوستان این پک شامل سه سی دی هست و قیمت 6000 تومان دارد اگر کسی قصد خرید این پک را دارد آدرس کامل خود را با شماره تلفن به من پست کنید تا در اسرع وقت شماره حساب را برای واریز وجه بدهم. این پک شامل مشخصات زیر است:

روش قیمت گذاری پروژه

vb-source-code — Wed, 04 Mar 2009 17:47:41 GMT

سبحان:

سلام دوست عزیز
خوبی

یه سوال خیلی تخصصی و مهندسانه ازتون داشتم.
قیمت یه نرم افزار رو چطوری میشه تعین کرد ؟

جواب:

در ابتدا من از دوست خوبم سبحان بابت این تاخیر معذرت خواهی می کنم.

جواب سوالتان را به مهندس مسعود پورعیسی واگذار می کنم:

برآورد و ارزیابی هزینه هنوز روند مشخص و کاملا دقیقی از لحاظ فنی و تکنیکی پیدا نکرده و تا حد زیادی به تجارب نظرات و روحیات افراد درگیر در پروژه وابسته است.

هر چه زمان نوشتن پروژه به طول انجامد قیمت پروژه افزایش پیدا می کند و این نباید عاملی شود که شما زمان را افزایش دهید چون

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

سوال و پاسخ-7

vb-source-code — Tue, 10 Feb 2009 11:36:18 GMT

فرزین:

من می خواهم با استفاده از توابع API هنگامی که روی کلمه ای دکمه ی وسط ماوس زده می شود آن کلمه را برای برگرداند.
می توانید مرا راهنمایی کنید ؟
ممنون می شوم اگر مرا راهنمایی کنید
البته با زبان ویزوال بیسیک
در ضمن سایتتون عـــــاااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااااالیـه

جواب:

از دوستانی که جواب این سوال را می دانند درخواست دارم در قسمت نظرات بگند تا سوال دوست عزیزمان بی جواب نماند.

مریم:

سلام . از وبلاگ خوبتون ممنون . با عرض معذرت وقتی برنامه چت رو دانلود می کنم ارور میده اگه ممکنه برای من ارسالش کنید ممنون میشم .

جواب:

من تست کردم هیچ مشکلی نداشت لطفا دوباره دانلود کنید.

حمید:

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

جواب:

ابتدا با برنامه نویسی یک داده رشته ای در پوشه ی Run رجیستری درست کنید سپس در داخل آن مسیر برنامه را قرار دهید.

زهره: سلام منم دانشجوی کامپیوترم لطفا سورس ویروسی که باعث هنگ کردن کامپیوتر میشه رو تو سایتت بذار منم خبر کن.ممنون.

جواب: بنده در پست فقط یک راهنمائی کردم تا فکرتان در مورد مسئله باز شود حال اگر مایلید این ویروس را بنویسید با تابع FillMemory می توانید بلاک های حافظه را پر کرده تا جائی که سیستم دچار کمبود حافظه شود و هنگ کند.

مصطفی: با عرض سلام و خسته نباشید من کدی را میخواهم که وقتی از برنامه خارج می شویم اطلاعات وارد شده در listbox ها ذخیره شوند و پس از اجرای دوباره اطلاعات نشان داده شوند. با تشکر.

جواب: اطلاعات را در یک فایل یا در بانک اطلاعاتی ذخیره کنید سپس در هنگام بارگذاری فرم اطلاعات را به لیست باکس ها اضافه کنید.

تبدیل کد رنگ vb به html

vb-source-code — Sun, 08 Feb 2009 19:19:23 GMT

ویژوال بیسیک کد رنگ را به صورت BBGGRR ذخیره می کند ؛ ما باید قالب رنگ را به RRGGBB# تبدیل کنیم ؛ یعنی جای کد رنگ قرمز با آبی باید عوض شود.

تابع زیر اینکار را انجام می دهد:

Function VB2HTMLColor(color As Long) As String
    Dim aux As String
    aux = Right("00000" & Hex(color), 6)
    VB2HTMLColor = "#" & Right(aux, 2) & Mid(aux, 3, 2) & Left(aux, 2)
End Function 

منبع