Programalama > VISUAL BASIC

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim A As Integer
        Dim B As Integer
        Dim BOL As Integer
        A = TextBox1.Text
        B = TextBox2.Text
        Label4.Text = A / B
        If 12 < TextBox2.Text Then
            MsgBox(" TAKSİT MİKTARI 12 AYDAN  FAZLA  OLAMAZ")
        End If
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim b As Integer
        b = Label4.Text
        Dim bol As Integer
        Label5.Text = b / 18

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        Dim A As Integer
        Dim B As Integer
        Dim TOPLA As Integer
        A = TextBox3.Text
        B = TextBox4.Text
        Label8.Text = A + B

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        Dim A As Integer
        Dim B As Integer
        Dim CIKAR As Integer
        A = TextBox3.Text
        B = TextBox4.Text
        Label8.Text = A - B
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim A As Integer
        Dim B As Integer
        Dim CARP As Integer
        A = TextBox3.Text
        B = TextBox4.Text
        Label8.Text = A * B
    End Sub

    Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
        Dim A As Integer
        Dim B As Integer
        Dim BOL As Integer
        A = TextBox3.Text
        B = TextBox4.Text
        Label8.Text = A / B
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim A As Integer
        Dim B As Integer
        Dim AL As Integer
        A = TextBox3.Text
        B = TextBox4.Text
        Label8.Text = A Mod B
    End Sub

    Private Sub MaskedTextBox1_MaskInputRejected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.MaskInputRejectedEventArgs)

    End Sub

    Private Sub CheckedListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub BindingNavigatorDeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

    End Sub

    Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        MsgBox(" ANKETE KATILDIĞINIZ İÇİN TEŞEKKÜRLER")
    End Sub

    Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
        LinkLabel1.Text = " www.erhanceylan.com  TIKLAYIN !!! "
    End Sub

    Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
        End
    End Sub

    Private Sub Button10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button10.Click
        MsgBox(" ÜYE KAYDINIZ TAMAMLANMIŞTIR.GÖSTERDİĞİNİZ İLGİDEN DOLAYI TEŞEKKÜR EDERİZ.")
    End Sub
End Class

erhanceylan
erhanceylan15@hotmail.com