تبلیغات :
ماهان سرور
آکوستیک ، فوم شانه تخم مرغی ، پنل صداگیر ، یونولیت
فروش آنلاین لباس کودک
خرید فالوور ایرانی
خرید فالوور اینستاگرام
خرید ممبر تلگرام

[ + افزودن آگهی متنی جدید ]




نمايش نتايج 1 به 9 از 9

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

  1. #1
    Banned
    تاريخ عضويت
    Sep 2009
    محل سكونت
    یک گوشه از خاک ...
    پست ها
    578

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

    سلام.
    خسته نباشید همه اساتید !!!
    هــــــــــــــــــــــی !!! تو انجمن فتوشاپ همه به من میگن استاد :43::43: و به همه کمک میکنم حالا باید تو VB از دوستان کمک بگیرم !!!

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

    ( دوستان شوخی کردم ... به هر حال هر کسی تو یک کاری وارده !!! )

    من باید یه ماشین حساب ساده بسازم.تا حالا تونستم تا اونجا پیش برم ( البته از روی کتاب ) که اعداد رو که میزنم تو Text Box نمایش داده میشه.مثلا رو Button عدد 3 میزنم تو Textbox عدد 3 نمایان میشه ( جون خودتون مسخره نکنید ، همینشم واسه من خوبه !!! )
    ولی عدد 0 رو نتونستم کدش رو بنویسم !!! :43:

    حالا چطوری میتونم کد 4 عمل ریاضی رو وارد کنم ( ضرب / تقسیم / جمع / منها ) یعنی رو Button جمع کلیک بکنم عمل جمع رو انجام بده ( کد عمل جمع و منها و ... )

    واسه اطمینان بیشتر فایل پروژه رو هم ضمیمه میکنم.ممنون میشم کمکم کنید !!!

    قول میدم هر کار گرافیکی داشتید واستون انجام بدم

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

  2. #2
    Banned
    تاريخ عضويت
    Sep 2009
    محل سكونت
    یک گوشه از خاک ...
    پست ها
    578

    پيش فرض

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

  3. #3
    داره خودمونی میشه sherwood's Avatar
    تاريخ عضويت
    Nov 2005
    محل سكونت
    sari
    پست ها
    158

    پيش فرض

    سلام
    یه ماشین حساب ساده
    کد:
    برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
    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
    Last edited by sherwood; 30-10-2009 at 11:36.

  4. #4
    پروفشنال VBYOFSKI's Avatar
    تاريخ عضويت
    Jul 2008
    محل سكونت
    تهرانسر
    پست ها
    832

    پيش فرض

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

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

  5. #5
    داره خودمونی میشه sherwood's Avatar
    تاريخ عضويت
    Nov 2005
    محل سكونت
    sari
    پست ها
    158

    پيش فرض

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

  6. #6
    Banned
    تاريخ عضويت
    Sep 2009
    محل سكونت
    یک گوشه از خاک ...
    پست ها
    578

    پيش فرض

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

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

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

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

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

    این لینکش

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

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

    مرسی عزیز.

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




  7. #7
    اگه نباشه جاش خالی می مونه
    تاريخ عضويت
    Oct 2007
    محل سكونت
    شیراز
    پست ها
    410

    پيش فرض

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

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

  8. #8
    اگه نباشه جاش خالی می مونه
    تاريخ عضويت
    Oct 2007
    محل سكونت
    شیراز
    پست ها
    410

    پيش فرض

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

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

  9. #9
    پروفشنال VBYOFSKI's Avatar
    تاريخ عضويت
    Jul 2008
    محل سكونت
    تهرانسر
    پست ها
    832

    پيش فرض

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

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

Thread Information

Users Browsing this Thread

هم اکنون 1 کاربر در حال مشاهده این تاپیک میباشد. (0 کاربر عضو شده و 1 مهمان)

User Tag List

قوانين ايجاد تاپيک در انجمن

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