برنامه های VB

سلام
من می خام خروجی این کد که اعداد فرد است رو در یک تکس باکس نمایش بدم ولی فقط بک عدد از اون درش نمایش داده می شه...
مثلا:
عدد 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

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

---

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

با سلام جدد

یه سوال دیگه : چه طوری می تونم یه کاری کنم که توی تکس 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

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

سلام

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

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

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

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


http://i5.tinypic.com/6s8malg.gif
http://i5.tinypic.com/6k73l2r.gif
http://i12.tinypic.com/8btqc09.jpg
http://i19.tinypic.com/720yb2o.gif

سلام

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

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

سلام.

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

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

ممنون.

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

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

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

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

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

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

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

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

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

برنامه حل معادلات درجه 2

برنامه محاسبه حجم و مساحت و سطح جانبی یک مکعب

برنامه محاسبه محیط و مساحت دایره.:کف:

برنامه محاسبه محیط و مساحت مستطیل

برنامه محاسبه محیط و مساحت مربع

برنامه تعیین زوج یا فرد بودن عدد

برنامه چاپ مقلوب یک عدد

اینو نمی گم چیه.دانلود کن تا حال کنی ببینی که با همین vb چه کارا که نمیشه کرد!

اینم یه برنامه دیگه که شعاع رو از شما می گیره و سینوس و ..... رو حساب می کنه و در آخر دایره رو برای شما رسم می کنه.

نقل قول:

---

نوشته شده توسط mortez maya

سلام عزیزان آقا کسی TAPIEX ترجیحا رجیستر شده داره ؟
خیلی ممنون میشم

---

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

اینم همون برنامه که سینوس و ...... محاسبه می کنه با این فرق که این دفعه کد محاسبه کتانژانت رو پیدا کردم و ایندعه کتانژانت رو هم محاسبه می کنه.چقدر ریاضی و vb حال میده!

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

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

سلام دوستان اگه میشه سورس یه برنامه تغییر صدا در چت رومهای یاهو رو بزارید ممنون میشم . و مرسی از تمام دو ستانه عزیز که در این تاپیک سورسهای جالب و بسیار مفید میزارن . ممنون !!!

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

سورس برنامه first and follow

برنامه بازگشتی پویش عکس

برنامه شماره گذاری گره های گراف

سورس برنامه چند وزیر

سورس برنامه جستجوی SMA star

با سلام.

3 تا سوا داشتم.

1)برنامه های پنجره ای با برنامه هایی در محیط متنی اجرا می شئند چه فرقی دارند؟

2) VB از کجا می داند که برای رویداد خاصی از کنترل کدام رویه را باید انجام دهد؟

3-در محیط VB کدهایی را که جهت بستن یک پنجره و خروج یک برنامه در پاسخ به رویه ی رویدادی خروج در نظر گرفته می شود را نام ببرید.

با تکر فراوان از شما.:بوس:

prefesional tanks a lot

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

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

دوست عزیز سورس برنامه های حسابداری که خوب باشن بیشتر از 3 یا 4 نیست که همشون هم در سایت هست فقط کافیه جستجو کنید.
موفق باشید

سلام اینم بازی سوپر ماریو هستش که با vb6 نوشتن خیلی جالبه نمی دونستم vb از این قدرت ها هم داره!!!

سلام

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

اجرا اجزای کنترل پنل...
حتما دانلود کنید...
خیلی بدرد می خوره...

این از اون قبلی باهال تره...:چشمک: