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 Long
        Dim b As Byte
        b = 1
        Do While b < 10
            a = Val(InputBox("Sayı Giriniz"))
            If a < 0 Then
                ListBox1.Items.Add(a)
            ElseIf a = 0 Then
                MsgBox("Sıfır Girdiniz")
            Else
                ListBox2.Items.Add(a)
            End If
            b += 1
        Loop

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
        ListBox2.Items.Clear()
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Dim a As Byte = MsgBox("Çıkmak mı istiyorsunuz ?", MsgBoxStyle.Exclamation + MsgBoxStyle.YesNo)
        If a = 6 Then End
    End Sub
End Class

gmais
furkant1@gmail.com