سورس کدهای vb + سوال بپرس (حرفه ای)

Printable View

نمايش 40 تاپيکها در يک صفحه

07-03-2008, 20:43
301

WebCam

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=8JQA09C4
07-03-2008, 20:46
301

تبدیل عدد به حروف
یعنی عدد که وارد میکنی همونو به حروف می نویسه!!!

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=3HWKXJO3
07-03-2008, 20:48
301

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=L13VSI00
08-03-2008, 18:57
mehdibarghi

دوست عزیز دستتون درد نکنه .... بلاخره یکی پیدا شد اینجا چیزی بزاره ...
09-03-2008, 16:00
sadafhossein

salam man in kar roo kardm vali dar visual erorr mide
09-03-2008, 17:37
mehdibarghi

ببخشید کدوم کار رو ؟؟
09-03-2008, 18:48
Arashmicrob

بچه ها این تاپیک خیلی خوبه مدتها بود دنبال همچین تاپیکی می گشتم ...
ولی بهتر نیست بجای ادرس سایت مستقیم ادرس فایل رو بدید...
مثلا با فرمت txt ...
09-03-2008, 18:53
Arashmicrob

یه مشکلی پیش اومده.....
این فایلایی که دوستمون301 گذاشته خرابه...
یعنی سایتو باز نمی کنه...
من همیشه از rapidshare و 2shared بدم میومده.....
09-03-2008, 19:21
Arashmicrob

من برنامه های Start ,Task manager رو نوشتم ولی کار نکرد.....
کسی میتونه سورس کد فرمت درایو رو بذاره؟؟؟؟..../
09-03-2008, 19:49
reza mohammad mahdi

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

ممنون ميشم اگه كسي بهم كمك كنه.
اينم بگم كه من تازه چند روزي هست كه ويژوال بيسيك رو شروع كردم و خيلي مبتدي هستم
09-03-2008, 23:26
mehdibarghi

سلام ؛
خب نوشتن چنین برنامه ای توضیحات کمکی دیگه ای نداره ، چون همه رو خودتون گفتید ... ولی اگه برنامه می خواهید دقیق تر بگین چی میخواهین تا یا برنامه شو بنویسیم یا بیشتر بتونیم کمکتون کنیم .
10-03-2008, 08:15
mehdibarghi

سلام به دوست عزیز 301 ؛
متاسفانه یک سری از برنامه هاتون به درستی کار نمیکنه !!
ولی به هر حال ممنون ..
10-03-2008, 08:28
mehdibarghi

اینم یه برنامه ویژوال بیسیک برای ایجاد تغییرات در تسک بار taskbar

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
10-03-2008, 08:41
mehdibarghi

یه برنامه vb برای گرفتن یک سری اطلاعات از ویندوز و سیستم ...

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
10-03-2008, 15:01
Arashmicrob

جواب منو درباره hide Taskmanager و Stat up ندادینا......
ـــــــــــــــــــــــــ ـــــــــــــــــــــــــ ـــــــ
دوست عزیز 301 این برنامه هاتو اگه میشه جای دیگه اپ کن ....
چون قیافه برنامه هات خیلی وسوسه کننده است.../
10-03-2008, 17:40
reza mohammad mahdi

سلام

با تشکر از حسن توجه شما دوست عزیز

این فرمی که تهیه کردم ، برای نمونه

کد:

http://i27.tinypic.com/2rw0ocm.jpg

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

من یه بار دیگه بصورت واضحتر توضیح میدم که چی میخوام.
من میخوام تو هر کدوم از این کامبو باکس ها یه تعداد متن قرار بدم(لیست اشیاء داخل کامبو باکس). همچنین یه مقدار عددی (هر مقداری مثلا 1256) رو معادل هر متن قرار بدم. و هنگامی که از کامبو باکس ها یه گزینه(از لیست داخل کامبو باکس) انتخاب شد و بعد روی دکمه (محاسبه) کلیک شد. یه مقداری رو با توجه به اعدادی که برای هر متن (معادل قرار دادیم) و عملی رو که برای دکمه (محاسبه) قرار دادیم(میتونه جمع . ضرب تقسیم یا ... باشه) داخل تکست باکس نشون بده.

نمی دونم تونستم درست توضیح بدم یا نه .
11-03-2008, 12:14
mehdibarghi

سلام ؛
خب این کار رو توی کد برنامه تون با چند تا if ساده میتونید انجام دهید به این صورت که مثلاً شرط میزارید که اگر combo1.text برابر با "mehdi" بود ، مقدار textbox تون رو برابر با عدد 1000 بکنه ... یه راه دیگه ای هم هست برای اینکه if هاتون کم بشه و اون اینه که شما از یه لیست باکس استفاده می کنید که معادل با مقدار combobox تون در لیست باکس عددش رو می نویسید (یعنی اینکه اگر مثلاً مهدی اولین گزینه در لیست کمبوتون بود عدد 1000 رو هم اولین گزینه در لیستتون میزارید ) و بعد توی برنامه تون وقتی کمبو باکس مثلاً index 5 انتخاب است شما میرید و index 5 از listbox تون رو میخونید که همون عدد معادلش است ...
امیدوارم کافی بوده باشه ...
11-03-2008, 18:51
Arashmicrob

اینجا چرا هیچکی منو ادم حساب نمی کنه؟؟؟....
میگم سورس کد task manager,start up کار نمی کنه.../
11-03-2008, 20:55
301

نقل قول:

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

ببخشید که لینک ها خراب بود .
تمام برنامه ها رو دوباره آپلود کردم و لینک هارو هم ویرایش کرد.
برید دانلود کنید!!
11-03-2008, 21:05
301

Process Xp
این دیگه آخرشه!!!

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=QVVK25ME
12-03-2008, 07:03
MrJamshidy

خیلی جالبه

موفق باشید
12-03-2008, 18:46
Arashmicrob

هنوز هیچکی جواب منو نداده.....
Start up , task manager کار نمیکنند............................
14-03-2008, 19:28
301

3D Graphical Results Bar

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=42AE5SNT
14-03-2008, 19:30
301

A cool Random Number Generator

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=7FSJ3R1I
14-03-2008, 19:30
301

Aqua Text Creator

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=PDV2OTHL
14-03-2008, 19:31
301

brows a folder

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=N3OI34LQ
14-03-2008, 19:32
301

Capture Screen and Mouse

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=NIDK89CR
14-03-2008, 19:32
301

Greg's Pool 3D

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=YZYWG5I7
14-03-2008, 19:38
301

سلام

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

اگه سورس کد خاصی رو می خواین بگین بزارم.
15-03-2008, 11:34
Arashmicrob

من میخوام هر دفعه که کامپیوتر Restart میشه برنامه اوتومات بیاد بالا....
15-03-2008, 14:42
mehdibarghi

تو پست های قبلی سورسشو گزاشتم ... مربوط به قرار دادن برنامه در استارت آپ...
17-03-2008, 14:28
301

internet status

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=51DZ4E43
17-03-2008, 14:30
301

Mount Drive

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=GQFFXNVC
17-03-2008, 14:31
301

Obtain Windows Informations

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=054LIN47
17-03-2008, 14:32
301

Raining Letters

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=1ZOV55NF
17-03-2008, 14:33
301

Remote Management Kit

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=9PMNBI7P
17-03-2008, 14:35
301

RichTextBox Highlighting using API (fast & simple) - change text background color

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=XH5TRHF7
17-03-2008, 14:36
301

Simple VB commands

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=8KKZ0QV4
17-03-2008, 14:45
301

بدست آوردن اطلاعات کارت صدا

کد:

Private Declare Function waveOutGetDevCaps Lib "winmm.dll" Alias "waveOutGetDevCapsA" (ByVal uDeviceID As Long, lpCaps As WAVEOUTCAPS, ByVal uSize As Long) As Long Private Const MAXPNAMELEN = 32 Private Type WAVEOUTCAPS wMid As Integer wPid As Integer vDriverVersion As Long szPname As String * MAXPNAMELEN dwFormats As Long wChannels As Integer dwSupport As Long End Type Private Sub Command1_Click() Dim x As WAVEOUTCAPS waveOutGetDevCaps 0, x, Len(x) Print "Sound Card - " & x.szPname Print "Sound Formats - " & x.dwFormats Print "Sound Support - " & x.dwSupport Print "Sound DriverVersion - " & x.vDriverVersion Print "Sound Channels - " & x.wChannels Print "Sound Mid - " & x.wMid Print "Sound Pid - " & x.wPid End Sub
17-03-2008, 14:47
301

[ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

http://www.megaupload.com/?d=GTWB0RTG

نمايش 40 تاپيکها در يک صفحه