تبلیغات
Ads
تبلیغات
Ads
گفتگو با مدیر
Chat
آخرين مطالب سایت
last posts
پر بازدید ترین مطالب
Top Posts
محبوبترین ها
Popular Posts
آخرين نظرات
Last comments

پروژه ماشین حساب پیشرفته برای شما عزیزان

دانلود

رمز فایل :  www.2daydownload.com

موضوع : پروژه, ویژوال بیسیک
تاریخ ارسال : ۲۵ اسفند ۱۳۸۹  ,  بازدید : 22,902 بازدید ,  نظرات : ۱۵   ,  نویسنده : 

15 پاسخ به “پروژه ماشین حساب مهندسی با زبان ویژوال بیسیک”

  1. zohreh می‌گه:

    من فققط قسمت جذر و سین.س و کسینوس را میخواستم

    • داریوش می‌گه:

      سلام زهره خانوم .
      پاسخ سوالی که در سایت ۲downlaod.com پرسیده بودید:
      برای جذر گرفتن باید یک tetxbox ایجاد کنید . بعد یک command هم ایجاد کنید و بعد به کامنت برید و بنویسید.
      (text1=sqr(text1 برای جذر
      (text1=sin(text1 برای سینوس
      (text1=cos(text1 برای کوسینوس .

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

  2. اسماعیل حاتمی می‌گه:

    این ماشین حساب که مهندسی نیست ماشین حساب مهندسی نباید اعداد بزرگتر ۱۷ رقم را با نماد علمی نمایش دهد

  3. yasin می‌گه:

    لطفا سورس این بنامه رو هم بزارید

  4. keyhan می‌گه:

    خیلی خوب بود.
    فقط اگه سورسش رو هم بزارید که عالی میشه.

  5. عارفه می‌گه:

    خیلیییی منون واقعآ به دردم خورد.

  6. محمد می‌گه:

    با سلام اگر ممکنه برنامه ویژال بیسیک رو میخواستم چند تا سیدی خریدم هیچکدوم کار نکردن

  7. محمد می‌گه:

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

  8. fazeleh می‌گه:

    سلام.. مندانش آموز پایه ی دوم دبیرستان رشته کامپیوتر هستم.. برنامه ی ماشین حساب رو نوشتم اما جواب نمیده.اگه میشه برنامم رو چک کنید و بگید مشکلش کجاست و برام میلش کنید.ممنون

    Dim op As String * 1, strlastinput As String
    Dim n1 As Double
    Dim dblpi As Double

    Private Function cals(a As Double, b As Double, op As String) As Double
    Select Case op
    Case “*”
    calc = a * b
    Case “-”
    calc = a – b
    Case “+”
    calc = a + b
    Case “/”
    calc = a / b
    Case ” ”
    calc = b
    End Select

    End Function

    Private Sub cmd0_Click()
    If Len(lbloutput) = 20 Then Exit Sub
    If strlastinput “nums” Then
    lbloutput = IIf(blnpoint, lbloutput + “0”, “0.”)
    Else
    lbloutput = lbloutput + “0”
    End If
    strlastinput = “nums”
    End Sub

    Private Sub cmd1_Click()
    If Len(lbloutput) = 20 Then Exit Sub
    If strlastinput “nums” Then
    lbloutput = IIf(blnpoint, lbloutput + “1”, “1”)
    Else
    lbloutput = lbloutput + “1”
    End If
    strlastinput = “nums”
    End Sub

    Private Sub cmd2_Click()
    If Len(lbloutput) = 20 Then Exit Sub
    If strlastinput “nums” Then
    lbloutput = IIf(blnpoint, lbloutput + “2”, “2”)
    Else
    lbloutput = lbloutput + “2”
    End If
    strlastinput = “nums”
    End Sub

    Private Sub cmd3_Click()
    If Len(lbloutput) = 20 Then Exit Sub
    If strlastinput “nums” Then
    lbloutput = IIf(blnpoint, lbloutput + “3”, “3”)
    Else
    lbloutput = lbloutput + “3”
    End If
    strlastinput = “nums”
    End Sub

    Private Sub cmd4_Click()
    If Len(lbloutput) = 20 Then Exit Sub
    If strlastinput “nums” Then
    lbloutput = IIf(blnpoint, lbloutput + “4”, “4”)
    Else
    lbloutput = lbloutput + “4”
    End If
    strlastinput = “nums”
    End Sub

    Private Sub cmd5_Click()
    If Len(lbloutput) = 20 Then Exit Sub
    If strlastinput “nums” Then
    lbloutput = IIf(blnpoint, lbloutput + “5”, “5”)
    Else
    lbloutput = lbloutput + “5”
    End If
    strlastinput = “nums”
    End Sub

    Private Sub cmd6_Click()
    If Len(lbloutput) = 20 Then Exit Sub
    If strlastinput “nums” Then
    lbloutput = IIf(blnpoint, lbloutput + “6”, “6”)
    Else
    lbloutput = lbloutput + “6”
    End If
    strlastinput = “nums”
    End Sub

    Private Sub cmd7_Click()
    If Len(lbloutput) = 20 Then Exit Sub
    If strlastinput “nums” Then
    lbloutput = IIf(blnpoint, lbloutput + “7”, “7”)
    Else
    lbloutput = lbloutput + “7”
    End If
    strlastinput = “nums”
    End Sub

    Private Sub cmd8_Click()
    If Len(lbloutput) = 20 Then Exit Sub
    If strlastinput “nums” Then
    lbloutput = IIf(blnpoint, lbloutput + “8”, “8”)
    Else
    lbloutput = lbloutput + “8”
    End If
    strlastinput = “nums”
    End Sub

    Private Sub cmd9_Click()
    If Len(lbloutput) = 20 Then Exit Sub
    If strlastinput “nums” Then
    lbloutput = IIf(blnpoint, lbloutput + “9”, “9”)
    Else
    lbloutput = lbloutput + “9”
    End If
    strlastinput = “nums”
    End Sub

    Private Sub cmdbks_Click()
    Dim L As Byte
    L = Len(lbloutput)
    If L > 0 Then
    lbloutput = Left(lbloutput, L – 1)
    End If
    If Val(lbloutput) = 0 Then
    lbloutput = False
    End If
    strlastinput = “”

    End Sub

    Private Sub cmdc_Click()
    n1 = 1
    op = “”
    lbloutput = “0.”
    strlastinput = “”
    blnpoint = False

    End Sub

    Private Sub cmdce_Click()
    lbloutput = “0.”
    strlastinput = “op”
    blnpoint = False

    End Sub

    Private Sub cmdcos_Click()
    Dim dblR As Double
    dblR = Val(lbloutput) / 180 * dblpi
    lbloutput = Cos(dblR)
    If Val(lbloutput) < 1E-16 Then lbloutput = "0."
    strlastinput = "nums"

    End Sub

    Private Sub cmdcot_Click()
    Dim bdlR As Double
    dblR = Val(lbloutput) / 180 * dblpi
    If dblR = 0 Then
    MsgBox "cannot division by zero", vbCritical, "error"
    Exit Sub
    End If
    lbloutput = 1 / Tan(dblR)
    If Val(lbloutput) 1E+16 Then MsgBox “invalid Inputfunction”, vbCritical, “error”
    strlastinput = “nums”

    End Sub

    Private Sub cmddiv_Click()
    If strlastinput = “nums” Then
    n1 = cals(n1, Val(lbloutput), op)
    lbloutput = n1
    End If
    n1 = Val(lbloutput)
    op = “/”
    strlastinput = “op”
    blnpoit = False
    End Sub

    Private Sub cmdeqal_Click()
    n1 = cals(n1, Val(lbloutput), op)
    If n1 = 0 Then
    lbloutput = “0.”
    Else
    lbloutput = n1
    End If
    op = “”
    strlastinput = “op”
    blnpoint = False

    End Sub

    Private Sub cmdlog_Click()
    Dim dblN As Double
    dblN = Val(lbloutput)
    If dblN <= 0 Then
    MsgBox "invalid input function", vbCritical, "Error"
    Exit Sub
    End If
    lbloutput = Log(dblN) / Log(10)
    If Val(lbloutput) 1E+16 Then MsgBox “invalid input function”, vbCritical, “Error”
    strlastinput = “op”

    End Sub

    Private Sub cmdmc_Click()
    dblm = 0
    lbl = “”
    strlastinput = “”
    End Sub

    Private Sub cmdminus_Click()
    If strlastinput = “nums” Then
    n1 = cals(n1, Val(lbloutput), op)
    lbloutput = n1
    End If
    n1 = Val(lbloutput)
    op = “-”
    strlastinput = “op”
    blnpoit = False
    End Sub

    Private Sub cmdmp_Click()
    dblm = dblm + Val(lbloutput)
    lblM = “M”
    strlastinpuy = “op”

    End Sub

    Private Sub cmdmr_Click()
    lbloutput = IIf(dblm = 0, “0.”, dblm)
    strlastinput = “nums”
    If InStr(lblout, “.”) 0 Then blnpoint = True

    End Sub

    Private Sub cmdms_Click()
    dblm = Val(lbloutput)
    lblM = “M”
    strlastinput = “op”
    blnpoint = False

    End Sub

    Private Sub cmdmul_Click()
    If strlastinput = “nums” Then
    n1 = cals(n1, Val(lbloutput), op)
    lbloutput = n1
    End If
    n1 = Val(lbloutput)
    op = “*”
    strlastinput = “op”
    blnpoit = False
    End Sub

    Private Sub cmdpi_Click()
    lbloutput = dblpi
    strlastinput = “nums”

    End Sub

    Private Sub cmdplus_Click()
    If strlastinput = “nums” Then
    n1 = cals(n1, Val(lbloutput), op)
    lbloutput = n1
    End If
    n1 = Val(lbloutput)
    op = “+”
    strlastinput = “op”
    blnpoit = False
    End Sub

    Private Sub cmdpoint_Click()
    blnpoit = True
    If InStr(lbloutput, “.”) = 0 Then
    lbloutput = lbloutput + “.”
    End If
    End Sub

    Private Sub cmdpower2_Click()

    Dim dblN As Double
    dblN = Val(lbloutput)
    lbloutput = dblN ^ 2
    If Val(lbloutput) 1E+16 Then MsgBox “invalid Inputfunction”, vbCritical, “error”
    strlastinput = “op”

    End Sub

    Private Sub cmdpowerxy_Click()
    If strlastinpput = “nums” Then
    n1 = cals(n1, Val(lbloutput), op)
    lbloutput = n1
    End If
    n1 = Val(lbloutput)
    op = “^”
    strlastinput = “op”
    blnpoint = False

    End Sub

    Private Sub cmdreverse_Click()
    Dim dblN As Double
    dblN = Val(lbloutput)
    If dblN = 0 Then
    MsgBox “invalid Inputfunction”, vbCritical, “error”
    Exit Sub
    End If
    lbloutput = 1 / dblN
    If Val(lbloutput) < 0.00000000000001 Then lbloutput = "0."
    strlastinput = "op"

    End Sub

    Private Sub cmdsign_Click()
    If lbloutput = "0." And blnpoit = False Then
    Exit Sub
    End If
    If lbloutput = "0." Then
    lbloutput = "-0."
    Else
    lbloutput = -Val(lbloutput)
    End If

    End Sub

    Private Sub cmdsin_Click()
    Dim dblR As Double
    dblR = Val(lbloutput) / 180 * dblpi
    lbloutput = Sin(dblR)
    If Val(lbloutput) < 1E-16 Then lbloutput = "0."
    strlastinput = "nums"

    End Sub

    Private Sub cmdsqr_Click()
    Dim dblN As Double
    dblN = Val(lbloutput)
    If dblN < 0 Then
    MsgBox "invalid Inputfunction", vbCritical, "error"
    Exit Sub
    End If
    lbloutput = Sqr(dblN)
    If Val(lbloutput) 1E+16 Then MsgBox “invalid Inputfunction”, vbCritical, “error”
    strlastinput = “op”

    End Sub

    Private Sub cmdtan_Click()
    Dim dblR As Double
    dblR = Val(lbloutput) / 180 * bdlpi
    lbloutput = Tan(dblR)
    If Val(dblloutput) 1E+16 Then MsgBox “invalid Inputfunction”, vbCritical, “error”
    strlastinput = “nums”

    End Sub

    Private Sub Form_Load()
    n1 = 1
    op = “”
    strlastinput = “”
    lblM = “”
    dblpi = 4 * Atn(1)

    End Sub

  9. داریوش می‌گه:

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

  10. هستی می‌گه:

    سلام عزیز جون ممنون میشم اگه کد برنامه نویسی ماشین حساب به زبان ویژوال بیسیک رو واسم ایمیل کنی.

  11. حسین می‌گه:

    قسمت مساوی را می خواهم

  12. حسین می‌گه:

    اقا یکی به من بگه رادیکال رو با صفحه کلید چطوری باید بنویسی؟

  13. الهام می‌گه:

    رمزش چیه؟

پاسخ دهید