برنامه های VB

[__siavash__]

یه نمونه برای عوض کردن عکس ها با افکت

[davoodx]

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

با تشکر از شما

[samira_2118]

سلام میشه یک نمونه برنامه حسابداری که بتونه ماهیت بستانکار و بدهکار بودن سند رو تشخیص بده بزارین
مرسی

[mostafa-sohrablou]

سلام
یه برنامه دارم می نویسم که در اون یه برنامه دیگر را فعال می کنم و از طریق کد VB می خوام کارهای را در آن برنامه انجام بدهم با فرمان appactivate و sendkeys ولی مشکلی که دارم اینکه سرعت برنامه VB بیشتر از برنامه فرعی است و جلو جلو می ره و برنامه فرعی کلی از کارهای که گفته بودم را انجام نداده است چه کار کنم
با تشکر

[new-student]

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

[perfeshnal]

سلام

جناب new-student اگر سایت رو جستجو کنید بیشتر از 50 تا نمونه برنامه تو سایت هست که شما می تونید دانلود کنید.
موفق باشید

[اوبالیت به بو]

اینم برنامه عوض کردن پسورد ID تویه Yahoo!
از یه سایت خارجی گرفتمش.

[اوبالیت به بو]

این یه برنامه API که به CD-Rom یه حال میده.
خودم واسه پروژه عید نوروز واسه مدرسه نوشتم.

[اوبالیت به بو]

اینم یه تابع API دیگه هست که بازم جزو پروژه های مدرسمون بود که یکی از بهترین برنامه های API من بود.

[اوبالیت به بو]

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

[Messenger]

سلام
یه سری کد میخوام که بتونم فرمم رو با استفاده از اونها زیبا کنم... چیزی ندارید ؟

[perfeshnal]

اگر منظور شما دادن Skin به فرم های برنامه است.
در سایت جستجو کنید مطالب زیادی در این مورد پیدا می کنید.

[terminator68]

سلام.

برنامه ساخت گل رز

توجه:

اگر بخواهید شکل گل را تغییر دهید در کد بالاقسمت e = g * Sin(6 * l) به جای شماره 6 شماره ای را به دلخواه خود واردکنید سپس شکل گل شما تغییر می کند.

لطفا نظرتون رو بگید.

[meisambandari]

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

[meisambandari]

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

[__siavash__]

Virtual Password

[اوبالیت به بو]

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

[perfeshnal]

ساخت درایو مجازی با ویژوال بیسیک

[__siavash__]

سورس SubSeven

[narges.ghaedi]

سلام.
من یک فایل .MDB دارم که موقع باز کردن پیغام میده که شما permision ندارید .میشه یک نگاهی بهش بندازی؟

[saied_hacker]

سلام
من می خام خروجی این کد که اعداد فرد است رو در یک تکس باکس نمایش بدم ولی فقط بک عدد از اون درش نمایش داده می شه...
مثلا:
عدد 1345
سه تا عدد فرد دار ه1 3 5 ولی فقط عدد 5 نمایش داده میشه

کمک کنید پروژه مدرسس
اینم کد

Dim adad As Integer

Private Sub Command1_Click()

Dim num As Long

Dim i As Long

num = Val(Text1.Text)

While (num > 0)

i = num Mod 10

If i Mod 2 = 1 Then Text2.Text = i

num = num \ 10

Wend

End Sub

Private Sub Form_Load()

adad = InputBox("Enter A noumber:", "Noumber")

Text1.Text = adad

End Sub

[saied_hacker]

ببخشید اگه بی ربطه
کمک کنید تا مام رشد کنیم...

[Mbt925]

Dim adad As Integer

Private Sub Command1_Click()

Dim num As Long

Dim i As Long

num = Val(Text1.Text)

Text2.Text=""

While (num > 0)

i = num Mod 10

If i Mod 2 = 1 Then Text2.Text =Text2.Text & i

num = num \ 10

Wend

End Sub

Private Sub Form_Load()

adad = InputBox("Enter A number:", "Number")

Text1.Text = adad

End Sub

یه اشتباه متداول

[saied_hacker]

با سلام جدد

یه سوال دیگه : چه طوری می تونم یه کاری کنم که توی تکس 1 بیش تر 11 کاراکتر نشه وارد کرد ؟

اگه می شه یکمم توضیح بدید...

Private Sub Command1_Click()

 

Dim num As Long
 

Dim sum As Long



Dim i As Long

num = Text1.Text

While (num > 0)

i = num Mod 10

If i Mod 2 = 1 Then Text2.Text = Text2.Text & i

num = num \ 10

Wend

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Command1.Caption = "Ok"

Text3.Text = 11

End Sub

Private Sub Text1_Change()

If Text1.Text = (Len(11)) Then

MsgBox ("error")

End Sub


 

 

 

یه سوال دیگه چه طور بین اعدادی که از این کد به دست امده فاطله ایجاد کنم ( تمام اعداد بک یا دور رمی رو به هم می چسبونه با

+space هم نشد؟

مثلا 0 تا 10 این جوری نمایش می ده 012345678910 ولی میخام 0 1 2 3 یا 0-1-2-3-4 این خوری باشه

حالا چکاااار کنم ؟

Private Sub Command1_Click()

 

Dim nu As Integer



Dim num As Long

Dim sum As Integer

Dim i As Long

For num = 150 To 0 Step -1

Text2.Text = Text2.Text & num

Next num

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

Command1.Caption = "Ok"

Text3.Text = 11
 

End Sub

[saied_hacker]

mbt925 از شمام برایه پاسختون ممنون

[perfeshnal]

سلام

برای سوال اولتون شما می تونید از داخل Properties تکس باکس گزینه Maxlength رو مساوی با 11 قرار بدید.

[saied_hacker]

perfeshnal از شما ممنون

در رابطه با سوال دوم خودم جابشو
پدا کردم

Private Sub Command1_Click()

Dim nu As Integer

Dim num As Long

Dim sum As Integer

Dim i As Long

For num = 150 To 0 Step -1

Text2.Text = Text2.Text & num

Text2.Text = Text2.Text +space(1)

Next num

End Sub

[amirsajjadi]

استفاده از فایل های Word و Excel در ویژوال بیسیک

[saied_hacker]

با عرض سلام و خسته نباشید خدمت شما دوستان و....
یه سوال دیگه هر کی بتونه حل کنه معلوم می شه که واقعا برنامه نویسه ...
سوال: برنامه ای طراحی کنید که امکان وارد کردن 10 عدد ( 10 بار inputbox پشت سر هم باز بشه) و اگر عدد منفی در یکی از انها وارد شد برنامه تمام بشه ... بعد نتیجه رو (عدد باینری اعداد ) رو چاپ کنه تو مسیج باکس.
خدایی این تمرین برایه دانش اوزایی که تازه دارن ویژوال یاد می گیرن سخت نیست؟
ظاهر اونم این شکلی باشه ولی دو روزه دارم ور می رم ولی نمی شه!!
کد ها خودمم همش دی باگ می ده ..
کمک کنید

[perfeshnal]

سلام

جناب saied_hacker لطفا سوالات خودتون رو در صفحه اول سایت و در یک تاپیک تازه مطرح کنید.
اینطوری بهتر به جواب می رسید

[Doctor]

با تشکر از زحمات شما
این برنامه فایل Threed.ocx را می خواهد اگر میشود آن را نیز بگذارید
متشکرم.

[terminator68]

سلام.

دنبال یه سورسکد یا تابعی به زبان وی بی 6 هستم که بشه باهاش اطلاعات یک فایل تصویری مخصوصا فایل های DIVX رو از قبیل، ارتفاع، عرض، Bitrate و ... به دست آورد.

این اطلاعات در Header فایل ها ذخیره شده ولی نمیدونم چه جوری میشه استخراجشون کرد.

ممنون.

[اوبالیت به بو]

برنامه Magnifier برای شما.

[اوبالیت به بو]

برنامه تبدیل حروف انگلیسی به فارسی.

[اوبالیت به بو]

اینم اون بازی مارپیچ.

[اوبالیت به بو]

این برنامه ساخت نقشه با vb!!

[اوبالیت به بو]

این برنامه یک عدد از ورودی میگیره و مجموع اعداد زوج یا فرد بین 0 تا خود اون عدد رو محاسبه می کنه.

[اوبالیت به بو]

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

[Mahdiyeh_R]

محاسبه عبارت های ریاضی که عملگرهای + * - / ^ ( ) را می شناسد و طبق تقدم عملگرها عبارت را محاسبه می کند.این نمونه توی سایت بود ولی نه با تقدم عملگر!!!!

[Mahdiyeh_R]

دیگه توضیح نمی خواد!!!