سلام نمی دونم باید سوالم رو اینجا بگم یا جای دیگه
من می خوام یه ماشین حساب کوچولو درست کنم که مثلا تکست1 رو با تکست 2 جمع کنه زمانی که من روی + زدم و با دستور run توی text3بنویسه
ولی وقتی مه من روی +می زنم یه دفعه توی text3می نویسه
می تونید کمک کنید
سلام نمی دونم باید سوالم رو اینجا بگم یا جای دیگه
من می خوام یه ماشین حساب کوچولو درست کنم که مثلا تکست1 رو با تکست 2 جمع کنه زمانی که من روی + زدم و با دستور run توی text3بنویسه
ولی وقتی مه من روی +می زنم یه دفعه توی text3می نویسه
می تونید کمک کنید
Last edited by mohsentanha; 12-11-2008 at 12:45.
سلام. دوست عزیزنوشته شده توسط mohsentanha [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
چون از یه عملگر بیشتر نمی خوای استفاده کنی اصلا نیازی به دکمه ی + نیست. با همون run اجرا میشه. اگه می خوای فرمت قشنگ تر باشه 3 تا text box رو زیر هم بزار و بین دومی و سومی خط بکش. دکمه ی اجرای برنامه تو هم کنار خط سمت چپ بزار و روش + بنویس(البته طراحی فرم سلیقه ایه) موفق باشید
text1 و text2 و text3 رو روی فرمت قرار بده و یه command هم برای اجرای برنامه.
روی command دابل کلیک کن تا قسمت کدنویسی بیاد اونجا کد زیر رو وارد کن:
(a=val(text1.textمی تونی یک دکمه Clear هم براش بذاری. که اونم باز یه command دیگه س. توی قسمت کد نویسیش باید بنویسی:
(b=val(text2.text
(text3.text=str(a+b
" "=text1.text
" "=text2.text
" "=text3.text
Last edited by مورچه; 12-11-2008 at 17:01.
دوستان کسی راجع به سوال من چیزی به ذهنش نرسید؟
سلام خدمت دوستان من امسال دارم تو مدرسه ویژوال میخونم و این اولین کار من هستش اگه میشه در ترمیم ایرادهاش کمکم کنید
لیتک دانلود ماشین حساب من با حجم 3 کیلو بایت
کد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
دوست عزیز، خسته نباشید. برای کار اول خوب بودنوشته شده توسط mehran_286 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
ایرادها:
اولا که caption ها رو فارسی نوشتی، روی سیستم من فونت هاتو نشناخت. دیگه اینکه یه توضیح بده، textbox اولی برای چه کاری روی فرم گذاشته شده؟
بعدش اینکه وقتی روی دکمه - کلیک می کنیم، نباید عدد رو منفی کنه. باید text box رو خالی کنه و منتظر عدد دوم باشه. که وقتی وارد شد از هم کم کنه و نمایش بده.
بعدش اینکه چرا برای دکمه RUN و Clear نذاشتی؟
شایدم چون نتونستم label ها رو بخونم، درست متوجه نشدم
موفق باشید
مورچه این جواب من نیست اشتباه کردی
ببین من می خوام یه برنامه بنویسم که یک ماشین حسابی باشه که فقط ضرب و تقسیم وجمع و تفریق رو انجام بده
بعد یه طوری که + رو زدم یه دفعه جواب رو نتونه توی text3بنویسه
یه طوری میخوام که وقتی + زدم و = رو زدم جواب بده میدونم یه خورده مبهمه
کد ها رو میزارم بهم بگین کجا اشتباهه
خب یه توضیحی هم بدمPrivate Sub Command4_Click()
End Sub
Private Sub a_Click()
Val (T1.Text) + Val(T2.Text)
End Sub
Private Sub Command5_Click()
End
End Sub
Private Sub z_Click()
Select Case "+"
T3 = T1 + T2
End Select
End Sub
a همون + هستش
t1 و اینا رو هم همون text1 اینا هستن
z همون اینتره یا =
چیکار کنم اول کارمه دیگه
چطور میتونم یک کلید رو از رجیستری پاک کنم : من میخوام یک کلید که تو ران هست رو پاک کنم از کد زیر استفاده کردم
ولی خطای No value exists with that name. میدهدکد:برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
Last edited by hesamzadeh; 17-11-2008 at 14:40.
اقا دمت گرمنوشته شده توسط مورچه [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
چون کار اولم بود یکم ایراد داشت شما هم ببخشید
ایرادهاش
2تا تکتس باکس داره
دکمه هاcو.... نداره
تازه الان تو مدسه رسیدیم سر بحث ifکه کار جدیدم بهتر از این هستش
خواهش می کنم عزیز.نوشته شده توسط mehran_286 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
موفق باشی
هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)