پروژه ماشین حساب پیشرفته برای شما عزیزان
رمز فایل : www.2daydownload.com
برچسب ها :,Calculator, برنامه, پروژه, پروژه ویژوال, پروژه ویژوال بیسیک, حساب مهندسی, ماشین حساب, ماشین حساب پیشرفته, ماشین حساب ساده, ویژوا
15 پاسخ به “پروژه ماشین حساب مهندسی با زبان ویژوال بیسیک”
دیدگاهتان را بنویسید
ابر برچسب ها
من فققط قسمت جذر و سین.س و کسینوس را میخواستم
سلام زهره خانوم .
پاسخ سوالی که در سایت ۲downlaod.com پرسیده بودید:
برای جذر گرفتن باید یک tetxbox ایجاد کنید . بعد یک command هم ایجاد کنید و بعد به کامنت برید و بنویسید.
(text1=sqr(text1 برای جذر
(text1=sin(text1 برای سینوس
(text1=cos(text1 برای کوسینوس .
اگه جواب نداد یه ایمیل کوچولو برنید . . .
این ماشین حساب که مهندسی نیست ماشین حساب مهندسی نباید اعداد بزرگتر ۱۷ رقم را با نماد علمی نمایش دهد
لطفا سورس این بنامه رو هم بزارید
خیلی خوب بود.
فقط اگه سورسش رو هم بزارید که عالی میشه.
خیلیییی منون واقعآ به دردم خورد.
با سلام اگر ممکنه برنامه ویژال بیسیک رو میخواستم چند تا سیدی خریدم هیچکدوم کار نکردن
با سلام اگر میشه برنامه ویژال رو برام بفرستید چند تا سی دی خریدم وسط نصب الکی قطع میکنه چند وقت پیش یدونه نصب کردم تا چند روز پیش ویندوزم پرید اگه میشه کمکم کنید ممنون میشم
سلام.. مندانش آموز پایه ی دوم دبیرستان رشته کامپیوتر هستم.. برنامه ی ماشین حساب رو نوشتم اما جواب نمیده.اگه میشه برنامم رو چک کنید و بگید مشکلش کجاست و برام میلش کنید.ممنون
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
سلام. مطالب خیلی خوبی داری.
من خودم تازه برنامه نویسی رو دارم یاد میگیرم . ولی نمیتونم توی ماشین حساب mod و backspace و توان رو بنویسیم. تورو خدا کمکم کنید .
با تشکر فراوان
داریوش
سلام عزیز جون ممنون میشم اگه کد برنامه نویسی ماشین حساب به زبان ویژوال بیسیک رو واسم ایمیل کنی.
قسمت مساوی را می خواهم
اقا یکی به من بگه رادیکال رو با صفحه کلید چطوری باید بنویسی؟
رمزش چیه؟