سولاتی در مورد vb

[saied_hacker]

:عصبانی++::عصبانی++:با عرض سلام و خسته نباشید خدمت شما دوستان و....
یه سوال دیگه هر کی بتونه حل کنه معلوم می شه که واقعا برنامه نویسه ...
سوال: برنامه ای طراحی کنید که امکان وارد کردن 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]

سلام ببخشید اگه چرت و پرته


Private Sub Form_Activate()




Dim a As Integer

Dim b As Integer
For b = 0 To 10 Step 1
b = InputBox("enter a number", "number")
a = b
Print a
b = b + 1
Next b

End Sub

کمکم کنید

[MMR_1344]

دوست عزیز توی این برنامه وقتی اجراء میشه در ابتدای حلقه مقدار B برابر یک است ولی در خط چهارم مقدار آن را سوال میکنه حالا اگر مقدار ورودی بیشتر از عدد 10 باشه از حلقه خارج میشه باید برای شمارهنده خود از متغیر دیگری استفاده کنی

[مبین رنجبر]

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


Dim A As Integer
Dim B As Integer
For A = 1 To 10
B = InputBox("Insert Number : ")
If Val(B) < 0 Then
End
End If
Print B
Next A

برنامه به این راحتی می گی سخته ؟ .... پس سخت ندیدی

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

[ali_habibi1384]

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

[saied_hacker]

:عصبانی++::عصبانی++:با عرض سلام و خسته نباشید خدمت شما دوستان و....
یه سوال دیگه هر کی بتونه حل کنه معلوم می شه که واقعا برنامه نویسه ...
سوال: برنامه ای طراحی کنید که امکان وارد کردن 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





شاید این سوال این شکلی پیس پا افتاده باشه که تقریبا هست اما مشکل من سر اینه که می خام هر عددی که در اینپوت باکس ها وارد شد درون تکس باکس ها قرار بگیره
مثلا عدد اول در تکس 1 بعد عدد دوم در تک2 و....تا عدد دهم در تکس 10


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

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

اینم درسته؟


dim a integer
for a=0 to 10 step1
a=inputbox("enter a number","number")
print a
next a

[saied_hacker]

یه سوال فنی دیگه چرا من نمی تونم مثل انسان از تگ کد استفاده کنم ؟

همش به هم میریزه؟

[MMR_1344]

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

[Mbt925]

یه آرایه ی 10 تایی از TextBox با نام Text1 :





Dim a integer

For a= 0 to 9

a=InputBox("Enter a number",0)

Text1(a).Text = a

Print a

Next

[saied_hacker]

از همه متشکرم!
obalitjoOon
MMR_1344
Lsass.CRC32
ali_habibi1384
Mbt925

از اونجایی که قصد من کپی پیست نیست ... اقای mbt925 می شه راجب این که چه طور می شه که این جوری میشه :

در هر با انجام حلقه یکی که به a اضافه می شه ... درسته بعد Text1(a).Text = a یعنی چی؟

وقتی به a اضافه می شه به تکس هم نمی فهمم چی می شه ؟

اگه تکس هام ارایه نباشه کار نمی کنه؟

اون print a اضافه است.

[saied_hacker]

سلام مجدد

با کمک شما دوستان عزیززززززززززز مشکلم حل شد

کد یکسر ایراد داشت در ستش اینه..


Private Sub Command1_Click()




Dim a As Integer

Dim c As Integer
For a = 0 To 10
a = InputBox("Enter a number", 0)
Text1(c).Text = a
c = c + 1
Next a

End Sub

[saied_hacker]

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

مثلا باینری 5 می شه 101 و مال 18 هم میشه 10010 و اگر در دوره اول باینری 5 رو چاپ کرده باشه بعد بخای باینری 18 رو با لین برنامه نمایش بدی 10010101 رو نشون می ده که در واقع همون حاصل 10010+101 هستش ..

حالا چه طور باید این کارو کرد یعنی اینکه دیگه اونا رو با هم جمع نکنه..



Private Sub Command1_Click()
Dim a As Integer
Dim c As Integer
Dim b As Integer
Dim k As Integer
Dim num As Integer
Dim bin As Long
For a = 1 To 3
b = 0
b = InputBox("Enter a number", 0)
Text1(c).Text = b
num = b
Do Until (num = 0)
bin = bin + (num Mod 2) * 10 ^ k
k = k + 1
num = num \ 2
b = 0
Loop
Print bin
c = c + 1
num = 0
Next a
End Sub

[Mbt925]

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

شما 10 تا عدد گرفتین ولی دارین آخری رو تبدیل می کنین.

میشه توضیح بدین؟

[saied_hacker]

سلام

ببین من 10 تا عدد رو دریافت و توی 10 تا ارایه ای که از تکس 1 دارم ذخیره می کنم درسته!

حالا من می خام عدد باینری هر کدوم از ارایه یا تکس هام رو به دست بیارم که نمی دونم چه جوریاس ؟

بعد عدد باینری به دست امده از هر ارایه تکس 1 رو چاپ کنم
و اعداد باینری قبلی که چاپ کرده رو با بعدی جمع نکنه

k تعداد دفعات تکرار حلقس
bin عدد باینری
num عدد ی که قرار عدد باینریش محاسبه بشه
a تعداد تکرار حلقه
b همون num هستش


ممنون

[saied_hacker]

کسی اینجا نیست؟

[MMR_1344]

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

[Mbt925]

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



Private Sub Command1_Click()

Dim a As Integer , b As Integer, k As Integer
Dim num As Integer
Dim bin As Long


For a = 1 To 3
b = 0
b = InputBox("Enter a number", 0)
Text1(a-1).Text = b


num = b
bin=0
k=0




Do While (num > 0)
bin = bin + (num Mod 2) * 10 ^ k
k = k + 1
num = num \ 2
b = 0
Loop

Print bin


Next a


End Sub

[saied_hacker]

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

این رو دانلود کنید

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


در اون قسمتی مربوط به تکرار حلقه است رو از 3 باید به 10 تبدیل کرد
For a = 1 To 10

[MMR_1344]

دوست عزیز در برنامه قبل از اجراء شدن Do Loop باید حتما" مقادیر bin و k رو برابر صفر قرار بدی تا برنامت درست اجراء بشه

[saied_hacker]

سلام اون مشکل که حل شد...

یه سوال کسی می دونه چه طوری می شه یه کلمه رو معکوس کرد مثلا ali رو به ila تبدیل کرد؟


چاکر همه برو بچ برنامه نویسم هستیم...

[Mbt925]

هدف : قرار دادن Str1 در Str2 بصورت معکوس





Dim Str1 as String , Str2 as String
Dim i as Integer

Str2=""

For i= Len (Str1) to 1 step -1

Str2 = Str2 & Mid (Str1, i , 1 )

Next

Print Str2

[saied_hacker]

هب قول خارجیا thank you

[saied_hacker]

سلام
چه طوری میشه فاکتوریل یه عدد رو حساب کرد؟
مثلا 5 که می شه
5*4*3*2*1

[Mbt925]

Function Fact(Num As Long) As Long

If Num=0 Then
Fact=1
Else
Fact = Num * Fact (Num-1)
End If

End Function

[saied_hacker]

از شما ممنونم


اینم همونه ولی به جور دیگه

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

[saied_hacker]

یه سوال دیگه

mid چه کار می کنه دقیقا

[__siavash__]

mid یکی از توابع داخلی ویژوال بیسیکه که برای کار با String ها کاربرد داره (البته اگه منظور شما Mid Function باشه !)


Mid(string, start[, length])

این مثال MSDN هم که کاملا واضحه که این تابع چی برمیگردونه !!!

Dim MyString, FirstWord, LastWord, MidWords
MyString = "Mid Function Demo" ' Create text string.
FirstWord = Mid(MyString, 1, 3) ' Returns "Mid".
LastWord = Mid(MyString, 14, 4) ' Returns "Demo".
MidWords = Mid(MyString, 5) ' Returns "Function Demo".

[saied_hacker]

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

می خام یه چیزی مثل notepad بنویسم ولی زیادی مبتدیم...

ممنون

[__siavash__]

Private Sub Command1_Click()
Dim i As Integer
'MsgBox Screen.FontCount
For i = 1 To Screen.FontCount
Combo1.AddItem Screen.Fonts(i)
DoEvents
Next
End Sub

[saied_hacker]

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


چند تا سوال فنی


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



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



ممنون


این وردم بد نیس ولی فقط بدرد خودم می خوره چون خیلی دره پیته...

[saied_hacker]

اینجا هیچکی نیس ؟؟؟؟؟

هم اکنون نیازمند یاری شما هستیم ..............

بابا یه helpy بدید دیگه


این یخته جدید تره

[Mbt925]

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


چند تا سوال فنی


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




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

2.میشه چیزی که می گین رو بصورت یه اکتیوایکس پیاده سازی کرد ، اگه وقت کنم یه نمونه ساده میذارم.

[saied_hacker]

یعنی هیچ راهی نداره؟

اون گیم سی 2 منظورم همون game sea2 که برا دانلود گذاشتمااااا

برای ساخت بازی c# بهتره یا c++ ؟؟؟؟

[saied_hacker]

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

تا بالا پایین چپ راست هم رو بدم ... کلی می شه صد رد صد راه دیگه هست..
راه دیگه ای وجود داره؟
http://barnamenevis.org/forum/attachment.php?attachmentid=14424&stc=1&d=1200763377

ممنون

[saied_hacker]

بابا چرا هیشکی جوابمو نی ده؟

[saied_hacker]

من چه طور می تونم ادرس فولدر my video توی my document رو به دست بیارم...

چون ممکنه هر کسی ویندوزشو توی یه دراوی نصب کرده باشه؟

ممنون

[AmirAmiri]

کاش استادای ما هم از این جور سوالا میگفتن. پس تو سوال ندیدی؟ مثلاً آسونش اینه که گفته پنجره اکسپلوره ویندوز (Windows Explore) رو طراحی کنید. ببینم حالا کدوم سخته؟
دانشکده منتظریه دیگه..... سخت میگیرن ما هم باید درس بخونیم.

[saied_hacker]

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

هیشکی نیست جوابمو بده؟

[Mbt925]

من چه طور می تونم ادرس فولدر my video توی my document رو به دست بیارم...

چون ممکنه هر کسی ویندوزشو توی یه دراوی نصب کرده باشه؟

ممنون

نمونه های زیادی برای بدست آوردن مسیره نصب ویندوز و سایر مسیرهای مهم توی سایت وجود داره.
قبل از مطرح کردن سوال جستجو کنید.

[saied_hacker]

سلام
من تو data Gride مشکل دارم نمی دونم چرا کار نمی کنه؟
DataEnvironment2.rar (http://barnamenevis.org/forum/attachment.php?attachmentid=15371&stc=1&d=1203765391)
البته توی فرم 3 اون record source رو باید خذف کنید از روی ADO
بعد فرم DATAGRIDE باز می شه ولی خالیه....
:اشتباه::عصبانی++::عصبانی++::ع� �بانی++::افسرده::گریه:

[yourdkhani]

بچه ها سلام ، من یه چند مدتی خیلی کمه که vb6 شروع کردم اما خیلی ها بهم می گن که باید vb.net رو شروع می کردم راستش سره دو راهیم یه لطفی کنید برام توضیح بدید آیا این 2 تا تفاوت فاحشی دارن و من نمی تونم با یادگیری vb6 یه پیش زمینه قوی برای vb.net پیدا کنم ؟ یا اینکه این دو تا دوتا مقوله جدا از همند ؟

[Mbt925]

این دو زبون شباهت هایی با هم دارن ولی از نظر ساختار باهم متفاوتن.

هر کدومشون قابلیت ها و کاربردهای خودشون رو دارن.
مطمئننا با یادگیری اه هر کدوم از اونا ضرر نمی کنید.

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

و اما پیشنهاده من :
اگه هنوز شروع نکردین ، VB.Net رو شروع کنید ولی اگه وی بی رو شروع کردید تا یه جاهایی پیش برید و بعد برید سراغ .Net ، با این کار مسیرتون برای یادگیری VB.net تا حدودی هموار میشه.

[saied_hacker]

کسی نیست به ما کمک کنه؟

[Mbt925]

کسی نیست به ما کمک کنه؟

مشکل حل شد.

با اضافه شدن دستور زیر به لود فرم3:



Set DataGrid1.DataSource = Adodc1

[saied_hacker]

من می خاستم بدونم راهی برای رسم یک دایره با VB هست با کد نه با Image یا Shape ؟

[Mbt925]

من می خاستم بدونم راهی برای رسم یک دایره با VB هست با کد نه با Image یا Shape ؟

برای سوال های جدید ، تاپیک جدید ایجاد کنید.



Circle (x,y), Radius , Color , xDia , yDia

[saied_hacker]

ممنون ولی منظورم این نبود
مخام یه خط رو 360 درجه بچرخونم با y & x به طوری بچرخن که به صورت یه داره دربیان
با دستور line و for رسم می کنم ولی هم می چرخه هم طول خط زیاد میشه !

برای سوال های جدید ، تاپیک جدید ایجاد کنید.


از دفعه ی بعد