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


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2017 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSObil projesidir.