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

واضح آرشیو وب فارسی:سایت ریسک: NaKhoda BiBaK29-10-2009, 08:31 PMسلام. خسته نباشید همه اساتید !!! هــــــــــــــــــــــی !!! تو انجمن فتوشاپ همه به من میگن استاد :43::43: و به همه کمک میکنم حالا باید تو VB از دوستان کمک بگیرم !!! :31::31::31: بسوزی رشته ریاضی که چی به سر مردم میاری !!! :31::31::31::31: ( دوستان شوخی کردم ... به هر حال هر کسی تو یک کاری وارده !!! ) من باید یه ماشین حساب ساده بسازم.تا حالا تونستم تا اونجا پیش برم ( البته از روی کتاب ) که اعداد رو که میزنم تو Text Box نمایش داده میشه.مثلا رو Button عدد 3 میزنم تو Textbox عدد 3 نمایان میشه ( جون خودتون مسخره نکنید ، همینشم واسه من خوبه !!! ) :31::31::31: ولی عدد 0 رو نتونستم کدش رو بنویسم !!! :43: حالا چطوری میتونم کد 4 عمل ریاضی رو وارد کنم ( ضرب / تقسیم / جمع / منها ) یعنی رو Button جمع کلیک بکنم عمل جمع رو انجام بده ( کد عمل جمع و منها و ... ) واسه اطمینان بیشتر فایل پروژه رو هم ضمیمه میکنم.ممنون میشم کمکم کنید !!! قول میدم هر کار گرافیکی داشتید واستون انجام بدم :31::31: !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! NaKhoda BiBaK30-10-2009, 11:14 AMکسی نبود کمک کنه ؟؟؟؟؟ sherwood30-10-2009, 11:34 AMسلام یه ماشین حساب ساده !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! Dim i As Currency Dim j As Currency Dim o As Currency Dim k As Currency Dim p As Currency Dim t As Currency Dim x As Currency Dim b As Currency Dim n As Currency Dim q As Currency Option Explicit Private Sub cmd 0_Click() txt1.Text = txt1.Text & 0 End Sub Private Sub cmd 00_Click() txt1.Text = txt1.Text & 0 & 0 End Sub Private Sub cmd 000_Click() txt1.Text = txt1.Text & 0 & 0 & 0 End Sub Private Sub cmd 1_Click() txt1.Text = txt1.Text & 1 End Sub Private Sub cmd 2_Click() txt1.Text = txt1.Text & 2 End Sub Private Sub cmd 3_Click() txt1.Text = txt1.Text & 3 End Sub Private Sub cmd 4_Click() txt1.Text = txt1.Text & 4 End Sub Private Sub cmd 5_Click() txt1.Text = txt1.Text & 5 End Sub Private Sub cmd 6_Click() txt1.Text = txt1.Text & 6 End Sub Private Sub cmd 7_Click() txt1.Text = txt1.Text & 7 End Sub Private Sub cmd 8_Click() txt1.Text = txt1.Text & 8 End Sub Private Sub cmd 9_Click() txt1.Text = txt1.Text & 9 End Sub Private Sub cmdback_Click() q = Len(txt1.Text) If txt1.Text = Empty Then q = 1 End If txt1.Text = Left(txt1.Text, q - 1) End Sub Private Sub cmdce_Click() txt1.Text = "" End Sub Private Sub cmdhasel_Click() If txt1.Text = "" Then txt1.Text = 0 End If j = txt1.Text If x = 1 Then txt1.Text = i + j Else If x = 2 Then txt1.Text = o - j Else If x = 3 Then txt1.Text = k * j Else If x = 4 Then txt1.Text = p / j End If End If End If End If x = 0 End Sub Private Sub cmdjam_Click() If txt1.Text = "" Then txt1.Text = 0 End If If x = 1 Then txt1.Text = i + txt1.Text End If i = txt1.Text txt1.Text = "" x = 1 End Sub Private Sub cmdkam_Click() If txt1.Text = "" Then txt1.Text = 0 End If If x = 2 Then txt1.Text = o - txt1.Text End If o = txt1.Text txt1.Text = "" x = 2 End Sub Private Sub cmdsqr_Click() If txt1.Text = "" Then txt1.Text = 0 End If txt1.Text = Sqr(txt1.Text) End Sub Private Sub cmdtagh_Click() If txt1.Text = "" Then txt1.Text = 1 End If If x = 4 Then txt1.Text = p / txt1.Text End If p = txt1.Text txt1.Text = "" x = 4 End Sub Private Sub cmdtav_Click() If txt1.Text = "" Then txt1.Text = 0 End If n = txt1.Text t = InputBox("tavan", "Value") For b = 1 To t - 1 txt1.Text = n * txt1.Text Next End Sub Private Sub cmdxx_Click() If txt1.Text = "" Then txt1.Text = 0 End If txt1.Text = txt1.Text * txt1.Text End Sub Private Sub cmdzarb_Click() If txt1.Text = "" Then txt1.Text = 0 End If If x = 3 Then txt1.Text = k * txt1.Text End If k = txt1.Text txt1.Text = "" x = 3 End Sub Private Sub Form_Load() End Sub VBYOFSKI30-10-2009, 01:02 PMسلام. این لینک که خراب بود. ولی تا اونجایی که یادمه باید از تابع استفاده کنی. اگه با تابع آشنایی نداری راههای دیگه هم هست. توضیحش اینجوری میشه که وقتی کاربر عدد وارد میکنه چون هنوز از اپراتورها استفاده نکرده اون عدد اول به حساب میاد پس باید بریزی توی یه متغیر. بعد که از اپراتورها استفاده کرد باید خود اپراتورهم بریزی توی متغیر که بدونی از کدوم استفاده کرده. حالا از اینجا به بعدش هرچی بزنه عدد دوم به حساب میاد تا جایی که = رو بزنه. واسه بیشتر از 3 تا هم وقتی واسه بار دوم از اپراتور استفاده کرد باید دوتا عددی که گرفتی رو عملیتی که کاربر گفته روشون انجام بدی و بریزی تو متغیر اولی حالا عدد سوم رو بریز تو ی متغیر دومی و ....... نمیدونم توضیحش چجوری ولی حالت کلیش اینه. sherwood30-10-2009, 08:08 PMبا سلام لینک چک شد درست بود درسته ولی نوشتن ماشین حساب با تابع دیگه نمیشه یک ماشین حساب ساده NaKhoda BiBaK31-10-2009, 09:39 PMبابا من که نفهمیدم شما چی میگید ؟؟؟؟؟ :31::31::31::31::31: زیر دیپلم صحبت کنید !!! sherwood جان واقعا مرسی از ماشین حساب.خوبه !!! :40::40::40: فقط دوست عزیز یک چیزی که هست.لطفا اون فایل اولی که من تو پست اول گذاشتم رو دانلود کن !!! کدهای General رو ببین. 3 خط کد هست !!! باید ماشین حساب بر حسب این کدهای General باشه !!! حالا نمیدونم چجوری میشه دیگه !!! زیاد سر در نمیارم !!! فقط میدونم باید کدهای General همونایی باشه که تو کتاب هست ... این لینکش !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! دانلودش کن.شیکله اصلیش رو ببین و دکمه هایی که نیازه !!! من فقط تونستم تا اونجایی پیش برم که اعداد تو textbox نمایش داده بشه !!! لطفا این فایل خودم رو دانلود کن و بر اساس اون فقط برام کدهای دکمه های + - * / و عدد صفر رو بنویس !!! مرسی عزیز. :40::40::40::40::40: قول یک پوستر خوب اختصاصی رو بهت میدم ... یا لوگو یا هر چیز دیگه گرافیکی که خواستی ... sanatoramir01-11-2009, 12:06 AMدوست عزیز این رو دانلود کن !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! sanatoramir01-11-2009, 12:15 AMدوست عزیز این رو دانلود کن !!!! برای مشاهده محتوا ، لطفا ثبت نام کنید / وارد شوید !!!! VBYOFSKI01-11-2009, 12:02 PMبا سلام لینک چک شد درست بود درسته ولی نوشتن ماشین حساب با تابع دیگه نمیشه یک ماشین حساب ساده سلام. احتمالا منظور ایشون از ساده نوع ماشین حساب بود، یعنی فقط چهار عمل اصلی رو انجام بده. سایت ما را در گوگل محبوب کنید با کلیک روی دکمه ای که در سمت چپ این منو با عنوان +1 قرار داده شده شما به این سایت مهر تأیید میزنید و به دوستانتان در صفحه جستجوی گوگل دیدن این سایت را پیشنهاد میکنید که این امر خود باعث افزایش رتبه سایت در گوگل میشود

این صفحه را در گوگل محبوب کنید

[ارسال شده از: سایت ریسک]

[مشاهده در: www.ri3k.eu]

[تعداد بازديد از اين مطلب: 325]