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

دانلود

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

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

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

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

    لطفا کمک کنید

پاسخ دهید