advertise laitec sharif univercity
دانلود سورس اندروید اپلیکیشن افزایش سرعت گوشی

دانلود سورس اندروید اپلیکیشن افزایش سرعت گوشی

18000 تومان
دانلود سورس پروژه پایانی وب سایت بنگاه املاک با php

دانلود سورس پروژه پایانی وب سایت بنگاه املاک با php

68000 تومان
پروژه پایانی PHP وب سایت فروشگاه کامپیوتری

پروژه پایانی PHP وب سایت فروشگاه کامپیوتری

68000 تومان
دانلود مجموعه 70 پروژه مفید و کاربردی سی شارپ #C

دانلود مجموعه 70 پروژه مفید و کاربردی سی شارپ #C

28000 تومان
سورس پروژه پایانی آزمون گیری با زبان سی شارپ و SQL

سورس پروژه پایانی آزمون گیری با زبان سی شارپ و SQL

18000 تومان

دانلود سورس پروژه ماشین حساب پیشرفته در ویژوال بیسیک vb

این برنامه که در محیط ویژوال بیسیک vb6 نوشته شده است ، یک ماشین حساب بسیار پیشرفته شامل توابع زیادی می باشد.
دانلود سورس پروژه ماشین حساب پیشرفته در ویژوال بیسیک vb

این برنامه که در محیط 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 Double
Private 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).Caption
flag = False
End Sub
Private Sub bs_Click()
L.Caption = Left(L.Caption, Len(L.Caption) - 1)
If Len(L.Caption) = 0 Then L.Caption = "0"
End Sub
Private 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 Sub
Private Sub Ce_Click()
L.Caption = "0"
mem = 0
b1.Caption = ""
End Sub
Private Sub Clear_Click()
L.Caption = "0"
sign = ""
flag = True
sf = False
fm = False
End Sub
Private 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 If
fm = True
End Sub
Private Sub div_1_Click()
If L.Caption = "0" Then
  L.Caption = "error"
Else
  L.Caption = 1 / Val(L.Caption)
End If
End Sub
Private Sub eq_Click()
If (flag = True) Then Exit Sub
q = 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 Select
L.Caption = p
sf = False
flag = True
sign = ""
fm = False
End Sub
Private 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 Sub
Private 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 Sub
Private Sub Form_Load()
L.Caption = "0"
sign = ""
flag = True
sf = False
End Sub
Private Sub int_Click()
L.Caption = Int(Val(L.Caption))
End Sub
 
Private Sub Label2_Click()
End Sub
Private Sub M_Click()
mem = mem + Val(L.Caption)
End Sub
Private Sub mc_Click()
mem = 0
b1.Caption = ""
End Sub
Private Sub MR_Click()
L.Caption = mem
End Sub
Private Sub MS_Click()
mem = Val(L.Caption)
b1.Caption = "M"
End Sub
 
Private Sub pi_Click()
L.Caption = "3.1415926535897932384626433832795"
End Sub
Private Sub pm_Click(Index As Integer)
L.Caption = -Val(L.Caption)
End Sub
Private Sub s_Click(Index As Integer)
If (flag = True And sign <> "") Then Exit Sub
flag = True
If (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 Sub
Private Sub tavan_2_Click()
L.Caption = Val(L.Caption) * Val(L.Caption)
flag = True
End Sub
Private Sub tavan_3_Click()
L.Caption = Val(L.Caption) * Val(L.Caption) * Val(L.Caption)
flag = True
End Sub
 
Private Sub xp_Click()
L.Caption = Exp(Val(L.Caption))
End Sub

 

هم اکنون می توانید سورس این پروژه را به صورت رایگان دانلود کنید

حجم فایل :30 KB



لینک های دانلود

دانلود کنید رمز فایل : www.sourcecodes.ir












3
نظرات
  • user avatar KING.ADE75:
    ۱۶:۰۰:۲۰ __ ۱۳۹۳/۰۷/۱۸

    مرسیییییییییییی

  • user avatar W113:
    ۲۳:۴۹:۰۷ __ ۱۳۹۴/۰۱/۲۴

    خیلی ممنونمدستتون درد نکنه.

  • user avatar حامد:
    ۱۷:۰۰:۱۴ __ ۱۳۹۴/۰۲/۰۴

    سلام...لطفا اصطلاحات نوشته شده در سورس کد ماشین حساب را توضیح دهید...مثلا اینکه mod چه کاربردی دارد یا flag , sing و... .برای ارائه ی پروژه نیاز دارم...ممنون...

نظر خود را ارسال کنید



نام:
ایمیل:
دیدگاه:
captcha
کد امنیتی :


advertise
کد ماشین حساب در ویژوال بیسیکسورس کد پروژه ماشین حساب پیشرفتهدانلود رایگان ماشین حساب با ویژوال بیسیکدانلود ماشین حساب با vb6سورس کد ماشین حساب پیشرفته در ویژوال بیسیکماشین حساب با ویژوال بیسیکتبلیغات ارزان سایت آموزش برنامه نویسیتبلیغات مخصوص طراحان وب سایتتبلیغات در سایت برنامه نویسیتبلیغات اینترنتی برای برنامه نویساندر آغوش مینیمالیسممنوی همبرگر با سه خط افقی که روی یکدیگر قرار گرفته اند نشانه چیست؟ سوئیچ به یک ستون واحدتبدیل متن ساده به وبلاگ و سایت های پویا با React.jsکتابخانه sass برای استفاده آسان تر از آنکتابخانه سطح بالا برای اتوماتیک سازی اعمال مرورگر لیست برچسب ها
تمامی حقوق این سایت اعم از محتوی ، تصاویر ، قالب و ... متعلق به گروه مهندسی وب سایت سورس کد می باشد.
SourceCodes.ir ، افقی روشن برای برنامه نویسان ، از مبتدی تا حرفه ای

پیشنهادات ویژه سورس کد

پکیج ویژه پروژه پایانی رشته کامپیوتر دانلود مجموعه 70 پروژه کاربردی سی شارپ وب سایت فروشگاه با php