Listbox'a Rastgele Cümle Atamak


Visual Basic ve .NET Framework    Visual Basic ve .NET Framework İle İlgili Paylaşım Kategorisi

Yazar: x60    0 Yorum    155 Görüntüleme
  • Derecelendirme: 0/5 - 0 oy

Paylaşım Tarihi: 13.01.2016, 19:57:44 #1
x60 #Requiem
Cezalı Üye
Status: Çevrimdışı Yorumları:545 Konuları:161 Kayıt Tarihi:18.11.2015

Bu dersimizde, textbox'dan girilen bir veriye rastgele kelime aktarıp listboxda göstermeyi öğrenelim..

PHP Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim x As Integer
        Randomize()
        x = Rnd() * 4
        If x = 1 Then
            ListBox1.Items.Add(TextBox1.Text & " " & "zeki")
        End If
        If x = 2 Then
            ListBox1.Items.Add(TextBox1.Text & " " & "tembel")
        End If
        If x = 3 Then
            ListBox1.Items.Add(TextBox1.Text & " " & "çalışkan")
        End If
        If x = 4 Then
            ListBox1.Items.Add(TextBox1.Text & " " & "akıllı")
        End If
    End Sub 











Aradığınızı Bulamadınız Mı ?

Konuyu Okuyanlar:
1 Ziyaretçi