دانلود

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

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

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

1. zohre گفت:

   می 11, 2011 در 5:12 ب.ظ

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

   پاسخ
2. کریم نوربخش گفت:

   ژوئن 15, 2011 در 8:30 ق.ظ

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

   پاسخ
3. ماریا گفت:

   سپتامبر 17, 2013 در 5:54 ب.ظ

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

   پاسخ
4. فاطمه گفت:

   نوامبر 4, 2014 در 4:16 ب.ظ

   سلام من این پروژه رو طراحی کردم ولی اعداد ۱ تا۹ اجرا میشه
   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. فاطمه گفت:

   نوامبر 4, 2014 در 4:17 ب.ظ

   لطفا کمک کنید

   پاسخ