رمز فایل : www.2daydownload.com
برای خرید سورس پروژه با ما تماس بگیرید یا در نطرات درخواست بدید : majidas2006@gmail.com
صفحه تماس با ما : کلیک کنید
قیمت سورس : ۵ هزار تومان
برچسب ها :,Advanced, Calculator, simple, VB, Visual Basic, پروژه, پیشرفته, ساده, ماشین, ماشین حساب, ماشین حساب ساده, ویژوال بیسیک
5 پاسخ به “پروژه ماشین حساب ساده با زبان ویژوال بیسیک”
دیدگاهتان را بنویسید
ابر برچسب ها
سلام
پروژه ماشین حساب رو میخواستم
خرید ماشین حساب ساده با ویژیوال بیسیک
سلام. پروژه ماشین حساب رو میخواستم با زبان ویژوال بیسیک
ممنون
سلام من این پروژه رو طراحی کردم ولی اعداد ۱ تا۹ اجرا میشه
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
لطفا کمک کنید