آخرين پست هاي ارسالي انجمن ايران دلفي

تماشای رایگان فیلم ایرانی ، خارجی و کودک آکادمی دلفی
نمایش نتایج: از 1 به 1 از 1

موضوع: برنامه نویسی ماشین حساب در ویژوال بیسیک 6

  1. #1
    کاربر سایت zahra303 آواتار ها
    تاریخ عضویت
    May 2013
    سن
    11
    نوشته ها
    3
    تشکر ها
    0
    تشکر شده 2 بار در 1 ارسال.

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

    قسمت هایی از برنامه نویسی ماشین حساب در ویژوال بیسیک 6 :
    یادتون نره که متغیر ها رو عوض کنید.!



    در قسمت general دو متغیر از نوع عددی و رشته ای تعریف می کنیم.
    کد:

    کد:
    Dim p As Double 
    Dim k As String

    در قسمت کد دکمه های 0 تا 9 کد های زیر را به ترتیب جایگزین می کنیم.
    کد:

    کد:
    Private Sub C1_Click()
     T1.Text = Val(T1.Text) * 10 + 7 
    End Sub 
    
    Private Sub C11_Click() 
    T1.Text = Val(T1.Text) * 10 + 5 
    End Sub
    
     Private Sub C12_Click() 
    T1.Text = Val(T1.Text) * 10 + 6 
    End Sub
    
     Private Sub C2_Click() 
    T1.Text = Val(T1.Text) * 10 + 8 
    End Sub 
    
    Private Sub C22_Click() 
    T1.Text = Val(T1.Text) * 10 + 0 
    End Sub 
    
    Private Sub C3_Click() 
    T1.Text = Val(T1.Text) * 10 + 9 
    End Sub 
    
    Private Sub C9_Click() 
    T1.Text = Val(T1.Text) * 10 + 4 
    End Sub 
    
    Private Sub C16_Click() 
    T1.Text = Val(T1.Text) * 10 + 1
     End Sub
    
     Private Sub C17_Click()
     T1.Text = Val(T1.Text) * 10 + 2 
    End Sub 
    
    Private Sub C18_Click() 
    T1.Text = Val(T1.Text) * 10 + 3 
    End Sub

    در قسمت کد های 4 عمل اصلی - و + و / و * کدهای زیر را می نویسیم.
    کد:

    کد:
    Private Sub C13_Click()
     p = Val(T1.Text) k = "*" T1.Text = "" 
    End Sub
     
    Private Sub C19_Click() 
    p = Val(T1.Text) k = "-" T1.Text = "" 
    End Sub 
    
    Private Sub C25_Click() 
    p = Val(T1.Text) k = "+" T1.Text = ""
     End Sub
    
     Private Sub C4_Click() 
    p = Val(T1.Text) k = "/" T1.Text = "" 
    End Sub


    در قسمت Clear یا پاک کردن این کد را می نویسیم.
    کد:

    کد:
    Private Sub C6_Click() 
    T1.Text = "0"
     End Sub


    در قسمت = این کدها را می نویسیم.
    کد:

    کد:
    Private Sub Command1_Click() 
    If k = "+" 
    Then T1.Text = p + T1.Text
    
     If k = "-" 
    Then T1.Text = p - T1.Text 
    
    If k = "/" And Val(T1.Text) *0
     Then T1.Text = p / T1.Text
    
     If k = "*" Then 
    T1.Text = p * T1.Text 
    End Sub 
    End Sub * *



  2. 2 کاربر مقابل از zahra303 عزیز به خاطر این پست مفید تشکر کرده اند .

    mojtaba79 (26 / March / 2017),yanin (07 / December / 2014)

علاقه مندي ها (Bookmarks)

علاقه مندي ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •