Merhaba Arkadaslar Size 3 Adet Basit Program Yapmayı Gösterecegim...
1. Program Yazılan İki Metin Nasıl Birleştirilir ?
Yapımına Basliyalım...
Gerekenler:
Ekliyoruz ve Butona Şu Kodu Yazıyoruz.
Sonra Çalıstıyoruz ve Oluyor Basit Bir Program.
2. Program Küçük Harflerle Yazılan Metni Büyük Harflerle Yazılmıs Hale Çevirmek.
Gerekenler:
Ekliyoruz ve Butona Şu Kodu Yazıyoruz.
Çalıstıyoruz ve Textbox'a Yazıdımız Yazı ListBox'da Büyük Harflerle Yazılıyor.
3. Program Listbox'a Rastgele Cümle Atamak.
Bu Programda Textbox'a Girilen İsmin Listbox'da Yanına Mesela Örnek Textbox'a Ahmet Dedik Butona Tıkladık Listbox'da Ahmet Calıskan, Ahmet Tembel, Gibi İsteğe Bağlı Yazılar Gelebilir.
Gerekenler:
Form'a Ekliyoruz ve Butona Çift Tıklayıp Şu Kodları Yazıyoruz.
Hepsi Bu Kadar İyi Günler...
1. Program Yazılan İki Metin Nasıl Birleştirilir ?
Yapımına Basliyalım...
Gerekenler:
- 2 Textbox
- 1 Button
- 1 Listbox
Ekliyoruz ve Butona Şu Kodu Yazıyoruz.
Kod:
Dim metin1, metin2, birlestir As String
metin1 = TextBox1.Text
metin2 = TextBox2.Text
birlestir = String.Concat(metin1, " ", metin2)
ListBox1.Items.Add(birlestir)2. Program Küçük Harflerle Yazılan Metni Büyük Harflerle Yazılmıs Hale Çevirmek.
Gerekenler:
- 1 Textbox
- 1 Button
- 1 Listbox
Ekliyoruz ve Butona Şu Kodu Yazıyoruz.
Kod:
Dim metin1, metin2 As String
metin1 = TextBox1.Text
metin2 = metin1.ToUpper()
ListBox1.Items.Add(metin2)3. Program Listbox'a Rastgele Cümle Atamak.
Bu Programda Textbox'a Girilen İsmin Listbox'da Yanına Mesela Örnek Textbox'a Ahmet Dedik Butona Tıkladık Listbox'da Ahmet Calıskan, Ahmet Tembel, Gibi İsteğe Bağlı Yazılar Gelebilir.
Gerekenler:
- 1 Adet Textbox
- 1 Adet Listbox
- 1 Adet Buton
Form'a Ekliyoruz ve Butona Çift Tıklayıp Şu Kodları Yazıyoruz.
Kod:
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 & " " & "Adam Zeki Sınıf Birincisi Nazar Deymesin.")
End If
If x = 2 Then
ListBox1.Items.Add(TextBox1.Text & " " & "Fırlama Deli Dolu")
End If
If x = 3 Then
ListBox1.Items.Add(TextBox1.Text & " " & "Adam King.")
End If
If x = 4 Then
ListBox1.Items.Add(TextBox1.Text & " " & "Tembel Sınıfta Kalacak Yavrummm.")
End If
If x = 5 Then
ListBox1.Items.Add(TextBox1.Text & " " & "Yazık Ya Genç Yaşta Serseri Oldu.")
End If
End Sub
