Basit hesap Makinesi yapımı

rapcy1

0
İyinet Üyesi
Katılım
23 Şubat 2011
Mesajlar
302
Reaction score
6
Forma eklenecekler olanlar
4 tane buton
2 tane textbox

2342352.jpg


Kod:
Public Class Form1
    Dim s2 As Integer
    Dim s1 As Integer
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'visualbasicdersleri.com
        s1 = TextBox1.Text
        s2 = TextBox2.Text
        MsgBox("toplama işleminin sonucu " & s1 + s2)
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        s1 = TextBox1.Text
        s2 = TextBox2.Text
        MsgBox("çıkarma işleminin sonucu " & s1 - s2)
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        s1 = TextBox1.Text
        s2 = TextBox2.Text
        MsgBox("bölme işleminin sonucu " & s1 / s2)
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        s1 = TextBox1.Text 'visualbasicdersleri.com
        s2 = TextBox2.Text
        MsgBox("çarpma işleminin sonucu " & s1 * s2)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        MsgBox("Hoş Geldiniz.VisualBasicdersleri.com")
    End Sub
End Class
 

Türkiye’nin ilk webmaster forum sitesi iyinet.com'da forum üyeleri tarafından yapılan tüm paylaşımlardan; Türk Ceza Kanunu’nun 20. Maddesinin, 5651 Sayılı Kanununun 4. maddesinin 2. fıkrasına göre, paylaşım yapan üyeler sorumludur.

Backlink ve Tanıtım Yazısı için iletişime geçmek için Skype Adresimiz: .cid.1580508955483fe5

Elektronik Sigara
Üst