دانلود سورس پروژه ماشین حساب پیشرفته در ویژوال بیسیک vb
این برنامه که در محیط ویژوال بیسیک vb6 نوشته شده است ، یک ماشین حساب بسیار پیشرفته شامل توابع زیادی می باشد.
این برنامه که در محیط vb6 برنامه نویسی شده است یک ماشین حساب پیشرفته می باشد. که علاوه بر انجام چهار عمل اصلی : جمع و تفریق و ضرب و جمع ، عملیات های پیشرفته تری را نیز انجام می دهد.
که می توان به مواردی از آنها اشاره کرد:
- ذخیزه و بازیابی عدد در حافظه
- backspace
- مود
- توان
- جذر
- لوگاریتم
- تانژانت
- کوتانژانت
- سینوس
- کوسینوس
- قدر مطلق
- and
- or
- not
- xor
- و ...
اصل برنامه را می توانید در پایین صفحه دانلود کنید
اینم سورس کد برنامه که می توانید در محیط vb6 از آن بهره بگیرید:
Public p, q, mem, z, n, d As Double
Public flag, sf, fm As Boolean
Public sign, cs, e As String
Public i As Integer
Public f, fi, j As DoublePrivate Sub a_Click(Index As Integer)If flag = True Then L.Caption = ""If L.Caption = "0" Or L.Caption = "error" Then
L.Caption = ""
End If
L.Caption = L.Caption + a(Index).Captionflag = False
End SubPrivate Sub bs_Click()
L.Caption = Left(L.Caption, Len(L.Caption) - 1)
If Len(L.Caption) = 0 Then L.Caption = "0"
End SubPrivate Sub C_Click(Index As Integer)
cs = c(Index).Caption
Select Case (cs)
Case "sin"
L.Caption = (L.Caption * 3.14) / 180
L.Caption = Math.Sin(Val(L.Caption))
flag = True
Case "cos"
L.Caption = (L.Caption * 3.14) / 180
L.Caption = Math.Cos(Val(L.Caption))
flag = True
Case "tan"
L.Caption = (L.Caption * 3.14) / 180
L.Caption = Math.Tan(Val(L.Caption))
flag = True
Case "sqrt"
L.Caption = Math.Sqr(Val(L.Caption))
flag = True
Case "abs"
L.Caption = Math.Abs(Val(L.Caption))
flag = True
Case "rnd"
L.Caption = Math.Rnd(Val(L.Caption))
flag = True
Case "log"
L.Caption = Math.Log(Val(L.Caption))
flag = True
Case "Not"
d = Val(L.Caption)
L.Caption = Not (Val(L.Caption))
flag = True
End Select
End SubPrivate Sub Ce_Click()
L.Caption = "0"
mem = 0
b1.Caption = ""
End SubPrivate Sub Clear_Click()
L.Caption = "0"
sign = ""
flag = True
sf = False
fm = False
End SubPrivate Sub Cp_Click()
If fm = False Then
If Len(L.Caption) = 0 Then
L.Caption = "0."
Else
L.Caption = L.Caption + "."
End If
Else
Exit Sub
End Iffm = True
End SubPrivate Sub div_1_Click()
If L.Caption = "0" Then
L.Caption = "error"
Else
L.Caption = 1 / Val(L.Caption)
End If
End SubPrivate Sub eq_Click()
If (flag = True) Then Exit Subq = Val(L.Caption)
Select Case (sign)
Case "+"
p = p + q
Case "-"
p = p - q
Case "*"
p = p * q
Case "/"
If q = 0 Then
L.Caption = "error"
sf = False
sign = ""
Exit Sub
Else
p = p / q
End If
Case "%"
p = p * (q / 100)
Case "x^y"
p = Exp(q * Log(p))
Case "And"
p = p And q
Case "Xor"
p = p Xor q
Case "Or"
p = p Or q
Case ""
Exit Sub
End SelectL.Caption = psf = False
flag = True
sign = ""
fm = False
End SubPrivate Sub f_e_Click()
n = Val(L.Caption)
For z = 1 To n
d = n / z
If n Mod z = 0 Then
e = e + Str(z)
End If
Next z
L.Caption = e
End SubPrivate Sub fa_Click()
If Sgn(Val(L.Caption)) = -1 Then
L.Caption = "error"
sf = False
sign = ""
Else
f = 1
For fi = Val(L.Caption) To 2 Step -1
f = f * fi
Next fi
L.Caption = f
flag = True
End If
End SubPrivate Sub Form_Load()
L.Caption = "0"
sign = ""
flag = True
sf = False
End SubPrivate Sub int_Click()
L.Caption = Int(Val(L.Caption))
End SubPrivate Sub Label2_Click()End SubPrivate Sub M_Click()
mem = mem + Val(L.Caption)
End SubPrivate Sub mc_Click()
mem = 0
b1.Caption = ""
End SubPrivate Sub MR_Click()
L.Caption = mem
End SubPrivate Sub MS_Click()
mem = Val(L.Caption)
b1.Caption = "M"End SubPrivate Sub pi_Click()
L.Caption = "3.1415926535897932384626433832795"
End SubPrivate Sub pm_Click(Index As Integer)
L.Caption = -Val(L.Caption)
End SubPrivate Sub s_Click(Index As Integer)If (flag = True And sign <> "") Then Exit Subflag = TrueIf (sf = False) Then
p = Val(L.Caption)
sf = True
Else
Select Case (sign)
Case "+"
p = p + Val(L.Caption)
Case "-"
p = p - Val(L.Caption)
Case "*"
p = p * Val(L.Caption)
Case "/"
If L.Caption = "0" Then
L.Caption = "error"
sf = False
sign = ""
Exit Sub
Else
p = p / Val(L.Caption)
End If
Case "%"
p = p * (Val(L.Caption) / 100)
Case "x^y"
p = Exp(q * Log(p))
Case "And"
p = p And q
Case "Xor"
p = p Xor q
Case "Or"
p = p Or q
Case ""
Exit Sub
End Select
End If
L.Caption = p
sign = s(Index).Caption
End SubPrivate Sub tavan_2_Click()
L.Caption = Val(L.Caption) * Val(L.Caption)
flag = True
End SubPrivate Sub tavan_3_Click()
L.Caption = Val(L.Caption) * Val(L.Caption) * Val(L.Caption)
flag = True
End SubPrivate Sub xp_Click()
L.Caption = Exp(Val(L.Caption))
End Sub
هم اکنون می توانید سورس این پروژه را به صورت رایگان دانلود کنید
حجم فایل :30 KB
3
نظرات
.gif)
مرسیییییییییییی
خیلی ممنونمدستتون درد نکنه.
سلام...لطفا اصطلاحات نوشته شده در سورس کد ماشین حساب را توضیح دهید...مثلا اینکه mod چه کاربردی دارد یا flag , sing و... .برای ارائه ی پروژه نیاز دارم...ممنون...