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

[NaKhoda BiBaK]

سلام.
خسته نباشید همه اساتید !!!
هــــــــــــــــــــــی !!! تو انجمن فتوشاپ همه به من میگن استاد :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 BiBaK]

کسی نبود کمک کنه ؟؟؟؟؟

[sherwood]

سلام
یه ماشین حساب ساده

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

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 cmd0_Click()
txt1.Text = txt1.Text & 0
End Sub

Private Sub cmd00_Click()
txt1.Text = txt1.Text & 0 & 0
End Sub

Private Sub cmd000_Click()
txt1.Text = txt1.Text & 0 & 0 & 0
End Sub

Private Sub cmd1_Click()
txt1.Text = txt1.Text & 1
End Sub

Private Sub cmd2_Click()
txt1.Text = txt1.Text & 2
End Sub

Private Sub cmd3_Click()
txt1.Text = txt1.Text & 3
End Sub

Private Sub cmd4_Click()
txt1.Text = txt1.Text & 4
End Sub

Private Sub cmd5_Click()
txt1.Text = txt1.Text & 5
End Sub

Private Sub cmd6_Click()
txt1.Text = txt1.Text & 6
End Sub

Private Sub cmd7_Click()
txt1.Text = txt1.Text & 7
End Sub

Private Sub cmd8_Click()
txt1.Text = txt1.Text & 8
End Sub

Private Sub cmd9_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

[VBYOFSKI]

سلام.
این لینک که خراب بود.
ولی تا اونجایی که یادمه باید از تابع استفاده کنی. اگه با تابع آشنایی نداری راههای دیگه هم هست.
توضیحش اینجوری میشه که وقتی کاربر عدد وارد میکنه چون هنوز از اپراتورها استفاده نکرده اون عدد اول به حساب میاد پس باید بریزی توی یه متغیر. بعد که از اپراتورها استفاده کرد باید خود اپراتورهم بریزی توی متغیر که بدونی از کدوم استفاده کرده. حالا از اینجا به بعدش هرچی بزنه عدد دوم به حساب میاد تا جایی که = رو بزنه.
واسه بیشتر از 3 تا هم وقتی واسه بار دوم از اپراتور استفاده کرد باید دوتا عددی که گرفتی رو عملیتی که کاربر گفته روشون انجام بدی و بریزی تو متغیر اولی حالا عدد سوم رو بریز تو ی متغیر دومی و .......

نمیدونم توضیحش چجوری ولی حالت کلیش اینه.

[sherwood]

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

[NaKhoda BiBaK]

بابا من که نفهمیدم شما چی میگید ؟؟؟؟؟ :31::31::31::31::31:

زیر دیپلم صحبت کنید !!!

sherwood جان واقعا مرسی از ماشین حساب.خوبه !!! :40::40::40:

فقط دوست عزیز یک چیزی که هست.لطفا اون فایل اولی که من تو پست اول گذاشتم رو دانلود کن !!! کدهای General رو ببین. 3 خط کد هست !!! باید ماشین حساب بر حسب این کدهای General باشه !!!

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

این لینکش


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

دانلودش کن.شیکله اصلیش رو ببین و دکمه هایی که نیازه !!!
من فقط تونستم تا اونجایی پیش برم که اعداد تو textbox نمایش داده بشه !!!

لطفا این فایل خودم رو دانلود کن و بر اساس اون فقط برام کدهای دکمه های + - * / و عدد صفر رو بنویس !!!

مرسی عزیز. :40::40::40::40::40:

قول یک پوستر خوب اختصاصی رو بهت میدم ...
یا لوگو یا هر چیز دیگه گرافیکی که خواستی ...

[sanatoramir]

دوست عزیز این رو دانلود کن


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[sanatoramir]

دوست عزیز این رو دانلود کن


برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید

[VBYOFSKI]

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


سلام.
احتمالا منظور ایشون از ساده نوع ماشین حساب بود، یعنی فقط چهار عمل اصلی رو انجام بده.