تبلیغات
Ads
تبلیغات
Ads
گفتگو با مدیر
Chat
آخرين مطالب سایت
last posts
پر بازدید ترین مطالب
Top Posts
محبوبترین ها
Popular Posts
آخرين نظرات
Last comments

دانلود

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

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

موضوع : برترین ها, پروژه, ویژوال بیسیک
تاریخ ارسال : ۲۸ بهمن ۱۳۸۹  ,  بازدید : 15,142 بازدید ,  نظرات : ۵   ,  نویسنده : 

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. فاطمه می‌گه:

    لطفا کمک کنید

پاسخ دهید