C# KOD ÖRNEKLERİ: INPUT VE DİZİ ÖRNEKLERİ

KOD İNDİR 18.03.2013

Imports Microsoft.VisualBasic

Public Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

Dim kelime As String
        Dim s As String = ""
        Dim i As Integer = 0
        kelime = TextBox1.Text
        ListBox1.Items.Add(kelime)
        Call textsil()
    End Sub
    Public Sub textsil()
        TextBox1.Text = ""
        TextBox1.Focus()
    End Sub

Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Call textsil()
    End Sub

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        ListBox1.Items.Clear()
        Dim gunler(6) As String '' Dizi değişkenini tanımlıyoruz.
        Dim i As Integer '' For Döngüsü için i değişkeni tanımlıyoruz.
        Call textsil()
        gunler(0) = "PAZARTESİ"
        gunler(1) = "SALI"
        gunler(2) = "ÇARŞAMBA"
        gunler(3) = "PERŞEMBE"
        gunler(4) = "CUMA"
        gunler(5) = "CUMARTESİ"
        gunler(6) = "PAZAR"
        For i = 0 To 6
            ListBox1.Items.Add((i + 1 & " .gün - " & gunler(i)))
        Next i
    End Sub

Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        ListBox1.Items.Clear()
        Dim kelime As String
        Dim s As String = ""
        Dim i As Integer = 0
        kelime = TextBox1.Text
        For i = 1 To kelime.Length
            s = Mid(kelime, i, 1)
            ListBox1.Items.Add(s)
        Next
    End Sub

Private Sub Button4_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
        ListBox1.Items.Clear()
    End Sub

Public dizi() As Integer

Public Sub diziyap()
        'Kendin belirle
        Dim i, a, max, min As Byte
bas:
        i = InputBox("Kaç boyutlu bir dizi istiyorsunuz")
        If i >= 10 Or i < 0 Then
            GoTo bas
        Else
            ReDim Preserve dizi(i)
        End If
        max = UBound(dizi, 1)
        min = LBound(dizi, 1)

For a = min To max
            dizi(a) = InputBox(a)
            ListBox1.Items.Add(dizi(a))
        Next
    End Sub

Private Sub Button5_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
        'Örnek Linki :'http://www.yazgelistir.com/makale/vb-nette-diziler

If Me.CheckBox1.Checked = True Then
            Call diziyap()
            Exit Sub
        End If
 
        Dim A() As Integer
        Dim i As Integer
        Dim t As String = ""
        ReDim A(10)
        For i = 0 To 9
            A(i) = Rnd() * 1000
            t = t + CStr(A(i)) & " - "
        Next i
        'Girilen diziyi göster sırasız
        TextBox3.Text = t
       
        ListBox1.Items.Add("Rastgele : " & t)

Call sirala(A, 9)

t = ""
        For i = 0 To 9
            t = t + CStr(A(i)) & " - "
        Next i
        'dizinin sıralanmış hali
        TextBox2.Text = t
        ListBox1.Items.Add("Sıralı        : " & t)
    End Sub

Private Sub sirala(ByVal x() As Integer, ByVal n As Integer)
        Dim i, j, t As Integer
        For i = 0 To n - 1
            For j = i + 1 To n
                If x(i) > x(j) Then
                    t = x(i)
                    x(i) = x(j)
                    x(j) = t
                End If
            Next
        Next
    End Sub

End Class

18 Mart 2013 Pazartesi

INPUT VE DİZİ ÖRNEKLERİ