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

دانلود

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

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. الهام گفت:

    اسفند ۱۹, ۱۳۹۳ در ۷:۵۸ ب.ظ

    رمزش چیه؟

    پاسخ
14. ana گفت:

    فروردین ۲۲, ۱۳۹۴ در ۲:۲۰ ب.ظ

    vaghean moteasefam, lotfan adabo raayat konid

    پاسخ