دانلود

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

برای خرید سورس پروژه با ما تماس بگیرید یا در نطرات درخواست بدید : majidas2006@gmail.com
صفحه تماس با ما : کلیک کنید
قیمت سورس : ۵ هزار تومان

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

1. zohre می‌گه:

   اردیبهشت ۲۱, ۱۳۹۰ در ۵:۱۲ ب.ظ

   سلام
   پروژه ماشین حساب رو میخواستم

   پاسخ دادن
2. کریم نوربخش می‌گه:

   خرداد ۲۵, ۱۳۹۰ در ۸:۳۰ ق.ظ

   خرید ماشین حساب ساده با ویژیوال بیسیک

   پاسخ دادن
3. ماریا می‌گه:

   شهریور ۲۶, ۱۳۹۲ در ۵:۵۴ ب.ظ

   سلام. پروژه ماشین حساب رو میخواستم با زبان ویژوال بیسیک
   ممنون

   پاسخ دادن
4. فاطمه می‌گه:

   آبان ۱۳, ۱۳۹۳ در ۴:۱۶ ب.ظ

   سلام من این پروژه رو طراحی کردم ولی اعداد ۱ تا۹ اجرا میشه
   Private dblnol As Double, dblno2 As Double
   Private dblresult As Double, dblmemory As Double
   Private strop As String, strno As String
   Private Sub dellblvalue()

   If (strop = “*” Or strop = “/”) Or (strop = “+”) Or (strop = “_”) And (strno = ” “) Then
   lblvalue.Caption = “”
   End If
   End Sub

   Private Sub inputnumber(strdigit As String)
   If strdigit “.” Then
   If (Left(strno, 1) = “0”) And (Mid(strno, 2, 1) “.”) Then
   strno = Mid(strno, 2) + strdigit
   Else
   strno = strno + strdigit
   End If
   Else
   If InStr(1, strno, “.”) = 0 Then
   If Len(lblvalue.Caption) = 0 Then strno = “0”
   Else
   strno = strno + “.”
   End If
   End If
   lblvalue.Caption = srtno
   End Sub

   Private Sub Command10_Click()
   If (strop = “*”) Or (strop = “+”) Or (strop = “_”) Or (strop = “/”) Then
   If (Left(strno, 1) “0”) Or (Mid(strno, 2, 1) = “.”) Then
   strno = strno + “0”
   Else
   strno = “”
   lblvalue.Caption = “”
   End If
   Else
   If (Left(strno, 1) “0”) Or (Mid(strno, 2, 1) = “.”) Then
   strno = strno + “0”
   End If
   End If
   lblvalue.Caption = strno
   End Sub

   Private Sub Command1_Click()
   Call dellblvalue
   Call inputnumber(“1”)
   End Sub

   Private Sub Command2_Click()
   Call dellblvalue
   Call inputnumber(“2”)
   End Sub

   Private Sub Command3_Click()
   Call dellblvalue
   Call inputnumber(“3”)
   End Sub

   Private Sub Command4_Click()
   Call dellblvalue
   Call inputnumber(“4”)
   End Sub

   Private Sub Command5_Click()
   Call dellblvalue
   Call inputnumber(“5”)
   End Sub

   Private Sub Command6_Click()
   Call dellblvalue
   Call inputnumber(“6”)
   End Sub

   Private Sub Command7_Click()
   Call dellblvalue
   Call inputnumber(“7”)
   End Sub

   Private Sub Command8_Click()
   Call dellblvalue
   Call inputnumber(“8”)
   End Sub

   Private Sub Command9_Click()
   Call dellblvalue
   Call inputnumber(“9”)
   End Sub

   Private Sub Cmddot_Click()
   Call dellblvalue
   Call inputnumber(“.”)
   End Sub

   پاسخ دادن
5. فاطمه می‌گه:

   آبان ۱۳, ۱۳۹۳ در ۴:۱۷ ب.ظ

   لطفا کمک کنید

   پاسخ دادن