VBNET

Uygulama No: 6 – Ders Kodu
VB.Net Örnek Uygulamalar
2 Kasım 2011
Açıklama : Metin kutusuna girilen ders kodu ve adı ayrıştırılarak iki ayrı liste
kutusuna ekleniyor.
Ekran Görüntüsü
Açıklamalı Kodlar
Public Class Form1
Dim dersin_kodu, dersin_adi, ders As String
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles Button1.Click
ders = TextBox1.Text
dersin_kodu = Strings.UCase(Strings.Left(ders, 6))
‘Ders kodu, büyük harfe dönüştürülen metnin soldan 6 karakteri
alınarak ayrıştırılıyor.
dersin_adi = Strings.Right(ders, Strings.Len(ders) - 6)
‘Ders adı, metnin sağdan uzunluğu-6 karakteri alınarak
ayrıştırılıyor.
ListBox1.Items.Add(dersin_kodu)
ListBox2.Items.Add(dersin_adi)
TextBox1.Clear()
End Sub
End Class
Tolga GÜYER Sayfa 12